Coastal & Marine Geology InfoBank

USGS InfoBank program -- makegeo


InfoBank Programs:	by Name by Topic

**Expanded description**
Topic	Description
Name	makegeo
Synopsis	/infobank/programs/html/info2html/makegeo.for
Description	Subroutine to make specific geo.htmls for an Activity ID.
Author	Clint Steele 10/16/97
Opens	open (name = SpecificHtml(1:SpecificHtmlLength), * access = 'sequential', * status = 'unknown', * form = 'formatted', * unit = SpecificUnit) open (unit = FileUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.metafiles.keep') open (unit = LinkUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = Path(1:PathLength)) open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.conditions') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.data_files') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.geo_equipment') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.header') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.image_files') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.location') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.misc-notes') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.observations') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.post-processing') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.precision') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.procedure') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/geo/'// * LongID(1:IDLength+3)//'.synopsis') open (unit = FileUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/'//ShortName//'/'// * LongID(1:IDLength+3)//'.datafiles.keep') open (unit = FileUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/'//ShortName//'/'// * LongID(1:IDLength+3)//'.arcfiles.keep') open (unit = FileUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/'//ShortName//'/'// * LongID(1:IDLength+3)//'.other.keep')
Reads	read (FileUnit, '(q,a)', end = 923) * PathLength, Path(1:PathLength) read (LinkUnit, '(q,a)') * LinkLength, Link(1:LinkLength) read (ItemUnit, '(q,a)', end = 200) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 201) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 202) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 203) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 204) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 205) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 206) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 207) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 208) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 209) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 210) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 211) * ItemLength, Item(1:ItemLength) read (FileUnit, '(q,a)', end = 926) * PathLength, Path(1:PathLength) read (FileUnit, '(q,a)', end = 9523) * PathLength, Path(1:PathLength) read (FileUnit, '(t10,q,a)', end = 599) * PathLength, Path(1:PathLength) read (FileUnit, '(t10,q,a)', end = 599) * PathLength, Path(1:PathLength) read (FileUnit, '(t10,q,a)', end = 599) * PathLength, Path(1:PathLength) read (FileUnit, '(t10,q,a)', end = 599) * PathLength, Path(1:PathLength)
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>'
Calls	call stringlen (SpecificHtml, SpecificHtmlLength) call htmlhead (SpecificUnit, * 'CMG '//CapID//' '//LongName ) call controlbar * (SpecificUnit, ShortID, IDLength, LongID, CapID, * ShortName, LongName, Existance) call getsize ('/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)// * '/arc/'//ShortName//'/'// * LongID(1:IDLength+3)//'.zip', Size) call getsize ( '/infobank'// * '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)// * '/'//ShortName//'/'//Path(1:PathLength), Size) call getsize ( '/infobank'// * '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)// * '/'//ShortName//'/'//Path(1:PathLength), Size) call getsize ( '/infobank'// * '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)// * '/'//ShortName//'/'//Path(1:PathLength), Size) call htmlfoot (SpecificUnit, * 'http://walrus.wr.usgs.gov'// * '/infobank'// * '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)// * '/html/'//LongID(1:IDLength+3)//'.'// * ShortName//'.html' )

Skip footer navigational links

InfoBank Menlo Park Center Santa Cruz Center St. Petersburg Center Woods Hole Center Coastal and Marine Geology Program Geologic Information Ask-A-Geologist USGS Disclaimer

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/info2html/makegeo.doc.html
Page Contact Information: Clint Steele
Page Last Modified: Thu Nov 9 04:00:32 PST 2006 (wcs)

Accessibility FOIA Privacy Policies and Notices
U.S. Department of the Interior \| U.S. Geological Survey URL: http://walrus.wr.usgs.gov/infobank/programs/html/info2html/makegeo.doc.html Page Contact Information: Clint Steele Page Last Modified: Thu Nov 9 04:00:32 PST 2006 (wcs)