unravel_3D Subroutine

public subroutine unravel_3D(vector, cube, dim_v, dim_y, dim_x)

Arguments

Type IntentOptional AttributesName
real(kind=xp), intent(in), dimension(:), allocatable:: vector
real(kind=xp), intent(inout), dimension(:,:,:), allocatable:: cube
integer, intent(in) :: dim_v
integer, intent(in) :: dim_y
integer, intent(in) :: dim_x

Called by

proc~~unravel_3d~~CalledByGraph proc~unravel_3d unravel_3D proc~update update proc~update->proc~unravel_3d proc~minimize minimize proc~update->proc~minimize proc~f_g_cube f_g_cube proc~f_g_cube->proc~unravel_3d proc~minimize->proc~f_g_cube

Contents

Source Code


Source Code

  subroutine unravel_3D(vector, cube, dim_v, dim_y, dim_x)
    implicit none

    integer, intent(in) :: dim_v, dim_y, dim_x
    real(xp), intent(in), dimension(:), allocatable :: vector
    real(xp), intent(inout), dimension(:,:,:), allocatable :: cube

    integer :: i, j, k, i__

    i__ = 1
    
    do k=1, dim_x
       do j=1, dim_y
          do i=1, dim_v
             cube(i,j,k) = vector(i__)
             i__ = i__ + 1
          end do
       end do
    end do
  end subroutine unravel_3D