USGS InfoBank program -- staff2html

staff2html

  Program to convert staff.keep to .html.

       

  Clint Steele     9/18/2003


    

          read (StaffList, '(q,a)', end = 899)
     *        StaffLineLength, StaffLine(1:StaffLineLength)
          read (StaffList, '(q,a)', end = 99) 
     *        StaffLineLength, StaffLine(1:StaffLineLength)

          write (StaffLine, '(4096x)')
              write (AllHtml, '(2x,a)') '<t
              write (AllHtml, '(4x,a)') 
     *     '<td class="light" valign="top" align="right" width="10%
              write (AllHtml, '(6x,a)')
     *            '<b>Last Name
              write (AllHtml, '(4x,a,/)') '</t
              write (AllHtml, '(4x,a)') 
     *          '<td class="light" valign="middle
              write (AllHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/staff2html/staff.html">
     *            'list</a> &
                      write (AllHtml, '(a,/)')
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/staff2html/'//
     *                    Alphabet(CountA:CountA)//
     *                    '_names.html">
     *                    BigAlphabet(CountA:CountA)//
     *                    '</a> &
                      write (AllHtml, '(a,/)')
     *                    BigAlphabet(CountA:CountA)//'  '
              write (AllHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *            'staff2html/staffposter.html">
     *            'gallery</a> &
              write (AllHtml, '(4x,a)') '</t
              write (AllHtml, '(2x,a,/)') '</t
      write (AllHtml, '(a)') '<br 
      write (AllHtml, '(a)') 
     *    '<table class="border" rules="all
              write (PosterHtml, '(2x,a)') '<t
              write (PosterHtml, '(4x,a)') 
     *       '<td class="light" valign="top" align="right" width="10%
              write (PosterHtml, '(6x,a)')
     *            '<b>Last Name
              write (PosterHtml, '(4x,a,/)') '</t
              write (PosterHtml, '(4x,a)') 
     *             '<td class="light" valign="top
              write (PosterHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/staff2html/staff.html">
     *            'list</a> &
                      write (PosterHtml, '(a,/)')
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/staff2html/'//
     *                    Alphabet(CountA:CountA)//
     *                    '_names.html">
     *                    BigAlphabet(CountA:CountA)//
     *                    '</a> &
                      write (PosterHtml, '(a,/)')
     *                    BigAlphabet(CountA:CountA)//'  '
              write (PosterHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *            'staff2html/staffposter.html">
     *            'gallery</a> &
              write (PosterHtml, '(4x,a)') '</t
              write (PosterHtml, '(2x,a)') '</t
              write (PosterHtml, '(a,/)') '</tabl
       write (PosterHtml, '(2x,a)') '<br 
       write (PosterHtml, '(2x,a)') '<di
       write (PosterHtml, '(2x,a)') '<table class = "info" 
     *                                      'width = "600" &g
       write (PosterHtml, '(4x,a)') '<t
       write (PosterHtml, '(6x,a)') '<t
       write (PosterHtml, '(8x,a)') '<u
       write (PosterHtml, '(10x,a)') '<l
       write (PosterHtml, '(12x,a)') 'This links to individual staff '//
     *                              'pages with contact information '//
     *                              'and their professional '//
     *                              'descriptions.'        
       write (PosterHtml, '(10x,a)') '</l
       write (PosterHtml, '(8x,a)') '</u
       write (PosterHtml, '(6x,a)') '</t
       write (PosterHtml, '(6x,a)') '<t
       write (PosterHtml, '(8x,a)') '<img src = "http://walrus.wr.
     *                              'usgs.gov/infobank/programs/html/'//
     *                              'training/IBDemo/rawjpg/'//
     *                              'MPSCStaff.jpg" alt = "Staff" '//
     *                              'width = "300" &g
       write (PosterHtml, '(6x,a)') '</t
       write (PosterHtml, '(4x,a)') '</t
       write (PosterHtml, '(2x,a)') '</tabl
       write (PosterHtml, '(2x,a)') '</di
      write (PosterHtml, '(a)') '<br 
      write (PosterHtml, '(a)') '<div class = "content
      write (PosterHtml, '(a)') '<table class="border" rules="all
              write (PhotoHtml, '(2x,a)') '<t
              write (PhotoHtml, '(4x,a)') 
     *       '<td class="light" valign="top" align="right" width="10%
              write (PhotoHtml, '(6x,a)')
     *            '<b>Last Name
              write (PhotoHtml, '(4x,a,/)') '</t
              write (PhotoHtml, '(4x,a)') 
     *            '<td class="light" valign="middle
              write (PhotoHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/staff2html/staff.html">
     *            'list</a> &
                      write (PhotoHtml, '(a,/)')
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/staff2html/'//
     *                    Alphabet(CountA:CountA)//
     *                    '_names.html">
     *                    BigAlphabet(CountA:CountA)//
     *                    '</a> &
                      write (PhotoHtml, '(a,/)')
     *                    BigAlphabet(CountA:CountA)//'  '
              write (PhotoHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *            'staff2html/staffposter.html">
     *            'gallery</a> &
              write (PhotoHtml, '(4x,a)') '</t
              write (PhotoHtml, '(2x,a,/)') '</t
      write (PhotoHtml, '(a)') '<br 
      write (PhotoHtml, '(a)') '<br 
      write (PhotoHtml, '(a)') '<table class="border" rules="all
      write (LastBigLetter, '(1x)')
          write (StaffLine, '(4096x)')
                  write (LetterHtml, 32)
              write (LetterHtml, '(2x,a)') '<t
              write (LetterHtml, '(4x,a)') 
     *       '<td class="light" valign="top" align="right" width="10%
              write (LetterHtml, '(6x,a)')
     *            '<b>Last Name
              write (LetterHtml, '(4x,a,/)') '</t
              write (LetterHtml, '(4x,a)') 
     *            '<td class="light" valign="middle
              write (LetterHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/staff2html/staff.html">
     *            'list</a> &
                      write (LetterHtml, '(a,/)')
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/staff2html/'//
     *                    Alphabet(CountA:CountA)//
     *                    '_names.html">
     *                    BigAlphabet(CountA:CountA)//
     *                    '</a> &
                      write (LetterHtml, '(a,/)')
     *                    BigAlphabet(CountA:CountA)//'  '
              write (LetterHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *            'staff2html/staffposter.html">
     *            'gallery</a> &
              write (LetterHtml, '(4x,a)') '</t
              write (LetterHtml, '(2x,a,/)') '</t
              write (LetterHtml, '(a)') '<br 
              write (LetterHtml, '(a)')
     *            '<table class="border" rules="all"
              write (PersonHtml, '(2x,a)') '<t
              write (PersonHtml, '(4x,a)') 
     *      '<td class="light" valign="top" align="right" width="10%
              write (PersonHtml, '(6x,a)')
     *            '<b>Last Name
              write (PersonHtml, '(4x,a,/)') '</t
              write (PersonHtml, '(4x,a)') 
     *          '<td class="light" valign="middle
              write (PersonHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/staff2html/staff.html">
     *            'list</a> &
                      write (PersonHtml, '(a,/)')
     *                    '<a href="http://walrus.wr.usgs.gov
     *                    '/infobank/programs/html/staff2html/'//
     *                    Alphabet(CountA:CountA)//
     *                    '_names.html">
     *                    BigAlphabet(CountA:CountA)//
     *                    '</a> &
                      write (PersonHtml, '(a,/)')
     *                    BigAlphabet(CountA:CountA)//'  '
              write (PersonHtml, '(6x,a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *            'staff2html/staffposter.html">
     *            'gallery</a> &
              write (PersonHtml, '(4x,a)') '</t
              write (PersonHtml, '(2x,a,/)') '</t
          write (PersonHtml, '(a)') '<br 
          write (PersonHtml, '(a)') 
     *        '<table class="border" bgcolor="#ccffff
          write (PersonHtml, '(a)') '<t
          write (PersonHtml, '(a)') '<td class="light
          write (PersonHtml, '(a)') 
     *        '<table class="noborder
          write (PersonHtml, '(2x,a)') '<t
          write (PersonHtml, '(4x,a)') 
     *  '<td class="light" width="100%" align="right" 
     *  ' valign="middle" rules="none"&g
          write (PersonHtml, '(6x,a)') 
     *        '<h2>'//StaffLine(1:Tab(1)-1)//'
          write (PersonHtml, '(6x,a)') '<br 
              write (PersonHtml, '(6x,a)') ' '
              write (PersonHtml, '(6x,a)')
     *            '<b>'//StaffLine(Tab(13)+1:Tab(14)-1)//
          write (PersonHtml, '(6x,a)') '<br 
              write (PersonHtml, '(6x,a)') ' '
              write (PersonHtml, '(6x,a)')
     *            StaffLine(Tab(15)+1:Tab(16)-1)
              write (PersonHtml, '(6x,a)') '<br 
          write (PersonHtml, '(6x,a)') '<br 
              write (PersonHtml, '(6x,a)') ' '
              write (PersonHtml, '(6x,a)') 
     *            StaffLine(Tab(8)+1:Tab(9)-1)
          write (PersonHtml, '(6x,a)') '<br 
              write (PersonHtml, '(6x,a)') ' '
              write (PersonHtml, '(6x,a)') 
     *            StaffLine(Tab(12)+1:Tab(13)-1)//' (FAX)'
          write (PersonHtml, '(6x,a)') '<br 
              write (PersonHtml, '(6x,a)') ' '
                 write (PersonHtml, '(6x,a)') 
     *             '<img alt=".gif of email address" 
     *             'src="http://walrus.wr.usgs.gov'//
     *             '/infobank/programs/html/staff2html/gifs/'//
     *             StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *             StaffLine(Tab(3)+1:Tab(4)-1)//'.gif" '//
     *             'border="0" height="17"&g
          write (PersonHtml, '(4x,a)') '</t
          write (PersonHtml, '(4x,a)') 
     *     '<td class="light" width="40%" 
     *          'valign="middle"&g
              write (PersonHtml, '(6x,a)')
     *            '<img src="http://walrus.wr.usgs.gov
     *            StaffLine(Tab(16)+1:Tab(17)-1)//'" '//
     *            'width="200" class="right" '//
     *            'alt="photo of '//StaffLine(1:Tab(1)-1)//'">
                  write (PersonHtml, '(6x,a)') ' '
                  write (PersonHtml, '(6x,a)')
     *                '<img src="http://walrus.wr.usgs.gov
     *                '/infobank/programs/html/tools/einstein.jpg" '//
     *                'height="200" class="right" '//
     *                'alt="Cartoon of Einistein"&g
          write (PersonHtml, '(4x,a)') '</t
          write (PersonHtml, '(2x,a)') '</t
          write (PersonHtml, '(a)') '</tabl
          write (PersonHtml, '(4x,a)') '</t
          write (PersonHtml, '(2x,a)') '</t
          write (PersonHtml, '(a)') '</tabl
                   write (PosterHtml, '(2x,a)') '</t
              write (PosterHtml, '(2x,a)') '<t
          write (PosterHtml, '(4x,a)') 
     *     '<td class="light" width="100" align="left" valign="top
              write (PosterHtml, '(6x,a)')
     *            '<img src="http://walrus.wr.usgs.gov
     *            StaffLine(Tab(16)+1:Tab(17)-1)//'" '//
     *            'border="3" width="100"'//
     *            'alt="photo of '//StaffLine(1:Tab(1)-1)//'">
                  write (PosterHtml, '(6x,a)') ' '
                  write (PosterHtml, '(6x,a)') ' '
          write (LowerCaseStaffLine, '(4096x)')
              write (PersonHtml, '(a)') '<br 
              write (PersonHtml, '(a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *        'scientists2idshtml/'//
     *        LowerCaseStaffLine(Tab(3)+1:Tab(3)+1)//'/'//
     *        LowerCaseStaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        LowerCaseStaffLine(Tab(3)+1:Tab(4)-1)//'_ids.html">
     *        '<b>Field Activities<
          write (LowerCaseStaffLine, '(4096x)')
              write (PersonHtml, '(a)') '<br 
              write (PersonHtml, '(a)')
     *            '<a href="http://walrus.wr.usgs.gov
     *            '/infobank/programs/html/'//
     *        'containerhtmls4scientists/scientists/'//
     *        LowerCaseStaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        LowerCaseStaffLine(Tab(3)+1:Tab(4)-1)//'.html">
     *        '<b>Analog Materials<
          write (PersonHtml, '(a)') '<br 
              write (PersonHtml, '(a)') '<b>Professional Interest
              write (PersonHtml, '(a)') '<br 
              write (PersonHtml, '(6x,a)') ' '
              write (PersonHtml, '(a)') StaffLine(Tab(14)+1:Tab(15)-1)
          write (PersonHtml, '(a)') '<br 
              write (PersonHtml, '(6x,a)') 
     *        '<a href="
     *        StaffLine(Tab(17)+1:StaffLineLength)//
     *        '"><b>Professional Page
          write (PosterHtml, '(4x,a)') '<br 
          write (PosterHtml, '(6x,a)') '<a href="
     *        'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/staff/'//
     *        StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        StaffLine(Tab(3)+1:Tab(4)-1)//'.html">
     *        '<b>'//StaffLine(1:Tab(1)-1)//'<
          write (PosterHtml, '(6x,a)') '<br 
          write (PosterHtml, '(6x,a)') StaffLine(Tab(13)+1:Tab(14)-1)
          write (PosterHtml, '(4x,a)') '</t
          write (AllHtml, '(2x,a)') '<t
          write (AllHtml, '(4x,a)') '<td class="light
          write (AllHtml, '(6x,a)') '<a href="
     *        'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/staff/'//
     *        StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        StaffLine(Tab(3)+1:Tab(4)-1)//'.html">
     *        '<b>'//StaffLine(1:Tab(1)-1)//'<
          write (AllHtml, '(6x,a)') '<br 
          write (AllHtml, '(6x,a)') StaffLine(Tab(13)+1:Tab(14)-1)
          write (AllHtml, '(4x,a)') '</t
          write (AllHtml, '(4x,a)') '<td class="light
              write (AllHtml, '(6x,a)') ' '
              write (AllHtml, '(6x,a)')
     *          '<img alt=".gif of email address" 
     *          'src="http://walrus.wr.usgs.gov'//
     *          '/infobank/programs/html/staff2html/gifs/'//
     *          StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *          StaffLine(Tab(3)+1:Tab(4)-1)//'.gif" '//
     *          'border="0" height="17"&g
          write (AllHtml, '(4x,a)') '</t
          write (AllHtml, '(4x,a)') '<td classs="light
          write (AllHtml, '(6x,a)') 'phone: '//
     *        StaffLine(Tab(8)+1:Tab(9)-1)
          write (AllHtml, '(6x,a)') '<br 
          write (AllHtml, '(6x,a)') 'fax:   '//
     *        StaffLine(Tab(12)+1:Tab(13)-1)
          write (AllHtml, '(4x,a)') '</t
          write (AllHtml, '(2x,a)') '</t
              write (PhotoHtml, '(2x,a)') '<t
              write (PhotoHtml, '(2x,a)') '</t
              write (PhotoHtml, '(2x,a)') '<t
          write (PhotoHtml, '(4x,a)') '<td class="light
              write (PhotoHtml, '(6x,a)')
     *            '<img src="http://walrus.wr.usgs.gov
     *            StaffLine(Tab(16)+1:Tab(17)-1)//'" '//
     *            'border="1" width="100" '//
     *            'alt="photo of '//StaffLine(1:Tab(1)-1)//'">
                  write (PhotoHtml, '(6x,a)') ' '
                  write (PhotoHtml, '(6x,a)')
     *                '<img src="http://walrus.wr.usgs.gov
     *                '/infobank/programs/html/tools/einstein.jpg" '//
     *                'border="1" height="100" '//
     *                'alt="Cartoon of Einistein"&g
          write (PhotoHtml, '(6x,a)') '<br 
          write (PhotoHtml, '(6x,a)') '<a href="
     *        'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/staff/'//
     *        StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        StaffLine(Tab(3)+1:Tab(4)-1)//'.html">
     *        '<b>'//StaffLine(1:Tab(1)-1)//'<
          write (PhotoHtml, '(4x,a)') '</t
          write (LetterHtml, '(2x,a)') '<t
          write (LetterHtml, '(4x,a)') '<td class="light
          write (LetterHtml, '(6x,a)') '<a href="
     *        'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/staff/'//
     *        StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        StaffLine(Tab(3)+1:Tab(4)-1)//'.html">
     *        '<b>'//StaffLine(1:Tab(1)-1)//'<
          write (LetterHtml, '(6x,a)') '<br 
          write (LetterHtml, '(6x,a)') StaffLine(Tab(13)+1:Tab(14)-1)
          write (LetterHtml, '(4x,a)') '</t
          write (LetterHtml, '(4x,a)') '<td class="light
              write (LetterHtml, '(6x,a)') ' '
              write (LetterHtml, '(6x,a)')
     *          '<img alt=".gif of email address" 
     *          'src="http://walrus.wr.usgs.gov'//
     *          '/infobank/programs/html/staff2html/gifs/'//
     *          StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *          StaffLine(Tab(3)+1:Tab(4)-1)//'.gif" '//
     *          'border="0" height="17"&g
          write (LetterHtml, '(4x,a)') '</t
          write (LetterHtml, '(4x,a)') '<td class="light
          write (LetterHtml, '(6x,a)') 'phone: '//
     *        StaffLine(Tab(8)+1:Tab(9)-1)
          write (LetterHtml, '(6x,a)') '<br 
          write (LetterHtml, '(6x,a)') 'fax:   '//
     *        StaffLine(Tab(12)+1:Tab(13)-1)
          write (LetterHtml, '(4x,a)') '</t
          write (LetterHtml, '(2x,a)') '</t
      write (LetterHtml, 32)
      write (AllHtml, '(a)') '</tabl
      write (PosterHtml, '(a)') '</t
      write (PosterHtml, '(a)') '</tabl
      write (PosterHtml, '(a)') '</di
      write (PhotoHtml, '(2x,a)') '</t
      write (PhotoHtml, '(a)') '</tabl

      open (unit = StaffList,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'old',
     *      name = '/infobank/programs/keep/staff.keep')
      open (unit = AllHtml,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *      name = '/infobank/programs/html/staff2html/staff.html')
      open (unit = PosterHtml,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *     name = '/infobank/programs/html/staff2html/staffposter.html')
      open (unit = PhotoHtml,
     *      form = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown',
     *      name = '/infobank/programs/html/staff2html/photos.html')
              open (unit = LetterHtml,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/programs/html/staff2html/'//
     *          SmallLetter//'_names'//'.html')
          open (unit = PersonHtml,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'unknown',
     *          name = '/infobank/programs/html/staff2html/staff/'//
     *          StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *          StaffLine(Tab(3)+1:Tab(4)-1)//'.html')

          call changecase ('SMALLS', StaffLine(Tab(11)+1:Tab(12)-1))
      call htmlhead (AllHtml, 'WCMG Staff') 
      call includeit (AllHtml, 
     *    '/infobank/programs/html/tools/home.tabs')
              call includeit (AllHtml, 
     *            '/infobank/programs/html/tools/home.uses.tabs')
              call includeit (AllHtml, 
     *            '/infobank/programs/html/tools/home.cmgstaff.tabs')
              call includeit (AllHtml, 
     *          '/infobank/programs/html/tools/home.cmgfacilities.tabs')
              call includeit (AllHtml, 
     *          '/infobank/programs/html/tools/home.cmgdirections.tabs')
       call includeit (AllHtml, '/infobank/programs/keep/contents.keep')
      call htmlhead (PosterHtml, 'WCMG Staff') 
      call includeit (PosterHtml, 
     *    '/infobank/programs/html/tools/home.tabs')
              call includeit (PosterHtml, 
     *            '/infobank/programs/html/tools/home.uses.tabs')
              call includeit (PosterHtml, 
     *            '/infobank/programs/html/tools/home.cmgstaff.tabs')
              call includeit (PosterHtml, 
     *          '/infobank/programs/html/tools/home.cmgfacilities.tabs')
              call includeit (PosterHtml, 
     *          '/infobank/programs/html/tools/home.cmgdirections.tabs')
      call includeit (PosterHtml,
     *       '/infobank/programs/keep/contents.keep')
      call htmlhead (PhotoHtml, 'WCMG Staff Photos') 
      call includeit (PhotoHtml, 
     *    '/infobank/programs/html/tools/home.tabs')
              call includeit (PhotoHtml, 
     *            '/infobank/programs/html/tools/home.uses.tabs')
              call includeit (PhotoHtml, 
     *            '/infobank/programs/html/tools/home.cmgstaff.tabs')
              call includeit (PhotoHtml, 
     *          '/infobank/programs/html/tools/home.cmgfacilities.tabs')
              call includeit (PhotoHtml, 
     *          '/infobank/programs/html/tools/home.cmgdirections.tabs')
      call includeit 
     *        (PhotoHtml, '/infobank/programs/keep/contents.keep')
          call changecase ('SMALLS', StaffLine(Tab(11)+1:Tab(12)-1))
                  call changecase ('SMALLS', SmallLetter)
                  call stringlen (Path, PathLength)
                  call htmlfoot (LetterHtml, Path(1:PathLength))
              call changecase ('SMALLS', SmallLetter)
              call htmlhead (LetterHtml, 'WCMG Staff: "'//
     *            BigLetter//'" names')
              call includeit (LetterHtml, 
     *            '/infobank/programs/html/tools/home.tabs')
              call includeit (LetterHtml, 
     *            '/infobank/programs/html/tools/home.uses.tabs')
              call includeit (LetterHtml, 
     *            '/infobank/programs/html/tools/home.cmgstaff.tabs')
              call includeit (LetterHtml, 
     *          '/infobank/programs/html/tools/home.cmgfacilities.tabs')
              call includeit (LetterHtml, 
     *          '/infobank/programs/html/tools/home.cmgdirections.tabs')
              call includeit (LetterHtml, 
     *            '/infobank/programs/keep/contents.keep')
          call htmlhead (PersonHtml, 'WCMG Staff: '//
     *        StaffLine(1:Tab(1)-1))
          call includeit (PersonHtml, 
     *        '/infobank/programs/html/tools/home.tabs')
          call includeit (PersonHtml, 
     *        '/infobank/programs/html/tools/home.uses.tabs')
          call includeit (PersonHtml, 
     *        '/infobank/programs/html/tools/home.cmgstaff.tabs')
          call includeit (PersonHtml, 
     *        '/infobank/programs/html/tools/home.cmgfacilities.tabs')
          call includeit (PersonHtml, 
     *        '/infobank/programs/html/tools/home.cmgdirections.tabs')
          call includeit (PersonHtml, 
     *        '/infobank/programs/keep/contents.keep')
          call changecase ('SMALLS', 
     *                     LowerCaseStaffLine(1:StaffLineLength))
          call changecase ('SMALLS',
     *                     LowerCaseStaffLine(1:StaffLineLength))
          call htmlfoot (PersonHtml, 
     *        'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/stafflist/staff/'//
     *        StaffLine(Tab(2)+1:Tab(3)-1)//'_'//
     *        StaffLine(Tab(3)+1:Tab(4)-1)//'.html')
      call changecase ('SMALLS', SmallLetter)
      call stringlen (Path, PathLength)
      call htmlfoot (LetterHtml, Path(1:PathLength))
      call htmlfoot (PosterHtml, 'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/staffposter.html')
      call htmlfoot (AllHtml, 'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/staff.html')
      call htmlfoot (PhotoHtml, 'http://walrus.wr.usgs.gov/infobank/'//
     *        'programs/html/staff2html/photos.html')