创建一个三维数组W

创建一个三维数组W

program print_array_section  
    implicit none  
    integer, dimension(-2:2, -2:2, 1:3) :: W  
    integer :: i, j ,k 
  
    ! 初始化数组W（这里只是用一个简单的例子，实际初始化可能不同）  
    W = 0  
    do i = -2, 2  
       do j = -2, 2
          do k = 1, 3
            W(i, j, k) = i + j + k ! 只是一个示例初始化，实际值可能不同  
            end do
         end do
    end do  
  
    ! 打印出W(-10:10,-10:10,3)的内容  
    print *, 'W(-10:10,-10:10,3)的内容:'  
    do i = -2, 2 
       do j = -2, 2
          do k = 1, 3
             print *, 'W(', i, ',', j, ',', k, ') = ', W(i, j, k)
             end do
        end do  
    end do  
end program print_array_section