数组问题
主程序定义了一个可变数组，没有给出维数，传递给子程序，子程序里给这个数组分配维数我这样编了，一直报错，是不是行不通啊． 可仿照下列一段程序
program XLL
use work_arrays !在datamod.f90中定义
use dfport
implicit none
!
...
!
write(*,'("请输入河道水位流量关系数组大小ng:",$)')
read(*,*) ng
allocate(h(ng),q(ng),stat=error)
if(error/=0) then
write(*,*) "数组分配失败!"
stop
endif
...
end
!****************************************************************
!datamod.f90
module work_arrays
implicit none
integer ng
real,allocatable::h(:),q(:)
end module work_arrays
页:
[1]