| Writes |
write (AFile, '(2048x)')
write (ContainerName, '(i5.5)') ContainerLoop
write (ContainerFile, '(255x)')
write (Title, '(255x)')
write (Title, '(a)')
* 'Activity Physical Data: '//
* 'Container '//ContainerName(1:5)
write (91, '(4x,a)') '</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (ALine, '(2048x)')
write (91, '(a)') '<p>'
write (91, '(a)') '<table border="0">'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td>'
write (91, '(a)') '<table border="3" bgcolor="ccffff">'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td>'
write (91, '(6x,a)') '<b>Location of Container:</b>'
write (91, '(4x,a)') '<br>'
write (91, '(6x,a)') ALine(Tab(2)+1:Tab(3)-1)//
* ', '//ALine(Tab(3)+1:Tab(4)-1)//
* ', '//ALine(Tab(4)+1:Tab(5)-1)//
* ', '//ALine(Tab(5)+1:Tab(6)-1)//
* ', '//ALine(Tab(6)+1:Tab(7)-1)
write (91, '(4x,a)') '</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(4x,a)') '</td>'
write (91, '(4x,a)') '<td valign="top">'
write (91, '(6x,a)') 'For lat/long information,'
write (91, '(6x,a)') 'click the Activity ID link, then...'
write (91, '(6x,a)') '<br>'
write (91, '(6x,a)') '<img src="http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/tools/'//
* 'MetadataDataBar.jpg" '//
* 'alt="page section highlighting '//
* 'Samples and samp(GE GM)"'
write (91, '(6x,a)') '<br>'
write (91, '(6x,a)') '<font color="red">1</font>: '//
* 'see list of samples;'
write (91, '(6x,a)') '<font color="red">2</font>: '//
* 'see samples in Google Earth;'
write (91, '(6x,a)') '<font color="red">3</font>: '//
* 'see samples in Google Maps.'
write (91, '(4x,a)') '</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '<p>'
write (91, '(a)') '<table border="1" bgcolor="ccffff">'
write (91, '(2x,a)')
* '<tr bgcolor="00ffff" align="center">'
write (91, '(4x,a)') '<th>Item #</th>'
write (91, '(4x,a)')
* '<th>'//
* Header(ThisHeader)
* (HeaderTab(ThisHeader,Loop)+1:HeaderTab(ThisHeader,Loop+1)-1)//
* '</th>'
write (91, '(2x,a)') '</tr>'
write (ALine, '(2048x)')
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td align="center">'//
* ALine(1:Tab(1)-1)//' </td>'
write (ShortID, '(20x)')
write (LongID, '(20x)')
write (AccessionName, '(255x)')
write (91, '(4x,a)')
* '<td align="center">'//
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/programs/dbase/accessions/'//
* AccessionName
* (AccessionLength-3:AccessionLength-2)//
* '00s/'//
* AccessionName
* (AccessionLength-3:AccessionLength)//
* '.pdf" target="accessionpdf">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* '</a></td>'
write (91, '(4x,a)')
* '<td align="center">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//' </td>'
write (91, '(4x,a)')
* '<td align="center">'//
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.meta.html"'//
* ' target="new">'//
* ShortID(1:IDLength)//'</a>'//
* ' </td>'
write (91, '(4x,a)')
* '<td align="center">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* ' </td>'
write (91, '(2x,a)') '</tr>'
write (91, '(2x,a)')
* '<tr bgcolor="00ffff" align="center">'
write (91, '(4x,a)') '<th>Item #</th>'
write (91, '(4x,a)')
* '<th>'//
* Header(ThisHeader)
* (HeaderTab(ThisHeader,Loop)+1:HeaderTab(ThisHeader,Loop+1)-1)//
* '</th>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '</td>'
write (91, '(a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '<table border="0" width="90%" '//
* 'align="center" bgcolor="#f3f3f3" '//
* 'cellpadding="0" cellspacing="0">'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td>'
|
