fortran读取系统时间函数

humes

　　有时编程，需要调取系统时间，本人找了fortran读取时间的函数date_and_time。
　　大家可以试试这个函数，读取时间的程序是：
　　program now_time     
     　　  integer date_time(8)
       　　character*10 b(3)
      　　 call date_and_time(b(1), b(2), b(3), date_time)
      　　 print *,'date_time    array values:'
    　　   print *,'year=',date_time(1)
    　　   print *,'month_of_year=',date_time(2)
     　　  print *,'day_of_month=',date_time(3)
      　　 print *,'time difference in minutes=',date_time(4)
     　　  print *,'hour of day=',date_time(5)
      　　 print *,'minutes of hour=',date_time(6)
       　　print *,'seconds of minute=',date_time(7)
      　　 print *,'milliseconds of second=',date_time(8)
       　　print *, 'DATE=',b(1)
      　　 print *, 'TIME=',b(2)
     　　  print *, 'ZONE=',b(3)
　　end
　　date_and_time(b(1), b(2), b(3), date_time)函数里参数的意思见下面两个图：