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$
                                                                                                                                                                                                                                                              