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 8