Newer
Older
do i = 1,1000000
read (1,*,end=100) data_in1%ws, data_in1%dt
10 format (4i4,5f7.1,f7.4,f7.1)
20 format (4i4,5f7.1,f7.4,f7.1)
do i = 1,1000000
read (1,*,end=100) data_in1%ws, data_in1%dt
10 format (4i4,5f7.1,f7.4,f7.1)
20 format (4i4,5f7.1,f7.4,f7.1)