FTN4,L
      SUBROUTINE COMPR(IBUFA,IBUFB,LEN,IER),92067-1X547 REV.2001 791101 
C*****************************************************************
C*                                                               *
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       *
C*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     *
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     *
C*  COMPANY.                                                     *
C*                                                               *
C*****************************************************************
C 
C     NAME:  COMPR
C   SOURCE:  92067-18547  
C    RELOC:  PART OF 92067-12003
C     PGMR:  J.S.W
C 
      DIMENSION IBUFA(1),IBUFB(1) 
C 
C 
      IER=0 
C 
      DO 10 I=1,LEN 
      IF(IBUFA(I).NEQ.IBUFB(I)) IER=1 
10    CONTINUE
C 
      RETURN
      END 
                                                  