作者qrew24 ()
看板Fortran
标题[问题] 请问要怎麽写才对...
时间Wed Mar 19 18:49:23 2014
我的程式码如下:
open(1,file='10-0123-20L.S200510')
open(2,file='list')
do while (.true.)
read(1,'(1x,i4,1x,i2,i2,1x,i2,i2,1x,i2.2,f2.1,4x,f6.3,1x,f7.3,
& i3.3,f2.1,t80,a1)',end=99)
& year,mon,day,hour,min,se1,se2,lat,lon,d1,d2,typ
end do
do while (.true.)
read(1,'(1x,a4,4x,a2,7x,i2.2,i2.2,1x,i2.2,f3.2)',end=999)
& sta,phas,hh,mm,s1,s2
if((typ=='1').and.(phas=='IP'))then
parr=((hour*60+min)*60+(se1+se2))-((hh*60+mm)*60+(s1+s2))
write(2,'(f6.3,1x,f7.3,1x,i3.3,f2.1,1x,i4,1x,i2.2,1x,i2.2,1x
& ,i2.2,1x,i2.2,1x,i2.2,f2.1)')
& lat,lon,d1,d2,year,mon,day,hour,min,se1,se2,sta,phsa,parr
end if
end do
99 continue
999 continue
close(1)
close(2)
END
这是想要用来读一个档案里面的资讯,再做输出.
但是只有第一段do while读得出来,为什麽第二段do while读不出来?
档案内容大致如下:
2005 1010 0123 20.1fL 21.310 120.068 7.0 TW6 3 0.0 1
GAP=154 0.32 1.0 0.9 2.0 -0.2403E+00 0.4331E+00 0.2387E+00E
2005-10-10-0123-16.obs01_001 6
ACTION:UP 14-02-11 14:29 OP:debb STATUS: ID:20051010012320 L I
OBS6 SZ IP 123 25.94 44 -0.0610 19.0 87
照这档案来看,我只想要第一列和第四列.
先谢谢大家了!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.69.195
1F：→ Cypresslin:因为你的第一个do while就把档案整个读完了 03/19 21:23
2F：→ Cypresslin:然後你要作的应该是把两个回圈合成一个，因为以第一个 03/19 21:24
3F：→ Cypresslin:回圈来说，他会用你的那个日期格式来读档案中的每一行 03/19 21:25