Expanded description
| Topic |
Description |
| Name |
fieldplans |
| Synopsis |
/infobank/programs/html/fieldplans/fieldplans.for |
| Description |
Program to convert tab-delimited field plan table to .html
|
| Author |
Clint Steele 1/21/05
|
| Opens |
open (unit = 80,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/fieldplans.update.temp')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/fieldplans.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/html/fieldplans/fieldplans.html')
|
| Reads |
read (80, '(q,a)', end=80) ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') '</td></tr></table>'
write (91, '(a)') '<p>'
write (91, '(a)') '<table border=0>'
write (91, '(a)') '<tr>'
write (91, '(a)') '<th>Legend</th>'
write (91, '(a)') '<td>'
write (91, '(a)') '<table border=1 bgcolor="#dddddd" '//
* 'cellpadding=5 cellspacing=1>'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td bgcolor="#dddddd">planned</td>'
write (91, '(4x,a)') '<td bgcolor="#ccffcc">completed</td>'
write (91, '(4x,a)') '<td bgcolor="#ff99cc">pending funding</td>'
write (91, '(4x,a)') '<td bgcolor="#ff0000">special</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '</td></tr></table>'
write (91, '(a)') '<p>'
write (91, '(a)') '<table border=1 bgcolor="#dddddd" '//
* 'cellpadding=5 cellspacing=1>'
write (ID, '(2048x)')
write (ShortID, '(2048x)')
write (91, '(2x,a)') '<tr bgcolor="#ccffcc">'
write (91, '(2x,a)') '<tr bgcolor="#ff99cc">'
write (91, '(2x,a)') '<tr bgcolor="#ff0000">'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<th width="5%">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* '</th>'
write (91, '(4x,a)') '<th width="10%">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* '</th>'
write (91, '(4x,a)') '<th>'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* '</th>'
write (91, '(4x,a)')
* '<td align="center">'//
* '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength-3)//'/html/'//
* ID(1:IDLength)//'.meta.html">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//'</a>'//
* '</td>'
write (91, '(4x,a)') '<td align="center">'//
* ' </td>'
write (91, '(4x,a)') '<td align="center">'//
* ALine(Tab(Loop)+1:Tab(Loop+1)-1)//
* '</td>'
write (91, '(2x,a)') '</tr>'
write (91, '(a)') '</table>'
write (91, '(a)') '<table border=0><tr><td>'
|
| Calls |
call system ('/bin/cp '//
* '/we/jon/mop/FY08_Field_Sched.txt '//
* '/tmp/fieldplans.update.temp')
call system ('/bin/sed -e ''s/\"//g'' '//
* '/we/jon/mop/FY08_Field_Sched.txt > '//
* '/tmp/fieldplans.temp')
call htmlhead (91, 'CMG-WR Field Schedule (MOP)')
call includeit (91, '/infobank/programs/html/tools/facs.tabs')
call includeit (91,
* '/infobank/programs/html/tools/home.newfieldwork.tabs')
call includeit (91,
* '/infobank/programs/html/tools/facs.descriptions.tabs')
call includeit (91,
* '/infobank/programs/html/tools/facs.forms.tabs')
call includeit (91,
* '/infobank/programs/html/tools/facs.appendix.tabs')
call includeit (91, '/infobank/programs/keep/contents.keep')
call stringlen (ID, IDLength)
call changecase ('SMALLS', ShortID)
call changecase ('SMALLS', ID)
call stringlen (ShortID, ShortIDLength)
call htmlfoot (91,
* '/infobank/programs/html/fieldplans/fieldplans.html')
|
|