test_MAPL_decomposeDim_minDE Subroutine

public subroutine test_MAPL_decomposeDim_minDE()

Arguments

None

Calls

proc~~test_mapl_decomposedim_minde~~CallsGraph proc~test_mapl_decomposedim_minde test_MAPL_decomposeDim_minDE assertequal assertequal proc~test_mapl_decomposedim_minde->assertequal interface~mapl_decomposedim MAPL_DecomposeDim proc~test_mapl_decomposedim_minde->interface~mapl_decomposedim

Source Code

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

      NDEs = 6
      allocate(dim(0:NDEs-1))
      dim_world = 9
      call MAPL_DecomposeDim(dim_world, dim, NDEs, min_DE_extent=2)

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

   end subroutine test_MAPL_decomposeDim_minDE