1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)timtst.f 5.2 (Berkeley) 04/12/91 8C 9 10 character*24 ctime, fdate 11 integer time, tl(9), tgm(9) 12 write(*,*) ctime(time()), fdate() 13 call ltime(time(), tl) 14 call gmtime(time(), tgm) 15 write(*,*) tl, tgm 16 end 17