USGS InfoBank program -- makegeo

makegeo

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

       

  Clint Steele   10/16/97

  Sumy Tom       10/25/2010 calls addmaps to add indexmap

    

              read (FileUnit, '(q,a)', end = 9523)
     *              PathLength, Path(1:PathLength)
              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 (ItemUnit, '(q,a)', end = 200)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 201)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 202)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 203)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 204)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 205)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 206)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 207)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 208)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 209)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 210)
     *                      ItemLength, Item(1:ItemLength)
                      read (ItemUnit, '(q,a)', end = 211)
     *                      ItemLength, Item(1:ItemLength)
              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, '(2x,a)') '<table class="noborder" 
     *                               'width = "100%" >
      write (SpecificUnit, '(4x,a)') '<t
      write (SpecificUnit, '(6x,a)') '<td valign = "top
      write (SpecificUnit, '(6x,a)') 
     *  '<table class="border" rules="all" width = "100%
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td valign="top
      write (SpecificUnit, '(a,/)')
     *  '<!-- ====== LINKS TO ARC FILES: ====== -
      write (SpecificUnit, '(12x,a)')
     *  '<a href="http://walrus.wr.usgs.gov/infobank/
     *  'programs/html/definition/arc.html"&g
      write (SpecificUnit, '(14x,a)') '<b>Arc Files
      write (SpecificUnit, '(12x,a)') '</
      write (SpecificUnit, '(10x,a)') '</td>
      write (SpecificUnit, '(10x,a)')
     *   '<table class="border" rules="all" width="100%
              write (Path, '(255x)')
                      write (SpecificUnit, '(2x,a,/)') '</t
                      write (SpecificUnit, '(2x,a)') '<t
                      write (SpecificUnit, '(4x,a)')
     *                        '<td class="dark" align="center"&
     *                     '<b>Best file with 
     *                     ' in ArcInfo E00 format</b>
                      write (SpecificUnit, '(4x,a)')
     *                        '<td class="light" align="center"&
     *                        '<b&
     *                        LongID(1:IDLength+3)//'.zip</b>
                      write (SpecificUnit, '(6x,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, '(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, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</tr>'
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td valign="top
      write (SpecificUnit, '(12x,a)')
     *  '<a href="http://walrus.wr.usgs.gov/infobank/
     *  'programs/html/definition/meta.html"&g
      write (SpecificUnit, '(14x,a)') '<b>Digital Data
      write (SpecificUnit, '(12x,a)') '</
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(10x,a)') '</td>
      write (SpecificUnit, '(a)')
     *  '<table class="border" rules="all" 
     *  'width="100%" class="light"&g
                   write (SpecificUnit, '(a,/)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER"
     *                'Relative Reference Frame'//
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(Slash+1:PathLength)//
     *                '</A
     *                '    </TD>',    
     *                '  </TR&
                   write (SpecificUnit, '(a,/)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER"
     *                'Geodetic Points'//
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(Slash+1:PathLength)//
     *                '</A
     *                '    </TD
     *                '  </TR>'   
                   write (SpecificUnit, '(a,/)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER"
     *                'data points'//
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(Slash+1:PathLength)//
     *                '</A
     *                '    </TD
     *                '  </TR>'   
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'UTMs of Stations',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                    '<CENTER
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(Slash+1:PathLength)//
     *                    '</a
     *                    '</CENTE
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </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, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<td valign="top">'
      write (SpecificUnit, '(a,/)')
     *  '<!-- ====== LINKS TO DATA FILES: ====== -
      write (SpecificUnit, '(12x,a)')
     *  '<a href="http://walrus.wr.usgs.gov/infobank/
     *  'programs/html/definition/meta.html"&g
      write (SpecificUnit, '(14x,a)') '<b>Metadata
      write (SpecificUnit, '(12x,a)') '</
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(10x,a)') '<t
      write (SpecificUnit, '(10x,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 geodetics'//
     *                '</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,/)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER"
     *                'Excel spreadsheet'//
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(Dot+1:PathLength)//
     *                '</A
     *                '    </TD
     *                '  </TR>'   
                   write (SpecificUnit, '(a,/)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER"
     *                'report'//
     *                '    </TD
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path(Dot+1:PathLength)//
     *                '</A
     *                '    </TD
     *                '  </TR>'   
                  write (SpecificUnit, '(a,/,a,/,a,/,a,/,a,/)')
     *                '  <TR
     *                '    <TD class="light" ALIGN="CENTER"
     *             '      <A HREF="http://walrus.wr.usgs.gov
     *                Path(1:PathLength)//'">
     *                Path((index(Path, '.onoff.')+7):PathLength)//
     *                '</A
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, 
     *                         '(a,/,a,/,a,/,a,/,a,/,a)')
     *                      'Surveying Conditions',
     *                      '    </td
     *                      '    <TD class="light" ALIGN="CENTER"
     *                      '        <table class="noborder
                          write (SpecificUnit, 
     *                             '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
     *                      '          <TR
     *                      '            <TD ALIGN="CENTER" 
     *                                      'VALIGN="TOP">
     *                                      '<FONT SIZE="-1"
     *                      '               '//Item(1:Dash-1),
     *                      '            </FONT>&
     *                      '            <TD><FONT SIZ
     *                      '               '//Item(Dash+3:ItemLength),
     *                      '            </FONT>&
     *                      '          </T
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '      </TABLE
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, 
     *                         '(a,/,a,/,a,/,a,/,a,/,a)')
     *                      'Generated Files',
     *                      '    </td
     *                      '    <TD class="light" ALIGN="CENTER"
     *                      '        <table class="noborder
                          write (SpecificUnit, 
     *                             '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
     *                      '          <TR
     *                      '            <TD ALIGN="CENTER" 
     *                                      'VALIGN="TOP">
     *                                      '<FONT SIZE="-1"
     *                      '               '//Item(1:Dash-1),
     *                      '            </FONT>&
     *                      '            <TD><FONT SIZ
     *                                     Item(Dash+3:ItemLength),
     *                      '            </FONT>&
     *                      '          </T
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '      </TABLE
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Geodetics Equipment',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a)')
     *                    '<BR>'//Item(1:ItemL
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Overview',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a,/,a,/,a)')
     *                    '<CENTER
     *                    Item(1:ItemLength),
     *                    '</CENTE
                          write (SpecificUnit, '(a)')
     *                    ' '//Item(1:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, 
     *                         '(a,/,a,/,a,/,a,/,a,/,a)')
     *                      'Images Taken',
     *                      '    </td
     *                      '    <TD class="light" ALIGN="CENTER"
     *                      '        <table class="noborder
                          write (SpecificUnit, 
     *                             '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
     *                      '          <TR
     *                      '            <TD ALIGN="CENTER" 
     *                                      'VALIGN="TOP">
     *                                      '<FONT SIZE="-1"
     *                      '               '//Item(1:Dash-1),
     *                      '            </FONT>&
     *                      '            <TD><FONT SIZ
     *                      '               '//Item(Dash+3:ItemLength),
     *                      '            </FONT>&
     *                      '          </T
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '      </TABLE
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, 
     *                         '(a,/,a,/,a,/,a,/,a,/,a)')
     *                      'Total Station Location',
     *                      '    </td
     *                      '    <TD class="light" ALIGN="CENTER"
     *                      '        <table class="noborder
                          write (SpecificUnit, 
     *                             '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
     *                      '          <TR
     *                      '            <TD ALIGN="CENTER" 
     *                                      'VALIGN="TOP">
     *                                      '<FONT SIZE="-1"
     *                      '               '//Item(1:Dash-1),
     *                      '            </FONT>&
     *                      '            <TD><FONT SIZ
     *                      '               '//Item(Dash+3:ItemLength),
     *                      '            </FONT>&
     *                      '          </T
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '      </TABLE
     *                '    </TD
     *                '  </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)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Field Observations',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a)')
     *                    ' '//Item(1:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Post-processing',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a)')
     *                    '<BR> 
                          write (SpecificUnit, '(a)')
     *                    ' '//Item(1:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, 
     *                         '(a,/,a,/,a,/,a,/,a,/,a)')
     *                      'Precision and Accuracy of Acquired Data',
     *                      '    </td
     *                      '    <TD class="light" ALIGN="CENTER"
     *                      '        <table class="noborder
                          write (SpecificUnit, 
     *                             '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a)')
     *                      '          <TR
     *                      '            <TD ALIGN="CENTER" 
     *                                      'VALIGN="TOP">
     *                                      '<FONT SIZE="-1"
     *                      '               '//Item(1:Dash-1),
     *                      '            </FONT>&
     *                      '            <TD><FONT SIZ
     *                      '               '//Item(Dash+3:ItemLength),
     *                      '            </FONT>&
     *                      '          </T
                  write (SpecificUnit, '(a,/,a,/,a)')
     *                '      </TABLE
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Field Procedure',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a)')
     *                    '<BR> 
                          write (SpecificUnit, '(a)')
     *                    ' '//Item(1:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </TD
     *                '  </T
                  write (SpecificUnit, '(a,/,a)')
     *                '  <TR
     *                '    <TD class="dark" ALIGN="CENTER
                          write (SpecificUnit, '(a,/,a,/,a,/,a)')
     *                      'Synopsis',
     *                      '    </TD
     *                      '    <TD class="light" ALIGN="LEFT"
     *                      '      <FONT SIZE="-1
                          write (SpecificUnit, '(a)')
     *                    ' '//Item(1:ItemLength)
                  write (SpecificUnit, '(a,/,a)')
     *                '      </FONT
     *                '    </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, '(10x,a)')'</t
      write (SpecificUnit, '(8x,a)') '</t
         write (SpecificUnit, '(8x,a)') '<t
         write (SpecificUnit, '(10x,a)') '<t
          write (SpecificUnit, '(a)')
     *      '<table class="noborder" align="left" bgcolor="#ffffff
          write (SpecificUnit, '(2x,a)') '<t
          write (SpecificUnit, '(4x,a)') '<td valign="top
          write (SpecificUnit, '(8x,a)') '<b>Other
          write (SpecificUnit, '(4x,a)') '</t
          write (SpecificUnit, '(2x,a)') '</t
          write (SpecificUnit, '(a,/)') '</tabl
          write (SpecificUnit, '(a)')
     *      '<table class="border" rules="all" 
     *      'width="80%" class="light"&g
          write (SpecificUnit, '(2x,a)') '<t
          write (SpecificUnit, '(4x,a)') '<th align="center
          write (SpecificUnit, '(8x,a)') 'Description'
          write (SpecificUnit, '(4x,a)') '</t
          write (SpecificUnit, '(4x,a)') '<th align="center
          write (SpecificUnit, '(8x,a)') 'Thumbnail<br>
          write (SpecificUnit, '(4x,a)') '</t
          write (SpecificUnit, '(4x,a)') '<th align="center
          write (SpecificUnit, '(8x,a)') 'Intermediate<br>
          write (SpecificUnit, '(4x,a)') '</t
          write (SpecificUnit, '(4x,a)') '<th align="center
          write (SpecificUnit, '(8x,a)') 'Full<br>
          write (SpecificUnit, '(4x,a)') '</t
          write (SpecificUnit, '(2x,a)') '</t
              write (SpecificUnit, '(2x,a)') '<t
              write (SpecificUnit, '(4x,a)') '<td align="center
              write (SpecificUnit, '(8x,a)')
     *               Path(1:PathLength)
              write (SpecificUnit, '(4x,a)') '</t
              write (SpecificUnit, '(4x,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, '(4x,a)') '</t
              write (SpecificUnit, '(4x,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, '(4x,a)') '</t
              write (SpecificUnit, '(4x,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, '(4x,a)') '</t
              write (SpecificUnit, '(2x,a)') '</t
          write (SpecificUnit, '(a,/,a,/)')
     *     '</table>'
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
       write (SpecificUnit, '(8x,a)') '<t
       write (SpecificUnit, '(10x,a)') '<td colspan = "2
          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
          write (SpecificUnit, '(a)')
     *        'No analog holdings.<
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)')'</tabl
      write (SpecificUnit, '(6x,a)') '</td>
      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, '(6x,a)') '</td><td valign 
      write (SpecificUnit, '(6x,a)') '<tabl
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<t
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)') '<t
      write (SpecificUnit, '(a,/)')
     *  '<!-- ====== MAP: ====== -
      write (SpecificUnit, '(6x,a)')
     *  '<table class="noborder" width="100%" bgcolor="#ffffff
      write (SpecificUnit, '(8x,a)') '<t
      write (SpecificUnit, '(10x,a)')
     *  '<td align="left
      write (SpecificUnit, '(12x,a)') '<b>Location map
      write (SpecificUnit, '(10x,a,/)') '</t
      write (SpecificUnit, '(10x,a)') '<t
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a,/)') '</tabl
      write (SpecificUnit, '(10x,a)') '</t
      write (SpecificUnit, '(8x,a)') '</t
      write (SpecificUnit, '(6x,a)') '</tabl
      write (SpecificUnit, '(6x,a)') '</t
      write (SpecificUnit, '(4x,a)') '</t
      write (SpecificUnit, '(2x,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 = FileUnit,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name =  DiskName//'/'//
     *                 ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/'//ShortName//'/'//
     *                 LongID(1:IDLength+3)//'.datafiles.keep')
          open (unit = FileUnit,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/'//
     *                 ShortID(1:1)//'/'//
     *                 ShortID(1:IDLength)//'/geo/'//
     *                 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)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.conditions')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.data_files')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.geo_equipment')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.header')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.image_files')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.location')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.notes')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.observations')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.post-processing')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.precision')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.procedure')
                  open (unit = ItemUnit,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = '/infobank/'//
     *                         ShortID(1:1)//'/'//
     *                         ShortID(1:IDLength)//'/geo/'//
     *                         LongID(1:IDLength+3)//'.synopsis')
          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 stringlen (SpecificHtml, SpecificHtmlLength)
      call htmlhead (SpecificUnit, 
     *    'CMG '//CapID//' '//LongName )
      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 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' )