PROGRAM CPUTIM C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display the current job's CPU time. C INTEGER*2 ITIME(2) LOGICAL*1 STIME(10) C LINUM = ITSLIN () CALL ICPUTM (LINUM,ITIME) CALL TIMASC (ITIME,STIME) TYPE 10,(STIME(I),I=1,8) 10 FORMAT (' The CPU time is: '8A1,/) C CALL EXIT END