Expanded description
| Topic |
Description |
| Name |
activity |
| Synopsis |
/infobank/programs/util/activity/activity.for |
| Description |
Program to create a new activity ID and Information Bank structure.
|
| Author |
Clint Steele 7/31/96
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/gazette.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/meta/'//LongActivity(1:LongLength)//'.navarea')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/meta/'//LongActivity(1:LongLength)//
* '.operationarea')
open (unit = 94,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/meta/'//LongActivity(1:LongLength)//'.regionarea')
open (unit = 95,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/meta/'//LongActivity(1:LongLength)//'.dates')
open (unit = 96,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/nav/'//LongActivity(1:LongLength)//'.050')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/nav/'//LongActivity(1:LongLength)//'.best_nav_file')
open (unit = 97,
* status = 'new',
* access = 'sequential',
* form = 'formatted',
* name = '/infobank/'//Activity(1:1)//'/'//
* Activity(1:Length)//
* '/meta/'//
* LongActivity(1:LongLength)//'.ids')
|
| Reads |
read (5, '(a)', end = 99) Activity
read (90, '(q,a)', end = 30)
* RecordLength, Record(1:RecordLength)
read (Record(1:Tab(1)-1), '(f)') north
read (Record(1:Tab(1)-1), '(i)') inorth
read (Record(Tab(1)+1:Tab(2)-1), '(f)') south
read (Record(Tab(1)+1:Tab(2)-1), '(i)') isouth
read (Record(Tab(2)+1:Tab(3)-1), '(f)') east
read (Record(Tab(2)+1:Tab(3)-1), '(i)') ieast
read (Record(Tab(3)+1:Tab(4)-1), '(f)') west
read (Record(Tab(3)+1:Tab(4)-1), '(i)') iwest
read (ActivityYear, '(i2)') Year
|
| Writes |
write (Activity, '(80x)')
write (CapShortActivity, '(7x)')
write (LongActivity, '(10x)')
write (SearchDirectory, '(512x)')
write (Command, '(512x)')
write (SearchDirectory, '(512x)')
write (Command, '(512x)')
write (94,
* '(a,t10,f9.5,1x,f9.5,1x,f10.5,1x,f10.5,1x,a)')
* CapShortActivity(1:Length),
* north, south, east, west,
* Record(Tab(8)+1:Tab(9)-1)
write (93,
* '(a,t10,a)')
* CapShortActivity(1:Length),
* Record(Tab(8)+1:Tab(9)-1)
write (92, '(a,t10,f9.5,1x,f9.5,1x,f10.5,1x,f10.5)')
* CapShortActivity(1:Length),
* north-0.25, south+0.25, east-0.25, west+0.25
write (SearchDirectory, '(512x)')
write (Command, '(512x)')
write (SearchDirectory, '(512x)')
write (Command, '(512x)')
write (96, '(a, 1x, f9.5, 1x, f10.5)')
* TimeGap, North-0.25, West+0.25
write (96, '(a, 1x, f9.5, 1x, f10.5)')
* TimeGap, North-0.25, East-0.25
write (96, '(a, 1x, f9.5, 1x, f10.5)')
* TimeGap, South+0.25, East-0.25
write (96, '(a, 1x, f9.5, 1x, f10.5)')
* TimeGap, South+0.25, West+0.25
write (96, '(a, 1x, f9.5, 1x, f10.5)')
* TimeGap, North-0.25, West+0.25
write (90, '(a)')
* '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)
* //'/nav/'//LongActivity(1:LongLength)//'.050'
write (95, '(a,t10,a)')
* CapShortActivity(1:Length),
* '01/01/20'//ActivityYear//' (JD 001) --> '//
* '01/01/20'//ActivityYear//' (JD 001)'
write (95, '(a,t10,a)')
* CapShortActivity(1:Length),
* '01/01/19'//ActivityYear//' (JD 001) --> '//
* '01/01/19'//ActivityYear//' (JD 001)'
write (SearchDirectory, '(512x)')
write (Command, '(512x)')
write (SearchFile, '(512x)')
write (CapShortActivity, '(7x)')
write (97, '(a,t10,a,t30,a)')
* CapShortActivity(1:Length),
* CapActivity(1:LongLength),
* '<A HREF="http://walrus.wr.usgs.gov/infobank/'//
* Activity(1:1)//
* '/'//
* Activity(1:Length)//
* '/html/'//
* LongActivity(1:LongLength)//
* '.meta.html">'//
* CapActivity(1:LongLength)//
* '</A>'
|
| Calls |
call getcwd (CurrentDirectory)
call stringlen (Activity, Length)
call changecase ('SMALLS', Activity(1:Length))
call changecase ('CAPITALS', CapShortActivity(1:Length))
call stringlen (LongActivity, LongLength)
call stringlen (SearchDirectory, SearchLength)
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (SearchDirectory, SearchLength)
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call system ('/bin/echo '//
* Activity(1:Length)//
* ' >> /infobank/programs/gaz/atlaskeepfiles/'//
* 'newactivities.keep')
call system ('sh /infobank/programs/shells/area2atlas '//
* Activity(1:Length))
call system ('/bin/cp '//
* '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)//
* '/meta/'//LongActivity(1:LongLength)//'.navarea '//
* '/infobank/'//Activity(1:1)//'/'
* //Activity(1:Length)//
* '/meta/'//LongActivity(1:LongLength)//'.atlasarea')
call stringlen (SearchDirectory, SearchLength)
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (SearchDirectory, SearchLength)
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (SearchDirectory, SearchLength)
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (SearchFile, SearchLength)
call changecase ('CAPITAL', CapActivity)
call changecase ('CAPITALS', CapShortActivity(1:Length))
call system (
* '/bin/chmod 664 '//
* '/infobank/'//Activity(1:1)//'/'//
* Activity(1:Length)//
* '/meta/'//
* LongActivity(1:LongLength)//'.ids'//
* '; /infobank/programs/shells/info2html '//
* Activity(1:Length)//' >& /dev/null')
call system ('/infobank/programs/shells/makefilelist '//
* Activity(1:Length))
call system ('/infobank/programs/shells/info2html '//
* Activity(1:Length))
|
|
