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

USGS InfoBank program -- makemeta

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
makemeta
Synopsis
/infobank/programs/html/info2html/makemeta.for
Description
  Subroutine to make specific meta.htmls for an Activity ID.
    
Author
  Clint Steele   10/16/1997

  Clint Steele   03/28/2006    restructured
  Carolyn Degnan 06/17/2008    added subroutine meta2tablerecord

    
Opens
 open (name   = SpecificHtml(1:SpecificHtmlLength),
*      access = 'sequential',
*      status = 'unknown',
*      form   = 'formatted',
*      unit   = SpecificUnit)

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.ids')

     open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.akas')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.abstract')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.organization')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.project')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.nationalplan')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.chief')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.activitytype')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.platform')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.owner')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.submersible')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.operationarea')

             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 = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.ports')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.dates')

             open (unit = ItemUnit,
*                  access = 'sequential',
*                  form = 'formatted',
*                  status = 'unknown',
*                  name = '/infobank/'//
*                         ShortID(1:1)//'/'//
*                         ShortID(1:IDLength)//'/meta/'//
*                         LongID(1:IDLength+3)//'.daysatsea')

     open (unit = 68,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'unknown',
*          name = '/tmp/info2html.metaPDFfiles.temp')

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

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

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

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

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

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

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

                 read (ItemUnit, '(q,a)', end = 200)
*                      ItemLength, Item(1:ItemLength)
                 read (ItemUnit, '(t10,q,a)', end = 214)
*                      ItemLength, Item(1:ItemLength)

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

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

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

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

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

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

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

     read (68, '(q,a)', end = 6897) 
*        ALineLength, ALine(1:ALineLength)

         read (68, '(q,a)', end = 6899)
*            PDFFileLength, PDFFile(1:PDFFileLength)
    
Writes
 write (SpecificHtml, '(4096x)')
 write (SpecificHtml, 3)
*                    ShortID(1:1), 
*                    ShortID(1:IDLength),
*                    LongID(1:IDLength+3),
*                    ShortName
 write (MetaPath, '(4096x)')
 write (MetaPath, '(a)')
*    '/infobank/'//ShortID(1:1)//'/'//
*    ShortID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)
 write (HtmlPath, '(4096x)')
 write (HtmlPath, '(a)')
*    '/infobank/'//ShortID(1:1)//'/'//
*    ShortID(1:IDLength)//'/html/'//LongID(1:IDLength+3)
 write (SpecificUnit, '(6x,a)') 
*    '<table border="0" bgcolor="#ffffff">'
 write (SpecificUnit, '(8x,a)') '<tr valign="top">'
 write (SpecificUnit, '(10x,a)') '<th align="left">'
 write (SpecificUnit, '(12x,a)') 
*   '<a href="http://walrus.wr.usgs.gov/infobank/programs/'//
*   'html/definition/meta.html">'
 write (SpecificUnit, '(14x,a)') 'Metadata'
 write (SpecificUnit, '(12x,a)') '</a>'
 write (SpecificUnit, '(10x,a)') '</th>'
 write (SpecificUnit, '(8x,a)') '</tr>'
 write (SpecificUnit, '(/,a,/)') 
*    '<!-- ====== LINKS TO METADATA FILES: ====== -->'

 write (SpecificUnit, '(8x,a)') '<tr>'
 write (SpecificUnit, '(10x,a)') '<td valign="top">'
 write (SpecificUnit, '(12x,a)') '<table border="3" align="left">'
     write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'

    write (SpecificUnit, '(a,/,a,/,a)')
*                      'ID',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
    write (SpecificUnit, '(a)')
*                    Item(10:29)

    write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
     write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'

                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Also Known As',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                         write (SpecificUnit, '(a)')
*                        Item(30:ItemLength)
                         write (SpecificUnit, '(a)')
*                        Item(10:29)
                         write (SpecificUnit, '(a)')
*                        '<br>'//Item(30:ItemLength)
                         write (SpecificUnit, '(a)')
*                        '<br>'//Item(10:29)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'

                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Abstract',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="left">'
                     write (SpecificUnit, '(a)')
*                    Item(1:ItemLength)
                     write (SpecificUnit, '(a)')
*                    Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Organization',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(10:ItemLength)
                     write (SpecificUnit, '(a)')
*                    '<br>'//Item(10:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Project/Theme',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(10:ItemLength)
                         write (SpecificUnit, '(a)')
*                        '<hr>'//Item(10:ItemLength)
                         write (SpecificUnit, '(a)')
*                        '<hr>'//Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'National Plan',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(10:ItemLength)
                         write (SpecificUnit, '(a)')
*                        '<hr>'//Item(10:ItemLength)
                         write (SpecificUnit, '(a)')
*                        '<hr>'//Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                 write (Item, '(4096x)')
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Chief Scientist',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(1:Comma)
                     write (SpecificUnit, '(a)')
