FTN4
      SUBROUTINE TIME(START,STOP,OPTION),92082-1X005 REV.2001 791119
C 
C 
C 
C     DATE: 11-19-79
C     NAME: TIME
C     SOURCE: 92082-18005 
C     RELOC:  PART OF 92082-12001 
C     PGMR:   C.M.M.
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C 
C 
C 
C 
      INTEGER START(5),STOP(5),OPTION,BASE(4) 
      DATA BASE/100,60,60,24/ 
C 
C   THIS ROUTINE ADDS OR SUBTRACTS TWO TIME VALUES IN ARRAYS, 
C     START AND STOP. THE RESULT IS RETURNED IN ARRAY STOP. 
C 
C          START(1)/STOP(1)=MILLISECONDS X10
C          START(2)/STOP(2)=SECONDS 
C          START(3)/STOP(3)=MINUTES 
C          START(4)/STOP(4)=HOURS 
C 
C   IF OPTION .EQ. 0, THEN ADD, ELSE SUBTRACT.
C 
      IF(OPTION.NE.0) GO TO 200 
C 
C   ADD ROUTINE 
C 
      DO 100 J=1,4
      STOP(J)=STOP(J)+START(J)
      IF(STOP(J).LT.BASE(J)) GO TO 100
      STOP(J)=STOP(J)-BASE(J+1) 
      STOP(J+1)=STOP(J+1)+1 
100   CONTINUE
      GO TO 300 
C 
C   SUBTRACT ROUTINE
C 
200   DO 300 J=1,4
      STOP(J)=STOP(J)-START(J)
      IF(STOP(J).GE.0) GO TO 300
      STOP(J)=STOP(J)+BASE(J) 
      STOP(J+1)=STOP(J+1)-1 
300   CONTINUE
      END 
      END$
                                                                                                                                                                                                                                                          