fortran 参数定义的问题

云大小子

思路：我想用fortran先读取一个txt文件 判断这个文件有多少行 然后再定义一系列数组进行编程运算，我想在一个程序中实现，为此一般来说定义之前先要运行一小段程序，则出现如下错误提示：A specification statement cannot appear in the executable section.这个问题该怎么解决，请不吝赐教，万分感激

言深深

程序呢？

云大小子

言深深 发表于 2014-10-16 21:12
程序呢？

大概就是这个程序：
program main
use datetime
implicit none
integer ::ae(14)
integer::n,io
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!读取未知文件，判断行数得到n
        open(7,file='zhandian.txt',form='formatted')
         
         do
          read(7,'(a)',iostat=io) line
          if(io<0) exit
          if(len_trim(line)==0) cycle
          n=n+1
          enddo
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       
               zhandiannumber=n   !!!!!!!!!!用这个n来定义后续一系列数组 进行运算

real::vargh(zhandiannumber,14,28),vart(zhandiannumber,14,28)

编译错误 ，Error: A specification statement cannot appear in the executable section

云大小子

我想通过一个程序完成 ，读取未知文件 判断行数 在进行运行 只是方便以后再添加站点数据 处理起来方便 就不要再修改程序内部的数组维数，会省很多事情

云大小子

云大小子 发表于 2014-10-16 21:29
大概就是这个程序：
program main
use datetime

是不是可变数组能够解决这个问题 ，如果我定义数组为可变数组就行了，我先试试

云大小子

言深深 发表于 2014-10-16 21:12
程序呢？

哈哈 ，问题解决了，就是定义一个可变数组就行了，以前不理解可变数组的好处，用的特别少，现在懂了，谢谢了

云大小子

言深深 发表于 2014-10-16 21:12
程序呢？

哈哈 ，问题解决了，就是定义一个可变数组就行了，以前不理解可变数组的好处，用的特别少，现在懂了，谢谢了

言深深

云大小子 发表于 2014-10-16 22:13
哈哈 ，问题解决了，就是定义一个可变数组就行了，以前不理解可变数组的好处，用的特别少，现在懂了，谢 ...

好吧，祝贺你！