1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)try_env.f 5.2 (Berkeley) 04/12/91 8C 9 10c test overriding file names from program with 11c environment variables 12c formatted, seq 13 write(8,8000) 8 148000 format('sample line ',i5) 15 open(9,file='subdir/frmt.d') 16 write(9,8000) 9 17c unform, seq 18 open(10,form='unformatted') 19 write(10) 10 20 open(11,file='unfr.dat',form='unformatted') 21 write(11) 11 22c direct 23 open(12,access='direct',form='formatted',recl=20) 24 write(12,8000,rec=3) 12 25 open(13,file='dirct',access='direct',form='unformatted',recl=8) 26 write(13,rec=3) 127, 16*127 27 end 28