bridge/class-master/depend/pari/src/basemath/lfun.c
/* initialize for computation on critical line up to height h, zero
 * of order <= m */
initialize for computation on critical line up to height h, zero
of order <= m
initialize for computation on critical line up to height h zero of order < = m
static GEN
lfuncenterinit(GEN lmisc, double h, long m, long bitprec)
{
  if (m < 0)
  { 
    if (!is_linit(lmisc) || linit_get_type(lmisc) != t_LDESC_INIT) m = 4;
    else
    {
      GEN domain = lfun_get_domain(linit_get_tech(lmisc));
      m = domain_get_der(domain);
    }
  }
  return lfuninit(lmisc, mkvec(dbltor(h)), m, bitprec);
}
static GEN lfuncenterinit ( GEN lmisc , double h , long m , long bitprec ) { if ( m < 0 ) { if ( ! is_linit ( lmisc ) || linit_get_type ( lmisc ) != t_LDESC_INIT ) m = 4 ; else { GEN domain = lfun_get_domain ( linit_get_tech ( lmisc ) ) ; m = domain_get_der ( domain ) ; } } return lfuninit ( lmisc , mkvec ( dbltor ( h ) ) , m , bitprec ) ; }
initialize for computation on critical line up to height h, zero
 of order <= m
initialize for computation on critical line up to height h zero of order < = m
/* choose a sensible default */