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