Expanded Description
| Topic |
Description |
| Name |
partialids2html |
| Synopsis |
/infobank/programs/html/partialids2html/partialids2html.for |
| Description |
Program to convert a list of analog information for
partial and unknown IDs into a script that
will generate other_ids.html.
|
| EXECTUION_TIME |
1 second
|
| AUTHOR |
Clint Steele 7/23/96
based on regions2idshtml 3/12/96
|
| Reads |
read (IDList, '(q,a)', end = 999)
* IDLength, ID(1:IDLength)
read (71, '(q,a)', end = 771)
* ALineLength, ALine(1:ALineLength)
read (72, '(q,a)', end = 772)
* ALineLength, ALine(1:ALineLength)
read (73, '(q,a)', end = 773)
* ALineLength, ALine(1:ALineLength)
read (74, '(t10,q,a)', end = 774)
* ALineLength, ALine(1:ALineLength)
read (75, '(t10,q,a)', end = 775)
* ALineLength, ALine(1:ALineLength)
read (76, '(q,a)', end = 776)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (Command, '(255x)')
write (Command, 22)
write (76, 31) ID(1:IDLength),
* CapID(1:IDLength)
write (76, 31) ID(1:IDLength),
* CapID(1:IDLength)
write (71, 31) ID(1:IDLength),
* CapID(1:IDLength)
write (72, 31) ID(1:IDLength),
* CapID(1:IDLength)
write (73, 31) ID(1:IDLength),
* CapID(1:IDLength)
write (73, 31) ID(1:IDLength),
* CapID(1:IDLength)
write (74, 32) ID(3:4),
* ID(1:IDLength),
* ID(1:IDLength),
* CapID(1:IDLength)
write (74, 32) ID(4:5),
* ID(1:IDLength),
* ID(1:IDLength),
* CapID(1:IDLength)
write (75, 32) ID(5:6),
* ID(1:IDLength),
* ID(1:IDLength),
* CapID(1:IDLength)
write (75, 32) ID(6:7),
* ID(1:IDLength),
* ID(1:IDLength),
* CapID(1:IDLength)
write (HtmlName, 25)
write (Title, 26)
write (IDHtml, '(a)') '<br
write (IDHtml, '(a)') '<di
write (IDHtml, '(a)') '<table class = "info" width = "600
write (IDHtml, '(2x,a)') '<t
write (IDHtml, '(4x,a)') '<t
write (IDHtml, '(6x,a)') 'This provides access to '//
* 'Field Activity's '//
* 'data and metadata '//
* 'for <b>incomplete activi
* 'IDs</b>. &
write (IDHtml, '(6x,a)') '<u
write (IDHtml, '(8x,a)') '<l
write (IDHtml, '(10x,a)') 'Data and metadata (typically, '//
* 'physical materials) exist, but '//
* 'one or more of platform/leg/'//
* 'year/place are unknown or '//
* 'questionable. '
write (IDHtml, '(8x,a)') '</li>&
write (IDHtml, '(8x,a)') '<l
write (IDHtml, '(10x,a)') 'With a bit of luck and '//
* 'perseverance these will be '//
* 'complete someday. '
write (IDHtml, '(8x,a)') '</li>&
write (IDHtml, '(6x,a)') '</u
write (IDHtml, '(4x,a)') '</t
write (IDHtml, '(4x,a)') '<t
write (IDHtml, '(6x,a)')
* '<img src = "http://walrus.wr.usgs.gov/infobank/
* 'programs/html/training/IBDemo/rawjpg/'//
* 'WithIncompleteIDs.jpg" '//
* 'alt = "IncompleteIDs" width = "100"/&g
write (IDHtml, '(4x,a)') '</t
write (IDHtml, '(2x,a)') '</t
write (IDHtml, '(a)') '</tabl
write (IDHtml, '(a)') '</di
write (IDHtml, 750) 'IDs unknown by InfoBank'
write (IDHtml, '(a)') ALine(1:ALineLength)
write (IDHtml, 751)
write (IDHtml, 750) 'IDs with a known Platform'
write (IDHtml, '(a)') ALine(1:ALineLength)
write (IDHtml, 751)
write (IDHtml, 750) 'IDs with a known Leg'
write (IDHtml, '(a)') ALine(1:ALineLength)
write (IDHtml, 751)
write (IDHtml, 750) 'IDs with a known Year'
write (IDHtml, '(a)') ALine(1:ALineLength)
write (IDHtml, 751)
write (IDHtml, 750) 'IDs with a known Region'
write (IDHtml, '(a)') ALine(1:ALineLength)
write (IDHtml, 751)
write (IDHtml, 750) 'Odds and Ends'
write (IDHtml, '(a)') ALine(1:ALineLength)
write (IDHtml, 751)
|
| Opens |
open (unit = 71,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_unknown_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 72,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_platform_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 73,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_leg_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 74,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_year_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 75,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_region_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 76,
* access = 'sequential',
* file =
* '/infobank/tmp/partialids2html_oddsandends_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = IDList,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_bad_ids.temp',
* form = 'formatted',
* status = 'old')
open (unit = IDHtml,
* access = 'sequential',
* file = HtmlName,
* form = 'formatted',
* status = 'unknown')
open (unit = 71,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_unknown_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 72,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_platform_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 73,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_leg_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 74,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_year_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 75,
* access = 'sequential',
* file = '/infobank/tmp/partialids2html_region_ids.temp',
* form = 'formatted',
* status = 'unknown')
open (unit = 76,
* access = 'sequential',
* file =
* '/infobank/tmp/partialids2html_oddsandends_ids.temp',
* form = 'formatted',
* status = 'unknown')
|
| Calls |
call system (Command)
call changecase ('CAPITALS', CapID)
call system ('sort '//
* '/infobank/tmp/partialids2html_year_ids.temp >
* '/infobank/tmp/partialids2html_year.temp')
call system ('/bin/mv '//
* '/infobank/tmp/partialids2html_year.temp '//
* '/infobank/tmp/partialids2html_year_ids.temp')
call system ('sort '//
* '/infobank/tmp/partialids2html_region_ids.temp >
* '/infobank/tmp/partialids2html_region.temp')
call system ('/bin/mv '//
* '/infobank/tmp/partialids2html_region.temp '//
* '/infobank/tmp/partialids2html_region_ids.temp')
call stringlen (Title, TitleLength)
call htmlhead (IDHtml, Title(1:TitleLength))
call includeit (IDHtml,
* '/infobank/programs/html/tools/activities.tabs')
call includeit (IDHtml,
* '/infobank/programs/html/tools/home.newfieldwork.tabs')
call includeit (IDHtml,
* '/infobank/programs/html/tools/activities.activities.tabs')
call includeit (IDHtml,
* '/infobank/programs/keep/contents.keep')
call htmlfoot (IDHtml, 'http://walrus.wr.usgs.gov/infobank/'//
* 'programs/html/partialids2html/'//
* 'other_ids.html')
|
|