*                    '<br>'//Item(1:Comma)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'

                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Activity Type',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(10:ItemLength)
                     write (SpecificUnit, '(a)')
*                    '<br>'//Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                 write (PlatformPath, '(512x)')
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Platform',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                         write (SpecificUnit, '(a)')
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        PlatformPath(1:PlatformPathLength)//
*                        '">'//
*                        Item(1:ItemLength)//'</a>'
                         write (SpecificUnit, '(a)')
*                        Item(1:ItemLength)
                         write (SpecificUnit, '(a)')
*                        '<br>'//
*                        '<a href="http://walrus.wr.usgs.gov'//
*                        PlatformPath(1:PlatformPathLength)//
*                        '">'//
*                        Item(1:ItemLength)//'</a>'
                         write (SpecificUnit, '(a)')
*                        '<br>'//Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Owner',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Submersible',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Area of Operation',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="left">'

                     write (SpecificUnit, '(a,/,a,/,a)')
*                    '<center>',
*                    Item(10:ItemLength),
*                    '</center>'
                     write (SpecificUnit, '(a)')
*                    ' '//Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
     write (SpecificUnit, '(10x,a)') '<tr>'
     write (SpecificUnit, '(12x,a)') 
*        '<td bgcolor="#00ffff" align="center">'
     write (SpecificUnit, '(14x,a)') 'Location map'
     write (SpecificUnit, '(12x,a,/)') '</td>'
     write (SpecificUnit, '(10x,a)')
*      '<td bgcolor="#ccffff" align="center" valign="top">'

         write (SpecificUnit, 21) ShortID(1:1),
*                         ShortID(1:IDLength), 
*                         LongID(1:IDLength+3),
*                        'nav.150px',
*                         CapID
         write (SpecificUnit, 22) ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                        'meta.150px',
*                         CapID
         write (SpecificUnit, 621) ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                        'location',
*                         ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                        'location',
*                         CapID
     write (SpecificUnit, '(10x,a)') '</td>'
     write (SpecificUnit, '(8x,a)') '</tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'

                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Bounding Coordinates',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                    Item(10:18),
*                    '<br>'//Item(41:50)//
*                    '    '//
*                    Item(30:39),
*                    '<br>'//Item(20:28)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Ports',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(53:ItemLength)
                     write (SpecificUnit, '(a)')
*                    '<br>'//Item(53:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Dates',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(10:28)//
*                    ' to '//Item(34:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'
                     write (SpecificUnit, '(a,/,a,/,a)')
*                      'Days at Sea',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">'
                     write (SpecificUnit, '(a)')
*                    Item(1:ItemLength)
             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
             write (SpecificUnit, '(a,/,a)')
*                '  <tr>',
*                '    <td bgcolor="#00ffff" align="center">'

                     write (SpecificUnit, '(a,/,a,/,a,/,a)')
*                      'Analog Materials',
*                      '    </td>',
*                      '    <td bgcolor="#ccffff" align="center">',
*                      '      <a href="http://walrus.wr.usgs.gov'//
*                      '/infobank'//
*                      '/'//
*                      ShortID(1:1)//'/'//
*                      ShortID(1:IDLength)//'/html/'//
*                      LongID(1:IDLength+3)//'.container.html">'//
*                      'list</A>'

             write (SpecificUnit, '(a,/,a)')
*                '    </td>',
*                '  </tr>'
     write (SpecificUnit, '(a,/,a)')
*        '  <tr>',
*        '    <td bgcolor="#00ffff" align="center">'

     write (SpecificUnit, '(a,/,a,/,a,/,a)')
*        'Analog Materials',
*        '    </td>',
*        '    <td bgcolor="#ccffff" align="center">',
*        'No analog holdings.'   

     write (SpecificUnit, '(a,/,a)')
*        '    </td>',
*        '  </tr>' 
     write (SpecificUnit, '(a,/,a)')
*        '  <tr>',
*        '    <td bgcolor="#00ffff" align="center">'

     write (SpecificUnit, '(a,/,a,/,a)')
*        'Scanned Materials',
*        '    </td>',
*        '    <td bgcolor="#ccffff" align="center">'

             write (SpecificUnit, '(a)') '<br>'
         write (SpecificUnit, '(a)')
*        '      <a href="http://walrus.wr.usgs.gov'//
*        PDFFile(1:PDFFileLength)//'" target="pdf">'

         write (SpecificUnit, '(a)')
*            PDFFile(Slash+1:PDFFileLength-4)//' log</a> (pdf)'

         write (SpecificUnit, '(a,/,a)')
*        '    </td>',
*        '  </tr>'
 write (SpecificUnit, '(12x,a)') '</table>'
 write (SpecificUnit, '(10x,a)') '</td>'
 write (SpecificUnit, '(a,/)')
*  '<!-- ====== INDEX MAP: ====== -->'
 write (SpecificUnit, '(10x,a)') '<td valign="top" align="center">'
     write (SpecificUnit, '(12x,a)') '<b>Index maps</b><p>'
     write (SpecificUnit, '(12x,a)') '<b>Index map</b><p>'
     write (SpecificUnit, 620) ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                        'index',
