Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- makemeta

Skip navigational links
Loading
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
  Carolyn Degnan 12/12/2008    changed handling of daysatsea to be 
                               like stationcount
  Sumy Tom       01/20/10      Added script to embed google earth

    
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 (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 (KMZFileUnit, '(a)')
     *        'http://walrus.wr.usgs.gov/infobank/'//
     *        ShortID(1:1)//'/'//ShortID(1:IDLength)//'/'//
     *        'kml/'//LongID(1:IDLength+3)//'.nav.kml'
      write (SpecificUnit, '(6x,a)') 
     *    '<table class="noborder
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td valign="top
      write (SpecificUnit, '(12x,a)') 
     *    '<table class="border" rules="all"
         write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
         write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>ID
     *                      '    </td
     *                      '    <td class="light
         write (SpecificUnit, '(a)')
     *                    Item(10:29)
         write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
          write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
            write (SpecificUnit, '(a,/,a,/,a)')
     *            '<b>Also Known A
     *            '    </td
     *            '    <td class="light
               write (SpecificUnit, '(a)')
     *                        Item(30:ItemLength)
               write (SpecificUnit, '(a)')
     *                Item(10:29)
                write (SpecificUnit, '(a)')
     *                '<br>'//Item(30:ItemL
                write (SpecificUnit, '(a)')
     *                        '<br>'//Item(
          write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
         write (SpecificUnit, '(a,/,a)')
     *         '  <tr
     *         '    <td class="dark
             write (SpecificUnit, '(a,/,a,/,a)')
     *             '<b>Abstract
     *             '    </td
     *             '    <td class="light
             write (SpecificUnit, '(a)')
     *              Item(1:ItemLength)
             write (SpecificUnit, '(a)')
     *             Item(1:ItemLength)
          write (SpecificUnit, '(a,/,a)')
     *          '    </td
     *          '  </t
          write (SpecificUnit, '(a,/,a)')
     *          '  <tr
     *          '    <td class="dark
             write (SpecificUnit, '(a,/,a,/,a)')
     *             '<b>Organization&
     *             '    </td&
     *             ' <td class="light
             write (SpecificUnit, '(a)')
     *             '<b
          write (SpecificUnit, '(a,/,a)')
     *          '    </td
     *          '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
             write (SpecificUnit, '(a,/,a,/,a)')
     *          '<b>Project/Theme
     *          '    </td
     *          '    <td class="light
                write (SpecificUnit, '(a)')
     *             '<br 
                write (SpecificUnit, '(a)')
     *                 '<br 
         write (SpecificUnit, '(a,/,a)')
     *         '  <tr
     *         '    <td class="dar
            write (SpecificUnit, '(a,/,a,/,a)')
     *             '<b>National Plan
     *             '    </td
     *             '    <td class="light" align="center
            write (SpecificUnit, '(a)')
     *             Item(10:ItemLength)
               write (SpecificUnit, '(a)')
     *                '<hr>'//Item(10:ItemL
                write (SpecificUnit, '(a)')
     *                 '<hr>'//Item(1:ItemL
          write (SpecificUnit, '(a,/,a)')
     *       '  <tr
     *       '    <td class="dark
          write (Item, '(4096x)')
             write (SpecificUnit, '(a,/,a,/,a)')
     *             '<b>Chief Scientist
     *             '    </td
     *             '    <td class="light
             write (SpecificUnit, '(a)') '<br />'                
          write (SpecificUnit, '(a,/,a)')
     *          '    </td
     *          '  </t
          write (SpecificUnit, '(a,/,a)')
     *          '  <tr
     *          '    <td class="dark
             write (SpecificUnit, '(a,/,a,/,a)')
     *            '<b>Activity Type
     *            '    </td
     *            '    <td class="light
             write (SpecificUnit, '(a)')
     *             Item(10:ItemLength)
             write (SpecificUnit, '(a)')
     *         '<br>'//Item(1:ItemL
          write (SpecificUnit, '(a,/,a)')
     *          '    </td
     *          '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                      write (PlatformPath, '(512x)')
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Platform
     *                      '    </td
     *                      '    <td class="light
                              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
     *                         '"><
                              write (SpecificUnit, '(a)')
     *                        '<br>'//Item(1:ItemL
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Owner
     *                      '    </td
     *                      '    <td class="light
                          write (SpecificUnit, '(a)')
     *                    Item(10:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Submersible
     *                      '    </td
     *                      '    <td class="light
                          write (SpecificUnit, '(a)')
     *                    Item(10:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Area of Operation
     *                      '    </td
     *                      '    <td class="light
                          write (SpecificUnit, '(a)')
                          write (SpecificUnit, '(a)')
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Bounding Coordinates
     *                      '    </td
     *                      '    <td class="light
                          write (SpecificUnit, '(a)')'<table>
                          write (SpecificUnit, '(a)') 
     *                           '<td align="center
                          write (SpecificUnit, '(a)') Item(10:18)
                          write (SpecificUnit, '(a)') '</td>
                          write (SpecificUnit, '(a)') '<tr>
                          write (SpecificUnit, '(a)') Item(41:50)//
     *                    '    '//
     *                     Item(30:39)//'</td>
                          write (SpecificUnit, '(a)')
     *                     '<tr><td align="
                          write (SpecificUnit, '(a)')Item(20:28)//
     *                     '</td></tr&
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Ports
     *                      '    </td
     *                      '    <td class="light
                          write (SpecificUnit, '(a)')
     *                    Item(53:ItemLength)
                          write (SpecificUnit, '(a)')
     *                    '<br>'//Item(53:ItemL
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                      '<b>Dates
     *                      '    </td
     *                      '    <td class="light
                          write (SpecificUnit, '(a)')
     *                    Item(10:28)//
     *                    ' to '//Item(34:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <tr
     *                '    <td class="dark
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      '<b>Analog Materials
     *                      '    </td
     *                      '    <td class="light"
     *                      '      <a href="http://walrus.wr.usgs.gov
     *                      '/infobank'//
     *                      '/'//
     *                      ShortID(1:1)//'/'//
     *                      ShortID(1:IDLength)//'/html/'//
     *                      LongID(1:IDLength+3)//'.container.html">
     *                      'list</
                  write (SpecificUnit, '(a,/,a)')
     *                '    </td
     *                '  </t
          write (SpecificUnit, '(a,/,a)')
     *        '  <tr
     *        '    <td class="dark
          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *        '<b>Analog Materials
     *        '    </td
     *        '    <td class="light"
     *        'No analog holdings.'   
          write (SpecificUnit, '(a,/,a)')
     *        '    </td
     *        '  </tr
          write (SpecificUnit, '(a,/,a)')
     *        '  <tr
     *        '    <td class="dark
          write (SpecificUnit, '(a,/,a,/,a)')
     *        '<b>Scanned Materials
     *        '    </td
     *        '    <td class="light
                  write (SpecificUnit, '(a)') '<b
              write (SpecificUnit, '(a)')
     *        '      <a href="http://walrus.wr.usgs.gov
     *        PDFFile(1:PDFFileLength)//'" target="pdf"&g
              write (SpecificUnit, '(a)')
     *            PDFFile(Slash+1:PDFFileLength-4)//' log</a> 
              write (SpecificUnit, '(a,/,a)')
     *        '    </td
     *        '  </t
      write (Sentence, '(4096x)')
          write (SpecificUnit, '(a,/,a)')
     *        '  <tr
     *        '    <td class="dark
          write (SpecificUnit, '(a,/,a)')
     *        '       <b><a href="http://walrus.wr.usg
     *        'infobank/programs/html/main/mailinfobank.html" target'//
     *        '="new">Got Help?</a&
     *        '    </t
          write (SpecificUnit, '(a)')
     *        '    <td class="light"
          write (SpecificUnit, '(a)')
     *        'For '//CapID//', '//
     *        'we would appreciate any information on -- '//
     *        Sentence(3:SentenceLength)//
     *        '.'  
          write (SpecificUnit, '(a,/,a)') 
     *        '    </td
     *        '  </t
      write (SpecificUnit, '(a,/,a,/)')
     *     '</tabl
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(a,/)')
     *  '<!-- ====== DATA TABLE: ====== -
      write (SpecificUnit, '(10x,a)') '<td valign="top" align="center
         write (SpecificUnit, '(a,/)')
     *     '<!-- ====== Google Map ====== -
         write (SpecificUnit, '(4x,a)') '<
         write (SpecificUnit, '(4x,a)')'<table class="noborder
            write (SpecificUnit, '(6x,a)')'<t
            write (SpecificUnit, '(8x,a)') '<td&
            write (SpecificUnit, 21) 
     *                      ShortID(1:1),
     *                      ShortID(1:IDLength),
     *                      LongID(1:IDLength+3),
     *                      'nav',
     *                      ShortID(1:1),
     *                      ShortID(1:IDLength), 
     *                      LongID(1:IDLength+3),
     *                     'nav.150px',
     *                      CapID
            write (SpecificUnit, '(6x,a)')'</t
            write (SpecificUnit, '(8x,a)') '</t
            write (SpecificUnit, '(6x,a)')'<t
            write (SpecificUnit, '(8x,a)') '<t
            write (SpecificUnit, 24) 
     *                         ShortID(1:1),
     *                         ShortID(1:IDLength),
     *                         LongID(1:IDLength+3),
     *                         'index',            
     *                         ShortID(1:1),
     *                         ShortID(1:IDLength),
     *                         LongID(1:IDLength+3),
     *                        'index.150px',
     *                         CapID
            write (SpecificUnit, '(6x,a)')'</t
            write (SpecificUnit, '(8x,a)') '</t
         write (SpecificUnit, '(4x,a)') '</tabl
      write (SpecificUnit, '(10x,a)') '<
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a,/)') '</tabl
      write (SpecificUnit, '(4x,a)') '</t
      write (SpecificUnit, '(2x,a)') '</t
      write (SpecificUnit, '(a,/)') '</tabl
      write (SpecificUnit, '(a)') '<table class="noborder
      write (SpecificUnit, '(2x,a)') '<t
      write (SpecificUnit, '(4x,a)') '<t
      write (SpecificUnit, '(6x,a)') ' '
Opens
          open (unit = KMZFileUnit,
     *          access = 'sequential',
     *          status = 'unknown',
     *          form   = 'formatted',
     *          name   = '/infobank/tmp/kmzfile.temp')
      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 = 68,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/tmp/info2html.metaPDFfiles.temp')
Calls
      call changecase ('CAPITALS', CapShortID)
      call stringlen(ShortID, ShortIDLength)
      call stringlen (SpecificHtml, SpecificHtmlLength)
      call stringlen (MetaPath, MetaPathLength)
      call stringlen (HtmlPath, HtmlPathLength)
      call htmlhead (SpecificUnit, 
     *    'CMG '//CapID//' '//LongName )
      call controlbar 
     *   (DiskName,SpecificUnit, ShortID, IDLength, LongID, CapID,
     *    ShortName, LongName, Existance)
             call link4organization(SpecificUnit, 
     *                      ShortID(1:IDLength),Item(10:ItemLength))   
             call link4organization(SpecificUnit,
     *             ShortID(1:IDLength),Item(10:ItemLength))
             call link4project(SpecificUnit, 
     *          ShortID (1:ShortIDLength),
     *          Item(10:ItemLength))
                call link4project (SpecificUnit,
     *             ShortID (1:ShortIDLength),
     *             Item(10:ItemLength))   
                call link4project (SpecificUnit,
     *                 ShortID(1:ShortIDLength),
     *                 Item(1:ItemLength))
          call stringlen(Name, NameLength)
             call link4participant (SpecificUnit, 
     *                           Item(1:Comma))
             call link4participant (SpecificUnit, 
     *                              Item(1:Comma))
                      call stringlen (PlatformPath, PlatformPathLength)
                         call link4region(SpecificUnit, RegionID,
     *                       Item(10:ItemLength))
                         call link4region(SpecificUnit, RegionID,
     *                       Item(10:ItemLength))
      call meta2tablerecord (MetaPath(1:MetaPathLength),
     *    'daysatsea', 'Days at Sea',
     *    DidDaysAtSea, SpecificUnit, ItemUnit, ShortID, LongID, 
     *    Item)
          call system ('/bin/grep -i PDF '//
     *                 '/infobank'//
     *                 '/'//
     *                 ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/meta/'//
     *                 LongID(1:IDLength+3)//'.metafiles.keep'//
     *                 ' > /infobank/tmp/info2html.metaPDFfiles.tem
          call system (
     *        '/bin/rm /infobank/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', 'Navigation',
     *    DidNavKm, SpecificUnit, ItemUnit, ShortID, LongID, Item)
      call meta2tablerecord (MetaPath(1:MetaPathLength),
     *    'stationcount', 'Stations',
     *    DidStationCount, SpecificUnit, ItemUnit, ShortID, LongID, 
     *    Item)
      call meta2tablerecord (MetaPath(1:MetaPathLength),
     *    'divecount', 'Dives',
     *    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 datatable (SpecificUnit, ShortID, IDLength, LongID,
     *                Existance)
               call system ('/bin/cp /infobank/'//ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/html/'//
     *                 LongID(1:IDLength+3)//'.nav.jpg '//
     *                 '/infobank/'//ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/html/'//
     *                 LongID(1:IDLength+3)//'.nav.150px.jpg')
               call system ('mogrify -resize 150x150 '//
     *                 '/infobank/'//ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/html/'//
     *                 LongID(1:IDLength+3)//'.nav.150px.jpg')            
               call system ('/bin/cp /infobank/'//ShortID(1:1)//'/'//
     *                    ShortID(1:IDLength)//'/html/'//
     *                    LongID(1:IDLength+3)//'.index.jpg '//
     *                    '/infobank/'//ShortID(1:1)//'/'//
     *                    ShortID(1:IDLength)//'/html/'//
     *                    LongID(1:IDLength+3)//'.index.150px.jpg')
               call system ('mogrify -resize 150x150 '//
     *                    '/infobank/'//ShortID(1:1)//'/'//
     *                    ShortID(1:IDLength)//'/html/'//
     *                    LongID(1:IDLength+3)//
     *                   '.index.150px.jpg')          
      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

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/info2html/makemeta.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:37 PST 2013  (chd)