Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- scientists2idshtml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
scientists2idshtml
Synopsis
/infobank/programs/html/scientists2idshtml/scientists2idshtml.for
Description
  Program to convert a list of scientific cruise into 

  <scientist>_ids.html files for each p
       
AUTHOR
  Clint Steele    5/2/96

  added subroutine scientistsphotos2html to
  upload photos and information about the 
  scientist 
  Sumy Tom        8/3/09
  modified to handle change from <br> to <br /> tag
  Carolyn Degnan  8/25/10

    
Reads
          read (95, '(q,a)', end = 3990)
     *          InfoLength, Info(1:InfoLength)
          read (ScientistsList, '(q,a)', end = 99)
     *         ALineLength, ALine(1:ALineLength)
          read (ALine(1:ALineLength), '(a29)') 
     *          ScientistName
       read(StaffList, '(q,a)', end = 899)
     *      StaffLineLength, StaffLine(1:StaffLineLength)
Writes
          write (Command, '(255x)')
      write (SummaryFile, '(2x,a)') '<t
      write (SummaryFile, '(4x,a)') '<td align="right
      write (SummaryFile, '(6x,a)') 
     *    '<b>Last Name
      write (SummaryFile, '(4x,a,/)') '</t
      write (SummaryFile, '(4x,a)') '<t
      write (SummaryFile, 33) (BigAlphabet(CountA:CountA),
     *                         BigAlphabet(Counta:Counta),
     *                         CountA = 1,26)
      write (SummaryFile, '(4x,a)') '</t
      write (SummaryFile, '(2x,a,/)') '</t
      write (SummaryFile, '(a)') '<br 
      write (SummaryFile, '(a)') '<di
      write (SummaryFile, '(a)') '<table class = "info" width="600
      write (SummaryFile, '(2x,a)') '<t
      write (SummaryFile, '(4x,a)') '<t
      write (SummaryFile, '(6x,a)') 'This provides '//
     *                              '<b>participant</b&g
     *                              'access to Field Activity '//
     *                              'metadata and data.<br 
      write (SummaryFile, '(6x,a)') '<u
      write (SummaryFile, '(8x,a)') '<l
      write (SummaryFile, '(10x,a)') 'Participant-based collections '//
     *                               'are available both as Activity '//
     *                               'ID-based pages and '//
     *                               'geographically on Google Earth.' 
      write (SummaryFile, '(8x,a)') '</li>&
      write (SummaryFile, '(8x,a)') '<l
      write (SummaryFile, '(10x,a)') 'The analog material holdings '//
     *                               'for each participant are also '//
     *                               'available as web pages.'
      write (SummaryFile, '(8x,a)') '</li>&
      write (SummaryFile, '(6x,a)') '</u
      write (SummaryFile, '(4x,a)') '</t
      write (SummaryFile, '(4x,a)') '<t
       write (SummaryFile, '(6x,a)')
     *     '<img src = "http://walrus.wr.usgs.gov/
     *     'infobank/programs/html/training/IBDemo/'//
     *     'rawjpg/ByParticipant.jpg" alt = "Participants" '//
     *     'width = "200"/&g
      write (SummaryFile, '(4x,a)') '</t
      write (SummaryFile, '(2x,a)') '</t
      write (SummaryFile, '(a)') '</tabl
      write (SummaryFile, '(a)') '</di
       write (SummaryFile, '(6x,a)') 
     *     '<table class="noborder" align="center" 
       write (SummaryFile, '(8x,a)') '<t
       write (SummaryFile, '(10x,a,/)') '<td width="5%">   
       write (SummaryFile, '(10x,a)') '<t
          write (Command,      '(255x)')
          write (ScientistName, '(60x)')
                 write (SummaryFile, '(18x,a,/,16x,a,/,14x,a,/,12x,a)')
     *               '</table>','</td>','</
             write (SummaryFile, '(2x,a)') '<br 
             write (SummaryFile, '(2x,a)') 
     *              '<table class="border">
             write (SummaryFile, '(4x,a)') '<td align="right
             write (SummaryFile, '(6x,a)') 
     *                      '<b>First Letter
             write (SummaryFile, '(4x,a,/)') '</t
             write (SummaryFile, '(4x,a)') '<t
             write (SummaryFile, 33) (BigAlphabet(CountA:CountA),
     *                         BigAlphabet(Counta:Counta),
     *                         CountA = 1,26)
             write (SummaryFile, '(4x,a)') '</t
             write (SummaryFile, '(2x,a,/)') '</tr><
             write (SummaryFile, 37) ALine(2:2), ALine(2:2)
          write (OneName, '(60x)')
          write (Command, 2) ScientistName(1:NameLength)
          write (Command, 22) ScientistName(1:NameLength)
          write (HtmlName, '(255x)')
          write (HtmlName, 5) LastLetter,OneName(1:NameLength)
          write (Title, '(a)') 
     *        'CMG Activities by Participant ('//
     *        ScientistName(1:NameLength)//
     *        ')'
         write (Path, 7) LastLetter, OneName(1:NameLength)
         write (HoldingsPath, '(255x)')
         write (HoldingsPath, '(a)')
     *       '/infobank/programs/html/containerhtmls4scientists/'//
     *       'scientists/'//OneName(1:NameLength)//'.html'
         write (SummaryFile, '(20x,a)') '<t
         write (SummaryFile, '(22x,a)') 
     *       '<td width=16 align="center" class="light
             write (SummaryFile, '(2x,a)')
     *           '<a href="http://walrus.wr.usgs.gov
     *           '/infobank/programs/kml'//
     *           '/participants4kml/participants/'//
     *           OneName(1:NameLength)//'.kmz">
     *           '<img src="http://walrus.wr.usgs.gov
     *           '/infobank/programs/html/tools/'//
     *           'googleearth.jpg" alt="Google Earth icon" '//
     *           'width="12" border="0">&l
             write (SummaryFile, '(2x,a)')
     *           '<a href="http://walrus.wr.usgs.gov
     *           '/infobank/programs/kml'//
     *           '/participants4kml/participants/'//
     *           OneName(1:NameLength)//'.kml">
     *           '<img src="http://walrus.wr.usgs.gov
     *           '/infobank/programs/html/tools/'//
     *           'googleearth.jpg" alt="Google Earth icon" '//
     *           'width="12" border="0">&l
                 write (SummaryFile, '(24x,a)') ' '
         write (SummaryFile, '(22x,a)') '</t
         write (SummaryFile, '(22x,a)')
     *       '<td width=16 align="center" class="light
             write (SummaryFile, '(2x,a)')
     *           '<a href="http://maps.google.com/maps?q=
     *           'http://walrus.wr.usgs.gov'//
     *           '/infobank/programs/kml'//
     *           '/participants4kml/participants/'//
     *           OneName(1:NameLength)//'.kmz&t=h" target="new">
     *           '<img src="http://walrus.wr.usgs.gov
     *           '/infobank/programs/html/tools/'//
     *           'googlemaps.jpg" alt="Google Maps icon" '//
     *           'width="12" border="0">&l
             write (SummaryFile, '(2x,a)')
     *           '<a href="http://maps.google.com/maps?q=
     *           'http://walrus.wr.usgs.gov'//
     *           '/infobank/programs/kml'//
     *           '/participants4kml/participants/'//
     *           OneName(1:NameLength)//'.kml&t=h" target="new">
     *           '<img src="http://walrus.wr.usgs.gov
     *           '/infobank/programs/html/tools/'//
     *           'googlemaps.jpg" alt="Google Maps icon" '//
     *           'width="12" border="0">&l
                 write (SummaryFile, '(24x,a)') ' '
         write (SummaryFile, '(22x,a)') '</t
         write (SummaryFile, '(22x,a)') 
     *       '<td width=16 align="center" class="light
             write (SummaryFile, '(24x,a)')
     *           '<a href="http://walrus.wr.usgs.gov
     *           HoldingsPath(1:HoldingsLength)//'">
     *           '<img src="http://walrus.wr.usgs.gov
     *           '/infobank/programs/html/tools/'//
     *           'scroll.gif" alt="scroll icon" '//
     *           'width="12" border="0">&l
             write (SummaryFile, '(24x,a)') ' '
         write (SummaryFile, '(22x,a)') '</t
         write (SummaryFile, '(22x,a)') '<td class="light
             write (SummaryFile, '(24x,a)') 
     *           ' '//
     *           '<a href="http://walrus.wr.usgs.gov
     *           HtmlName(1:HtmlNameLength)//'">
     *           ScientistName(1:NameLength)//'</
             write (SummaryFile, '(24x,a)')
     *           ' '//
     *           ScientistName(1:NameLength)
             write (SummaryFile, '(24x,a)')
     *           SeeAlsoName(1:SeeAlsoNameLength)
         write (SummaryFile, '(22x,a)') '</t
         write (SummaryFile, '(20x,a)') '</t
         write (Pub, '(255x)')
             write (SummaryFile, 332) Pub(1:PubLength)
      write (SummaryFile, 32)
      write (SummaryFile, 430)
        write (IDHtml, '(a)') '</tabl
          write (IDHtml, '(a)') '<table class="border" 
     *      ' rules="all" bgcolor="#ccffff"&g
     *    //             '<tr><td class=
            write (IDHtml, '(6x,a)')'<a href = "
     *            'http://walrus.wr.usgs.gov/infobank/programs/html/'//
     *            'staff2html/photos/'//FullName//'"target = " new ">
     *            '<img src = "http://walrus.wr.usgs.gov/infobank'
     *            '/programs/html/staff2html/photos/'// FullName// 
     *            '"alt = "image of the scientist" height = "200"'
     *            //' border = ""></a> &
           write (IDHtml, '(6x,a)') '<a href = "
     *           'http://walrus.wr.usgs.gov/infobank/programs/html/'//
     *           'staff2html/oldphotos/'//FullName// 
     *           '" target = " new ">'
     *           '<img src = "http://walrus.wr.usgs.gov/infobank
     *           'programs/html/staff2html/oldphotosphotos/'// 
     *           FullName//'" alt = "image of the scientist" '//
     *           ' height = "200" ' //
     *           ' " border = ""></a> &
          write (IDHtml, '(6x,a)') '<b&g
     *           StaffLine(Tab(13)+1:Tab(14)-1)//'</b><br 
          write (IDHtml, '(6x,a)') Address(1:AddressLength)//
     *           '<br />&
          write (IDHtml, '(6x,a)') StaffLine(Tab(8)+1:Tab(9)-1)//
     *           '<br />&
          write (IDHtml, '(6x,a)') StaffLine(Tab(11)+1: Tab(12)-1)//
     *           '<br />&
            write (IDHtml, '(6x,a)')' Professional Interests:'//
     *           '<br />'    
            write (IDHtml, '(6x,a)') PInterest(1:PInterestLength)//
     *           '<br />&
              write (IDHtml, '(6x,a)')'Professional Link:'//
     *              '<br 
              write (IDHtml, '(6x,a)') 
     *          StaffLine(Tab(17)+1:StaffLineLength)//'</td>
          write (IDHtml, '(a)' ) '</tabl
             write (IDHtml, '(a)') 
     *   '<table class="border" rules="all"'
     *         ' bgcolor="#ccffff" height = "200"> 
     *         '<tr><td class=
          write (IDHtml, '(6x,a)') '<b&g
     *           StaffLine(Tab(13)+1:Tab(14)-1)//'</b><br /
          write (IDHtml, '(6x,a)') Address(1:AddressLength) //
     *           '<br />&
          write (IDHtml, '(6x,a)') StaffLine(Tab(8)+1:Tab(9)-1) //
     *           '<br />&l
          write (IDHtml, '(6x,a)') StaffLine(Tab(11)+1: Tab(12)-1) //
     *           '<br />&l
            write (IDHtml, '(6x,a)')' Professional Interests'//
     *           '<br />'    
            write (IDHtml, '(6x,a)') PInterest(1:PInterestLength)//
     *           '<br />&
              write (IDHtml, '(6x,a)')'Professional Link:'//
     *              '<br 
              write (IDHtml, '(6x,a)') 
     *          StaffLine(Tab(17)+1:StaffLineLength)//'</td>
          write (IDHtml, '(a)' ) '</table>'    
          write (IDHtml, '(a)') 
     *       '<table class="border" rules="all" bgcolor="#ccffff"
