7.7 时间和日期函数

time

返回自 1970 年 1 月 1 日以来经过的秒数 

time(3F)

date

以字符串形式返回日期 

date(3F)

fdate

以字符串形式返回当前时间和日期 

fdate(3F)

idate

在整型数组中返回当前的年、月、日 

idate(3F)

itime

在整型数组中返回当前的时、分、秒 

itime(3F)

ctime

将 time 函数返回的时间转换成字符串

ctime(3F)

ltime

将 time 函数返回的时间转换成本地时间

ltime(3F)

gmtime

将 time 函数返回的时间转换成格林威治时间

gmtime(3F)

etime

单处理器：返回程序执行经过的用户及系统时间 多处理器：返回挂钟时间

etime(3F)

dtime

返回自上次调用 dtime 以来经过的用户及系统时间

dtime(3F)

date_and_time

以字符和数字形式返回日期及时间 

date_and_time(3F)

      subroutine startclock
      common / myclock / mytime
      integer mytime, time
      mytime = time()
      return
      end
      function wallclock()
      integer wallclock
      common / myclock / mytime
      integer mytime, time, newtime
      newtime = time()
      wallclock = newtime–  mytime
      mytime = newtime
      return
      end
      integer wallclock, elapsed
      character*24 greeting
      real dtime, timediff, timearray(2)
c      print a heading
      call fdate( greeting )
      print*,  "      Hello, Time Now Is: ",  greeting
      print*,      "See how long ’sleep 4’ takes, in seconds"
      call startclock
      call system( ’sleep 4’ )
      elapsed = wallclock()
      print*, "Elapsed time for sleep 4 was: ", elapsed," seconds"
c      now test the cpu time for some trivial computing
      timediff = dtime( timearray )
      q = 0.01
      do 30 i = 1, 100000
            q = atan( q )
30      continue
      timediff = dtime( timearray )
      print*, "atan(q) 100000 times took: ", timediff ," seconds"
      end

demo% TimeTest
       Hello, Time Now Is: Thu Feb  8 15:33:36 2001
 See how long ’sleep 4’ takes, in seconds
 Elapsed time for sleep 4 was:  4  seconds
 atan(q) 100000 times took:  0.01  seconds
demo%

idate

日期为年、月、日形式 

call idate( d, m, y )

integer

time

当前时间为 hhmmss 形式

call time( t )

character*8