Expanded description
| Topic |
Description |
| Name |
whakas |
| Synopsis |
/infobank/programs/refmt/whakas/whakas.for |
| Description |
Program to convert existing Woods Hole .akas and .ids files
to improved format.
|
| Author |
Clint Steele 3/6/2007
|
| Opens |
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = APath(1:APathLength)//'.akas')
open (unit = 95,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/tmp/whakas.line2.temp')
open (unit = 94,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/tmp/whakas.line1.temp')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = APath(1:APathLength)//'.ids')
|
| Reads |
read (90, '(q,a)', end = 99) IDLength, ShortID(1:IDLength)
read (93, '(q,a)', end = 299)
* AKALineLength, AKALine(1:AKALineLength)
read (AKALine(10:14), '(i5.5)', err=3) ITest
read (92, '(q,a)') IDLineLength, IDLine(1:IDLineLength)
|
| Writes |
write (ShortID, '(7x)')
write (LongID, '(10x)')
write (APath, '(80x)')
write (94, '(a)') AKALine(1:AKALineLength)
write (95, '(a)') AKALine(1:AKALineLength)
write (92, '(a,i5.5,t20,a,i5.5,a)') IDLine(1:9),ITest,
* IDLine(20:GreaterThan),ITest,
* IDLine(LessThan:IDLineLength)
|
| Calls |
call openem (1,-1)
call changecase ('SMALLS', ShortID(1:IDLength))
call stringlen (APath, APathLength)
call stringlen (AKALine(1:AKALineLength),
* AKALineLength)
call system ('/bin/cat /tmp/whakas.line1.temp'//
* ' /tmp/whakas.line2.temp > '//
* APath(1:APathLength)//'.akas')
call stringlen (IDLine(1:IDLineLength), IDLineLength)
call system ('/bin/rm /tmp/whakas.*.temp')
|
|
