1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)statst.f 5.2 (Berkeley) 04/12/91 8C 9 10 character*24 ctime 11 integer stata(11), statb(11), i1, i2 12 open(1, file='statst.f') 13 i1 = stat('statst.f', stata) 14 i2 = fstat(1, statb) 15 write(*,*) i1, i2, ierrno() 16 write(*,'(8r,2i12)') (stata(i),statb(i),i=1,8) 17 write(*,'(a,2x,a)') (ctime(stata(i)), ctime(statb(i)), i=9,11) 18 end 19