Expanded Description
| Topic |
Description |
| Name |
accession2items |
| Synopsis |
/infobank/programs/dbase/ob2items/accession2items.for |
| Description |
Subroutine to replace accession database info in .item files.
|
| AUTHOR |
Clint Steele 4/28/03
|
| Reads |
read (90, '(q,a)', end=99)
* FileLineLength, FileLine(1:FileLineLength)
read (91, '(q,a)', end = 98)
* InLineLength, InLine(1:InLineLength)
read (91, '(q,a)', end = 97)
* InLineLength, InLine(1:InLineLength)
|
| Writes |
write (92, '(a)') InLine(1:InLineLength)
write (92, '(1x)')
write (92, '(a)')
* '! *** INFORMATION FROM ACCESSION DATABASE ***'
write (92, '(1x)')
write (92, '(a,t20,a,t35,a,t45,a,t55,a)')
* '! Scientist','Accession #','Pallet #','Box','Comment'
write (92, '(1x)')
write (92, '(a)') InLine(1:InLineLength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/accession_files.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/items/'//
* FileLine(FileLineLength-14:FileLineLength-12)//
* '00s/'//
* FileLine(FileLineLength-14:FileLineLength-10)//
* '.item')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/ob2items.'//
* FileLine(FileLineLength-14:FileLineLength-10)//
* '.item')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = FileLine(1:FileLineLength))
|
| Calls |
call system ('/bin/ls -1 '//
* '/infobank/programs/dbase/ob2items/accession/*.accession >
* '/infobank/tmp/accession_files.temp')
call system ('/bin/mv '//
* '/infobank/tmp/ob2items.'//
* FileLine(FileLineLength-14:FileLineLength-10)//
* '.item '//
* '/infobank/items/'//
* FileLine(FileLineLength-14:FileLineLength-12)//
* '00s/'//
* FileLine(FileLineLength-14:FileLineLength-10)//
* '.item')
|
|
