timtst.f

   1:         character*24 ctime, fdate
   2:         integer time, tl(9), tgm(9)
   3:         write(*,*) ctime(time()), fdate()
   4:         call ltime(time(), tl)
   5:         call gmtime(time(), tgm)
   6:         write(*,*) tl, tgm
   7:         end

Last modified: 1987-02-18
Generated: 2016-12-26

Generated by src2html V0.67
page hit count: 926