Expanded Description
| Topic |
Description |
| Name |
scientists4refers |
| Synopsis |
/infobank/programs/edit/scientists4refers/scientists4refers.for |
| Description |
Program to add field activity chief scientist names to information
about refrigerated cores item information.
|
| AUTHOR |
Clint Steele 3/16/2004
|
| Reads |
read (90, '(q,a)', end=99)
* InLength, InFile(1:InLength)
read (91, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (91, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (91, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (93, '(t10,q,a)', end = 96)
* SciLength, SciName(1:SciLength)
|
| Writes |
write (92, '(a)') ALine(1:ALineLength)
write (92, '(a)') ALine(1:ALineLength)
write (IDPath, '(2048x)')
write (92, '(a)')
* ' Scientist --- '//
* SciName(1:SciLength)
write (92, '(a)') ALine(1:ALineLength)
write (92, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 91,
* form = 'formatted',
* access = 'sequential',
* status = 'unknown',
* name = InFile(1:InLength))
open (unit = 92,
* form = 'formatted',
* access = 'sequential',
* status = 'unknown',
* name = '/infobank/tmp/scientists4refers.temp')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = IDPath(1:IDPathLength))
|
| Calls |
call openem (1,0)
call stringlen (ID, IDLength)
call changecase ('SMALLS', ID)
call changecase ('SMALLS', ID)
call stringlen (IDPath, IDPathLength)
call system ('/bin/mv /infobank/tmp/scientists4refers.temp '//
* InFile(1:InLength))
call system ('/bin/rm '//
* InFile(1:InLength)//'.test')
|
|
