Fortran77取系统时间

Code: Select all

     
     program main
      parameter(Iout=12)
      character datim*26
      open(Iout,file='file.out')
      CALL GDate(datim)
      write (Iout,*) 'Current time: ',datim(1:24)
      end


      Subroutine GDate(Date1)
      Implicit Integer(A-Z)
      Character*(*) Date1

      Call FDate(Date1)
      If(Len(Date1).gt.24) Date1(25:) = ' '
      Return
      End

用这个过程更好：

Code: Select all

      subroutine GetTime(input)
      INTEGER DATE_TIME(8)
      CHARACTER (LEN=12) input
      CHARACTER (LEN = 12) REAL_CLOCK (3)
      CALL DATE_AND_TIME (REAL_CLOCK (1), REAL_CLOCK (2),
     &                 REAL_CLOCK(3), DATE_TIME)
 
      input = REAL_CLOCK(2)
      return
      end