| Reads |
read (90, '(q,a)', end = 99)
* HeaderLength, Header(1:HeaderLength)
read (90, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)')
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (InFile, '(255x)')
write (InFile, '(a,i3.3,a,i5.5,a)')
* '/infobank/items/',Container/100,
* '00s/',Container,'.container'
write (Header, '(2048x)')
write (ALine, '(2048x)')
write (Title, '(255x)')
write (Title, '(a,i5.5)')
* 'USGS Activity Physical Data: Container ',
* Container
write (91, '(4x,a)') '</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '<p>'
write (91, '(a)') '<table border="3" bgcolor="ccffff">'
write (91, '(a)') '<tr>'
write (91, '(a)') '<td>'
write (91, '(4x,a)')
* '<b>Location of Container:</b>'
write (91, '(4x,a)') '<br>'
write (91, '(4x,a)')
* ' '//Location(1:LocationLength)
write (91, '(a)') '</td>'
write (91, '(a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '<p>'
write (91, '(a)') '<table border-"0">'
write (91, '(a)') '<tr>'
write (91, '(a)') '<td>'
write (91, '(a)') ' '
write (91, '(a)') '</td>'
write (91, '(a)') '<td>'
write (91, '(a)') '<table border="1" bgcolor="ccffff">'
write (91, '(2x,a)')
* '<tr bgcolor="00ffff" align="center">'
write (91, '(4x,a)')
* '<th>'//
* Header(HeaderTab(Loop)+1:HeaderTab(Loop+1)-1)//
* '</th>'
write (91, '(2x,a)') '</tr>'
write (ALine, '(2048x)')
write (ID, '(80x)')
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td>'//
* '<a href="http://walrus.wr.usgs.gov/infobank/'//
* ID(1:1)//'/'//ID(1:IDLength)//'/html/'//
* LongSmallID(1:IDLength+3)//'.meta.html">'//
* LongCapID(1:IDLength+3)//'</a>'
write (91, '(4x,a)')
* '<td>'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* '</td>'
write (91, '(4x,a)')
* '<td>'//
* ALine(Tab(Loop)+1:Comma)//
* '<br>'//
* ALine(Comma+1:Tab(Loop+1)-1)//
* '</td>'
write (91, '(4x,a)') '<td>'
write (91, '(4x,a)')
* ALine(OutStart:OutEnd)
write (91, '(4x,a)')
* ALine(OutStart:OutMiddle-1)//'<br>'
write (91, '(4x,a)')
* ALine(OutStart:OutEnd)
write (91, '(4x,a)') '</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '</td>'
write (91, '(a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '<table border="0" width="90%" '//
* 'align="center" bgcolor="#f3f3f3" '//
* 'cellpadding="0" cellspacing="0">'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td>'
|