Expanded Description
| Topic |
Description |
| Name |
searcher |
| Synopsis |
/infobank/programs/html/searcher/searcher.for |
| Description |
Program to gather appropriate files for InfoBank searching.
|
| AUTHOR |
Clint Steele 2/13/2002
|
| Reads |
read (90, '(t13, q,a)', end = 299)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 298)
* ALineLength, ALine(1:ALineLength)
read (93, '(q,a)', end = 297)
* ATextLength, AText(1:ATextLength)
read (90, '(t13, q,a)', end = 10099)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 10199)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 10299)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 10399)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 10499)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 10599)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 10699)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 10799)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 10899)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 10999)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 11099)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 11199)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 11299)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 11399)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 11499)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 11599)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 11699)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 11799)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 11899)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 11999)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 12099)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 12199)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 12299)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 12399)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 12499)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 12599)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 12699)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 12799)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13, q,a)', end = 12899)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 12999)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13,q,a)', end = 399)
* ALineLength, ALine(1:ALineLength)
read (90, '(t13,q,a)', end = 499)
* AFileLength, AFile(1:AFileLength)
read (92, '(q,a)', end = 498)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (MakeDirName, '(80x)')
write (91, '(a,t50,a)')
* MakeDirName(1:MakeDirNameLength)//
* ALine(1:ALineLength),
* AText(1:ATextLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(43:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(1:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(53:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(1:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(1:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(1:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(10:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(1:ALineLength)
write (91, '(a,t50,a)')
* ALine(1:12+IDLength)//
* '/html/'//
* LongID(1:IDLength+3)//
* '.meta.html',
* ALine(OnOffLocation:ALineLength)
write (91, '(a,t50,a)')
* AFile(1:AFileLength),
* ALine(Dashes:ALineLength)
|
| Opens |
open ( unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/html/searcher/searcher.keep')
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.make.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = MakeDirName(1:MakeDirNameLength)//
* AFile(MakeKeep+5:MakeDot-1)//'/'//
* ALine(1:ALineLength-4)//'txt')
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.meta.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.onoff.temp')
open ( unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/tmp/searcher.items.temp')
open ( unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = AFile(1:AFileLength))
|
| Calls |
call system ('/bin/grep /infobank/programs/keep/make '//
* '/infobank/programs/keep/infobank_files.keep >
* '/infobank/tmp/searcher.make.temp')
call stringlen (MakeDirName, MakeDirNameLength)
call system ('/bin/grep _keywords$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep -v programs >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .crew$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .activitytype$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .equipmentused$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .ids$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .operationarea$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .platform$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .derivatives$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .infospecialist$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .organization$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .ports$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .project$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .purpose$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .notes$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .summary$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /meta/ >
* '/infobank/tmp/searcher.meta.temp')
call getid (AFile(1:AFileLength), LongID, IDLength)
call system ('/bin/grep .onoff. '//
* '/infobank/programs/keep/infobank_files.keep >
* '/infobank/tmp/searcher.onoff.temp')
call getid (ALine(1:ALineLength), LongID, IDLength)
call system ('/bin/grep .item$ '//
* '/infobank/programs/keep/infobank_files.keep | '//
* '/bin/grep /infobank/items/ >
* '/infobank/tmp/searcher.items.temp')
call system ('/bin/sort -u '//
* '/infobank/programs/html/searcher/searcher.keep >
* '/infobank/programs/html/searcher/searcher.sort')
|
|
