USGS InfoBank program -- makemeter

makemeter

  Subroutine to make specific meter.htmls for an Activity ID.

       

  Clint Steele   10/16/97

  Joan Paz       02/06/09  Added code to include the Index Map or .gif
                           file if it exists
  Sumy Tom       10/25/2010 calls addmaps to add indexmap

    

              read (FileUnit, '(q,a)', end = 9523)
     *              PathLength, Path(1:PathLength)
                      read (ItemUnit, '(q,a)', end = 206)
     *                      ItemLength, Item(1:ItemLength)
              read (FileUnit, '(q,a)', end = 926)
     *              PathLength, Path(1:PathLength)
              read (FileUnit, '(q,a)', end = 923)
     *              PathLength, Path(1:PathLength)
                  read (LinkUnit, '(q,a)') 
     *                  LinkLength, Link(1:LinkLength)
              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)

      write (SpecificHtml, '(255x)')
      write (SpecificHtml, 3) 
     *                    ShortID(1:1), 
     *                    ShortID(1:IDLength),
     *                    LongID(1:IDLength+3),
     *                    ShortName
      write (SpecificUnit, '(a,/)')
     *  '<!-- ====== LINKS TO DATA FILES: ====== -
      write (SpecificUnit, '(4x,a)') 
     *    '<table class="noborder" width = 100
      write (SpecificUnit, '(6x,a)')
     *    '<t
      write (SpecificUnit, '(8x,a)') 
     *    '<td valign="top
      write (SpecificUnit, '(10x,a)')
     *    '<table class="border" rules="all" width="100%
      write (SpecificUnit, '(12x,a)') '<t
      write (SpecificUnit, '(14x,a)') '<td class="dark" valign="top
      write (SpecificUnit, '(a,/)')
     *  '<!-- ====== LINKS TO ARC FILES: ====== -
      write (SpecificUnit, '(16x,a)')
     *  '<a href="http://walrus.wr.usgs.gov/infobank/
     *  'programs/html/definition/arc.html"&g
      write (SpecificUnit, '(18x,a)') '<b>Arc Files
      write (SpecificUnit, '(16x,a)') '</
      write (SpecificUnit, '(14x,a)') '</t
      write (SpecificUnit, '(14x,a)') '<t
      write (SpecificUnit, '(16x,a)')
     *   '<table class="border" rules="all" width = "100%
              write (Path, '(255x)')
                      write (SpecificUnit, '(18x,a)') '<t
                      write (SpecificUnit, '(20x,a)')
     *                        '<td class="dark" align="center"&
     *                     '<b>Best file with 
     *                     ' in ArcInfo E00 format</b>
                      write (SpecificUnit, '(20x,a)')
     *                        '<td class="light" align="center"&
     *                        '<b&
     *                        LongID(1:IDLength+3)//'.zip</b>
                      write (SpecificUnit, '(20x,a,f8.1,a)')
     *                        '<td class="light"><c
     *                        '<a href="http://walrus.wr.usgs.gov
     *                        '/infobank/'//
     *                        ShortID(1:1)//'/'//
     *                        ShortID(1:IDLength)//
     *                        '/arc/'//ShortName//'/'//
     *                        LongID(1:IDLength+3)//'.zip">',Si
     *                        ' Mb</a></cent
                      write (SpecificUnit, '(18x,a)') '</t
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Notes',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1">
                      write (SpecificUnit, '(a)')
     *                    ' '//Item(1:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '      </pre><
     *                '    </TD
     *                '  </T
          write (SpecificUnit, '(a,/,a,/,a)')
     *       '  <TR
     *       '    <TD class="light" ALIGN="CENTER"&
     *       'none</TD
     *       '  </T
          write (SpecificUnit, '(a,/,a,/,a)')
     *       '  <TR
     *       '    <TD class="light" ALIGN="CENTER"&
     *       'none</TD
     *       '  </T
      write (SpecificUnit, '(a,/,a,/)')
     *     '</TABL
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</tr&
      write (SpecificUnit, '(6x,a)') '<t
      write (SpecificUnit, '(8x,a)') '<td class="dark" valign="top
      write (SpecificUnit, '(10x,a)')
     *  '<a href="http://walrus.wr.usgs.gov/infobank/
     *  'programs/html/definition/meta.html"&g
      write (SpecificUnit, '(12x,a)') '<b>Digital Data
      write (SpecificUnit, '(10x,a)') '</
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(a)')
     *  '<table class="border" rules="all" 
     *  'width = "100%" class="light"&g
                  write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                '  <TR
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">zip<
     *                '    </T
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '    <TD class="light" ALIGN="CENTER"&
     *           '      <A HREF="http://walrus.wr.usgs.gov'/
     *                Path(1:PathLength-3)//'txt">contents<
     *                '    </TD>
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '    <TD class="light" ALIGN="CENTER"
     *                Path(index(Path(1:PathLength), '/meter/') + 7:
     *                PathLength-4),
     *                '    </T
                  write (SpecificUnit, '(a,/)')
     *                '    <TD class="light" ALIGN="CENTER"
     *                Path(index(Path(1:PathLength), '/meter/') + 11:
     *                PathLength-4)//' data',
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *                'deployment '//
     *                Path(index(Path(1:PathLength), '/meter/') + 9:
     *                     index(Path(1:PathLength), '/meter/') +10), 
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *                'station '//
     *                Path(index(Path(1:PathLength), '/meter/') + 7:
     *                     index(Path(1:PathLength), '/meter/') + 8),
     *                '    </T
                  write (SpecificUnit, '(a)') '  </t
          write (SpecificUnit, '(a,/,a,/,a)')
     *       '  <TR
     *       '    <TD class="light" ALIGN="CENTER"&
     *       'none</TD
     *       '  </T
          write (SpecificUnit, '(a,/,a,/,a)')
     *       '  <TR
     *       '    <TD class="light" ALIGN="CENTER"&
     *       'none</TD
     *       '  </T
      write (SpecificUnit, '(a,/,a,/)')
     *     '</TABL
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</t
      write (SpecificUnit, '(6x,a)') '<t
      write (SpecificUnit, '(8x,a)') '<td class="dark" valign="top
      write (SpecificUnit, '(10x,a)')
     *  '<a href="http://walrus.wr.usgs.gov/infobank/
     *  'programs/html/definition/meta.html"&g
      write (SpecificUnit, '(12x,a)') '<b>Metadata
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(6x,a)')
     *   '<table class="border" rules="all" width = "100%
              write (Path, '(255x)')
                   write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
     *                '  <TR
     *                '    <td class="light" ALIGN="CENTER"
     *             '      <a href="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                'Formal metadata for the meters'//
     *                '</a
     *                '    </td
     *                '  </t
                  write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
     *                '  <TR
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Link(1:LinkLength)//'">
     *                Path((index(Path, '.')+1):
     *                     (index(Path, '.path')-1))//
     *                '</A
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
     *                '  <TR
     *                '    <TD class="light" ALIGN="CENTER" 
     *                       'COLSPAN="2">
     *            '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path((index(Path, '.onoff.')+7):PathLength)//
     *                '</A
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/)')
     *                '  <TR
     *                '    <TD class="light" ALIGN="CENTER">
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(index (Path(1:PathLength),'/meter/') + 7:
     *                     PathLength-8)//' format</A
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER
                          write (SpecificUnit, '(a,/)')
     *                        'ADP amplitude'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP burst average'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP pressure time series'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP standard deviation'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP signal-to-noise'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP velocity east'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP velocity north'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP velocity up'
                          write (SpecificUnit, '(a,/)')
     *                        'ADP wave amplitude'
                          write (SpecificUnit, '(a,/)')
     *                        'ADV burst average'
                          write (SpecificUnit, '(a,/)')
     *                        'ADV burst average (station ns)'
                          write (SpecificUnit, '(a,/)')
     *                        'ADV time series (station ns)'
                          write (SpecificUnit, '(a,/)')
     *                        'ADV time series'
                          write (SpecificUnit, '(a,/)')
     *                        'Sea-Bird tide'
                          write (SpecificUnit, '(a,/)')
     *                        'Sea-Bird wave burst'
                  write (SpecificUnit, '(a,/)')
     *                '    </TD
     *                '  </TR&
                  write (TitleName, '(255x)')
                  write (SpecificUnit, '(a,/)')
     *                '  <TR
     *                '    <TD class="light" ALIGN="CENTER"
     *                '<a href="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                TitleName(1:TitleNameLength)//'</a
     *                '    </T
                  write (SpecificUnit, '(a)') '  </T
          write (SpecificUnit, '(a,/,a,/,a)')
     *       '  <TR
     *       '    <TD class="light" ALIGN="CENTER"&
     *       'none</TD
     *       '  </T
          write (SpecificUnit, '(a,/,a,/,a)')
     *       '  <TR
     *       '    <TD class="light" ALIGN="CENTER"&
     *       'none</TD
     *       '  </T
      write (SpecificUnit, '(a,/,a,/)')
     *     '</TABL
      write (SpecificUnit, '(8x,a)')'</t
      write (SpecificUnit, '(6x,a)') '</t
         write (SpecificUnit, '(6x,a)')'<t
         write (SpecificUnit, '(8x,a)') '<td valign="top
          write (SpecificUnit, '(10x,a)') '<b>Other
          write (specificUnit, '(8x,a)')'</t
          write (SpecificUnit, '(8x,a)') '<t
          write (SpecificUnit, '(10x,a)')
     *      '<table class="border" rules="all" 
     *      ' width="100%" class="light"&g
          write (SpecificUnit, '(12x,a)') '<t
          write (SpecificUnit, '(14x,a)') '<th align="center
          write (SpecificUnit, '(16x,a)') 'Description'
          write (SpecificUnit, '(14x,a)') '</t
          write (SpecificUnit, '(14x,a)') '<th align="center
          write (SpecificUnit, '(16x,a)') 'Thumbnail<br>
          write (SpecificUnit, '(14x,a)') '</t
          write (SpecificUnit, '(14x,a)') '<th align="center
          write (SpecificUnit, '(16x,a)') 'Intermediate<br>
          write (SpecificUnit, '(14x,a)') '</t
          write (SpecificUnit, '(14x,a)') '<th align="center
          write (SpecificUnit, '(16x,a)') 'Full<br>
          write (SpecificUnit, '(14x,a)') '</t
          write (SpecificUnit, '(12x,a)') '</t
              write (SpecificUnit, '(12x,a)') '<t
              write (SpecificUnit, '(14x,a)') '<td align="center
              write (SpecificUnit, '(16x,a)')
     *               Path(1:PathLength)
              write (SpecificUnit, '(16x,a)') '</t
              write (SpecificUnit, '(16x,a)') '<td align="center
                  write (SpecificUnit, '(8x,a,f8.1,a)')
     *               '<a href="http://walrus.wr.usgs.gov
     *               DiskName//
     *               '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/'//ShortName//'/'//Path(1:PathLength)//
     *               '">',Size,' Mb&l
              write (SpecificUnit, '(16x,a)') '</t
              write (SpecificUnit, '(16x,a)') '<td align="center
                  write (SpecificUnit, '(18x,a,f8.1,a)')
     *               '<a href="http://walrus.wr.usgs.gov
     *               DiskName//
     *               '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/'//ShortName//'/'//Path(1:PathLength)//
     *               '">',Size,' Mb&l
              write (SpecificUnit, '(16x,a)') '</t
              write (SpecificUnit, '(16x,a)') '<td align="center
                  write (SpecificUnit, '(18x,a,f8.1,a)')
     *               '<a href="http://walrus.wr.usgs.gov
     *               DiskName//
     *               '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/'//ShortName//'/'//Path(1:PathLength)//
     *               '">',Size,' Mb&l
              write (SpecificUnit, '(16x,a)') '</t
              write (SpecificUnit, '(14x,a)') '</t
          write (SpecificUnit, '(a,/,a,/)')
     *     '</table>'
          write (SpecificUnit, '(12x,a)')'</t
          write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(10x,a)') '<t
      write (SpecificUnit, '(12x,a)') '<td colspan = "2" class="dark"&
          write (SpecificUnit, '(a)')
     *        '<a href="http://walrus.wr.usgs.gov
     *        '/infobank/'//ShortID(1:1)//'/'//
     *        ShortID(1:IDLength)//'/html/'//
     *        LongID(1:IDLength+3)//'.analog.html">
     *        '<b>Check the analog holdings.</b
          write (SpecificUnit, '(a)')
     *        'No analog holdings.<
      write (SpecificUnit, '(6x,a)') '</t
      write (SpecificUnit, '(4x,a)') '</t
      write (SpecificUnit, '(2x,a)') '</tabl
      write (SpecificUnit, '(2x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(6x,a)') '<tabl
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td> 
      write (SpecificUnit, '(10x,a)') '<td> 
      write (SpecificUnit, '(10x,a)') '<td> 
      write (SpecificUnit, '(10x,a)') '<td> 
      write (SpecificUnit, '(10x,a)') '<td> 
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</tabl
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<td valign = "top
      write (SpecificUnit, '(6x,a)') '<table class="noborder" 
     *                               '&g
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td
      write (SpecificUnit, '(10x,a)') '</td
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<t
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</tabl
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</t
      write (SpecificUnit, '(4x,a)') '</tabl

      open (name   = SpecificHtml(1:SpecificHtmlLength),
     *      access = 'sequential',
     *      status = 'unknown',
     *      form   = 'formatted',
     *      unit   = SpecificUnit)
          open (unit = FileUnit,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = DiskName//'/'//
     *                 ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/'//ShortName//'/'//
     *                 LongID(1:IDLength+3)//'.arcfiles.keep')
                  open (unit = ItemUnit,
     *                  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)//'/meter/'//
     *                 LongID(1:IDLength+3)//'.datafiles.keep')
          open (unit = FileUnit,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/'//
     *                 ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/meter/'//
     *                 LongID(1:IDLength+3)//'.metafiles.keep')
                  open (unit = LinkUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = Path(1:PathLength))
          open (unit = FileUnit,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = DiskName//'/'//
     *                 ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/'//ShortName//'/'//
     *                 LongID(1:IDLength+3)//'.other.keep')

      call changecase ('SMALLS', LongNameLC)
      call stringlen (LongNameLC, LongNameLCLength)
      call stringlen (SpecificHtml, SpecificHtmlLength)
      call htmlhead (SpecificUnit, 
     *    'CMG '//CapID//' Sensors')
      call controlbar 
     *   (DiskName,SpecificUnit, ShortID, IDLength, LongID, CapID,
     *    ShortName, LongName, Existance)
                      call getsize ('/infobank/'//
     *                        ShortID(1:1)//'/'//
     *                        ShortID(1:IDLength)//
     *                        '/arc/'//ShortName//'/'//
     *                        LongID(1:IDLength+3)//'.zip', Size)
                  call stringlen (TitleName, TitleNameLength)
                  call changecase 
     *                ('TITLE', TitleName(1:TitleNameLength))
              call getsize (DiskName//
     *         '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/'//ShortName//'/'//Path(1:PathLength), Size)
              call getsize ( DiskName//
     *         '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/'//ShortName//'/'//Path(1:PathLength), Size)
              call getsize ( DiskName//
     *         '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/'//ShortName//'/'//Path(1:PathLength), Size)
      call datatable (SpecificUnit, ShortID, IDLength, 
     *     LongID, Existance)
      call stringlen(LongNameLC, LongNameLCLength)
      call changecase('SMALLS', LongNameLC(1:LongNameLCLength)) 
      call addmaps(DiskName,Existance, LongNameLC, LongNameLCLength,
     *              ShortName, ShortID, 
     *              IDLength, LongID, SpecificUnit)
      call htmlfoot (SpecificUnit, 
     *               'http://walrus.wr.usgs.gov'//
     *               '/infobank'//
     *         '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
     *               '/html/'//LongID(1:IDLength+3)//'.'//
     *               ShortName//'.html' )