C C C------------------------------------------------------------------------------- C C PROGRAM: STOHMS C C AUTHOR: Jan H. Belgraver C C DATE: 20-AUG-81 C C PURPOSE: Converts time in seconds into H, M and S. C Input and output both integers. C C BUILDING: STOHMSCBC.CMD: C F4P STOHMS,STOHMS/-SP=STOHMS C TKB @STOHMSBLD C PIP STOHMS.*/PU C C STOHMSBLD.CMD: C STOHMS,STOHMS/-SP=STOHMS C / C ACTFIL=1 C // C C------------------------------------------------------------------------------- C C C C PROGRAM STOHMS C C INTEGER*4 ISEC C 10 WRITE (5,101) 101 FORMAT (/'$Enter time in seconds',T25,': ') READ (5,102,END=999,ERR=10) NB, ISEC 102 FORMAT (Q, I6) IF (NB .EQ. 0) GOTO 999 C 20 IRESTH = MOD (ISEC, 3600) NHR = (ISEC - IRESTH) / 3600 + .05 C 30 IRESTM = MOD (IRESTH, 60) NMIN = (IRESTH - IRESTM) / 60 + 0.5 NSEC = IRESTM C WRITE (5,103) NHR, NMIN, NSEC 103 FORMAT (/' TIME STRING',T25,': ',I2,2(':',I2)) C GOTO 10 C 999 STOP 'ABORTED' C END