USGS InfoBank program -- fieldplans

fieldplans

  Program to convert tab-delimited field plan table to .html
    

  Clint Steele     1/21/05


    

 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')

    

 read (80, '(q,a)', end=80) ALineLength, ALine(1:ALineLength)
     read (90, '(q,a)', end = 99)
*        ALineLength, ALine(1:ALineLength)

    

 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>'
    

  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')