FTN4
      SUBROUTINE COMP(LU1,BUF1,BUF2,LENGTH,IERR)
     +,92069-16201 REV.2013 790316
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18201
C     RELOC:     92069-16201
C 
C 
C****************************************************************:
C 
C 
C************************************************************ 
C COMP COMPARES TWO BUFFERS AND RETURNS 0 IN IERR IF THEY 
C MATCH, ELSE IERR HAS NEGATIVE J, WHERE J IS THE FIRST WORD
C IN WHICH THEY DIFFER. 
C*************************************************************
      INTEGER LU1,BUF1(1),BUF2(1),LENGTH,IERR 
      DO 10 J=1,LENGTH
      IF (BUF1(J) .NE. BUF2(J)) GO TO 1000
10    CONTINUE
      IERR=0
      RETURN
C*********************************************************
C RETURN POINT WHEN BUFFERS DIFFER
C 
1000  IERR=-J 
      RETURN
      END 
                                                                          