bridge/class-master/depend/pari/src/basemath/lfun.c
/* order of pole of Lambda at s (0 if regular point) */
order of pole of Lambda at s (0 if regular point)
order of pole of Lambda at s ( 0 if regular point )
static long
lfunlambdaord(GEN linit, GEN s)
{
  GEN tech = linit_get_tech(linit);
  if (linit_get_type(linit)==t_LDESC_PRODUCT)
  {
    GEN v = lfunprod_get_fact(linit_get_tech(linit));
    GEN F = gel(v, 1), E = gel(v, 2), C = gel(v, 3);
    long i, ex = 0, l = lg(F);
    for (i = 1; i < l; i++)
      ex += lfunlambdaord(gel(F,i), s) * (E[i]+C[i]);
    return ex;
  }
  if (ldata_get_residue(linit_get_ldata(linit)))
  {
    GEN r = lfunpoleresidue(lfun_get_Residue(tech), s);
    if (r) return lg(r)-2;
  }
  return 0;
}
static long lfunlambdaord ( GEN linit , GEN s ) { GEN tech = linit_get_tech ( linit ) ; if ( linit_get_type ( linit ) == t_LDESC_PRODUCT ) { GEN v = lfunprod_get_fact ( linit_get_tech ( linit ) ) ; GEN F = gel ( v , 1 ) , E = gel ( v , 2 ) , C = gel ( v , 3 ) ; long i , ex = 0 , l = lg ( F ) ; for ( i = 1 ; i < l ; i ++ ) ex += lfunlambdaord ( gel ( F , i ) , s ) * ( E [ i ] + C [ i ] ) ; return ex ; } if ( ldata_get_residue ( linit_get_ldata ( linit ) ) ) { GEN r = lfunpoleresidue ( lfun_get_Residue ( tech ) , s ) ; if ( r ) return lg ( r ) - 2 ; } return 0 ; }
order of pole of Lambda at s (0 if regular point)
order of pole of Lambda at s ( 0 if regular point )