| Reads |
read (90, '(q,a)', end = 9999) Length, Aline(1:Length)
read (Aline(1:Length),
* '(t1,f2.0,t3,f2.0,t5,f4.2,
* t9,f3.0,t12,f2.0,t14,f4.2,t18,f5.1)')
* LatDegree, LatMinute, LatSecond,
* LonDegree, LonMinute, LonSecond, Depth
|
| Writes |
write (91, 50)
write (91, 51)
write (91, 100)
* Year, JulianDay, Latitude, Longitude,
* Depth, Code, SurveyNumber
|