Expanded Description
| Topic |
Description |
| Name |
summarizeoddanalog |
| Synopsis |
/infobank/programs/edit/summarizeoddanalog/summarizeoddanalog.for |
| Description |
Program to create a summary of non-complete activity-ID
analog (.item) files.
|
| AUTHOR |
Clint Steele 2/4/2000 .for
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (Item(ItemDash:ItemLength), '(i)')
* ItemNumber
read (Item(ItemDash:ItemLength), '(i)') ItemNumber
|
| Writes |
write (91, 2)
* Activity(ActivityDash:ActivityLength),
* ItemNumber,
* Scientist(ScientistDash:ScientistLength)
write (Item, '(1024x)')
write (Activity, '(1024x)')
write (Scientist, '(1024x)')
write (Scientist, '(1024x)')
write (91, 2)
* Activity(ActivityDash:ActivityLength),
* ItemNumber,
* Scientist(ScientistDash:ScientistLength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/edit/items2analog/'//
* 'oddanalog.total')
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/'//
* 'oddanalog.keep')
|
| Calls |
call system ('cat /infobank/programs/edit/items2analog/'//
* '*.analog >
* '/infobank/programs/edit/items2analog/'//
* 'oddanalog.total')
call system ('cat /infobank/programs/keep/caution.keep '//
* '> /infobank/programs/keep/oddanalog.kee
call system ('echo "! CREATED BY summarizeoddanalog" >
* '/infobank/programs/keep/oddanalog.keep')
call system ('echo "! USED BY database managers" >
* '/infobank/programs/keep/oddanalog.keep')
call system ('echo "!" >
* '/infobank/programs/keep/oddanalog.keep')
call changecase ('CAPITALS',
* Scientist(1:ScientistLength))
|
|
