Expanded description
| Topic |
Description |
| Name |
whderivative |
| Synopsis |
/infobank/programs/refmt/whprereport2meta/whderivative.for |
| Description |
Subroutine to make a .derivatives file for whreport2html
|
| Author |
Clint Steele 11/3/2006
set for post-cruise '16a. Information to be Derived'
added for pre-cruise '14. Data Types (and Media) Produced' - CDegnan, 9/26/2007
|
| Opens |
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutName(1:OutNameLength)//'.derivatives')
|
| Reads |
read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a,t10,a)')
* CapID(1:CapIDLength), ALine(1:ALineLength)
write (91, '(a)') ALine(1:ALineLength)
|
| Calls |
call stringlen (ALine, ALineLength)
call stringlen (CapID, CapIDLength)
call stringlen (OutName, OutNameLength)
|
|
