Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- openhouse

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
openhouse
Synopsis
/infobank/programs/html/openhouse/openhouse.for
Description
  Program to generate "visiting marine geologists" pages

  for USGS Open House.
       
AUTHOR
  Clint Steele  4/28/2000

  Clint Steele generalized for years      5/23/03
    
Reads
          read (TempUnit, '(q,a)', end = 499) 
     *        PhotoNameLength, PhotoName(1:PhotoNameLength)
          read (PhotoName(47:49), '(i3)') Day
          read (PhotoName(UnderScore+1:Dot-1), '(i)') Time
          read (TempUnit, '(q,a)') 
     *          NameLength, FileName(1:NameLength)
          read (FileName(StartTime+11:EndTime-1), '(i)') Time
Writes
      write (YearUnit, '(a)') '<table border="0
      write (YearUnit, '(2x,a)') '<t
      write (YearUnit, '(4x,a,/,6x,a,/,4x,a)')
     *    '<td  align="left" valign="top"
     *    '<img alt="eagle" 
     *    'src="http://walrus.wr.usgs.gov/infobank/programs/html/'//
     *    'openhouse/2009/images/135/Photo_239.jpg"'// 
     *    ' width="169">
     *    '</t
      write (YearUnit, '(4x,a,/,6x,a,/,4x,a)')
     *    '<td align="center" valign="middle"
     *    'See the absolutely adorable, '//'<br&
     *    'the normal, and '//'<br&
     *    'the normally normal.',
     *    '</t
      write (YearUnit, '(4x,a,/,6x,a,/,4x,a)')
     *    '<td align="left" valign="top"
     *    '<img alt="reel" 
     *    'src="http://walrus.wr.usgs.gov/infobank/programs/html/'//
     *    'openhouse/2009/images/136/Photo_135.jpg"'// 
     *    ' width="169">
     *    '</t
      write (YearUnit, '(2x,a,/,a)')
     *    '</tr
     *    '</tabl
      write (YearUnit, '(a)') '<
      write (YearUnit, '(a,/,a,/,a,/,a)')
     *       '<table border="0" width="500"
     *       '<tr><th align="ce
     *       'Credits</th>&
     *       '<tr
     *       '<td valign="top
      write (YearUnit, '(a,/,a)')
     *       '</td
     *       '<t
      write (YearUnit, '(a,/,a,/,a,/,a)')
     *       '<table border="0" width="200"
     *       '<tr><th align="ce
     *       'Click on a number range to see visitors.</th>&
     *       '  <tr
     *       '    <td align="center" valign="top
      write (YearUnit, '(a)')
     *       '      <table border="3" bgcolor="#ccffff
          write (HtmlName, '(255x)')
          write (HtmlName, '(a,i3.3,a)')
     *       '/infobank/programs/html/openhouse/'//Year//'/',
     *       Group, '.html'
          write (GroupUnit, '(a)')    '<table border="0
          write (GroupUnit, '(2x,a)') '<t
          write (GroupUnit, '(4x,a)')
     *        '<th align="center" colspan="5"><s
     *        'Click on a picture to see a larger version.'//
     *        '</strong>
          write (GroupUnit, '(2x,a,/)') '</t
          write (GroupUnit, '(2x,a)') '<t
          write (FileName, '(255x)')
          write (TempName, '(255x)')
              write (GroupUnit, '(a,/,a)')
     *              '  </tr>',' 
          write (GroupUnit, '(4x,a)')
     *       '<td align="center" valign="top" width="100
          write (GroupUnit, '(6x,a)')
     *       '<a href="http://walrus.wr.usgs.gov/infobank
     *       '/programs/html/openhouse/'//Year//'/pages/'//
     *       FileName(StartTime+1:EndTime-1)//'.html"&g
          write (GroupUnit, '(8x,a)')
     *       '<img src="http://walrus.wr.usgs.gov
     *        FileName(1:NameLength)//
     *       '" width="100" alt="'//
     *       FileName(StartTime+1:EndTime-1)//'"&g
          write (GroupUnit, '(6x,a)') '</
          write (GroupUnit, '(4x,a)') '</t
          write (PageUnit, '(/,a)')  '<table border="0" width="500
          write (PageUnit, '(2x,a)') '<t
          write (PageUnit, '(4x,a,i4.4,a)')
     *       '<td><th align="left"><strong>&
     *       'Photo '//FileName(StartTime+1:StartTime+3), Time,
     *       '</font></strong>
          write (PageUnit, '(4x,a)') '<td align="right
          write (PageUnit, '(6x,a)')
     *        '<a href="http://walrus.wr.usgs.gov/infobank
     *        '/programs/html/openhouse/'//Year//'.html"&g
          write (PageUnit, '(8x,a)') 
     *        'back to number list page'
          write (PageUnit, '(8x,a)')
     *        '<img src="http://walrus.wr.usgs.gov/infobank
     *        '/programs/html/tools/up2.gif"'//
     *        ' width="25" height="25"'//
     *        ' alt="up arrow" border="0"&g
          write (PageUnit, '(6x,a)') '</
          write (PageUnit, '(4x,a)') '</t
          write (PageUnit, '(2x,a,/)') '</t
          write (PageUnit, '(2x,a)') '<t
          write (PageUnit, '(4x,a)') '<td colspan="4
          write (PageUnit, '(a)')
     *        '<img src="'//FileName(1:NameLength)//'
          write (PageUnit, '(4x,a,/)') '</t
          write (PageUnit, '(2x,a,/)') '</t
          write (PageUnit, '(a,/)')  '</tabl
          write (CallString, '(a,i7.7,a)')
     *       'http://walrus.wr.usgs.gov/infobank'//
     *       '/programs/html/openhouse/'//Year//'/pages/',
     *       (Day*10000)+Time,'.html'
      write (GroupUnit, '(a,/,a)')
     *    '  </tr
     *    '</tabl
      write (GroupUnit, '(a)')    '<table border="0" width="500
      write (GroupUnit, '(2x,a)') '<tr align="center
      write (GroupUnit, '(4x,a)') '<td align="center" width="100
          write (GroupUnit, '(6x,a)') ' '
          write (GroupUnit, '(4x,a,/)') '</t
          write (GroupUnit, 7) Year, Group - 1
          write (GroupUnit, '(8x,a)')
     *        '<img src="http://walrus.wr.usgs.gov/infobank
     *        '/programs/html/tools/left3.gif"'//
     *        ' width="25" height="25"'//
     *        ' alt="left arrow" border="0"&g
          write (GroupUnit, '(8x,a)') '<b
          write (GroupUnit, '(8x,a)') 'previous set'
          write (GroupUnit, '(6x,a)') '</
          write (GroupUnit, '(4x,a,/)') '</t
      write (GroupUnit, '(4x,a)') '<td align="center" width="240
      write (GroupUnit, '(6x,a)')
     *        '<a href="http://walrus.wr.usgs.gov/infobank
     *        '/programs/html/openhouse/'//Year//'.html"&g
      write (GroupUnit, '(8x,a)')
     *        '<img src="http://walrus.wr.usgs.gov/infobank
     *        '/programs/html/tools/up2.gif"'//
     *        ' width="25" height="25"'//
     *        ' alt="up arrow" border="0"&g
      write (GroupUnit, '(8x,a)') '<b
      write (GroupUnit, '(8x,a)') 'back to number list page'
      write (GroupUnit, '(6x,a)') '</
      write (GroupUnit, '(4x,a,/)') '</t
      write (GroupUnit, '(4x,a)') '<td align="center" width="100
          write (GroupUnit, '(6x,a)')   ' '
          write (GroupUnit, '(4x,a,/)') '</t
          write (GroupUnit, 8) Year, Group + 1
          write (GroupUnit, '(8x,a)')
     *        '<img src="http://walrus.wr.usgs.gov/infobank
     *        '/programs/html/tools/right3.gif"'//
     *        ' width="25" height="25"'//
     *        ' alt="right arrow" border="0"&g
          write (GroupUnit, '(8x,a)') '<b
          write (GroupUnit, '(8x,a)') 'next set'
          write (GroupUnit, '(6x,a)') '</
          write (GroupUnit, '(4x,a)') '</t
      write (GroupUnit, '(2x,a)') '</t
      write (YearUnit, '(2x,a)') '<t
      write (YearUnit, '(4x,a)') '<t
      write (YearUnit, 9) Year, Group
      write (YearUnit, 90) SetStart(Group), SetEnd(Group)
      write (YearUnit, '(6x,a)') '</
      write (YearUnit, '(4x,a)') '</t
      write (YearUnit, '(2x,a)') '</t
      write (GroupUnit, '(a)') '</tabl
      write (YearUnit, '(a)') 
     *    '</tabl
      write (YearUnit, '(a,/,a,/,a)')
     *    '</td
     *    '</tr
     *    '<tabl
      write (YearUnit, '(a)') '</tabl
      write (YearUnit, '(a,a,a)')
     *        '<p><p><stro
     *        'http://marine.usgs.gov/find.html">
     *        'USGS Marine Geologists pages',
     *        '</a><
