请选择 进入手机版 | 继续访问电脑版
爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

新浪微博登陆

只需一步, 快速开始

QQ登录

只需一步,快速开始

搜索
查看: 463|回复: 6

[求助] fortran读取数据

[复制链接] |关注本帖

新浪微博达人勋

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
想求间隔3行12,1,2月份的平均值,每隔三行就一次平均值,想问问怎么考虑计算比较合理
M_GLZR7@$M2VO{S4(7STX11.png
密码修改失败请联系qq:937062711

新浪微博达人勋

发表于 2018-4-11 08:54:14 | 显示全部楼层 |取消关注该作者的回复
能读出来做出来就都算合理吧


要我做的话,就直接声明出三个临时变量,三个read语句各读一行,求和扔某数组保存
把上面的做成循环
密码修改失败请联系qq:937062711

新浪微博达人勋

发表于 2018-4-11 16:00:34 | 显示全部楼层 |取消关注该作者的回复
利用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

评分

参与人数 1金钱 +6 收起 理由
lqouc + 6

查看全部评分

密码修改失败请联系qq:937062711

新浪微博达人勋

发表于 2018-4-11 16:17:48 | 显示全部楼层 |取消关注该作者的回复
谢谢楼主!!!!!!!!!!!!!!
密码修改失败请联系qq:937062711
回复

使用道具 举报

新浪微博达人勋

发表于 2018-4-11 16:19:55 | 显示全部楼层 |取消关注该作者的回复
谢谢楼主!!!!!!!!!!!!!
密码修改失败请联系qq:937062711
回复

使用道具 举报

新浪微博达人勋

 楼主| 发表于 2018-4-12 10:56:08 | 显示全部楼层 |取消关注该作者的回复
本帖最后由 自由行 于 2018-4-12 11:07 编辑
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

密码修改失败请联系qq:937062711

新浪微博达人勋

发表于 2018-4-12 13:53:46 | 显示全部楼层 |取消关注该作者的回复
自由行 发表于 2018-4-12 10:56
谢谢您的分享,但是读入我的数据会显示读入数据错误,不太明白错在哪里,望交流program main
implicit n ...

程序运行中止的时候,编译器提示了什么,可以发一下么?这样我好抓bug
密码修改失败请联系qq:937062711
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表