1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)timtst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1044011Sbostic character*24 ctime, fdate 1144011Sbostic integer time, tl(9), tgm(9) 1244011Sbostic write(*,*) ctime(time()), fdate() 1344011Sbostic call ltime(time(), tl) 1444011Sbostic call gmtime(time(), tgm) 1544011Sbostic write(*,*) tl, tgm 1644011Sbostic end 17