数组问题

swinder

主程序定义了一个可变数组，没有给出维数，传递给子程序，子程序里给这个数组分配维数
我这样编了，一直报错，是不是行不通啊．

whgary

可仿照下列一段程序
        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