-
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