FTN4 LOGICAL FUNCTION BRCKS(IBUF .,L),. 92903-16001 REV.1805 780112 C C SOURCE 92903-18007 C C C C ************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C ************************************************************** C C C ************************************************************* C * * C * THIS FUNCTION CALCULATES THE CHECKSUM C * (FORMAT IS BINARY RELOCATBLE) * C * THE CHECKSUM IS STORED IN WORD 3 OF THE BUFFER AND * C * IS THE ARITHMETIC SUM OF WORD 2,4,5,6,7 ... L * C * * C ************************************************************* C C CALLING SEQUENCE: C C IF( BRCKS(IBUF,L)) GOTO .. [CHECKSUM WAS BAD] C C IN ANY RETURN (.FALSE. OR .TRUE.) THE GOOD CHECKSUM C IS STORED IN WORD 3 C DIMENSION IBUF(1) C BRCKS=.TRUE. IF(L.LE.3) RETURN ICK=IBUF(3) IBUF(3)=IBUF(2) DO 100 I=4,L 100 IBUF(3)=IBUF(3)+IBUF(I) BRCKS = .NOT. ICK.EQ.IBUF(3) RETURN END END$