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$