| Writes |
write (SpecificHtml, '(255x)')
write (SpecificHtml, 3)
* ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* ShortName
write (SpecificUnit, '(a,/)')
* '<!-- ====== MAP: ====== -->'
write (SpecificUnit, '(6x,a)')
* '<table border="0" width="100%" bgcolor="#ffffff">'
write (SpecificUnit, '(8x,a)') '<tr>'
write (SpecificUnit, '(10x,a)')
* '<td align="right" valign="top">'
write (SpecificUnit, '(12x,a)') '<b>Location map:</b>'
write (SpecificUnit, '(10x,a,/)') '</td>'
write (SpecificUnit, '(10x,a)') '<td>'
write (SpecificUnit, 20) ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* ShortName,
* CapID
write (SpecificUnit, '(10x,a)') '</td>'
write (SpecificUnit, '(8x,a)') '</tr>'
write (SpecificUnit, '(6x,a,/)') '</table>'
write (SpecificUnit, '(6x,a,/)') '<p>'
write (SpecificUnit, '(a,/)')
* '<!-- ====== LINKS TO DATA FILES: ====== -->'
write (SpecificUnit, '(6x,a)') '<table border="0" align="left">'
write (SpecificUnit, '(8x,a)') '<tr>'
write (SpecificUnit, '(10x,a)') '<td>'
write (SpecificUnit, '(12x,a)')
* '<a href="http://walrus.wr.usgs.gov/infobank/'//
* 'programs/html/definition/meta.html">'
write (SpecificUnit, '(14x,a)') '<b>Metadata:</b>'
write (SpecificUnit, '(12x,a)') '</a>'
write (SpecificUnit, '(10x,a)') '</td>'
write (SpecificUnit, '(8x,a)') '</tr>'
write (SpecificUnit, '(6x,a)') '</table>'
write (SpecificUnit, '(6x,a)')
* '<TABLE BORDER="1" WIDTH="80%">'
write (Path, '(255x)')
write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* 'Formal metadata for the meters'//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Link(1:LinkLength)//'">'//
* Path((index(Path, '.')+1):
* (index(Path, '.path')-1))//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER" '//
* 'COLSPAN="2">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path((index(Path, '.onoff.')+7):PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(index (Path(1:PathLength),'/meter/') + 7:
* PathLength-8)//' format</A>',
* ' </TD>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/)')
* 'ADP amplitude'
write (SpecificUnit, '(a,/)')
* 'ADP burst average'
write (SpecificUnit, '(a,/)')
* 'ADP pressure time series'
write (SpecificUnit, '(a,/)')
* 'ADP standard deviation'
write (SpecificUnit, '(a,/)')
* 'ADP signal-to-noise'
write (SpecificUnit, '(a,/)')
* 'ADP velocity east'
write (SpecificUnit, '(a,/)')
* 'ADP velocity north'
write (SpecificUnit, '(a,/)')
* 'ADP velocity up'
write (SpecificUnit, '(a,/)')
* 'ADP wave amplitude'
write (SpecificUnit, '(a,/)')
* 'ADV burst average'
write (SpecificUnit, '(a,/)')
* 'ADV burst average (station ns)'
write (SpecificUnit, '(a,/)')
* 'ADV time series (station ns)'
write (SpecificUnit, '(a,/)')
* 'ADV time series'
write (SpecificUnit, '(a,/)')
* 'Sea-Bird tide'
write (SpecificUnit, '(a,/)')
* 'Sea-Bird wave burst'
write (SpecificUnit, '(a,/)')
* ' </TD>',
* ' </TR>'
write (TitleName, '(255x)')
write (SpecificUnit, '(a,/)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* '<a href="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* TitleName(1:TitleNameLength)//'</a>',
* ' </TD>'
write (SpecificUnit, '(a)') ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
* 'none</TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
* 'none</TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/)')
* '</TABLE>','<P>'
write (SpecificUnit, '(a)')
* '<table border="0" align="left" bgcolor="#ffffff">'
write (SpecificUnit, '(2x,a)') '<tr>'
write (SpecificUnit, '(4x,a)') '<td>'
write (SpecificUnit, '(6x,a)')
* '<a href="http://walrus.wr.usgs.gov/infobank/'//
* 'programs/html/definition/meta.html">'
write (SpecificUnit, '(8x,a)') '<b>Digital Data:</b>'
write (SpecificUnit, '(6x,a)') '</a>'
write (SpecificUnit, '(4x,a)') '</td>'
write (SpecificUnit, '(2x,a)') '</tr>'
write (SpecificUnit, '(a,/)') '</table>'
write (SpecificUnit, '(a)')
* '<table border="1" width="80%" bgcolor="#ccffff">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">zip</A>',
* ' </TD>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength-3)//'txt">contents</A>',
* ' </TD>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* Path(index(Path(1:PathLength), '/meter/') + 7:
* PathLength-4),
* ' </TD>'
write (SpecificUnit, '(a,/)')
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* Path(index(Path(1:PathLength), '/meter/') + 11:
* PathLength-4)//' data',
* ' </TD>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* 'deployment '//
* Path(index(Path(1:PathLength), '/meter/') + 9:
* index(Path(1:PathLength), '/meter/') +10),
* ' </TD>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
* 'station '//
* Path(index(Path(1:PathLength), '/meter/') + 7:
* index(Path(1:PathLength), '/meter/') + 8),
* ' </TD>'
write (SpecificUnit, '(a)') ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
* 'none</TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
* 'none</TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/)')
* '</TABLE>','<P>'
write (SpecificUnit, '(a,/)')
* '<!-- ====== LINKS TO ARC FILES: ====== -->'
write (SpecificUnit, '(6x,a)') '<table border="0" align="left">'
write (SpecificUnit, '(8x,a)') '<tr>'
write (SpecificUnit, '(10x,a)') '<td>'
write (SpecificUnit, '(12x,a)')
* '<a href="http://walrus.wr.usgs.gov/infobank/'//
* 'programs/html/definition/arc.html">'
write (SpecificUnit, '(14x,a)') '<b>Arc Files:</b>'
write (SpecificUnit, '(12x,a)') '</a>'
write (SpecificUnit, '(10x,a)') '</td>'
write (SpecificUnit, '(8x,a)') '</tr>'
write (SpecificUnit, '(6x,a)') '</table>'
write (SpecificUnit, '(6x,a)')
* '<TABLE BORDER="1" WIDTH="80%">'
write (Path, '(255x)')
write (SpecificUnit, '(2x,a,/)') '</tr>'
write (SpecificUnit, '(2x,a)') '<tr>'
write (SpecificUnit, '(4x,a)')
* '<td bgcolor="#00FFFF" align="center">'//
* '<b>Best file with nav'//
* ' in ArcInfo E00 format</b></td>'
write (SpecificUnit, '(4x,a)')
* '<td bgcolor="#CCFFFF" align="center">'//
* '<b>'//
* LongID(1:IDLength+3)//'.zip</b></td>'
write (SpecificUnit, '(6x,a,f8.1,a)')
* '<td bgcolor="#CCFFFF"><center>'//
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//
* '/arc/'//ShortName//'/'//
* LongID(1:IDLength+3)//'.zip">',Size,
* ' Mb</a></center></td>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
* 'none</TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' <TR>',
* ' <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
* 'none</TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/)')
* '</TABLE>','<P>'
write (SpecificUnit, '(a)')
* '<table border="0" align="left" bgcolor="#ffffff">'
write (SpecificUnit, '(2x,a)') '<tr>'
write (SpecificUnit, '(4x,a)') '<td>'
write (SpecificUnit, '(8x,a)') '<b>Other:</b>'
write (SpecificUnit, '(4x,a)') '</td>'
write (SpecificUnit, '(2x,a)') '</tr>'
write (SpecificUnit, '(a,/)') '</table>'
write (SpecificUnit, '(a)')
* '<table border="1" width="80%" bgcolor="#ccffff">'
write (SpecificUnit, '(2x,a)') '<tr>'
write (SpecificUnit, '(4x,a)') '<th align="center">'
write (SpecificUnit, '(8x,a)') 'Description'
write (SpecificUnit, '(4x,a)') '</th>'
write (SpecificUnit, '(4x,a)') '<th align="center">'
write (SpecificUnit, '(8x,a)') 'Thumbnail<br>Size'
write (SpecificUnit, '(4x,a)') '</th>'
write (SpecificUnit, '(4x,a)') '<th align="center">'
write (SpecificUnit, '(8x,a)') 'Intermediate<br>Size'
write (SpecificUnit, '(4x,a)') '</th>'
write (SpecificUnit, '(4x,a)') '<th align="center">'
write (SpecificUnit, '(8x,a)') 'Full<br>Size'
write (SpecificUnit, '(4x,a)') '</th>'
write (SpecificUnit, '(2x,a)') '</tr>'
write (SpecificUnit, '(2x,a)') '<tr>'
write (SpecificUnit, '(4x,a)') '<td align="center">'
write (SpecificUnit, '(8x,a)')
* Path(1:PathLength)
write (SpecificUnit, '(4x,a)') '</td>'
write (SpecificUnit, '(4x,a)') '<td align="center">'
write (SpecificUnit, '(8x,a,f8.1,a)')
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank'//
* '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
* '/'//ShortName//'/'//Path(1:PathLength)//
* '">',Size,' Mb</a>'
write (SpecificUnit, '(4x,a)') '</td>'
write (SpecificUnit, '(4x,a)') '<td align="center">'
write (SpecificUnit, '(8x,a,f8.1,a)')
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank'//
* '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
* '/'//ShortName//'/'//Path(1:PathLength)//
* '">',Size,' Mb</a>'
write (SpecificUnit, '(4x,a)') '</td>'
write (SpecificUnit, '(4x,a)') '<td align="center">'
write (SpecificUnit, '(8x,a,f8.1,a)')
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank'//
* '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
* '/'//ShortName//'/'//Path(1:PathLength)//
* '">',Size,' Mb</a>'
write (SpecificUnit, '(4x,a)') '</td>'
write (SpecificUnit, '(2x,a)') '</tr>'
write (SpecificUnit, '(a,/,a,/)')
* '</table>','<p>'
write (SpecificUnit, '(a)')
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.analog.html">'//
* '<b>Check the analog holdings.</b></a><p>'
write (SpecificUnit, '(a)')
* 'No analog holdings.<p>'
|