Fortran生成三维可变数组计算第三维度后赋值

在Fortran中，可以通过使用allocate语句为三维可变数组分配内存，并在循环中计算第三维度后赋值。以下是一个示例程序：

program three_dimensional_array
  implicit none

  integer :: i, j, k, n
  real, allocatable :: arr(:,:,:) ! 定义三维可变数组

  print *, "请输入数组大小："
  read *, n

  allocate(arr(n,n,n)) ! 分配内存

  do i = 1, n
    do j = 1, n
      do k = 1, n
        arr(i,j,k) = i + j + k ! 计算第三维度并赋值
      end do
    end do
  end do

  print *, "第三维度计算后的数组值为："
  do i = 1, n
    do j = 1, n
      do k = 1, n
        print *, arr(i,j,k)
      end do
    end do
  end do

  deallocate(arr) ! 释放内存

end program three_dimensional_array

该程序首先要求用户输入数组大小，然后使用allocate语句为三维可变数组分配内存。在循环中，计算第三维度并将值赋给数组元素。最后，打印计算后的数组值并使用deallocate语句释放内存。