bridge/class-master/depend/pari/src/basemath/elliptic.c
/* assume p does not divide disc E */
assume p does not divide disc E
assume p does not divide disc E
long
ellap_CM_fast(GEN E, ulong p, long CM)
{
  ulong a4, a6;
  if (p == 2) return 3 - cardmod2(E);
  if (p == 3) return 4 - cardmod3(E);
  Fl_ell_to_a4a6(E, p, &a4, &a6);
  return Fl_elltrace_CM(CM, a4, a6, p);
}
long ellap_CM_fast ( GEN E , ulong p , long CM ) { ulong a4 , a6 ; if ( p == 2 ) return 3 - cardmod2 ( E ) ; if ( p == 3 ) return 4 - cardmod3 ( E ) ; Fl_ell_to_a4a6 ( E , p , & a4 , & a6 ) ; return Fl_elltrace_CM ( CM , a4 , a6 , p ) ; }
assume p does not divide disc E
assume p does not divide disc E