*                         ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                        'index',
*                         CapID
 write (SpecificUnit, 20) ShortID(1:1),
*                         ShortID(1:IDLength), 
*                         LongID(1:IDLength+3),
*                        'nav',
*                         CapID
 write (SpecificUnit, 20) ShortID(1:1),
*                         ShortID(1:IDLength),
*                         LongID(1:IDLength+3),
*                        'meta',
*                         CapID
 write (SpecificUnit, '(10x,a)') '<p>'
 write (SpecificUnit, '(10x,a)') '</td>'
 write (SpecificUnit, '(8x,a)') '</tr>'
 write (SpecificUnit, '(6x,a,/)') '</table>'
 write (SpecificUnit, '(4x,a)') '</td>'
 write (SpecificUnit, '(2x,a)') '</tr>'
 write (SpecificUnit, '(a,/)') '</table>'
 write (SpecificUnit, '(a)') 
*    '<table border="3" width="90%" align="center">'


 write (Sentence, '(2048x)')
     write (SpecificUnit, '(a,/,a)')
*        '  <tr>',
*        '    <td bgcolor="#00ffff" align="left">'
     write (SpecificUnit, '(a,/,a)')
*        '       Got Help?',
*        '    </td>'
     write (SpecificUnit, '(a)')
*        '    <td bgcolor="#ccffff" align="left">' 
     write (SpecificUnit, '(a)')
*        'For '//CapID//', '//
*        'we would appreciate any information on -- '//
*        Sentence(3:SentenceLength)//
*        '.'  
     write (SpecificUnit, '(a,/,a)') 
*        '    </td>',
*        '  </tr>'
 write (SpecificUnit, '(a,/,a,/)')
*     '</table>','<p>'
 write (SpecificUnit, '(a)') '<table border="0">'
 write (SpecificUnit, '(2x,a)') '<tr>'
 write (SpecificUnit, '(4x,a)') '<td>'
 write (SpecificUnit, '(6x,a)') ' '
    
Calls
 call changecase ('CAPITALS', CapShortID)
 call stringlen (SpecificHtml, SpecificHtmlLength)
 call stringlen (MetaPath, MetaPathLength)
 call stringlen (HtmlPath, HtmlPathLength)
 call htmlhead (SpecificUnit, 
*    'CMG '//CapID//' '//LongName )

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

                 call changecase ('SMALLS', Item(10:ItemLength))
                 call changecase ('TITLE', Item(10:ItemLength))
                 call stringlen (PlatformPath, PlatformPathLength)
                 call stringlen (PlatformPath, PlatformPathLength)
     call system ('/bin/grep -i PDF '//
*                 '/infobank'//
*                 '/'//
*                 ShortID(1:1)//'/'//
*                 ShortID(1:IDLength)//'/meta/'//
*                 LongID(1:IDLength+3)//'.metafiles.keep'//
*                 ' > /tmp/info2html.metaPDFfiles.temp')

         call changecase ('SMALLS', PDFFile(1:PDFFileLength))
         call changecase ('TITLE',  PDFFile(Slash+1:PDFFileLength))
     call system ('/bin/rm /tmp/info2html.metaPDFfiles.temp')
 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'infospecialist', 'Information Specialist',
*    DidInfoSpecialist, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'crew', 'Crew',
*    DidCrew, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'equipmentused', 'Equipment Used',
*    DidEquipmentUsed, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'trackplot', 'Track Plot',
*    DidTrackPlot, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'purpose', 'Purpose',
*    DidPurpose, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'derivatives', 'Information to be Derived',
*    DidDerivatives, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'tabulatedinfo', 'Tabulated Info',
*    DidTabulatedInfo, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'summary', 'Summary',
*    DidSummary, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'notes', 'Notes',
*    DidNotes, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'navkm', 'Nav Km',
*    DidNavKm, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'stationcount', 'Station Count',
*    DidStationCount, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'divecount', 'Dive Count',
*    DidDiveCount, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'stationdescription', 'Station Description',
*    DidStationDescription, SpecificUnit, ItemUnit, ShortID, 
*    LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'seismicdescription', 'Seismic Description',
*    DidSeismicDescription, SpecificUnit, ItemUnit, ShortID, 
*    LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'projectnumber', 'Project Number',
*    DidProjectNumber, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'funding', 'Funding',
*    DidFunding, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'contract', 'Contract',
*    DidContract, SpecificUnit, ItemUnit, ShortID, LongID, Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'ngdc_overview', 'NGDC Overview',
*    DidNGDCOverview, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

 call meta2tablerecord (MetaPath(1:MetaPathLength),
*    'publications', 'Publications',
*    DidPublications, SpecificUnit, ItemUnit, ShortID, LongID, 
*    Item)

     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
     call stringlen (Sentence, SentenceLength)
 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