Expanded description
| Topic |
Description |
| Name |
whcrew |
| Synopsis |
/infobank/programs/dbase/whreport2meta/whcrew.for |
| Description |
Subroutine to make a .crew file for whreport2html
|
| Author |
Clint Steele 11/3/2006
|
| Opens |
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutName(1:OutNameLength)//'.chief')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutName(1:OutNameLength)//'.crew')
|
| Reads |
read (92, '(q,a)', end=98) ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') ALine(1:ALineLength)//', Chief Scientist'
write (91, '(a,t10,a)')
* CapID(1:CapIDLength), ALine(1:ALineLength)
write (91, '(a,t10,a)')
* CapID(1:CapIDLength), ALine(1:SemiColon-1)
write (91, '(a,t10,a)')
* CapID(1:CapIDLength), ALine(SemiColon+2:ALineLength)
|
| Calls |
call stringlen (ALine, ALineLength)
call stringlen (CapID, CapIDLength)
call stringlen (OutName, OutNameLength)
|
|
