新手表示不会用fortran读取DAT文件并将其转换成TXT格式。求大神帮助！！

简单的世界

这个之前大神给的程序  Program   nc2txt
    parameter  (m=180,n=360,o=1)
    dimension   x(m,n,o)
    open(1,file='sst.mnmean.dat',access='direct',form='binary',recl=n*m*o*4)
        read(1,rec=1) (((x(i,j,k),j=1,n),i=1,m),k=1,o)
    close(1)     

    open(2,file='123.txt')
       do i=1,m
          print*,i
          do j=1,n
             write(2,"(2f10.1,2x,f15.6)") -(i-1)*1.+180,(j)*1.,x(i,j,1)
          enddo
       enddo
    close(2)
  End program nc2txt
但是放在我这里有错
:\Text1.f90
D:\Text1.f90(3): error FOR3093: array bound is not integer scalar
Errors in declarations, no further processing for NC2TXT
Error executing fl32.exe.
Text1.obj - 1 error(s), 0 warning(s)
好心碎。。。。无法读取QAQ求指点迷津{:eb303:}{:eb303:}

简单的世界

刘晶 发表于 2014-4-24 15:53
你设置的数组是什么类型，就写什么，比如，real  dimension   x(m,n,o)

谢谢。已经知道哪里的问题了~是我忘记关工作区间了

言深深

1，看看你是否打开了多个fortran主程序，并且在同一个工作薄下面；
2，删除编译出错的几个文件，obj等(除了f90的文件其他的都可以删除)。

简单的世界

我试了····没有多开fortran，把除了f90全部删了。~
报错：dimension   x(m,n,o)
这一行有问题。。。大大这个肿么改QAQ

刘晶

简单的世界 发表于 2014-4-23 14:49
我试了····没有多开fortran，把除了f90全部删了。~
报错：dimension   x(m,n,o)
这一行有问题。。。 ...

dimesion前面要有类型说明吧，亲

简单的世界

刘晶 发表于 2014-4-23 18:58
dimesion前面要有类型说明吧，亲

那应该填什么0.0

朽木露琪亚

parameter  (m=180,n=360,o=1)前面加个integer :: m,n,o试试

刘晶

你设置的数组是什么类型，就写什么，比如，real  dimension   x(m,n,o)

爱知天气

把没用的删掉，然后重新打开试一下