看板Programming
标 题Re: [问题] 有关fortran写法
发信站中大资工二进位的世界 (Tue Dec 11 01:09:16 2007)
转信站ptt!ctu-reader!ctu-peer!ctu-gate!news.nctu!news.ncu!news.csie.ncu!Bina
※ 引述《=?big5?B?5qPmow==?= <[email protected]>, 看板: Language》之铭言：
: 你的程式码贴出来才知道要改哪。
: ==> 本文由 "挑战人生 <[email protected]>"
: > 於 news:4XQDbZ%24a8Q%40binary.csie.ncu.edu.tw 发表
: > 意思是当我抓到2005072117时的资料 03.後 ，程式接着去抓05. 05. 04. 04. 05.资料
: > 目前我是卡在当我抓到2005072117 的资料03.後，程式无法去抓05. 05. 04. 04. 05.
: > 资料，只会一直抓到03.资料，我想说就是时间随时都会变，不一定都是抓17时资料，
character ctime*12,tt*2,ati*10
open(5,file='rot.dat',status='old')
read(ctime(9:10),'(i2)')itime
if(itime.ge.3.and.itime.lt.9)then
itime=6
elseif(itime.ge.9.and.itime.lt.15)then
itime=12
elseif(itime.ge.15)then
itime=18
else
itime=0
endif
write(tt,'(i2)')itime
if(itime.lt.10)tt='0'//tt(2:2)
ctime=ctime(1:8)//tt
do i=1,1000
read(5,31,end=335)ati,ro,noknow
if(ctime(1:10).eq.ati)then
rota=ro
print *,ati,ro
return
endif
31 format(a10,1x,f3.0,i5)
enddo
335 continue
print *,' ERROR HAPPEN !'
stop
end
例如ctime=ati=2005072117
资料会依序读出 03. 05. 05. 04. 04. 05.资料
但是一个时间只有一个值
现在我只要我抓到指定时间的资料後，接着抓之後几小时的rota资料，不用再去抓时间
麻烦大家给我ㄧ些方向或解法，谢谢
--
〒作者：chuee 来自：98-221.dorm.ncu.edu.tw
◎二进位的世界【140.115.50.50‧bbs.ncu.cc】