このルーチンはシステム時間を GMT の月、日などに分解します。
サブルーチン
call gmtime( stime, tarray ) |
|||
stime |
INTEGER*4 |
入力 |
time() で読み取ったシステム時間 (標準バージョン) |
tarray |
INTEGER*4(9) |
出力 |
GMT の日、月、年、... に分解されたシステム時間 |
demo% cat tgmtime.f integer*4 stime, tarray(9), time stime = time() call gmtime( stime, tarray ) write(*,*) ’gmtime: ’, tarray end demo% f95t tgmtime.f demo% a.out gmtime: 12 44 19 18 5 94 6 168 0 demo% |
次に ltime と gmtime の tarray() の値 (インデックス、単位、範囲) を示します。
1 2 3 4 5 |
秒 (0 - 61) 分 (0 - 59) 時間 (0 - 23) 日 (1 - 31) 月 (0 - 11) |
6 7 8 9 |
年 - 1900 曜日 (日曜 = 0) 日 (通年) (0 - 365) 夏時間: 夏時間が有効な場合、1 |
これらの値は、C ライブラリルーチン ctime(3C) で定義されています。システムが 59 を超える秒を返す理由についてもここで説明されています。参照: idate(3F)、および fdate(3F).