dim_data2dim_cube Subroutine

public subroutine dim_data2dim_cube(nside, dim_data, dim_cube)

Arguments

Type IntentOptional AttributesName
integer :: nside
integer, intent(in), dimension(3):: dim_data
integer, intent(inout), dimension(3):: dim_cube

Called by

proc~~dim_data2dim_cube~~CalledByGraph proc~dim_data2dim_cube dim_data2dim_cube proc~main_rohsa main_rohsa proc~main_rohsa->proc~dim_data2dim_cube program~rohsa ROHSA program~rohsa->proc~main_rohsa

Contents

Source Code


Source Code

  subroutine dim_data2dim_cube(nside, dim_data, dim_cube)
    implicit none
    
    integer, intent(in), dimension(3) :: dim_data
    integer, intent(inout), dimension(3) :: dim_cube
    integer :: nside
    
    dim_cube(1) = dim_data(1)
    dim_cube(2) = 2**nside
    dim_cube(3) = dim_cube(2) 
  end subroutine dim_data2dim_cube