test_MAPL_decomposeDim_uneven Subroutine

public subroutine test_MAPL_decomposeDim_uneven()

Arguments

None

Calls

proc~~test_mapl_decomposedim_uneven~~CallsGraph proc~test_mapl_decomposedim_uneven test_MAPL_decomposeDim_uneven assertequal assertequal proc~test_mapl_decomposedim_uneven->assertequal interface~mapl_decomposedim MAPL_DecomposeDim proc~test_mapl_decomposedim_uneven->interface~mapl_decomposedim

Source Code

   subroutine test_MAPL_decomposeDim_uneven()
      integer :: NDEs
      integer :: dim_world
      integer, allocatable :: dim(:)

      NDEs = 4
      allocate(dim(0:NDEs-1))
      dim_world = 11
      call MAPL_DecomposeDim(dim_world, dim, NDEs)

      @assertEqual(11/4+1, dim(0:2))
      @assertEqual(11/4, dim(3))

   end subroutine test_MAPL_decomposeDim_uneven