fortran读取数据

自由行

想求间隔3行12,1,2月份的平均值，每隔三行就一次平均值，想问问怎么考虑计算比较合理

weinihou

能读出来做出来就都算合理吧


要我做的话，就直接声明出三个临时变量，三个read语句各读一行，求和扔某数组保存
把上面的做成循环

Masterpiece

利用fortran中read\write语句的特性：
对文件进行一次read\write后，如果没有特殊的走纸控制，光标会自动进入下一行。

所以程序的整体设计就是外层一个大循环就好，大循环里边执行3次read读出12月、1月、2月的数据就好
然后处理，write输出到另一个文件就好


open(1，你的数据文件)
open(2，输出文件)

do i=1,215764
    read(1,*) month,t12
    read(1,*) month,t1
    read(1,*) month,t2
    write(2,*) (t12+t1+t2)/3.0
end do

yyl3546

谢谢楼主！！！！！！！！！！！！！！

yyl3546

谢谢楼主！！！！！！！！！！！！！

自由行

Masterpiece 发表于 2018-4-11 16:00
利用fortran中read\write语句的特性：
对文件进行一次read\write后，如果没有特殊的走纸控制，光标会自动 ...

谢谢您的分享，但是读入我的数据会显示读入数据错误，不太明白错在哪里，望交流program main
implicit none
integer,parameter::n=15500                                   
integer month
real t1,t2,t3
integer  i

!**********************************************
open(30,file="F:\work\yuce\wumai\jiajie\quansheng\2\dongji2.txt")
open(50,file="F:\work\yuce\wumai\jiajie\quansheng\2\dongji3.txt")

!**********************************************



do i=1,n
        read(30,*)month,t1
    read(30,*)month,t2
    read(30,*)month,t3
    write(50,*)(t1+t2+t3)/3.0
end do
close(50)
end

Masterpiece

自由行 发表于 2018-4-12 10:56
谢谢您的分享，但是读入我的数据会显示读入数据错误，不太明白错在哪里，望交流program main
implicit n ...

程序运行中止的时候，编译器提示了什么，可以发一下么？这样我好抓bug