[子程序] 数组传递

do j = 1, NLayer
  do i = 1,sbnum(j)
    write(*,*) j,i,TmpiSubblocks(1,i,j),TmpiSubblocks(2,i,j)
  end do
end do

subroutine FiLLMatrix(sbtmp, untmp, atmp, amax, unmax, sbmax, cts, sbnum)
  !为了将远近区块填充至所构建的矩阵中
  implicit none
  integer*4  :: unmax, amax, sbmax, cts
  integer*4  :: untmp(2, unmax), atmp(2, amax)
  integer*4  :: sbtmp(2, sbmax, NLayer)
  integer*4  :: i, j, k, j1, j2, k1, k2, t
  integer*4  :: BParam1(sbmax),sbnum(NLayer)
  integer*4  :: row, coL

  allocate(iSubblocks(sbmax,NLayer))

  write(*,*) "FiLLMatrix",sbmax,NLayer

  do i = 1,NLayer
    do j = 1,sbnum(i)
        write(*,*) i,j,sbtmp(1,j,i),sbtmp(2,j,i)
    end do
  end do
end subroutine !省略版