このルーチンはシステム時間を現地時間の月、日などに分解します。
サブルーチンは、次のように呼び出します。
|
call ltime( stime, tarray ) |
|||
|
stime |
INTEGER*4 |
入力 |
time() で読み取ったシステム時間 (標準バージョン) |
|
tarray |
INTEGER*4(9) |
出力 |
現地時間の日、月、年、... に分解されたシステム時間 |
tarray の要素の意味については、次のセクションを参照してください。
demo% cat tltime.f
integer*4 stime, tarray(9), time
stime = time()
call ltime( stime, tarray )
write(*,*) ’ltime: ’, tarray
end
demo% f95 tltime.f
demo% a.out
ltime: 25 49 10 12 7 91 1 223 1
demo%
|