数组维数是参数的子程序在主程序中的调用问题

青衣巷

[Fortran] 纯文本查看 复制代码

Module aaa
contains
  subroutine aabs(input,output)
    integer ab , i   
    DOUBLE PRECISION input,output(:)
    ab=size(output)
    do i=1,ab
      output(i)=abs(input)  
    end do   
  end subroutine aabs
End Module aaa
  
program test01
  use aaa
  integer , parameter :: n = 2
  DOUBLE PRECISION input,output(n)
  input=-1    
  call aabs(input,output)     
end program test01