| Opens |
open (unit = ScratchUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//
* '.ids')
|
| Writes |
write (OutUnit, '(4x,a)') '<td align="center" width="100">'
write (OutUnit, '(6x,a)')
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//
* '.meta.html" target="new">'//
* CapLongID(1:IDLength+3)//'</a>'
write (OutUnit, '(6x,a)')
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//
* '.meta.html" target="new">'//
* IDLine(10:18)//
* '<br>('//CapLongID(1:IDLength+3)//')</a>'
write (OutUnit, '(4x,a)') '<p>'
write (OutUnit, '(6x,a)') DatesLine(5:14)
write (OutUnit, '(6x,a)') '<br>|'
write (OutUnit, '(6x,a)') '<br>'//DatesLine(29:38)
write (OutUnit, '(4x,a)') '</td>'
|