3extern int sbcg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*mttvec)(),
int (*msolve)(),
int (*mtsolv)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *rr,
float *zz,
float *pp,
float *dz,
float *rwork,
long *iwork);
4extern int ssdbcg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
5extern int sslubc_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
6extern long issbcg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *rr,
float *zz,
float *pp,
float *dz,
float *rwork,
long *iwork,
float *ak,
float *bk,
float *bnrm,
float *solnrm);
22extern int scg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *dz,
float *rwork,
long *iwork);
23extern int ssdcg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
24extern int ssiccg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
25extern long isscg_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *dz,
float *rwork,
long *iwork,
float *ak,
float *bk,
float *bnrm,
float *solnrm);
40extern int scgn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*mttvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *atp,
float *atz,
float *dz,
float *atdz,
float *rwork,
long *iwork);
41extern int ssdcgn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
42extern int sslucn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
43extern long isscgn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*mttvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *atp,
float *atz,
float *dz,
float *atdz,
float *rwork,
long *iwork,
float *ak,
float *bk,
float *bnrm,
float *solnrm);
58extern int scgs_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *r0,
float *p,
float *
q,
float *u,
float *v1,
float *v2,
float *rwork,
long *iwork);
59extern int ssdcgs_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
60extern int sslucs_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
61extern long isscgs_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *r0,
float *p,
float *
q,
float *u,
float *v1,
float *v2,
float *rwork,
long *iwork,
float *ak,
float *bk,
float *bnrm,
float *solnrm);
74extern int sgmres_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *sb,
float *sx,
float *rgwk,
long *lrgw,
long *igwk,
long *ligw,
float *rwork,
long *iwork);
75extern int ssdgmr_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nsave,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
76extern int sslugm_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nsave,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
77extern int shels_(
float *a,
long *lda,
const long *n,
float *
q,
float *
b);
78extern int sheqr_(
float *a,
long *lda,
const long *n,
float *
q,
long *info,
long *ijob);
79extern int sorth_(
float *vnew,
float *
v,
float *hes,
const long *n,
long *ll,
long *ldhes,
long *kmp,
float *snormw);
80extern int spigmr_(
const long *n,
float *r0,
float *sr,
float *sz,
long *jscal,
long *maxl,
long *maxlp1,
long *kmp,
long *nrsts,
long *jpre,
int (*matvec)(),
int (*msolve)(),
long *nmsl,
float *z,
float *
v,
float *hes,
float *
q,
long *lgmr,
float *rpar,
long *ipar,
float *wk,
float *dl,
float *rhol,
long *nrmax,
const float *
b,
float *bnrm,
float *x,
float *xl,
const long *itol,
const float *tol,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *iunit,
long *iflag,
float *err);
81extern int srlcal_(
const long *n,
long *kmp,
long *ll,
long *maxl,
float *
v,
float *
q,
float *rl,
float *snormw,
float *prod,
float *r0nrm);
82extern int sxlcal_(
const long *n,
long *lgmr,
float *x,
float *xl,
float *zl,
float *hes,
long *maxlp1,
float *
q,
float *
v,
float *r0nrm,
float *wk,
float *sz,
long *jscal,
long *jpre,
int (*msolve)(),
long *nmsl,
float *rpar,
long *ipar,
const long *nelt,
long *ia,
long *ja,
float *a,
long *isym);
83extern long issgmr_(
const long *n,
const float *
b,
float *x,
float *xl,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*msolve)(),
long *nmsl,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
const long *iunit,
float *r,
float *z,
float *dz,
float *rwork,
long *iwork,
float *rnrm,
float *bnrm,
float *sb,
float *sx,
long *jscal,
long *kmp,
long *lgmr,
long *maxl,
long *maxlp1,
float *
v,
float *
q,
float *snormw,
float *prod,
float *r0nrm,
float *hes,
long *jpre);
98extern int sir_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *dz,
float *rwork,
long *iwork);
99extern int ssjac_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
100extern int ssgs_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
101extern int ssilur_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
102extern long issir_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*msolve)(),
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *dz,
float *rwork,
long *iwork,
float *bnrm,
float *solnrm);
115extern int sbhin_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *soln,
float *rhs,
const long *iunit,
long *job);
116extern int schkw_(
char *name,
long *lociw,
const long *leniw,
long *locw,
const long *lenw,
long *ierr,
long *
iter,
float *err,
int name_len);
117extern int qs2i1r_(
long *ia,
long *ja,
float *a,
const long *n,
long *kflag);
118extern int ss2y_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
long *isym);
119extern int scpplt_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *iunit);
120extern int stout_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *soln,
float *rhs,
const long *iunit,
long *job);
121extern int stin_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *soln,
float *rhs,
const long *iunit,
long *job);
125extern int ssds_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *dinv);
126extern int ssdscl_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *x,
const float *
b,
float *dinv,
long *job,
long *itol);
127extern int ssd2s_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *dinv);
128extern int ss2lt_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nel,
long *iel,
long *jel,
float *el);
129extern int ssics_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nel,
long *iel,
long *jel,
float *el,
float *d,
float *r,
long *iwarn);
130extern int ssilus_(
const long *n,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nl,
long *il,
long *jl,
float *l,
float *dinv,
long *nu,
long *iu,
long *ju,
float *u,
long *nrow,
long *ncol);
133extern int ssmv_(
const long *n,
float *x,
float *
y,
const long *nelt,
long *ia,
long *ja,
float *a,
long *isym);
134extern int ssmtv_(
const long *n,
float *x,
float *
y,
const long *nelt,
long *ia,
long *ja,
float *a,
long *isym);
135extern int ssdi_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *rwork,
long *iwork);
136extern int ssli_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *rwork,
long *iwork);
137extern int ssli2_(
const long *n,
const float *
b,
float *x,
long *nel,
long *iel,
long *jel,
float *el);
138extern int ssllti_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *rwork,
long *iwork);
139extern int dllti2_(
const long *n,
const float *
b,
float *x,
long *nel,
long *iel,
long *jel,
float *el,
float *dinv);
140extern int sslui_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *rwork,
long *iwork);
141extern int sslui2_(
const long *n,
const float *
b,
float *x,
long *il,
long *jl,
float *l,
float *dinv,
long *iu,
long *ju,
float *u);
142extern int ssluti_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *rwork,
long *iwork);
143extern int sslui4_(
const long *n,
const float *
b,
float *x,
long *il,
long *jl,
float *l,
float *dinv,
long *iu,
long *ju,
float *u);
144extern int ssmmti_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
float *rwork,
long *iwork);
145extern int ssmmi2_(
const long *n,
const float *
b,
float *x,
long *il,
long *jl,
float *l,
float *dinv,
long *iu,
long *ju,
float *u);
146extern int somn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*matvec)(),
int (*msolve)(),
long *nsave,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *ap,
float *emap,
float *dz,
float *csav,
float *rwork,
long *iwork);
147extern int ssdomn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nsave,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
148extern int ssluom_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
long *nsave,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *rwork,
const long *lenw,
long *iwork,
const long *leniw);
149extern long issomn_(
const long *n,
const float *
b,
float *x,
const long *nelt,
long *ia,
long *ja,
float *a,
const long *isym,
int (*msolve)(),
long *nsave,
const long *itol,
const float *tol,
const long *itmax,
long *
iter,
float *err,
long *ierr,
const long *iunit,
float *r,
float *z,
float *p,
float *ap,
float *emap,
float *dz,
float *csav,
float *rwork,
long *iwork,
float *ak,
float *bnrm,
float *solnrm);
int spigmr_(const long *n, float *r0, float *sr, float *sz, long *jscal, long *maxl, long *maxlp1, long *kmp, long *nrsts, long *jpre, int(*matvec)(), int(*msolve)(), long *nmsl, float *z, float *v, float *hes, float *q, long *lgmr, float *rpar, long *ipar, float *wk, float *dl, float *rhol, long *nrmax, const float *b, float *bnrm, float *x, float *xl, const long *itol, const float *tol, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *iunit, long *iflag, float *err)
int ssics_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nel, long *iel, long *jel, float *el, float *d, float *r, long *iwarn)
int scpplt_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *iunit)
int schkw_(char *name, long *lociw, const long *leniw, long *locw, const long *lenw, long *ierr, long *iter, float *err, int name_len)
long isscgs_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *r0, float *p, float *q, float *u, float *v1, float *v2, float *rwork, long *iwork, float *ak, float *bk, float *bnrm, float *solnrm)
int sslui2_(const long *n, const float *b, float *x, long *il, long *jl, float *l, float *dinv, long *iu, long *ju, float *u)
int shels_(float *a, long *lda, const long *n, float *q, float *b)
int ssmmi2_(const long *n, const float *b, float *x, long *il, long *jl, float *l, float *dinv, long *iu, long *ju, float *u)
int ssmmti_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *rwork, long *iwork)
int sslui4_(const long *n, const float *b, float *x, long *il, long *jl, float *l, float *dinv, long *iu, long *ju, float *u)
int ssjac_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int sxlcal_(const long *n, long *lgmr, float *x, float *xl, float *zl, float *hes, long *maxlp1, float *q, float *v, float *r0nrm, float *wk, float *sz, long *jscal, long *jpre, int(*msolve)(), long *nmsl, float *rpar, long *ipar, const long *nelt, long *ia, long *ja, float *a, long *isym)
int ssluti_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *rwork, long *iwork)
long issbcg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *rr, float *zz, float *pp, float *dz, float *rwork, long *iwork, float *ak, float *bk, float *bnrm, float *solnrm)
int srlcal_(const long *n, long *kmp, long *ll, long *maxl, float *v, float *q, float *rl, float *snormw, float *prod, float *r0nrm)
int ssd2s_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *dinv)
int sir_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *dz, float *rwork, long *iwork)
int scgs_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *r0, float *p, float *q, float *u, float *v1, float *v2, float *rwork, long *iwork)
int sslubc_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssdomn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nsave, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int stin_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *soln, float *rhs, const long *iunit, long *job)
long issgmr_(const long *n, const float *b, float *x, float *xl, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*msolve)(), long *nmsl, const long *itol, const float *tol, const long *itmax, long *iter, float *err, const long *iunit, float *r, float *z, float *dz, float *rwork, long *iwork, float *rnrm, float *bnrm, float *sb, float *sx, long *jscal, long *kmp, long *lgmr, long *maxl, long *maxlp1, float *v, float *q, float *snormw, float *prod, float *r0nrm, float *hes, long *jpre)
int ssdbcg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssds_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *dinv)
long issomn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*msolve)(), long *nsave, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *ap, float *emap, float *dz, float *csav, float *rwork, long *iwork, float *ak, float *bnrm, float *solnrm)
long issir_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *dz, float *rwork, long *iwork, float *bnrm, float *solnrm)
int ssllti_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *rwork, long *iwork)
int sbhin_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *soln, float *rhs, const long *iunit, long *job)
int sheqr_(float *a, long *lda, const long *n, float *q, long *info, long *ijob)
int ssgs_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int sslugm_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nsave, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssiccg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int qs2i1r_(long *ia, long *ja, float *a, const long *n, long *kflag)
int somn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*msolve)(), long *nsave, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *ap, float *emap, float *dz, float *csav, float *rwork, long *iwork)
int ssdcgn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int sgmres_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *sb, float *sx, float *rgwk, long *lrgw, long *igwk, long *ligw, float *rwork, long *iwork)
int ssluom_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nsave, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssli_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *rwork, long *iwork)
long isscgn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*mttvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *atp, float *atz, float *dz, float *atdz, float *rwork, long *iwork, float *ak, float *bk, float *bnrm, float *solnrm)
int ssilus_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nl, long *il, long *jl, float *l, float *dinv, long *nu, long *iu, long *ju, float *u, long *nrow, long *ncol)
int dllti2_(const long *n, const float *b, float *x, long *nel, long *iel, long *jel, float *el, float *dinv)
int ssdscl_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *x, const float *b, float *dinv, long *job, long *itol)
int ss2y_(const long *n, const long *nelt, long *ia, long *ja, float *a, long *isym)
int scg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *dz, float *rwork, long *iwork)
int sslucn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssdi_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *rwork, long *iwork)
int stout_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *soln, float *rhs, const long *iunit, long *job)
int ssdcgs_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int sorth_(float *vnew, float *v, float *hes, const long *n, long *ll, long *ldhes, long *kmp, float *snormw)
int sslui_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, float *rwork, long *iwork)
int ss2lt_(const long *n, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nel, long *iel, long *jel, float *el)
int ssdgmr_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, long *nsave, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssmv_(const long *n, float *x, float *y, const long *nelt, long *ia, long *ja, float *a, long *isym)
int ssli2_(const long *n, const float *b, float *x, long *nel, long *iel, long *jel, float *el)
int sbcg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*mttvec)(), int(*msolve)(), int(*mtsolv)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *rr, float *zz, float *pp, float *dz, float *rwork, long *iwork)
int ssilur_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int ssmtv_(const long *n, float *x, float *y, const long *nelt, long *ia, long *ja, float *a, long *isym)
int sslucs_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
int scgn_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*matvec)(), int(*mttvec)(), int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *atp, float *atz, float *dz, float *atdz, float *rwork, long *iwork)
int ssdcg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *rwork, const long *lenw, long *iwork, const long *leniw)
long isscg_(const long *n, const float *b, float *x, const long *nelt, long *ia, long *ja, float *a, const long *isym, int(*msolve)(), const long *itol, const float *tol, const long *itmax, long *iter, float *err, long *ierr, const long *iunit, float *r, float *z, float *p, float *dz, float *rwork, long *iwork, float *ak, float *bk, float *bnrm, float *solnrm)
****INTEGER imax DOUBLE PRECISION m_pi *DOUBLE PRECISION m_amfin DOUBLE PRECISION m_Chfin DOUBLE PRECISION m_Xenph DOUBLE PRECISION m_sinw2 DOUBLE PRECISION m_GFermi DOUBLE PRECISION m_MfinMin DOUBLE PRECISION m_ta2 INTEGER m_out INTEGER m_KeyFSR INTEGER m_KeyQCD *COMMON c_Semalib $ !copy of input $ !CMS energy $ !beam mass $ !final mass $ !beam charge $ !final charge $ !smallest final mass $ !Z mass $ !Z width $ !EW mixing angle $ !Gmu Fermi $ alphaQED at q
**********Class see also m_nmax DOUBLE PRECISION m_amel DOUBLE PRECISION m_x2 DOUBLE PRECISION m_alfinv DOUBLE PRECISION m_Xenph INTEGER m_KeyWtm INTEGER m_idyfs DOUBLE PRECISION m_zini DOUBLE PRECISION m_q2 DOUBLE PRECISION m_Wt_KF DOUBLE PRECISION m_WtCut INTEGER m_KFfin *COMMON c_KarLud $ !Input CMS energy[GeV] $ !CMS energy after beam spread beam strahlung[GeV] $ !Beam energy spread[GeV] $ !z boost due to beam spread $ !electron beam mass *ff pair spectrum $ !minimum v
1.9.6