15 double *rlimit,
double *rmax,
16 valarray<double> &escale,
18 const valarray<double> &b2vec,
19 double *
const ervals,
double *
const amat,
20 const bool lgJac,
bool *lgConserved));
23 const valarray<double> &,
24 const valarray<double> &);
26 int32
solve_system(
const valarray<double> &a, valarray<double> &b,
void(* error_print_t)(long, long, const valarray< double > &, const valarray< double > &)
bool newton_step(GroupMap &MoleMap, const valarray< double > &b0vec, valarray< double > &b2vec, realnum *eqerror, realnum *error, const long n, double *rlimit, double *rmax, valarray< double > &escale, void(*jacobn)(GroupMap &MoleMap, const valarray< double > &b2vec, double *const ervals, double *const amat, const bool lgJac, bool *lgConserve))
int32 solve_system(const valarray< double > &a, valarray< double > &b, long int n, error_print_t error_print)