cube__dump_sps Subroutine

   subroutine cube__dump_sps(self)
      class(cube_t), intent(in) :: self

      integer :: i
      if (.not. allocated(self%sps)) return

      do i = 1, ubound(self%sps, dim=1)
         write(0,*) self%sps(i)%print()
      end do

   end subroutine cube__dump_sps