CHARACTER ctime*24

string = ctime( stime )

stime

INTEGER*4

入力 

time() で読み取ったシステム時間 (標準バージョン)

戻り値 

character*24

出力 

文字列に変換されたシステム時間。ctime と string は character*24 として型宣言する

demo% cat tctime.f
        character*24 ctime, string
        INTEGER*4  n, time
        n = time()
        string = ctime( n )
        write(*,*) ’ctime: ’, string
        end
demo% f95 tctime.f
demo% a.out
 ctime: Wed Dec  9 13:50:05 1998
demo%