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%

1 

2 

3 

4 

5 

秒 (0 - 61) 

分钟 (0 - 59) 

小时 (0 - 23) 

一个月中的天数 (1 - 31) 

自一月起的月份 (0 - 11) 

6 

7 

8 

9 

年份－1900 

星期几（星期日= 0） 

一年中的天数 (0 - 365) 

夏令时，如果实行夏令时，则为 1。