FTN4,L C C *************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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 SOURCE PART NUMBER :92067-18384 C C RELOCATABLE PART NUMBER : 92067-16361 C C PROGRAMER(S) : J.M.N. C C C C C PRINT ACCUMULATED TIME C C CALLING SEQUENCE: C CALL ACTIM(ITIME,IERR) C WHERE ITIME IS A 4 WORD ARRAY C WORDS 1&2 CONNECT TIME C WORDS 3&4 CPU TIME C SUBROUTINE ACTIM(ITIME,IERR) ,92067-16361 REV.1940 781024 DIMENSION ITIME(4) DATA I1,I3,I5 / 2HI1,2HI3,2HI5 / C C PRINT CONNECT TIME C CALL ACDDV (ITIME(1),3600,IHRS,ISECS) IMINS=ISECS/60 ISECS=ISECS-60*IMINS CALL ACFMT (IERR,19,20HTOTAL CONNECT TIME: ,I5,IHRS,6,6H HOURS,I3, 1 IMINS, 8,8H MINUTES ,I3,ISECS,8,8H SECONDS ) C C PRINT CPU TIME C CALL ACDDV (ITIME(3),6000,IMINS,ICS) ISECS=ICS/100 ICS=ICS-100*ISECS IDS=ICS/10 ICS=ICS-10*IDS IHRS=IMINS/60 IMINS=IMINS-60*IHRS CALL ACFMT (IERR,19,20HTOTAL CPU TIME: ,I5,IHRS,6,6H HOURS,I3, 1 IMINS, 8,8H MINUTES ,I3,ISECS,1,2H. ,I1,IDS,I1,ICS, 2 8,8H SECONDS ) C END