The syntax of this substring is invalid.

kyra

请理解，主程序和子程序的变量是独立的。需要共享时，可以通过实参虚参传递。

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

program main
  implicit none
  integer, parameter :: N=4
  integer,dimension(N,N) :: a,b    
  integer,dimension(2*N,2*N) :: c
  CALL QW(a,b)
  c(1:N,1:N)=a(:,:)
  c(1:N,N+1:2*N)=b(:,:)
  c(N+1:2*N,1:N)=b(:,:)
  c(N+1:2*N,N+1:2*N)=a(:,:)
  write(*,*) c
contains
  SUBROUTINE QW(a,b)
    integer,dimension(:,:) :: a,b
    a = 1
    b = 2
  END SUBROUTINE QW
end program main