调用子程序为读取数据为动态数组赋值报错

胡文刚

实参的字符串长度是1
character,allocatable:: A(:,:)
虚参的字符串长度是200
character(len=200):: input(nx,ny)

自然就错了。

另外，你为什么先读到 temp 里？不能直接读到 input 里吗？

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

subroutine  read_txt(input,iunit,filename,m,n,nx,ny)
  implicit none
  !函数内部变量声明
  integer:: iunit,m,n
  integer:: nx,ny,i
  character(len=200):: filename
  character:: input(nx,ny)
  !局部变量
  open(unit=iunit,file=filename)
  read(iunit,*) m,n
  do i = 1 , m
    read(iunit,*) input(i,:n)
  end do  
end subroutine