Expanded Description
| Topic |
Description |
| Name |
ids4atlas |
| Synopsis |
/infobank/programs/gaz/ids4atlas/ids4atlas.for |
| Description |
Program to add html links to list of IDs for gazettes.
|
| EXECUTION_TIME |
2 hours
|
| AUTHOR |
Clint Steele 2/1/2002
|
| Reads |
read (83, '(q,a)', end = 849)
* EquipArrayLength(EquipCount),
* EquipArray(EquipCount)(1:EquipArrayLength(EquipCount))
read (80, '(q,a)', end = 999)
* AtlasLineLength, AtlasLine(1:AtlasLineLength)
read (90, '(q,a)', end = 99)
* InFileNameLength,
* InFileName(1:InFileNameLength)
read (91, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (88, '(t30,q,a)', end = 7003)
* BLineLength, BLine(1:BLineLength)
read (77, '(a2,t10,a1,t20,q,a)') ThisNeedRegion,
* LongIDTag,
* NeedLineLength, NeedLine(1:NeedLineLength)
|
| Writes |
write (AtlasLine, '(512x)')
write (ID, '(7x)')
write (Link, '(255x)')
write (Area, '(4x)')
write (Equip, '(50x)')
write (OutFileName, '(1024x)')
write (ImageFileName, '(1024x)')
write (ALine, '(1024x)')
write (SmallID, '(7x)')
write (Link, '(255x)')
write (LongID, '(10x)')
write (LongID, '(10x)')
write (77, '(a,t20,a)')
* SmallID(5:6)//' '//
* SmallID(3:4)//' '//
* SmallID(1:1)//' '//
* SmallID(2:2),
* '<a href="http://walrus.wr.usgs.gov
* '/infobank/'//
* SmallID(1:1)//'/'//
* SmallID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.meta.html">
* CapLongID(1:IDLength+3)//'</
write (77, '(a,t20,a)')
* SmallID(6:7)//' '//
* SmallID(4:5)//' '//
* SmallID(1:1)//' '//
* SmallID(2:3),
* '<a href="http://walrus.wr.usgs.gov
* '/infobank/'//
* SmallID(1:1)//'/'//
* SmallID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.meta.html">
* CapLongID(1:IDLength+3)//'</
write (94, '(a)')
* '<b>Field activities that cross the region
write (94, '(a)') '<table border="1"
* 'width="80%" align="center"&g
write (94, '(2x,a)') '<t
write (94, '(4x,a)')
* '<td valign="bottom" align="center" bgcolor="#ccffff
write (94, '(4x,a)') '</t
write (94, '(2x,a)') '</t
write (94, '(2x,a)') '<t
write (94, '(4x,a)')
* '<td valign="bottom" align="center" bgcolor="#ccffff
write (94, '(6x,a)')
* '<img src="http://walrus.wr.usgs.gov
* ImageFileName(1:ImageFileNameLength)//
* '" alt="map of tracklines" width="150"&g
write (94, '(6x,a)')
* '<img src="http://walrus.wr.usgs.gov
* '/infobank/'//
* SmallID(1:1)//'/'//
* SmallID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//
* '.nodata.gif'//
write (94, '(6x,a)')
* '<br><b>'//BLine(1:BLineLen
write (94, '(6x,a)')
* '<br>'//BLine(1:BLineL
write (94, '(4x,a)') '</t
write (94, '(2x,a,/)') '</t
write (94, '(2x,a)') '<t
write (94, '(2x,a)') '</t
write (94, '(a)') '</tabl
write (94, '(a)') '<
write (94, '(a)') '<table border="1" bgcolor="ccffff
write (94, '(2x,a)') '<t
write (94, '(4x,a)') '<t
write (94, '(6x,a)') '<b>Regio
write (94, '(4x,a)') '</t
write (94, '(4x,a)') '<t
write (94, '(6x,a)') '<b&
* 'IDs infer they cross the region, <br&
* 'but locations are unknown to InfoBank</
write (94, '(4x,a)') '</t
write (94, '(2x,a)') '</t
write (NeedLine, '(512x)')
write (94, '(8x,a)') '</t
write (94, '(6x,a)') '</tabl
write (94, '(4x,a)') '</t
write (94, '(2x,a)') '</t
write (94, '(2x,a)') '<t
write (94, '(4x,a)') '<td align="center
write (94, '(6x,a)')
* AtlasName(Loop)(1:AtlasNameLength)
write (94, '(6x,a)') '<b
write (94, '(6x,a)')
* '<img src=
* '"http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/tools/'//
* 'gl.gif" '//
* 'alt="map of world" width="100"&g
write (94, '(6x,a)')
* '<img src=
* NeedLine(9:67)//
* '.nodata.gif" '//
* 'alt="map stating that positions are needed" '//
* 'width="150"&g
write (94, '(6x,a)')
* '<img src=
* NeedLine(9:69)//
* '.nodata.gif" '//
* 'alt="map stating that positions are needed" '//
* 'width="150"&g
write (94, '(4x,a)') '</t
write (94, '(4x,a)') '<t
write (94, '(6x,a)') '<table border="0
write (94, '(8x,a)') '<t
write (94, '(8x,a)') '</t
write (94, '(8x,a)') '<t
write (94, '(10x,a)') '<t
write (94, '(12x,a)')
* ' '//NeedLine(1:NeedLineLength)
write (94, '(10x,a)') '</t
write (94, '(8x,a)') '</t
write (94, '(6x,a)') '</tabl
write (94, '(4x,a)') '</t
write (94, '(2x,a)') '</t
write (94, '(a)') '</tabl
|
| Opens |
open (unit = 83,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/atlaskeepfiles/'//
* 'equip.dirs.keep')
open (unit = 80,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/gazette.keep')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/atlaskeepfiles/'//
* 'control.ids.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = InFileName(1:InFileNameLength))
open (unit = 94,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFileName(1:OutFileNameLength))
open (unit = 77,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/ids4atlas.needpositions.temp')
open (unit = 88,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* SmallID(1:1)//'/'//
* SmallID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.ids')
open (unit = 77,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name =
* '/infobank/tmp/ids4atlas.needpositions.sorted.temp')
|
| Calls |
call stringlen (EquipArray(1), EquipArrayLength(1))
call changecase ('SMALLS', AtlasID(AtlasCount))
call stringlen (Area, AreaLength)
call stringlen (Equip, EquipLength)
call stringlen (OutFileName, OutFileNameLength)
call stringlen (AtlasName(Loop), AtlasNameLength)
call stringlen (EquipArray(ImageLoop)(1:9), EquipLength)
call changecase ('CAPITALS', Cap(1))
call htmlhead (94, 'CMG InfoBank: '//
* AtlasName(Loop)(1:AtlasNameLength)//' '//
* Cap(1)//
* OutFileName(OutSlash(4)+2:OutSlash(5)-1)//' Activities')
call includeit (94,
* '/infobank/programs/html/tools/atlas.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.hemispheres.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.continents.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.oceans.tabs')
call includeit (94,
* '/infobank/programs/html/tools/atlas.quickpicks.tabs')
call includeit (94,
* '/infobank/programs/keep/contents.keep')
call changecase ('CAPITALS', CapLongID)
call changecase ('CAPITALS', CapLongID)
call stringlen (Link, LinkLength)
call stringlen (ImageFileName, ImageFileNameLength)
call system ('/bin/echo '//
* ImageFileName(1:ImageFileNameLength)//
* ' >> /infobank/programs/g
* 'atlaskeepfiles/IDJPGsNeeded.keep')
call system ('/bin/sort '//
* '/infobank/tmp/ids4atlas.needpositions.temp >
* '/infobank/tmp/ids4atlas.needpositions.sorted.temp')
call system ('/bin/rm '//
* '/infobank/tmp/ids4atlas.needpositions.temp')
call changecase ('CAPITALS', CapThisNeedRegion)
call stringlen (AtlasName(Loop), AtlasNameLength)
call htmlfoot (94, OutFileName(1:OutFileNameLength))
call system ('/bin/sort -u /infobank/programs/gaz/'//
* 'atlaskeepfiles/IDJPGsNeeded.keep >
* '/infobank/tmp/IDJPGsNeeded.temp; '//
* '/bin/mv /infobank/tmp/IDJPGsNeeded.temp '//
* '/infobank/programs/gaz/'//
* 'atlaskeepfiles/IDJPGsNeeded.keep')
|
|
