1:         character*24 fdate
   2:         integer id(3), it(3)
   3:         write(*,*) fdate()
   4:         call itime(it)
   5:         call idate(id)
   6:         write(*,*) id, it
   7:         end
Last modified: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 489
Valid CSS Valid XHTML 1.0 Strict