Question

关于Fortran中采用module 定义数组的问题

program main
USE fixed_arrays
nn=5
n=4*nn;nf=nn**2
ne=nf;np=(nn+1)*(nn+1)
......主程序执行段
end program

!子程序 module 段
module fixed_arrays
implicit real*8(a-h,o-z)
dimension ax(2,n+nf+8),xx(nn+1),yy(nn+1),cornd(2,8),inc(2,nf),xnc(nn),ync(nn), &
bnc(2,n),xy(2,np),me(ne,4),bnorm(2,n+8)
end module fixed_arrays

报错！！！！
我是将主程序与module 分成两个文件编写的，module中定义一些固定大小的数组以备主程序和其他子程序调用，请高手指教！应该怎么编写？非常感谢

Answer 1

我现在也在学习module这个功能，但是对于ax(2,n+nf+8)这敬中种写法我不确定是否恰余弯当。我的module中定义数组大小的时候是不用变量的，都是具体数字亮毁山，也就是说' the module array 'ax' must have constant shape' 。我印象中common是可以使用变量来定义数组大小的，module就不确定能不能了。回答不妥之处请指正。

Answer 2

module 中用到的n,nn都没有定义就使用了啊！这样应该也是有问题的。