test_symmetric_odd_odd Subroutine

public subroutine test_symmetric_odd_odd()

Arguments

None

Calls

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

Source Code

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

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