Expanded description
| Topic |
Description |
| Name |
facs2crew |
| Synopsis |
/infobank/programs/refmt/facs2crew/facs2crew_orig.for |
| Description |
Program to convert a .crew_log file
to a .crew file and a .chief_from_crewlog.
|
| Author |
Clint Steele 12/7/2000
|
| Promts |
'Enter non-hyphenated ActivityID'
|
| Input |
(Name, Responsability, Affiliation)
(a,t,a,t,a)
|
| Output |
(ActivityID, CrewMember, Responsability, Organization)
(a, t10, a, ', ', a, ', ', a)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InFileLength),
* err = 2)
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength))
open (unit = 92,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength-4)//
* 'chief_from_crewlog')
|
| Reads |
read (5, '(q,a)', end=999)
* IDLength, ID(1:IDLength)
read (90, '(q,a)', end = 199)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (BigID, '(10x)')
write (InFile, '(1024x)')
write (OutFile, '(1024x)')
write (91, 8) BigID, ! ActivityID
* ALine(1:Tabs(1)-1), ! CrewMember Name
* ALine(Tabs(1)+1:Tabs(2)-1), ! Responsability
* ALine(Tabs(2)+1:ALineLength) ! Organization / Affiliation
write (91, 81) BigID,
* ALine(1:Tabs(1)-1)
write (91, 82) BigID,
* ALine(1:Tabs(1)-1),
* ALine(Tabs(1)+1:Tabs(2)-1)
write (91, 82) BigID,
* ALine(1:Tabs(1)-1),
* ALine(Tabs(2)+1:ALineLength)
write (92, '(a,t10,a)') BigID, ! ActivityID
* ALine(1:Tabs(1)-1) ! CrewMember Name
|
| Calls |
call changecase ('SMALLS', ID(1:IDLength))
call changecase ('CAPITALS', BigID(1:IDLength))
call stringlen (InFile, InFileLength)
call stringlen (OutFile, OutFileLength)
|
|
