| Reads |
read (5, '(i4)') year
read (5, '(i)') JD
read (5, '(i)') line
read (90, '(q,a)', end = 99) Length, ALine(1:Length)
read (ALine, '(t15,i2,f6.3,t26,i3,f6.3)')
* lat, latm, long, longm
read (ALine(Blank:Length), '(i)') shot
|
| Writes |
write (91, 2) year, jd, aline(8:13),
* latitude, longitude, line, shot
|