Expanded Description
| Topic |
Description |
| Name |
fingerprint |
| Synopsis |
/infobank/programs/dbase/fingerprint/fingerprint.for |
| Description |
Program to determine if people listed in .crew files are
"known" in InfoBank .keep files.
|
| Reads |
read (90, '(a)', end=99) TempLine
read (90, '(a)', end=990) TempLine
read (91, '(q,a)', end=98)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (ALine, '(1024x)')
write (92, '(a,8x,a)') ALine(10:ALineLength),
* ALine(1:7)
write (93, '(a,8x,a)') ALine(10:ALineLength),
* ALine(1:7)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/scientists.keep')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/nonscientists.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/fingerprint.crew.temp')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/fingerprint/known')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/fingerprint/unknowntemp')
|
| Calls |
call stringlen (TempLine(1:29), ANameLength(Loop))
call changecase ("CAPITALS",
* AName(Loop)(1:ANameLength(Loop)))
call stringlen (TempLine(1:29), ANameLength(Loop))
call changecase ("CAPITALS",
* AName(Loop)(1:ANameLength(Loop)))
call system ('/bin/cat /infobank/'//
* Alphabet(1:1)//'/*/meta/*.crew >
* '/infobank/tmp/fingerprint.crew.temp')
call system ('/bin/cat /infobank/'//
* Alphabet(Loop:Loop)//'/*/meta/*.crew >&g
* '/infobank/tmp/fingerprint.crew.temp')
call system ('/bin/cat /infobank/'//
* Alphabet(Loop:Loop)//'/*/meta/*.chief >&g
* '/infobank/tmp/fingerprint.crew.temp')
call system ('/bin/cat /infobank/'//
* Alphabet(Loop:Loop)//'/*/meta/*.infospecialist >&g
* '/infobank/tmp/fingerprint.crew.temp')
call system ('/bin/sort '//
* '/infobank/programs/dbase/fingerprint/unknowntemp'//
* ' > /infobank/programs/dbase/fingerprint/unknow
call system ('/bin/rm '//
* '/infobank/programs/dbase/fingerprint/unknowntemp')
|
|
