Expanded description
| Topic |
Description |
| Name |
boxswap |
| Synopsis |
/infobank/programs/edit/boxswap/boxswap.for |
| Description |
Program to swap location information of two .item files.
|
| Author |
Clint Steele 4/3/2003
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* file = path1(1:PathLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* file = path2(1:PathLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* file = '/tmp/boxswap.1.temp')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* file = '/tmp/boxswap.2.temp')
|
| Reads |
read (5, '(i)', err=91, end=99) box1
read (5, '(i)', err=92, end=99) box2
read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
read (91, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
read (91, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end=81) ALineLength, ALine(1:ALineLength)
read (91, '(q,a)', end=82) ALineLength, ALine(1:ALineLength)
|
| Writes |
write (path1, '(a,i3.3,a,i5.5,a)')
* '/infobank/items/',box1/100,'00s/',box1,'.item'
write (path2, '(a,i3.3,a,i5.5,a)')
* '/infobank/items/',box2/100,'00s/',box2,'.item'
write (92, '(a)') ALine(1:ALineLength)
write (93, '(a)') ALine(1:ALineLength)
write (93, '(a)') ALine(1:ALineLength)
write (92, '(a)') ALine(1:ALineLength)
write (92, '(a)') ALine(1:ALineLength)
write (93, '(a)') ALine(1:ALineLength)
|
| Calls |
call stringlen (Path1, PathLength)
call stringlen (Path2, PathLength)
call system ('/bin/mv /tmp/boxswap.1.temp '//
* Path1(1:PathLength))
call system ('/bin/mv /tmp/boxswap.2.temp '//
* Path2(1:PathLength))
|
|
