test_symmetric_even_odd Subroutine

public subroutine test_symmetric_even_odd()

Arguments

None

Calls

proc~~test_symmetric_even_odd~~CallsGraph proc~test_symmetric_even_odd test_symmetric_even_odd assertequal assertequal proc~test_symmetric_even_odd->assertequal interface~mapl_getpartition mapl_GetPartition proc~test_symmetric_even_odd->interface~mapl_getpartition

Source Code

   subroutine test_symmetric_even_odd()
      integer, allocatable :: partition(:)

      partition = mapl_GetPartition(8, k=3, symmetric=.true.)
      @assertEqual([3,2,3], partition)
      
   end subroutine test_symmetric_even_odd