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: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 330
Valid CSS Valid XHTML 1.0 Strict