/* $Id: parinf.h,v 1.6 2000/11/03 21:00:25 karim Exp $

Copyright (C) 2000  The PARI group.

This file is part of the PARI/GP package.

PARI/GP is free software; you can redistribute it and/or modify it under the
terms of the GNU General Public License as published by the Free Software
Foundation. It is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY WHATSOEVER.

Check the License for details. You should have received a copy of it, along
with the package; see the file 'COPYING'. If not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */

GEN initalgall0(GEN x, long flag, long prec);

#define id_PRINCIPAL 0
#define id_PRIME     1
#define id_MAT       2

/* for initalgredall */
#define nf_REDUCE       8
#define nf_SMALL        4 /* for both */
#define nf_PARTIAL      2
#define nf_ORIG         1

/* for initalgall0 */
#define nf_REGULAR      0 /* for both */

/* for isprincipal */
#define nf_GEN   1 /* for polredabs also */
#define nf_FORCE 2
#define nf_GIVEPREC 4

/* for buchray */
#define nf_INIT  4

/* for discray */
#define nf_REL  1
#define nf_COND 2

/* for polredabs */
#define nf_NORED 2
#define nf_ALL   4
#define nf_RAW   8

/* for lllgramall[gen] */
#define lll_ALL 0
#define lll_KER 1
#define lll_IM  2
#define lll_GRAM 0x100

/* for minim */
#define min_ALL   0
#define min_FIRST 1
#define min_PERF  2

/* for fincke_pohst() */
typedef struct FP_chk_fun {
  GEN (*f)(GEN,GEN);
  GEN (*f_init)(struct FP_chk_fun*,GEN,GEN,GEN,long*);
  GEN (*f_post)(GEN,GEN);
  GEN data;
  int skipfirst;
} FP_chk_fun;

GEN fincke_pohst(GEN a,GEN BOUND,long stockmax,long flag, long PREC, FP_chk_fun *CHECK);