我笨的离谱哈哈哈....fort.28是因为我把文件号改了,但输出的还是28号文件。 另外,我尝试了把下面语句 do i=21,32,1 j=i-20 if(month1==j) write(i,*)wwlln_date,wwlln_time,lat,lon,timingerror,station end do 这个语句放到else上边,然后将 if(month==1) write(21,*)wwlln_date,wwlln_time,lat,lon,timingerror,station....这些if都放到end if 前面,就没问题了。这个也可以用do 循环来写,一样的。 还有要加close,close也可以用do来写。我本来写了,后来为了测出到底哪里出问题,然后删了.... 最后还是想请问下,为什么原先这样写,month8.txt会是原数据文件呢? |
另外改完文件号之后(month8.txt的,原先是28号,改成了33),运行结果month8.txt大小为0kb,就是没有数据写入。也就是说if(month==8) write(33,*)wwlln_date,wwlln_time,lat,lon,timingerror,station,这条命令无作用,是个摆设。 在线等,谢谢! |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-23 15:07