Opens
      open (unit   = YearUnit,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown',
     *      name = 
     *       '/infobank/programs/html/openhouse/'//Year//'.html')
      open (unit   = TempUnit,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old',
     *      name   = '/infobank/tmp/openjpgs.temp')
      open (unit   = TempUnit,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old',
     *      name   = '/infobank/tmp/openjpgs.temp')
          open (unit   = GroupUnit,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = HtmlName(1:HtmlNameLength))
          open (unit   = PageUnit,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'unknown',
     *          name   = 
     *             '/infobank/programs/html/openhouse/'//
     *             Year//'/pages/'//
     *                 FileName(StartTime+1:EndTime-1)//'.html')
Calls
      call htmlhead (YearUnit, 
     *       'Open House '//Year//' Visiting Marine Geologists')
      call includeit (YearUnit, 
     *       '/infobank/programs/html/tools/more.tabs')
      call includeit (YearUnit, 
     *       '/infobank/programs/html/tools/more.databases.tabs')
      call includeit (YearUnit, 
     *       '/infobank/programs/html/tools/more.validators.tabs')
      call includeit (YearUnit, 
     *       '/infobank/programs/html/tools/more.othertopics.tabs')
      call includeit (YearUnit, '/infobank/programs/keep/contents.keep')
      call includeit (YearUnit, 
     *       '/infobank/programs/html/openhouse/2009/2009credits.keep')
       call system ('ls -1 '//
     *      '/infobank/programs/html/openhouse/'//
     *      Year//'/images/134/*.jpg > 
     *      '/infobank/tmp/openjpgs.temp')
       call system ('ls -1 '//
     *      '/infobank/programs/html/openhouse/'//
     *      Year//'/images/135/*.jpg >&g
     *      '/infobank/tmp/openjpgs.temp')
       call system ('ls -1 '//
     *      '/infobank/programs/html/openhouse/'//
     *      Year//'/images/136/*.jpg >&g
     *      '/infobank/tmp/openjpgs.temp')
       call system ('ls -1 '//
     *      '/infobank/programs/html/openhouse/'//
     *      Year//'/images/137/*.jpg >&g
     *      '/infobank/tmp/openjpgs.temp')
       call system ('ls -1 '//
     *      '/infobank/programs/html/openhouse/'//
     *      Year//'/images/138/*.jpg >&g
     *      '/infobank/tmp/openjpgs.temp')
          call stringlen (HtmlName, HtmlNameLength)
          call htmlhead (GroupUnit, 
     *       'Open House '//Year//' Visiting Marine Geologists')
          call includeit (GroupUnit, 
     *       '/infobank/programs/html/tools/more.tabs')
          call includeit (GroupUnit,
     *       '/infobank/programs/html/tools/more.databases.tabs')
          call includeit (GroupUnit,
     *       '/infobank/programs/html/tools/more.validators.tabs')
          call includeit (GroupUnit,
     *       '/infobank/programs/html/tools/more.othertopics.tabs')
          call includeit (GroupUnit, 
     *       '/infobank/programs/keep/contents.keep') 
          call htmlhead (PageUnit, 
     *       'Open House '//Year//' Visiting Marine Geologists')
          call includeit (PageUnit, 
     *       '/infobank/programs/html/tools/more.tabs')
          call includeit (PageUnit,
     *       '/infobank/programs/html/tools/more.databases.tabs')
          call includeit (PageUnit,
     *       '/infobank/programs/html/tools/more.validators.tabs')
          call includeit (PageUnit,
     *       '/infobank/programs/html/tools/more.othertopics.tabs')
          call includeit (PageUnit, 
     *       '/infobank/programs/keep/contents.keep') 
          call stringlen (CallString, CallStringLength)
          call htmlfoot (PageUnit, CallString(1:CallStringLength))
      call htmlfoot (GroupUnit, 'http://walrus.wr.usgs.gov'//
     *     HtmlName(1:HtmlNameLength))
      call htmlfoot (YearUnit, 'http://walrus.wr.usgs.gov'//
     *     'http://walrus.wr.usgs.gov/infobank/programs/html/'//
     *     'openhouse/'//Year//'.html')

Skip footer navigational links

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


Accessibility FOIA Privacy Policies and Notices

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