Fortran指针分配内存，多一个数矩阵大小就变大一个

在Fortran中，可以使用指针来动态分配内存，并根据需要调整矩阵的大小。下面是一个示例代码，说明如何使用指针来分配内存并调整矩阵的大小：

program dynamic_allocation
  implicit none
  
  real, pointer :: matrix(:,:) ! 声明指针
  integer :: numRows, numCols, newNumCols
  integer :: i, j
  
  numRows = 3
  numCols = 5
  
  ! 分配内存给 matrix
  allocate(matrix(numRows, numCols))
  
  ! 初始化矩阵
  do i = 1, numRows
    do j = 1, numCols
      matrix(i, j) = i + j
    end do
  end do
  
  ! 打印矩阵
  print *, "Original Matrix:"
  do i = 1, numRows
    print *, matrix(i, :)
  end do
  
  ! 调整矩阵大小
  newNumCols = numCols + 1
  allocate(matrix(numRows, newNumCols), mold=matrix)
  
  ! 更新矩阵的值
  do i = 1, numRows
    matrix(i, newNumCols) = i + newNumCols
  end do
  
  ! 打印调整大小后的矩阵
  print *, "Modified Matrix:"
  do i = 1, numRows
    print *, matrix(i, :)
  end do
  
  ! 释放内存
  deallocate(matrix)
  
end program dynamic_allocation

在上面的示例中，我们首先使用`allocate`语句为`matrix`分配了3行5列的内存空间，并初始化了矩阵的值。然后，我们根据需要将矩阵的列数增加1，使用`allocate`语句重新分配内存，并使用`mold=matrix`将之前分配的内存复制到新的矩阵中。最后，我们更新了矩阵的值，并打印出调整大小后的矩阵。

请注意，在使用完毕后，我们使用`deallocate`语句释放了矩阵所占用的内存空间。

希望这个例子对您有所帮助！如有其他问题，请随时提问。