Opens
          open (unit = 95,
     *          access = 'sequential',
     *          status = 'old',
     *          form = 'formatted',
     *          file = '/infobank/tmp/specialist.temp')
      open (unit   =  ScientistsTotal,
     *      access = 'sequential',
     *      file   = '/infobank/programs/html/'//
     *              'scientists2idshtml/scientists.total',
     *      form   = 'formatted',
     *      status = 'old')
      open (unit   =  SummaryFile,
     *      access = 'sequential',
     *      file   = '/infobank/programs/html/'//
     *              'scientists2idshtml/scientists.html',
     *      form   = 'formatted',
     *      status = 'unknown')
      open (unit   =  ScientistsList,
     *      access = 'sequential',
     *      file   = '/infobank/programs/keep/'//
     *              'scientists.keep',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit = IDHtml,
     *      access = 'sequential',
     *      file   =  HtmlName(1:HtmlNameLength),
     *      form   = 'formatted',
     *      status = 'unknown')
       open (unit    = StaffList,
     *       form    = 'formatted',
     *       access  = 'sequential',
     *       status  = 'old',
     *       name    = '/infobank/programs/keep/staff.keep')
Calls
          call system ('/bin/cat /infobank/'//
     *                 Alphabet(CountA:CountA)//
     *                 '/*/meta/*.infospecialist '//
     *                 '> /infobank/tmp/specialist.tem
          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
      call htmlhead (SummaryFile, 
     *    'CMG Activities by Participant')
      call includeit (SummaryFile,
     *    '/infobank/programs/html/tools/activities.tabs')
      call includeit (SummaryFile,
     *    '/infobank/programs/html/tools/home.fieldwork.tabs')
      call includeit (SummaryFile,
     *    '/infobank/programs/html/tools/activities.participants.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/virtualglobesstart.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/virtualglobesend.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/iconlegendstart.tabs')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/virtualglobeslegend.keep')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/analogmaterialslegend.keep')
      call includeit (SummaryFile,
     * '/infobank/programs/html/tools/iconlegendend.tabs')
      call includeit (SummaryFile,
     *    '/infobank/programs/keep/contents.keep')
              call changecase ('SMALLS', LastLetter)
              call stringlen (SeeAlsoName, SeeAlsoNameLength)
          call stringlen (ScientistName, NameLength)
          call changecase ('Smalls', OneName)
          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
          call stringlen (HtmlName, HtmlNameLength)
          call stringlen (Title, TitleLength)
          call htmlhead (IDHtml, Title(1:TitleLength))
          call includeit (IDHtml,
     *        '/infobank/programs/html/tools/activities.tabs')
          call includeit (IDHtml,
     *    '/infobank/programs/html/tools/activities.participants.tabs')
         call stringlen (Path, PathLength)
         call scientistsphotos2html(ScientistName(1:NameLength),IDHtml)
         call sortids (IDHtml, 'scientists2idshtml', OutputCount,
     *                 Path(1:PathLength))
         call htmlfoot (IDHtml, Path(1:PathLength))
         call stringlen (HoldingsPath, HoldingsLength)
         call stringlen (Pub, PubLength)
         call stringlen (Pub, PubLength)
      call stringlen (Path, PathLength)
      call htmlfoot (SummaryFile, Path(1:PathLength))
       call stringlen (ScientistName, NameLength)
               call stringlen(LName,LNameLength)
              call stringlen(FName, FNameLength)
       call stringlen(FullName, FullNameLength)
       call changecase('SMALL',FullName(1:FullNameLength))
          call stringlen(Address, AddressLength)
                call stringlen(PInterest, PInterestLength)

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/scientists2idshtml/scientists2idshtml.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Tue Jan 7 04:07:34 PST 2014  (chd)