Link to USGS home page
USGS Home
Contact USGS
Search USGS
Coastal & Marine Geology InfoBank

USGS InfoBank program -- make0to6

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab More tab Activities tabs
   
InfoBank Programs: by Name   by Topic  
   
Expanded description
Topic Description
Name
make0to6
Synopsis
/infobank/programs/html/info2html/make0to6.for
Description
  Subroutine to make .0xx to .6xx 
  (nav, bath, mag, grav, seis, imag) 
  specific htmls for an Activity ID.
    
Author
  Clint Steele    2/19/2004     based on makebath.for


    
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)//'/'//ShortName//'/'//
*                 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)//'/meta/'//
*                         LongID(1:IDLength+3)//'.navarea')

     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 = BestUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = Path(1:PathLength))

         open (unit = FileUnit,
*              access = 'sequential',
*              form = 'formatted',
*              status = 'unknown',
*              name = '/infobank/'//
*                     ShortID(1:1)//'/'//
*                     ShortID(1:IDLength)//'/'//ShortName//'/'//
*                     LongID(1:IDLength+3)//'.segyfiles.keep')


         open (unit = FileUnit,
*              access = 'sequential',
*              form = 'formatted',
*              status = 'unknown',
*              name = '/infobank/'//
*                     ShortID(1:1)//'/'//
*                     ShortID(1:IDLength)//'/'//ShortName//'/'//
*                     LongID(1:IDLength+3)//'.velfiles.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')

     open (unit = FileUnit,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'unknown',
*          name = '/infobank/'//
*                 ShortID(1:1)//'/'//
*                 ShortID(1:IDLength)//'/'//ShortName//'/'//
*                 LongID(1:IDLength+3)//'.imgarcfiles.save')

    
Reads
         read (FileUnit, '(q,a)', end = 923)
*              PathLength, Path(1:PathLength)
             read (LinkUnit, '(q,a)') 
*                  LinkLength, Link(1:LinkLength)

                 read (ItemUnit, '(q,a)', end = 203)
*                      ItemLength, Item(1:ItemLength)

         read (FileUnit, '(q,a)', end = 926)
*              PathLength, Path(1:PathLength)
         read (Path(Dot+1:Dot+2), 
*             '(i2)', err = 110) PathType
             read (BestUnit, '(q,a)', end = 270) 
*                  BestLength(BestCount), 
*                  Best(BestCount)(1:BestLength(BestCount))
             read (FileUnit, '(q,a)', end = 9528)
*                  PathLength, Path(1:PathLength)
             read (FileUnit, '(q,a)', end = 9628)
*                  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)
         read (FileUnit, '(q,a)', end = 699)
*              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, '(a,/)')
*  '<!-- ====== LINKS TO DATA FILES: ====== -->'
 write (SpecificUnit, '(6x,a)') '<table border="0" align="left">'
 write (SpecificUnit, '(8x,a)') '<tr>'
 write (SpecificUnit, '(10x,a)')
*   '<th align="left">' 
 write (SpecificUnit, '(12x,a)') 'Index map'
 write (SpecificUnit, '(10x,a)') '</th>'
 write (SpecificUnit, '(8x,a)') '</tr>'
 write (SpecificUnit, '(8x,a)') '<tr>'
     write (SpecificUnit, '(10x,a)')
*       '<td align="left" valign="top">'

     write (SpecificUnit, 621) ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                         'nav',
*                         CapID,
*                         SmallName(1:SmallNameLength)

     write (SpecificUnit, '(10x,a)') '</td>'
     write (SpecificUnit, '(10x,a)')
*       '<td align="left" valign="top">'

     write (SpecificUnit, 21) ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                         'nav.150px',
*                         CapID,
*                         SmallName(1:SmallNameLength)

     write (SpecificUnit, '(10x,a)') '</td>'
 write (SpecificUnit, '(8x,a)') '</tr>'
 write (SpecificUnit, '(6x,a)') '</table>'
 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" target="new">'
 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="60%">'

         write (Path, '(255x)')
             write (SpecificUnit, 
*                '(8x,a,/,10x,a,/,12x,a,/,10x,a,/,8x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#CCFFFF" ALIGN="CENTER">',
*                '<A HREF="http://walrus.wr.usgs.gov'//
*                Path(1:PathLength)//'">'//
*                'Formal metadata for the '//
*                SmallName(1:SmallNameLength)//
*                '</A>',
*                '</TD>',
*                '</TR>' 

             write (SpecificUnit, 
*                '(8x,a,/,10x,a,/,12x,a,/,10x,a,/,8x,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, 
*                '(8x,a,/,10x,a,/,12x,a,/,10x,a,/,8x,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, 
*                '(8x,a,/,10x,a,/,12x,a,/,10x,a,/,8x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#CCFFFF" ALIGN="CENTER">',
*                '<A HREF="http://walrus.wr.usgs.gov'//
*                Path(1:PathLength)//'">'//
*                'lines'//
*                '</A>',
*                '</TD>',
*                '</TR>'

             write (SpecificUnit, 
*                '(8x,a,/,10x,a,/,12x,a,/,14x,a,/,16x,a)')
*                '<TR>',
*                '<TD bgcolor="#CCFFFF" ALIGN="CENTER">',
*                '<TABLE BORDER="0">',
*                '<TR>',
*                '<TD bgcolor="#CCFFFF" ALIGN="CENTER">'

                     write (SpecificUnit, '(18x,a,/,16x,a)')
*                      'Bounding<BR>Coordinates',
*                      '</TD>'

                     write (SpecificUnit, 
*                        '(16x,a,/,18x,a,/,16x,a)')
*                     '<TD bgcolor="#CCFFFF" ALIGN="CENTER">',
*                     '       ',
*                     '</TD>'

                     write (SpecificUnit, '(16x,a)')
*                      '<TD bgcolor="#CCFFFF" ALIGN="CENTER">'

                     write (SpecificUnit, 
*                      '(18x,a,/,18x,a,/,18x,a)')
*                      Item(10:18),
*                      '<BR>'//Item(41:50)//
*                      '    '//
*                      Item(30:39),
*                      '<BR>'//Item(20:28)

             write (SpecificUnit, 
*                '(16x,a,/,14x,a,/,12x,a,/,10x,a,/,8x,a)')
*                '</TD>',
*                '</TR>',
*                '</TABLE>',
*                '</TD>',
*                '</TR>'    

                 write (SpecificUnit, 
*                    '(8x,a,/,10x,a,/,12x,a,/,10x,a)')
*                '<TR>',
*                '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                '<b>Migration seismic section scan example</b>',
*                '</TD>'

                  write (SpecificUnit, 
*                     '(8x,a,/,10x,a,/,12x,a,/,10x,a,/)')
*                 '<TR>',
*                 '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                 '<b>Stack seismic section scan example</b>',
*                 '</TD>'
                  write (SpecificUnit,
*                     '(8x,a,/,10x,a,/,12x,a,/,10x,a,/)')
*                 '<TR>',
*                 '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                 '<b>Scan</b>',
*                 '</TD>'

                  write (SpecificUnit, 
*                     '(8x,a,/,10x,a,/,12x,a,/,10x,a,/)')
*                 '<TR>',
*                 '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                 '<b>Scan</b>',
*                 '</TD>'
              write (SpecificUnit, '(10x,a,/,12x,a,/,10x,a)')
*                 '<td bgcolor="#CCFFFF" align="center">',
*                 '<b>'//Path(LastSlash+1:PathLength)//'</b>',
*                 '</td>'
              write (SpecificUnit, 
*                 '(12x,a,/,14x,a,f8.1,a,/,12x,a)')
*                 '<td bgcolor="#CCFFFF"><center>',
*                 '<a href="http://walrus.wr.usgs.gov'//
*                 Path(1:PathLength)//'" target="new">',Size,
*                 ' Mb</a>',
*                 '</center></td>'

              write (SpecificUnit,
*                    '(8x,a,/,10x,a,/,12x,a,/,10x,a,/)')
*                    '<TR>',
*                    '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                    '<b>Image</b>',
*                    '</TD>'

              write (SpecificUnit, '(10x,a,/,12x,a,/,10x,a,/)')
*                 '<td bgcolor="#CCFFFF" align="center">',
*                 '<b>'//
*                 Path(LastSlash+1:PathLength)//'</b>',
*                 '</td>'
              write (SpecificUnit,
*                     '(10x,a,/,12x,a,/,10x,a,/,8x,a,/)')
*                     '<td bgcolor="#CCFFFF">',
*                     '<a href="http://walrus.wr.usgs.gov'//
*                     Path(1:PathLength)//'" '//
*                     'alt="full resolution photo">'//
*                     '<img '//
*                     'src="http://walrus.wr.usgs.gov'//
*                     Path(1:PathLength)//'" '//
*                     'alt="photo" width="150"></a>',
*                     '</td>',
*                     '</tr>'

              write (SpecificUnit, 
*                '(10x,a,/,12x,a,/,14x,a,/,12x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                '<b>Scan</b>'//
*                '</TD>'

              write (SpecificUnit, '(12x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength)//'</b></td>'
              write (SpecificUnit, '(12x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength)//'">',Size,
*                        ' Mb</a></center></td></tr>'

              write (SpecificUnit,
*                '(10x,a,/,12x,a,/,14x,a,/,12x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                '<b>KMZ</b>'//
*                '</TD>'

              write (SpecificUnit, '(12x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength)//'</b></td>'
              write (SpecificUnit, '(12x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength)//'">',Size,
*                        ' Mb</a></center></td></tr>'

              write (SpecificUnit,
*                '(10x,a,/,12x,a,/,14x,a,/,12x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                '<b>KML</b>'//
*                '</TD>'

              write (SpecificUnit, '(12x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength)//'</b></td>'
              write (SpecificUnit, '(12x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength)//'">',Size,
*                        ' Mb</a></center></td></tr>'

              write (SpecificUnit,
*                    '(8x,a,/,10x,a,/,12x,a,/,10x,a,/)')
*                    '<TR>',
*                    '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                    '<b>Scan</b>',
*                    '</TD>'

              write (SpecificUnit, '(10x,a,/,12x,a,/,10x,a,/)')
*                 '<td bgcolor="#CCFFFF" align="center">',
*                 '<b>'//
*                 Path(LastSlash+1:PathLength)//'</b>',
*                 '</td>'
              write (SpecificUnit,
*                     '(10x,a,/,12x,a,f8.1,a,/,10x,a,/,8x,a,/)')
*                     '<td bgcolor="#CCFFFF"><center>',
*                     '<a href="http://walrus.wr.usgs.gov'//
*                     Path(1:PathLength)//'">',Size,
*                     ' Mb</a>',
*                     '</center></td>',
*                     '</tr>'

              write (SpecificUnit,
*                    '(8x,a,/,10x,a,/,12x,a,/,10x,a,/)')
*                    '<TR>',
*                    '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                    '<b>Map Scan</b>',
*                    '</TD>'

              write (SpecificUnit, '(10x,a,/,12x,a,/,10x,a,/)')
*                 '<td bgcolor="#CCFFFF" align="center">',
*                 '<b>'//
*                 Path(LastSlash+1:PathLength)//'</b>',
*                 '</td>'
              write (SpecificUnit,
*                     '(10x,a,/,12x,a,f8.1,a,/,10x,a,/,8x,a,/)')
*                     '<td bgcolor="#CCFFFF"><center>',
*                     '<a href="http://walrus.wr.usgs.gov'//
*                     Path(1:PathLength)//'">',Size,
*                     ' Mb</a>',
*                     '</center></td>',
*                     '</tr>'

              write (SpecificUnit,
*                '(10x,a,/,12x,a,/,14x,a,/,12x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                '<b>Virtual Globe view of '//
*                'above map''s location</b>'//
*                '</TD>'

              write (SpecificUnit, '(12x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength-3)//
*                        'png</b></td>'
              write (SpecificUnit, '(12x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength-3)//'png">',Size,
*                        ' Mb</a></center></td></tr>'

              write (SpecificUnit,
*                '(10x,a,/,12x,a,/,14x,a,/,12x,a,/)')
*                '<TR>',
*                '<TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                '<b>Scan</b>'//
*                '</TD>'

              write (SpecificUnit, '(12x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength)//'</b></td>'
              write (SpecificUnit, '(12x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength)//'">',Size,
*                        ' Mb</a></center></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="60%" bgcolor="#ccffff">'

             write (SpecificUnit, '(2x,a)') '<tr>'
                     write (SpecificUnit, '(a,/,a,a,/,a)')
*                  '    <TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                  '      <b>'//
*                    Dictionary(PathType+1)(1:DictionaryLength)//
*                  ' <BR>merged with nav</b>',
*                  '    </TD>'          
                     write (SpecificUnit, '(a,/,a,a,/,a)')
*                  '    <TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                  '      <b>'//
*                    Dictionary(PathType+1)(1:DictionaryLength)//
*                  '</b>',
*                  '    </TD>'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                  '    <TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                    Dictionary(PathType+1)(1:DictionaryLength),
*                  '    </TD>'
                 write (SpecificUnit, '(a,/,a,/,a)')
*                  '    <TD bgcolor="#00FFFF" ALIGN="CENTER">',
*                  Path(index(Path, '.')+1:PathLength)//
*                  ' data',
*                  '    </TD>'
                 write (SpecificUnit, '(a,/,a,/,a)') 
*                    '    <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
*             '      <b>'//
*                    Path(index(Path,
*                      LongID(1:IDLength+3)):PathLength)//
*                    '</b>',
*                    '    </TD>'

                 write (SpecificUnit, '(a,/,a,/,a)')
*                '    <TD bgcolor="#CCFFFF" ALIGN="CENTER"><b>',
*                    Path(index(Path,
*                      LongID(1:IDLength+3)):PathLength)//'</b>',
*                    '    </TD>'

                 write (SpecificUnit, '(a,/,a,/,a)') 
*                    '    <TD bgcolor="#CCFFFF" ALIGN="CENTER">',
*                    Path(index(Path,
*                      LongID(1:IDLength+3)):PathLength),
*                    '    </TD>'
         write (SpecificUnit, '(4x,a)') 
*           '<td bgcolor="#CCFFFF" align="center">'
             write (SpecificUnit, '(8x,a,f8.1,a)') 
*               '<a href="http://walrus.wr.usgs.gov'//
*               Path(1:PathLength)//
*               '">',Size,' Mb</a>'
         write (SpecificUnit, '(4x,a)') '</td>'
                 write (SpecificUnit, '(a)')
*                 '    <TD bgcolor="#00CCFF" ALIGN="CENTER">'//
*                 '<b>Best file</b></TD>'
                 write (SpecificUnit, '(a)')
*                 '    <TD bgcolor="#00CCFF" ALIGN="CENTER">'//
*                 '<b>Best file with nav</b></TD>'

                 write (SpecificUnit, '(a)')
*                 '    <TD bgcolor="#CCFFFF" ALIGN="CENTER">'//
*                 '   </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 SEGY 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://walter.kessinger.com/work/segy.html">'
     write (SpecificUnit, '(14x,a)') '<b>SEG-Y 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="60%">'

             write (Path, '(255x)')
                     write (SpecificUnit, '(2x,a,/)') '</tr>'
                     write (SpecificUnit, '(2x,a)') '<tr>'
                         write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#00FFFF" align="center">'//
*                        '<b>Stack processing data '//
*                        'in SEG-Y format</b></td>'
                         write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#00FFFF" align="center">'//
*                        '<b>Post-stack migration processing '//
*                        'data in SEG-Y format</b></td>'
                         write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#00FFFF" align="center">'//
*                        '<b>Mini-cable stack processing data '//
*                        'in SEG-Y format</b></td>'
                         write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#00FFFF" align="center">'//
*                        '<b>Processing data '//
*                        'in SEG-Y format</b></td>'
                         write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#00FFFF" align="center">'//
*                        '<b>Reports</b></td>'
                         write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#00FFFF" align="center">'//
*                        '<b>Rac-maxi stack processing data '//
*                        'in SEG-Y format</b></td>'
                     write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength)//'</b></td>'
                     write (SpecificUnit, '(6x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength)//'">',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,/)')
*      '<!-- ====== LINKS TO Velocity 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://www.osti.gov/energycitations'//
*      '/product.biblio.jsp?osti_id=438985" target="new">'
     write (SpecificUnit, '(14x,a)') '<b>Velocity 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="60%">'

             write (Path, '(255x)')
                     write (SpecificUnit, '(2x,a,/)') '</tr>'
                     write (SpecificUnit, '(2x,a)') '<tr>'
                     write (SpecificUnit, '(4x,a)')
*                        '<td bgcolor="#CCFFFF" align="center">'//
*                        '<b>'//
*                        Path(LastSlash+1:PathLength)//'</b></td>'
                     write (SpecificUnit, '(6x,a,f8.1,a)')
*                        '<td bgcolor="#CCFFFF"><center>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        Path(1:PathLength)//'">',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,/)')
*  '<!-- ====== 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="60%">'

         write (Path, '(255x)')
                 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="60%" 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)')
*      'For access to the '//
*      '<b>non-linked sidescan sonar files, '//
*      'contact '//
*      '<a href="http://walrus.wr.usgs.gov/infobank/programs'//
*      '/html/staff2html/staff/'//
*      'Rani_Nandiwada.html">Rani Nandiwada</a><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)') 
*         '<a href="http://walrus.wr.usgs.gov'//
*         '/infobank/programs/html/definition/imag.html">'//
*         '<b>Sidescan Sonar:</b>'
     write (SpecificUnit, '(4x,a)') '</td>'
     write (SpecificUnit, '(2x,a)') '</tr>'
     write (SpecificUnit, '(a,/)') '</table>'
     write (SpecificUnit, '(a)')
*      '<table border="1" width="60%" bgcolor="#ccffff">'

     write (SpecificUnit, '(2x,a)') '<tr>'
     write (SpecificUnit, '(4x,a)') '<th align="center">'
     write (SpecificUnit, '(8x,a)') 'File Name'
     write (SpecificUnit, '(4x,a)') '</th>'
     write (SpecificUnit, '(4x,a)') '<th align="center">'
     write (SpecificUnit, '(8x,a)') 
*         '<a href="http://walrus.wr.usgs.gov'//
*         '/infobank/programs/html/definition/imag.html">'//
*         '.hst</a>'
     write (SpecificUnit, '(4x,a)') '</th>'
     write (SpecificUnit, '(4x,a)') '<th align="center">'
     write (SpecificUnit, '(8x,a)') 
*         '<a href="http://walrus.wr.usgs.gov'//
*         '/infobank/programs/html/definition/imag.html">'//
*         '.lbl</a>'
     write (SpecificUnit, '(4x,a)') '</th>'
     write (SpecificUnit, '(4x,a)') '<th align="center">'
     write (SpecificUnit, '(8x,a)') 
*         '<a href="http://walrus.wr.usgs.gov'//
*         '/infobank/programs/html/definition/imag.html">'//
*         '.nav</a>'
     write (SpecificUnit, '(4x,a)') '</th>'
     write (SpecificUnit, '(4x,a)') '<th align="center">'
     write (SpecificUnit, '(8x,a)') 
*         '<a href="http://walrus.wr.usgs.gov'//
*         '/infobank/programs/html/definition/imag.html">'//
*         '.prt</a>'
     write (SpecificUnit, '(4x,a)') '</th>'
     write (SpecificUnit, '(2x,a)') '</tr>'
     write (LastName, '(255x)')
     write (ThisName, '(255x)')
                     write (SpecificUnit, '(8x,a)') 
*                       '<td> </td>'
                 write (SpecificUnit, '(2x,a)') '</tr>'
             write (SpecificUnit, '(2x,a)') '<tr>'
                 write (SpecificUnit, '(4x,a)') 
*                   '<td align="left"> '//
*                   Path(1:Tab(1)-1)//'</td>'
                             write (SpecificUnit, '(8x,a)')
*                                  '<td> </td>'
                             write (SpecificUnit, '(8x,a)')
*                                  '<td> </td>'
                             write (SpecificUnit, '(8x,a)')
*                                  '<td> </td>'
                             write (SpecificUnit, '(8x,a)')
*                                  '<td> </td>'
                     write (SpecificUnit, '(8x,a)')
*                        '<td> '//
*                        Path(Tab(4)+1:PathLength)//'</td>'
                 write (SpecificUnit, '(2x,a)') '</tr>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> '//Path(Tab(4)+1:PathLength)//
*                    '</td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> </td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> '//Path(Tab(4)+1:PathLength)//
*                    '</td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> </td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> '//Path(Tab(4)+1:PathLength)//
*                    '</td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> </td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> '//Path(Tab(4)+1:PathLength)//
*                    '</td>'
                     write (SpecificUnit, '(8x,a)')
*                    '<td> </td>'
                 write (SpecificUnit, '(2x,a)') '</tr>'
         write (LastName, '(255x)')
             write (SpecificUnit, '(8x,a)') '<td> </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>'
         write (SpecificUnit, '(6x,a)')
*          '<table border="0" width="100%" bgcolor="#ffffff">'
         write (SpecificUnit, '(8x,a)') '<tr>'
         write (SpecificUnit, '(10x,a)')
*          '<th align="left">'
         write (SpecificUnit, '(12x,a)') 'Index map'
         write (SpecificUnit, '(10x,a)') '</th>'
         write (SpecificUnit, '(8x,a)') '</tr>'
         write (SpecificUnit, '(8x,a)') '<tr>'
         write (SpecificUnit, '(10x,a)')
*          '<td align="left" valign="top">'
         write (SpecificUnit, 20) ShortID(1:1),
*                            ShortID(1:IDLength), 
*                            LongID(1:IDLength+3),
*                            ShortName,
*                            CapID,
*                            SmallName(1:SmallNameLength)
         write (SpecificUnit, '(10x,a)') '</td>'
         write (SpecificUnit, '(8x,a)') '</tr>'
         write (SpecificUnit, '(6x,a,/)') '</table>'
    
Calls
 call changecase ('SMALLS', SmallName)
 call stringlen (SmallName, SmallNameLength)
 call stringlen (SpecificHtml, SpecificHtmlLength)
 call htmlhead (SpecificUnit, 
*    'CMG '//CapID//' '//LongName)

 call controlbar 
*   (SpecificUnit, ShortID, IDLength, LongID, CapID,
*    ShortName, LongName, Existance)


              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength), Size)
              call getsize (Path(1:PathLength-3)//'png', Size)
              call getsize (Path(1:PathLength), Size)
                 call stringlen (Dictionary(PathType+1), 
*                                DictionaryLength)

         call getsize ( Path(1:PathLength), Size) 
                     call getsize (Path(1:PathLength), Size)
                     call getsize (Path(1:PathLength), Size)
                 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 stringlen (ThisName, ThisNameLength)
                     call system ('/bin/cp "'//
*                        Path(1:Tab(1)-1)//'" "'//
*                        Path(Tab(3)+1:Tab(4)-1)//'"')
         call stringlen (LastName, LastNameLength)
 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 & Santa Cruz Centers   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  

FirstGov button   Take Pride in America button