Expanded Description
| Topic |
Description |
| Name |
imgarc |
| Synopsis |
/infobank/programs/dbase/imgarc/imgarc.for |
| Description |
Program to identify shark::/imgarc/ files for InfoBank.
|
| AUTHOR |
Clint Steele 3/26/2007
Sumy TOm 1/5/20012
Modified line 234 to look for .hst instead of hst
Modified to clean up the existing files
|
| Reads |
read (92, '(q,a)', end = 199)
* IDLength, ID
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)')
* '!Path'//char(9)//
* '!type'//char(9)//
* '!gz'//char(9)//
* '!Dir/File'//char(9)//
* '!Link'
write (ALine, '(1024x)')
write (SmallALine, '(1024x)')
write (TempID, '(20x)')
write (ID, '(20x)')
write (TempID, '(20x)')
write (ID, '(20x)')
write (TempID, '(20x)')
write (ID, '(20x)')
write (TempID, '(20x)')
write (ID, '(20x)')
write (Region, '(2x)')
write (Area, '(50x)')
write (GzType, '(2x)')
write (OutType, '(50x)')
write (LongID, '(10x)')
write (92, '(5a)')
* ALine(Slash(1):ALineLength)//char(9),
* OutType(1:OutTypeLength)//char(9),
* GzType//char(9),
* '/imag1/'//ID(1:1)//'/'//ID(1:IDLength)//'/'//
* 'imag/'//ALine(Slash(SlashCount)+1:ALineLength)//
* char(9),
* '<a href="http://walrus.wr.usgs.gov/infobank
* '/imag1/'//ID(1:1)//'/'//ID(1:IDLength)//'/'//
* 'imag/'//ALine(Slash(SlashCount)+1:ALineLength)//
* '" target="'//OutType(1:OutTypeLength)//'">
* ALine(Slash(SlashCount)+1:ALineLength)//'</
write (93, '(5a)')
* ALine(Slash(1):ALineLength)//char(9),
* OutType(1:OutTypeLength)//char(9),
* GzType//char(9),
* '/infobank/programs/dbase/imgarc/'//Region//'/'//
* ALine(Slash(1):Slash(SlashCount))//
* ALine(Slash(SlashCount)+1:ALineLength)//char(9),
* '<a href="http://walrus.wr.usgs.gov
* ALine(Slash(1):Slash(SlashCount))//
* ALine(Slash(SlashCount)+1:ALineLength)//'">
* ALine(Slash(SlashCount)+1:ALineLength)//'</
write (94, '(5a)')
* ALine(Slash(1):ALineLength)//char(9),
* OutType(1:OutTypeLength)//char(9),
* GzType//char(9),
* '/infobank/programs/dbase/imgarc'//
* ALine(Slash(1):Slash(SlashCount))//
* ALine(Slash(SlashCount)+1:ALineLength)//char(9),
* '<a href="http://walrus.wr.usgs.gov
* ALine(Slash(1):Slash(SlashCount))//
* ALine(Slash(SlashCount)+1:ALineLength)//'">
* ALine(Slash(SlashCount)+1:ALineLength)//'</
|
| Opens |
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/imgarc.ids.temp')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/'//
* Disk(DiskLoop)(1:DiskLength(DiskLoop))//
* '_files.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/'//
* 'imgarc/imgarc_header.keep')
open (unit = 92,
* access = 'append',
* status = 'unknown',
* form = 'formatted',
* name = '/imag1/'//ID(1:1)//'/'//ID(1:IDLength)//
* '/imag/'//LongID(1:IDLength+3)//
* '.imgarcfiles.save',
* err = 98)
open (unit = 93,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/imgarc/'//
* Region//'imgarc_files.save')
open (unit = 94,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/imgarc/'//
* 'glimgarc_files.save')
|
| Calls |
call system ('/bin/ls /infobank/'//Alphabet(Loop:Loop)//
* '>> /infobank/tmp/imgarc.ids.
call system ('/bin/rm /imag1/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/imag/'//
* LongID(1:IDLength+3)//
* '.imgarcfiles.save')
call system ('/bin/rm /infobank/programs/dbase/imgarc/'//
* '??imgarc_files.save')
call stringlen(PrevID, PrevIDLength)
call stringlen (ALine(1:ALineLength), ALineLength)
call changecase ('SMALLS', SmallALine(1:ALineLength))
call stringlen (TempID, TempIDLength)
call stringlen (ID(1:IDLength), IDLength)
call stringlen (TempID, IDLength)
call stringlen (TempID(1:IDLength), IDLength)
call stringlen (ID, IDLength)
call stringlen (Area, AreaLength)
call stringlen (Area, AreaLength)
call stringlen (OutType, OutTypeLength)
call stringlen (OutType, OutTypeLength)
call stringlen (OutType, OutTypeLength)
call stringlen (OutType, OutTypeLength)
call stringlen (OutType, OutTypeLength)
call system ('/bin/mkdir -p /imag1/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/imag')
call system ('/bin/mkdir -p /imag1/'//ID(1:1)//
* '/'//ID(1:1)//ID(3:IDLength)//'/imag')
|
|
