home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e003 / 14.ddi / TIME.FOR < prev   
Encoding:
Text File  |  1987-04-13  |  498 b   |  19 lines
  1.       SUBROUTINE SECOND(T)
  2.       IMPLICIT REAL*8 (A-H,O-Z) 
  3.       CALL GETTIM(NA,NB,NC,ND)  
  4.       T = NA*60.0+NB+NC/60.0
  5.       RETURN 
  6.       END
  7.       SUBROUTINE STIME
  8.       CALL GETTIM(I,J,K,M)
  9.       WRITE(6,10)I,J,K
  10.  10   FORMAT('       MODEL PROGRAM START AT ',I2,':',I2,':',I2,'  !!!!')
  11.       RETURN
  12.       END
  13.       SUBROUTINE CFILES
  14.       CALL GETTIM(I,J,K,L)
  15.       WRITE(6,10)I,J,K
  16.  10   FORMAT(//'   MODEL STOP AT  ',I2,':',I2,':',I2,'   !!!!!')
  17.        RETURN
  18.        END
  19.