| Writes |
write (SummaryFile, '(2x,a)') '<tr
write (SummaryFile, '(4x,a)')
* '<td valign="top" align="right" width="10%
write (SummaryFile, '(6x,a)') '<b>First Letter
write (SummaryFile, '(4x,a,/)') '</t
write (SummaryFile, '(4x,a)') '<t
write (SummaryFile, 33) (BigAlphabet(CountA:CountA),
* BigAlphabet(CountA:CountA),
* CountA = 1,26)
write (SummaryFile, '(4x,a)') '</t
write (SummaryFile, '(2x,a)') '</t
write (SummaryFile, '(a)') '<br
write (SummaryFile, '(a)') '<di
write (SummaryFile, '(a)')
* '<table class = "info" width="700
write (SummaryFile, '(2x,a)') '<t
write (SummaryFile, '(4x,a)') '<t
write (SummaryFile, '(6x,a)') 'This provides <b>region&
* '/area-based '//
* 'access to Field Activity '//
* 'metadata and data. <br
write (SummaryFile, '(6x,a)') '<u
write (SummaryFile, '(8x,a)') '<l
write (SummaryFile, '(10x,a)') 'Regions are specified in the '//
* 'last two characters of an '//
* 'InfoBank Activity ID.'
write (SummaryFile, '(8x,a)') '</li>&
write (SummaryFile, '(8x,a)') '<l
write (SummaryFile, '(10x,a)') 'Region-based collections are '//
* 'available both as Activity '//
* 'ID-based pages and '//
* 'geographic location on Google Earth.'
write (SummaryFile, '(8x,a)') '</li>&
write (SummaryFile, '(8x,a)') '<l
write (SummaryFile, '(10x,a)') 'Areas are defined in '//
* 'InfoBank's gazetteer.'
write (SummaryFile, '(8x,a)') '</li>&
write (SummaryFile, '(8x,a)') '<l
write (SummaryFile, '(10x,a)')'Area-based collections are '//
* 'viewable geographically on '//
* 'Google Earth.'
write (SummaryFile, '(8x,a)') '</li>&
write (SummaryFile, '(6x,a)') '</u
write (SummaryFile, '(4x,a)') '</t
write (SummaryFile, '(4x,a)') '<t
write (SummaryFile, '(6x,a)')
* '<img src = "http://walrus.wr.usgs.gov/infobank/
* 'programs/html/training/IBDemo/rawjpg/ByRegion.jpg" '//
* 'alt = "Regions" width = "300"/&g
write (SummaryFile, '(6x,a)') '<u
write (SummaryFile, '(6x,a)') '<br
write (SummaryFile, '(6x,a)') '<br
write (SummaryFile, '(8x,a)') 'You may also do '//
* 'a geographic search'
write (SummaryFile, '(8x,a)') '<br
write (SummaryFile, '(8x,a)') 'restricting the provider '//
* 'to only:'
write (SummaryFile, '(8x,a)') '<br
write (SummaryFile, '(8x,a)') '"Coastal and Marine '//
* 'Geology InfoBank"'
write (SummaryFile, '(8x,a)') '<br
write (SummaryFile, '(8x,a)') 'at the USGS '//
* 'Core Science Clearinghouse'
write (SummaryFile, '(8x,a)') '<br
write (SummaryFile, '(8x,a)')'<<a hr
* '"http://mercury.ornl.gov/clearinghouse/" '//
* 'target="ornl">
* 'http://mercury.ornl.gov/clearinghouse/</a&
write (SummaryFile, '(6x,a)') '</u
write (SummaryFile, '(4x,a)') '</t
write (SummaryFile, '(2x,a)') '</t
write (SummaryFile, '(a)') '</tabl
write (SummaryFile, '(a)') '</di
write (SummaryFile, '(a)') '<br
write (SummaryFile, '(6x,a)')
* '<table class="noborder
write (SummaryFile, '(8x,a)') '<t
write (SummaryFile, '(10x,a,/)') '<td width="5%">
write (SummaryFile, '(10x,a)') '<t
write (RegionTemp, '(a)') ID(1:IDLength)
write (IDFile, '(255x)')
write (ID, '(1024x)')
write (SmallRegion, '(10x)')
write (SmallAtlas, '(10x)')
write (IDFile, 2) SmallRegion(1:SmallRegionLength)
write (SummaryFile, '(18x,a,/,16x,a,/,14x,a,/,12x,a)')
* '</table>','</td>','</
write (SummaryFile, '(2x,a)') '<br
write (SummaryFile, '(2x,a)')
* '<table class="border">
write (SummaryFile, '(4x,a)') '<td align="right
write (SummaryFile, '(6x,a)')
* '<b>First Letter
write (SummaryFile, '(4x,a,/)') '</t
write (SummaryFile, '(4x,a)') '<t
write (SummaryFile, 333) (BigAlphabet(CountA:CountA),
* BigAlphabet(CountA:CountA),
* CountA = 1,26)
write (SummaryFile, '(4x,a)') '</t
write (SummaryFile, '(2x,a,/)') '</tr><
write (SummaryFile, 39) CapName, CapName
write (SummaryFile, 739) ID(Tab(8)+1:Tab(9)-1),
* SmallAtlas(1:SmallAtlasLength)
write (SummaryFile, 839) ID(Tab(8)+1:Tab(9)-1),
* SmallAtlas(1:SmallAtlasLength)
write (SummaryFile,731)
* IDFile(1:IDFileLength),
* ID(Tab(8)+1:Tab(9)-1),
* ID(Tab(5)+1:Tab(6)-1)
write (SummaryFile, 32)
write (SummaryFile, 433)
write (SummaryFile, '(16x,a,/,14x,a,/,12x,a,/)')
* '</tabl
|
