DOSYMLIMDEGEN Subroutine

    SUBROUTINE DOSYMLIMDEGEN(IMAX, NBASISMAX)
        IMPLICIT NONE
        TYPE(BasisFN) IMax(2)
        INTEGER nBasisMax(5, *), I
        IF (NBASISMAX(3, 3) == 0) THEN
            DO I = 1, 3
                IF (IMax(2)%k(I) /= IMAX(1)%k(I)) IMAX(1)%k(I) = 0
            end do
        end if
!   always a spin symmetry
        IF (IMAX(1)%Ms /= IMAX(2)%Ms) IMAX(1)%Ms = 0
    END SUBROUTINE DOSYMLIMDEGEN