|
|
1.1 ! root 1: c test overriding file names from program with ! 2: c environment variables ! 3: c formatted, seq ! 4: write(8,8000) 8 ! 5: 8000 format('sample line ',i5) ! 6: open(9,file='subdir/frmt.d') ! 7: write(9,8000) 9 ! 8: c unform, seq ! 9: open(10,form='unformatted') ! 10: write(10) 10 ! 11: open(11,file='unfr.dat',form='unformatted') ! 12: write(11) 11 ! 13: c direct ! 14: open(12,access='direct',form='formatted',recl=20) ! 15: write(12,8000,rec=3) 12 ! 16: open(13,file='dirct',access='direct',form='unformatted',recl=8) ! 17: write(13,rec=3) 127, 16*127 ! 18: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.