fortran对多个文件多数据的处理

jeydragon

我希望我可以将问题讲明白一些，希望大家可以帮助：
（1）我有36个文件，每个文件里面都是6万多个数据；
（2）需要完成的操作是：每次从36个文件的相同位置提取去一个数据，比如这36个文件的第一个数据，然后提取出这36个数据进行相关运算，然后将结果保存；接着处理36个文件中的第二个数据，仍旧是36个，依次处理完，最终仍旧得到的为6万多个数据，因为这么大的数据量只能通过编程来实现。

刻于新月之铭

如果是我的话，我会将36个文件的数据全写到一个2维数组来算，例如data（36，,60000），36表示36列，60000表示60000行，“每次从36个文件的相同位置提取去一个数据，比如这36个文件的第一个数据”就是提取data（1，1）~data（36，1）；“接着处理36个文件中的第二个数据”就是提取data（1,2）~data（36,2）以此类推。至于你做什么类型的相关系数看你自己的了，我应该没理解错你的意思，不知道你看不看得懂

mofangbao

那就编程实现吧，自己先做，不能指望别人帮你写好啊，可以给你参考资料，你找找有个批量处理的帖子

jeydragon

mofangbao 发表于 2012-10-2 10:08

                               
登录/注册后可看大图

那就编程实现吧，自己先做，不能指望别人帮你写好啊，可以给你参考资料，你找找有个批量处理的帖子

我自己做了，我能够读出批量处理的文件，不过我只能处理第一个，第二个我就不知道该怎么做了，我将我写的程序贴出来，希望大家帮我改进一下。

jeydragon

自己写的简单程序，不知道该怎么下手，希望高手稍微指点一下，谢谢。     
Program Secular_Variation  
      implicit none
      integer ::stat1
      real*8 ::ewh  !data
      character(11) ::filename
   
       open(13,file="name.txt")  !The name of input file
       open(14,file="result.txt",status="replace") !The name of output file
           
      do
         read(13,"(A11)",iostat=stat1) filename
             if(stat1/=0) exit
             open(15,file=filename)
                 read(15,"(f15.7)") ewh
                 write(14,"(f15.7)") ewh
              close(15)
      enddo
         
    End program Secular_Variation

mofangbao

不知道怎么做就看别人怎么做的，论坛上有现成的教程，多在论坛搜索，善于利用现有的东西举一反三，没人天生就会的啊，都是看别人的经验学的

jeydragon

mofangbao 发表于 2012-10-2 10:18

                               
登录/注册后可看大图

不知道怎么做就看别人怎么做的，论坛上有现成的教程，多在论坛搜索，善于利用现有的东西举一反三，没人天生 ...

管理员说的很有道理，谢谢，节日快乐

jeydragon

嗯，算是比较的理解了，用数据，我之前想的比较多的就是一维数组，因为感觉二维数组可能计算量比较大

jeydragon

刻于新月之铭 发表于 2012-10-2 13:29

                               
登录/注册后可看大图

如果是我的话，我会将36个文件的数据全写到一个2维数组来算，例如data（36，,60000），36表示36列，60000表 ...

我尝试一下

言深深

数组的定义和读取方式不对在定义的时候就定义为数组，然后按需读取，先学会将单个文件准确读取吧···批处理你的方案是可行的，但是程序12行建议不要这么写，尽量自己给定行数。