GetSymExcitCount Subroutine

SUBROUTINE GetSymExcitCount(NMEM, iCount)
    use SystemData, only: tAssumeSizeExcitgen
    IMPLICIT NONE
    INTEGER NMEM(*)
    INTEGER iCount
    IF (tAssumeSizeExcitgen) THEN
        iCount = NMEM(1)
    ELSE
        iCount = NMEM(23)
    END IF
    RETURN
END SUBROUTINE GetSymExcitCount