bridge/class-master/depend/pari/src/basemath/ecpp.c
/* Given D and a database of modular polynomials, return polclass(D, inv) */
Given D and a database of modular polynomials, return polclass(D, inv)
Given D and a database of modular polynomials return polclass ( D inv )
static GEN
D_polclass(long D, long inv, GEN *db)
{
  GEN HD, t = mkvec2(gel(*db, 1), inv == 0? gen_0: gmael(*db, 2, inv));
  HD = polclass0(D, inv, 0, &t);
  gel(*db, 1) = gel(t,1);
  if (inv != 0) gmael(*db, 2, inv) = gel(t,2);
  return HD;
}
static GEN D_polclass ( long D , long inv , GEN * db ) { GEN HD , t = mkvec2 ( gel ( * db , 1 ) , inv == 0 ? gen_0 : gmael ( * db , 2 , inv ) ) ; HD = polclass0 ( D , inv , 0 , & t ) ; gel ( * db , 1 ) = gel ( t , 1 ) ; if ( inv != 0 ) gmael ( * db , 2 , inv ) = gel ( t , 2 ) ; return HD ; }
Given D and a database of modular polynomials, return polclass(D, inv)
Given D and a database of modular polynomials return polclass ( D inv )