bridge/class-master/depend/pari/src/basemath/lfun.c
/* If s is a pole of Lambda, return polar part at s; else return NULL */
If s is a pole of Lambda, return polar part at s; else return NULL
If s is a pole of Lambda return polar part at s ; else return NULL
static GEN
lfunpoleresidue(GEN R, GEN s)
{
  long j;
  for (j = 1; j < lg(R); j++)
  {
    GEN Rj = gel(R, j), be = gel(Rj, 1);
    if (gequal(s, be)) return gel(Rj, 2);
  }
  return NULL;
}
static GEN lfunpoleresidue ( GEN R , GEN s ) { long j ; for ( j = 1 ; j < lg ( R ) ; j ++ ) { GEN Rj = gel ( R , j ) , be = gel ( Rj , 1 ) ; if ( gequal ( s , be ) ) return gel ( Rj , 2 ) ; } return NULL ; }
If s is a pole of Lambda, return polar part at s; else return NULL
If s is a pole of Lambda return polar part at s ; else return NULL