test_symmetric_even_even Subroutine

public subroutine test_symmetric_even_even()

Arguments

None

Calls

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

Source Code

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

      partition = mapl_GetPartition(6, k=4, symmetric=.true.)

      @assertEqual([2,1,1,2], partition)
      
   end subroutine test_symmetric_even_even