| Reads |
read (90, '(q,a)', end = 99)
* alinelength, aline(1:alinelength)
read (aline(Tab(2)+1:Tab(3)-1), '(i2)') year
read (aline(tab(4)+1:Tab(5)-1), '(f)') lat
read (aline(tab(5)+1:tab(6)-1), '(f)') long
|
| Writes |
write (91, '(i4.4,a,t16,f9.5,t26,f10.5,t37,a,t50,a)')
* year, '0010100000',
* lat, long,
* aline(1:Tab(1)-1)//
* aline(Tab(1)+1:Tab(2)-1)//
* aline(Tab(2)+1:Tab(3)-1)//
* aline(Tab(3)+1:Tab(4)-1),
* 'chosen'
|
| Opens |
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//aline(1:tab(1)-1)//'/'//
* aline(1:Tab(1)-1)//
* aline(Tab(1)+1:Tab(2)-1)//
* aline(Tab(2)+1:Tab(3)-1)//
* aline(Tab(3)+1:Tab(4)-1)//'/meta/'//
* aline(1:Tab(1)-1)//'-'//
* aline(Tab(1)+1:Tab(2)-1)//'-'//
* aline(Tab(2)+1:Tab(3)-1)//'-'//
* aline(Tab(3)+1:Tab(4)-1)//'.midnav')
|
