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

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 7005|回复: 9

[求助] fortran 读文件

[复制链接]

新浪微博达人勋

发表于 2019-3-9 15:13:15 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 bjer 于 2019-3-10 11:42 编辑

一级文件

一级文件

每个一级文件中的二级文件

每个一级文件中的二级文件

每个二级文件中的三级文件

每个二级文件中的三级文件

有这样一个文件(图1) 里面包括30个文件(图二)而每个图二中的文件夹又分别包括不确定数目的文档(图三)每个文档中的数据格式为(图四)行数不确定  现在要对每个图四的数据进行处理所以想把它存到矩阵里 该如何读取这样的文件啊!!!DO循环? eof? 怎么写fortran代码 求大家帮忙啦

三级文件中的数据

三级文件中的数据
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2019-3-10 11:41:16 | 显示全部楼层
问题真是困扰我很久了 哭
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2019-3-10 12:02:56 | 显示全部楼层

回帖奖励 +1 金钱

DO循环, eof判断都需要,数据存矩阵,再用个动态数组,最外层加上批量处理的框架即可
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2019-3-10 13:10:14 | 显示全部楼层

回帖奖励 +1 金钱

每层目录都写为字符串,由外向内层层循环
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2019-3-11 09:52:53 | 显示全部楼层
四叶草 发表于 2019-3-10 12:02
DO循环, eof判断都需要,数据存矩阵,再用个动态数组,最外层加上批量处理的框架即可

C:\Users\LENOVO\Desktop\1.png
请问这样子对嘛 里面的数据是不是存入了数组a
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2019-3-11 10:10:29 | 显示全部楼层

回帖奖励 +1 金钱

bjer 发表于 2019-3-11 09:52
请问这样子对嘛 里面的数据是不是存入了数组a

图片上传失败了
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2019-3-11 10:34:23 | 显示全部楼层

program wetPrf_PWV
    implicit none
    integer i
    integer j=1,n=0
    integer, allocatable :: a(:,:),num(:)
    open(10,file='C:\Users\LENOVO\Desktop\bjer\wetPrf_2010_02')
    do i=1:27
        read(10,*) filename(i)
        open(12,file=filename(i))
        do
          read(12,*,ios=iostat) num(j)
          open(14,file=num(j))
          do while (not(eof(10)))
          read(14,*)
          n=n+1
          end do
          do i=1,n
            read(14,*)(a(i,j),j=1,4)   
          end do
         j=j+1
        if (ios /= 0) exit
        close(14)   
        end do   
    end do
    print*,a(1,1)
    end
   
        
   
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2019-3-11 10:42:09 | 显示全部楼层
bjer 发表于 2019-3-11 10:34
program wetPrf_PWV
    implicit none
    integer i

你这个程序肯定要报错,去看看动态数组的用法
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2019-3-11 10:48:42 | 显示全部楼层
四叶草 发表于 2019-3-11 10:42
你这个程序肯定要报错,去看看动态数组的用法

唔 好的吧 现在FORTRAN的license过期了我先弄弄还得 运行不了
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2020-9-7 22:45:48 来自手机 | 显示全部楼层
楼主,你程序可以运行了吗?我也有同样的问题
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

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

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

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