test_symmetric_odd_even Subroutine

public subroutine test_symmetric_odd_even()

Arguments

None

Calls

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

Source Code

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

      partition = mapl_GetPartition(7, k=4, symmetric=.true.)
      @assertEqual([2,2,1,2], partition)
      
   end subroutine test_symmetric_odd_even