| Writes |
write (YearUnit, '(a)') '<table border="0">'
write (YearUnit, '(2x,a)') '<tr>'
write (YearUnit, '(4x,a,/,6x,a,/,4x,a)')
* '<td align="left" valign="top">',
* '<img alt="deployment" '//
* 'src="http://walrus.wr.usgs.gov/infobank/programs/html/'//
* 'openhouse/deploy_169.jpg"'//
* ' width="169">',
* '</td>'
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.',
* '</td>'
write (YearUnit, '(4x,a,/,6x,a,/,4x,a)')
* '<td align="left" valign="top">',
* '<img alt="floats" '//
* 'src="http://walrus.wr.usgs.gov/infobank/programs/html/'//
* 'openhouse/floats_169.jpg"'//
* ' width="169">',
* '</td>'
write (YearUnit, '(2x,a,/,a)')
* '</tr>',
* '</table>'
write (YearUnit, '(a)') '<p>'
write (YearUnit, '(a,/,a,/,a,/,a)')
* '<table border="0" width="500">',
* '<tr><th align="center">'//
* 'Credits</th></tr>',
* '<tr>',
* '<td valign="top">'
write (YearUnit, '(a,/,a)')
* '</td>',
* '<td>'
write (YearUnit, '(a,/,a,/,a,/,a)')
* '<table border="0" width="200">',
* '<tr><th align="center">'//
* 'Click on a number range to see visitors.</th></tr>',
* ' <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)') '<tr>'
write (GroupUnit, '(4x,a)')
* '<th align="center" colspan="5"><strong>'//
* 'Click on a picture to see a larger version.'//
* '</strong></th>'
write (GroupUnit, '(2x,a,/)') '</tr>'
write (GroupUnit, '(2x,a)') '<tr>'
write (FileName, '(255x)')
write (TempName, '(255x)')
write (GroupUnit, '(a,/,a)')
* ' </tr>',' <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">'
write (GroupUnit, '(8x,a)')
* '<img src="http://walrus.wr.usgs.gov'//
* FileName(1:NameLength)//
* '" width="100" alt="'//
* FileName(StartTime+1:EndTime-1)//'">'
write (GroupUnit, '(6x,a)') '</a>'
write (GroupUnit, '(4x,a)') '</td>'
write (PageUnit, '(/,a)') '<table border="0" width="500">'
write (PageUnit, '(2x,a)') '<tr>'
write (PageUnit, '(4x,a)')
* '<td><th align="left"><strong><font size="+2">'//
* TempName(StartTime+1:EndTime-1)//
* '</font></strong></th></td>'
write (MovieName, '(255x)')
write (PageUnit, '(4x,a)')
* '<td><a href="'//MovieName(1:MovieNameLength)//
* '">View video</a>'
write (PageUnit, '(4x,a)') '<td>'
write (PageUnit, '(4x,a)') '</td>'
write (PageUnit, '(4x,a)') '<td align="right">'
write (PageUnit, '(6x,a)')
* '<a href="http://walrus.wr.usgs.gov/infobank'//
* '/programs/html/openhouse/'//Year//'.html">'
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">'
write (PageUnit, '(6x,a)') '</a>'
write (PageUnit, '(4x,a)') '</td>'
write (PageUnit, '(2x,a,/)') '</tr>'
write (PageUnit, '(2x,a)') '<tr>'
write (PageUnit, '(4x,a)') '<td colspan="4">'
write (PageUnit, '(a)')
* '<img src="'//FileName(1:NameLength)//'">'
write (PageUnit, '(4x,a,/)') '</td>'
write (PageUnit, '(2x,a,/)') '</tr>'
write (PageUnit, '(a,/)') '</table>'
write (GroupUnit, '(a,/,a)')
* ' </tr>',
* '</table>'
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,/)') '</td>'
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">'
write (GroupUnit, '(8x,a)') '<br>'
write (GroupUnit, '(8x,a)') 'previous set'
write (GroupUnit, '(6x,a)') '</a>'
write (GroupUnit, '(4x,a,/)') '</td>'
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">'
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">'
write (GroupUnit, '(8x,a)') '<br>'
write (GroupUnit, '(8x,a)') 'back to number list page'
write (GroupUnit, '(6x,a)') '</a>'
write (GroupUnit, '(4x,a,/)') '</td>'
write (GroupUnit, '(4x,a)') '<td align="center" width="100">'
write (GroupUnit, '(6x,a)') ' '
write (GroupUnit, '(4x,a,/)') '</td>'
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">'
write (GroupUnit, '(8x,a)') '<br>'
write (GroupUnit, '(8x,a)') 'next set'
write (GroupUnit, '(6x,a)') '</a>'
write (GroupUnit, '(4x,a)') '</td>'
write (GroupUnit, '(2x,a)') '</tr>'
write (YearUnit, '(2x,a)') '<tr>'
write (YearUnit, '(4x,a)') '<td>'
write (YearUnit, 9) Year, Group
write (YearUnit, 90) SetStart(Group), SetEnd(Group)
write (YearUnit, '(6x,a)') '</a>'
write (YearUnit, '(4x,a)') '</td>'
write (YearUnit, '(2x,a)') '</tr>'
write (GroupUnit, '(a)') '</table>'
write (YearUnit, '(a)')
* '</table>'
write (YearUnit, '(a,/,a,/,a)')
* '</td>',
* '</tr>',
* '<table>'
write (YearUnit, '(a)') '</table>'
write (YearUnit, '(a,a,a)')
* '<p><p><strong><a href="'//
* 'http://marine.usgs.gov/find.html">',
* 'USGS Marine Geologists pages',
* '</a></strong>'
|
