Expanded description
| Topic |
Description |
| Name |
addyear |
| Synopsis |
/infobank/programs/time/addyear/addyear.for |
| Description |
Program to convert from day/hour/minute/second/tenths format
to year/day/hour/minute/second/tenths format.
|
| Author |
Clint Steele 5/16/92
|
| Reads |
read (5, '(i)', iostat = ErrorFlag) Year
read (90, '(q,a)', end = 99) Length, ALine
read (ALine(1:3), '(i3)') ThisDay
|
| Writes |
write (91, '(/)')
write (91, '(a)') ALine(1:Length)
write (91, '(i4.4,a)') Year,ALine(1:Length)
write (91, '(a)') ALine(1:Length)
write (91, '(4x,a)') ALine(1:Length)
write (91, '(a)') ALine(1:Length)
|
| Calls |
call openem (1,1)
call getcruise (FileName, CruiseId, Ship, Leg, Year,
* Place, Other, FileType,
* LengthLeg, LengthOther, LengthFileType)
call forerror (ErrorFlag)
|
|
