FUNCTION :  Scmake - the set S[c]

CALLING SEQUENCE :  Scmake()                                             
                    Scmake(c,N)                                             
                    

PARAMETERS :      c,N - positive integers where c is a divisor of N

SYNOPSIS :  Computes the set S[c] where c is a positive divisor of N.
            Used by cuspmake1.

EXAMPLES :   

> with(thetaids):

> Scmake();
---------------------------------------------------------
Scmake(c,N)                                              
   Returns the set S[c] where c is a positive            
   divisor of N.                                         
---------------------------------------------------------

> Acmake(4,12);
                                     {1, 7}

> Scmake(4,12);
                                      {1}


DISCUSSION :

SEE ALSO : Acmake, cuspmake1