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