| 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 geodetics'//
* '</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,/)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">',
* 'Excel spreadsheet'//
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(Dot+1:PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">',
* 'report'//
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(Dot+1:PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
* ' <TR>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path((index(Path, '.onoff.')+7):PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a)')
* 'Surveying Conditions',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <TABLE BORDER="0">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
* ' <TR>',
* ' <TD ALIGN="CENTER" '//
* 'VALIGN="TOP">'//
* '<FONT SIZE="-1">',
* ' '//Item(1:Dash-1),
* ' </FONT></TD>',
* ' <TD><FONT SIZE="-1">',
* ' '//Item(Dash+3:ItemLength),
* ' </FONT></TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' </TABLE>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a)')
* 'Generated Files',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <TABLE BORDER="0">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
* ' <TR>',
* ' <TD ALIGN="CENTER" '//
* 'VALIGN="TOP">'//
* '<FONT SIZE="-1">',
* ' '//Item(1:Dash-1),
* ' </FONT></TD>',
* ' <TD><FONT SIZE="-1">',
* Item(Dash+3:ItemLength),
* ' </FONT></TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' </TABLE>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Geodetics Equipment',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a)')
* '<BR>'//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Overview',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a,/,a,/,a)')
* '<CENTER>',
* Item(1:ItemLength),
* '</CENTER>'
write (SpecificUnit, '(a)')
* ' '//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a)')
* 'Images Taken',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <TABLE BORDER="0">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
* ' <TR>',
* ' <TD ALIGN="CENTER" '//
* 'VALIGN="TOP">'//
* '<FONT SIZE="-1">',
* ' '//Item(1:Dash-1),
* ' </FONT></TD>',
* ' <TD><FONT SIZE="-1">',
* ' '//Item(Dash+3:ItemLength),
* ' </FONT></TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' </TABLE>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a)')
* 'Total Station Location',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <TABLE BORDER="0">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
* ' <TR>',
* ' <TD ALIGN="CENTER" '//
* 'VALIGN="TOP">'//
* '<FONT SIZE="-1">',
* ' '//Item(1:Dash-1),
* ' </FONT></TD>',
* ' <TD><FONT SIZE="-1">',
* ' '//Item(Dash+3:ItemLength),
* ' </FONT></TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' </TABLE>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Misc. Notes',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a)')
* ' '//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Field Observations',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a)')
* ' '//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Post-processing',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a)')
* '<BR> <BR>'
write (SpecificUnit, '(a)')
* ' '//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a)')
* 'Precision and Accuracy of Acquired Data',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <TABLE BORDER="0">'
write (SpecificUnit,
* '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
* ' <TR>',
* ' <TD ALIGN="CENTER" '//
* 'VALIGN="TOP">'//
* '<FONT SIZE="-1">',
* ' '//Item(1:Dash-1),
* ' </FONT></TD>',
* ' <TD><FONT SIZE="-1">',
* ' '//Item(Dash+3:ItemLength),
* ' </FONT></TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a,/,a)')
* ' </TABLE>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Field Procedure',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a)')
* '<BR> <BR>'
write (SpecificUnit, '(a)')
* ' '//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'Synopsis',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a)')
* ' '//Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </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,/)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">',
* 'Relative Reference Frame'//
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(Slash+1:PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">',
* 'Geodetic Points'//
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(Slash+1:PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">',
* 'data points'//
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="CENTER">',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(Slash+1:PathLength)//
* '</A>',
* ' </TD>',
* ' </TR>'
write (SpecificUnit, '(a,/,a)')
* ' <TR>',
* ' <TD BGCOLOR="#00FFFF" ALIGN="CENTER">'
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* 'UTMs of Stations',
* ' </TD>',
* ' <TD BGCOLOR="#CCFFFF" ALIGN="LEFT">',
* ' <FONT SIZE="-1">'
write (SpecificUnit, '(a,/,a,/,a)')
* '<CENTER>',
* ' <A HREF="http://walrus.wr.usgs.gov'//
* Path(1:PathLength)//'">'//
* Path(Slash+1:PathLength)//
* '</a>',
* '</CENTER>'
write (SpecificUnit, '(a,/,a)')
* ' </FONT>',
* ' </TD>',
* ' </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)//'.container.html">'//
* '<b>Check the analog holdings.</b></a><p>'
write (SpecificUnit, '(a)')
* 'No analog holdings.<p>'
|