Expanded description
| Topic |
Description |
| Name |
facs2overview |
| Synopsis |
/infobank/programs/refmt/facs2overview/facs2overview.for |
| Description |
Program to convert a .overview_log file to
a .organization file,
a .project file,
a .operationarea file,
a .chief_from_overviewlog file,
a .infospecialist file,
a .activitytype file,
a .purpose file,
a .platform file,
a .dates file,
a .ports file,
a .equipmentused_from_overviewlog file,
a .derivatives file,
a .summary file, and
a .notes file
|
| Author |
Clint Steele 12/7/2000
break up records exceeding 80 characters for output - CDegnan, 04/25/2005
|
| Promts |
'Enter non-hyphenated ActivityID'
|
| Input |
(Topic, Information)
(a,t,a)
|
| Output |
(ActivityID, Information...)
(a, t10, 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)//
* OutTemp(1:OutTempLength))
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength)//
* OutTemp(1:OutTempLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength)//
* OutTemp(1:OutTempLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength)//
* OutTemp(1:OutTempLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength)//
* OutTemp(1:OutTempLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength)//
* OutTemp(1:OutTempLength))
|
| Reads |
read (5, '(q,a)', end=999)
* IDLength, ID(1:IDLength)
read (90, '(q,a)', end = 199)
* ALineLength, ALine(1:ALineLength)
read (ID(3:4), '(i2)') Year
read (ID(4:5), '(i2)') Year
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (BigID, '(10x)')
write (InFile, '(4096x)')
write (OutFile, '(4096x)')
write (91, '(a)') ALine(1:ALineLength)
write (OutTemp, '(4096x)')
write (OutTemp, '(4096x)')
write (91, 20) Year, JDStart, BigID,
* ALine(Tab+1:ALineLength) ! Information
write (OutTemp, '(4096x)')
write (91, 21) Year, JDEnd, BigID,
* ALine(Tab+1:ALineLength) ! Information
write (OutTemp, '(4096x)')
write (OldLine, '(4096x)')
write (OldLine, 22) BigID, ! ActivityID
* ALine(Tab+1:ALineLength) ! Information
write (91, '(a)') OldLine(1:OldLineLength)
write (OutTemp, '(4096x)')
write (91, 23) OldLine(1:OldLineLength+1),
write (91, 87) BigID, ! ActivityID
* ALine(StartCol:ALineLength) ! Information
write (91, '(10x,a)') ALine(1:ALineLength)
write (91, '(14x,a)') ALine(1:ALineLength)
write (91, 8) BigID, ! ActivityID
* ALine(StartCol:ALineLength) ! Information
write (91, 8) BigID, ! ActivityID
* ALine(MinCol:MaxCol) ! Information
write (91, 9)
* ALine(MinCol:MaxCol) ! Information
|
| Calls |
call changecase ('SMALLS', ID(1:IDLength))
call changecase ('CAPITALS', BigID(1:IDLength))
call stringlen (InFile, InFileLength)
call stringlen (OutFile, OutFileLength)
call stringlen (ALine(1:ALineLength), ALineLength)
call getcentury (Year, Century)
call stringlen (ALine(1:ALineLength), ALineLength)
call changecase ('SMALLS', LowLine(1:ALineLength))
call stringlen (OutTemp, OutTempLength)
call stringlen (OutTemp, OutTempLength)
call stringlen (OutTemp, OutTempLength)
call stringlen (OutTemp, OutTempLength)
call stringlen (OldLine, OldLineLength)
call stringlen (OutTemp, OutTempLength)
call stringlen
* (ALine(1:ALineLength), ALineLength)
|
|
