このルーチンはシステム時間を現地時間の月、日などに分解します。
サブルーチンは、次のように呼び出します。
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% |