| Reads |
read (90, '(q,a)')
* DirLength(Loop), Dir(Loop)(1:DirLength(Loop))
read (90, '(q,a)', end = 99)
* IDLength, ID(1:IDLength)
|
| Writes |
write (OutName, '(a,i6.6,a)')
* '/infobank/programs/html/proofsheet/'//
* 'sheet',OutCount,'.html'
write (LastName, '(a,i6.6,a)')
* '/infobank/programs/html/proofsheet/'//
* 'sheet',OutCount-1,'.html'
write (NextName, '(a,i6.6,a)')
* '/infobank/programs/html/proofsheet/'//
* 'sheet',OutCount+1,'.html'
write (91, '(a)')
* '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN
write (91, '(a)')'<HTM
write (91, '(a)')'<HEA
write (91, '(a)')'<TITLE>Untitled<
write (91, '(a)')'</HEA
write (91, '(a)')'<BOD
write (91, '(a)')
* '<a href="http://walrus.wr.usgs.gov
* LastName(1:51)//'">previous sheet&l
write (91, '(a)')
* ID(1:IDLength)//' missing '//Dir(Loop)//'.gif'
write (6, '(a)')
* 'Missing '//ID(1:IDLength)//
* Dir(Loop)//'/ directory, but have .gif'
write (91, '(a)') '<h
write (91, '(a)')
* '<a href="http://walrus.wr.usgs.gov
* NextName(1:51)//'">next sheet&l
write (91, '(a)')'</bod
write (91, '(a)')'</htm
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/html/proofsheet/'//
* 'proofsheet.dirlist.keep')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/proofsheet.sorted.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutName(1:51))
|
