3extern int sbcg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
4 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
int ( *mttvec )(),
5 int ( *msolve )(),
int ( *mtsolv )(),
const long* itol,
const float* tol,
6 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
7 float* r,
float* z,
float* p,
float* rr,
float* zz,
float* pp,
float* dz,
8 float* rwork,
long* iwork );
9extern int ssdbcg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
10 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
11 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
12 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
13extern int sslubc_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
14 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
15 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
16 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
17extern long issbcg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
18 long* ja,
float* a,
const long* isym,
int ( *msolve )(),
const long* itol,
19 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
20 const long* iunit,
float* r,
float* z,
float* p,
float* rr,
float* zz,
21 float* pp,
float* dz,
float* rwork,
long* iwork,
float* ak,
float* bk,
22 float* bnrm,
float* solnrm );
38extern int scg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
long* ja,
39 float* a,
const long* isym,
int ( *matvec )(),
int ( *msolve )(),
40 const long* itol,
const float* tol,
const long* itmax,
long*
iter,
float* err,
41 long* ierr,
const long* iunit,
float* r,
float* z,
float* p,
float* dz,
42 float* rwork,
long* iwork );
43extern int ssdcg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
44 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
45 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
46 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
47extern int ssiccg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
48 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
49 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
50 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
51extern long isscg_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
52 long* ja,
float* a,
const long* isym,
int ( *msolve )(),
const long* itol,
53 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
54 const long* iunit,
float* r,
float* z,
float* p,
float* dz,
float* rwork,
55 long* iwork,
float* ak,
float* bk,
float* bnrm,
float* solnrm );
70extern int scgn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
71 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
int ( *mttvec )(),
72 int ( *msolve )(),
const long* itol,
const float* tol,
const long* itmax,
73 long*
iter,
float* err,
long* ierr,
const long* iunit,
float* r,
float* z,
74 float* p,
float* atp,
float* atz,
float* dz,
float* atdz,
float* rwork,
76extern int ssdcgn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
77 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
78 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
79 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
80extern int sslucn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
81 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
82 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
83 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
84extern long isscgn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
85 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
86 int ( *mttvec )(),
int ( *msolve )(),
const long* itol,
const float* tol,
87 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
88 float* r,
float* z,
float* p,
float* atp,
float* atz,
float* dz,
89 float* atdz,
float* rwork,
long* iwork,
float* ak,
float* bk,
float* bnrm,
105extern int scgs_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
106 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
int ( *msolve )(),
107 const long* itol,
const float* tol,
const long* itmax,
long*
iter,
108 float* err,
long* ierr,
const long* iunit,
float* r,
float* r0,
float* p,
109 float*
q,
float* u,
float* v1,
float* v2,
float* rwork,
long* iwork );
110extern int ssdcgs_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
111 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
112 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
113 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
114extern int sslucs_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
115 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
116 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
117 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
118extern long isscgs_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
119 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
120 int ( *msolve )(),
const long* itol,
const float* tol,
const long* itmax,
121 long*
iter,
float* err,
long* ierr,
const long* iunit,
float* r,
122 float* r0,
float* p,
float*
q,
float* u,
float* v1,
float* v2,
123 float* rwork,
long* iwork,
float* ak,
float* bk,
float* bnrm,
137extern int sgmres_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
138 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
int ( *msolve )(),
139 const long* itol,
const float* tol,
const long* itmax,
long*
iter,
140 float* err,
long* ierr,
const long* iunit,
float* sb,
float* sx,
141 float* rgwk,
long* lrgw,
long* igwk,
long* ligw,
float* rwork,
143extern int ssdgmr_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
144 long* ja,
float* a,
const long* isym,
long* nsave,
const long* itol,
145 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
146 const long* iunit,
float* rwork,
const long* lenw,
long* iwork,
148extern int sslugm_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
149 long* ja,
float* a,
const long* isym,
long* nsave,
const long* itol,
150 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
151 const long* iunit,
float* rwork,
const long* lenw,
long* iwork,
153extern int shels_(
float* a,
long* lda,
const long*
n,
float*
q,
float* b );
154extern int sheqr_(
float* a,
long* lda,
const long*
n,
float*
q,
long* info,
long* ijob );
155extern int sorth_(
float* vnew,
float*
v,
float* hes,
const long*
n,
long* ll,
long* ldhes,
156 long* kmp,
float* snormw );
157extern int spigmr_(
const long*
n,
float* r0,
float* sr,
float* sz,
long* jscal,
long* maxl,
158 long* maxlp1,
long* kmp,
long* nrsts,
long* jpre,
int ( *matvec )(),
159 int ( *msolve )(),
long* nmsl,
float* z,
float*
v,
float* hes,
float*
q,
160 long* lgmr,
float* rpar,
long* ipar,
float* wk,
float* dl,
float* rhol,
161 long* nrmax,
const float* b,
float* bnrm,
float* x,
float* xl,
162 const long* itol,
const float* tol,
const long* nelt,
long* ia,
long* ja,
163 float* a,
const long* isym,
const long* iunit,
long* iflag,
float* err );
164extern int srlcal_(
const long*
n,
long* kmp,
long* ll,
long* maxl,
float*
v,
float*
q,
165 float* rl,
float* snormw,
float* prod,
float* r0nrm );
166extern int sxlcal_(
const long*
n,
long* lgmr,
float* x,
float* xl,
float* zl,
float* hes,
167 long* maxlp1,
float*
q,
float*
v,
float* r0nrm,
float* wk,
float* sz,
168 long* jscal,
long* jpre,
int ( *msolve )(),
long* nmsl,
float* rpar,
169 long* ipar,
const long* nelt,
long* ia,
long* ja,
float* a,
long* isym );
170extern long issgmr_(
const long*
n,
const float* b,
float* x,
float* xl,
const long* nelt,
171 long* ia,
long* ja,
float* a,
const long* isym,
int ( *msolve )(),
172 long* nmsl,
const long* itol,
const float* tol,
const long* itmax,
173 long*
iter,
float* err,
const long* iunit,
float* r,
float* z,
float* dz,
174 float* rwork,
long* iwork,
float* rnrm,
float* bnrm,
float* sb,
float* sx,
175 long* jscal,
long* kmp,
long* lgmr,
long* maxl,
long* maxlp1,
float*
v,
176 float*
q,
float* snormw,
float* prod,
float* r0nrm,
float* hes,
192extern int sir_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
long* ja,
193 float* a,
const long* isym,
int ( *matvec )(),
int ( *msolve )(),
194 const long* itol,
const float* tol,
const long* itmax,
long*
iter,
float* err,
195 long* ierr,
const long* iunit,
float* r,
float* z,
float* dz,
float* rwork,
197extern int ssjac_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
198 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
199 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
200 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
201extern int ssgs_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
202 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
203 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
204 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
205extern int ssilur_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
206 long* ja,
float* a,
const long* isym,
const long* itol,
const float* tol,
207 const long* itmax,
long*
iter,
float* err,
long* ierr,
const long* iunit,
208 float* rwork,
const long* lenw,
long* iwork,
const long* leniw );
209extern long issir_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
210 long* ja,
float* a,
const long* isym,
int ( *msolve )(),
const long* itol,
211 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
212 const long* iunit,
float* r,
float* z,
float* dz,
float* rwork,
213 long* iwork,
float* bnrm,
float* solnrm );
226extern int sbhin_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
227 const long* isym,
float* soln,
float* rhs,
const long* iunit,
long* job );
228extern int schkw_(
char* name,
long* lociw,
const long* leniw,
long* locw,
const long* lenw,
229 long* ierr,
long*
iter,
float* err,
int name_len );
230extern int qs2i1r_(
long* ia,
long* ja,
float* a,
const long*
n,
long* kflag );
231extern int ss2y_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
long* isym );
232extern int scpplt_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
233 const long* isym,
long* iunit );
234extern int stout_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
235 const long* isym,
float* soln,
float* rhs,
const long* iunit,
long* job );
236extern int stin_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
237 const long* isym,
float* soln,
float* rhs,
const long* iunit,
long* job );
241extern int ssds_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
242 const long* isym,
float* dinv );
243extern int ssdscl_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
244 const long* isym,
float* x,
const float* b,
float* dinv,
long* job,
246extern int ssd2s_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
247 const long* isym,
float* dinv );
248extern int ss2lt_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
249 const long* isym,
long* nel,
long* iel,
long* jel,
float* el );
250extern int ssics_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
251 const long* isym,
long* nel,
long* iel,
long* jel,
float* el,
float* d,
252 float* r,
long* iwarn );
253extern int ssilus_(
const long*
n,
const long* nelt,
long* ia,
long* ja,
float* a,
254 const long* isym,
long* nl,
long* il,
long* jl,
float* l,
float* dinv,
255 long* nu,
long* iu,
long* ju,
float* u,
long* nrow,
long* ncol );
258extern int ssmv_(
const long*
n,
float* x,
float* y,
const long* nelt,
long* ia,
long* ja,
259 float* a,
long* isym );
260extern int ssmtv_(
const long*
n,
float* x,
float* y,
const long* nelt,
long* ia,
long* ja,
261 float* a,
long* isym );
262extern int ssdi_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
263 long* ja,
float* a,
const long* isym,
float* rwork,
long* iwork );
264extern int ssli_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
265 long* ja,
float* a,
const long* isym,
float* rwork,
long* iwork );
266extern int ssli2_(
const long*
n,
const float* b,
float* x,
long* nel,
long* iel,
long* jel,
268extern int ssllti_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
269 long* ja,
float* a,
const long* isym,
float* rwork,
long* iwork );
270extern int dllti2_(
const long*
n,
const float* b,
float* x,
long* nel,
long* iel,
long* jel,
271 float* el,
float* dinv );
272extern int sslui_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
273 long* ja,
float* a,
const long* isym,
float* rwork,
long* iwork );
274extern int sslui2_(
const long*
n,
const float* b,
float* x,
long* il,
long* jl,
float* l,
275 float* dinv,
long* iu,
long* ju,
float* u );
276extern int ssluti_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
277 long* ja,
float* a,
const long* isym,
float* rwork,
long* iwork );
278extern int sslui4_(
const long*
n,
const float* b,
float* x,
long* il,
long* jl,
float* l,
279 float* dinv,
long* iu,
long* ju,
float* u );
280extern int ssmmti_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
281 long* ja,
float* a,
const long* isym,
float* rwork,
long* iwork );
282extern int ssmmi2_(
const long*
n,
const float* b,
float* x,
long* il,
long* jl,
float* l,
283 float* dinv,
long* iu,
long* ju,
float* u );
284extern int somn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
285 long* ja,
float* a,
const long* isym,
int ( *matvec )(),
int ( *msolve )(),
286 long* nsave,
const long* itol,
const float* tol,
const long* itmax,
287 long*
iter,
float* err,
long* ierr,
const long* iunit,
float* r,
float* z,
288 float* p,
float* ap,
float* emap,
float* dz,
float* csav,
float* rwork,
290extern int ssdomn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
291 long* ja,
float* a,
const long* isym,
long* nsave,
const long* itol,
292 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
293 const long* iunit,
float* rwork,
const long* lenw,
long* iwork,
295extern int ssluom_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
296 long* ja,
float* a,
const long* isym,
long* nsave,
const long* itol,
297 const float* tol,
const long* itmax,
long*
iter,
float* err,
long* ierr,
298 const long* iunit,
float* rwork,
const long* lenw,
long* iwork,
300extern long issomn_(
const long*
n,
const float* b,
float* x,
const long* nelt,
long* ia,
301 long* ja,
float* a,
const long* isym,
int ( *msolve )(),
long* nsave,
302 const long* itol,
const float* tol,
const long* itmax,
long*
iter,
303 float* err,
long* ierr,
const long* iunit,
float* r,
float* z,
float* p,
304 float* ap,
float* emap,
float* dz,
float* csav,
float* rwork,
long* iwork,
305 float* ak,
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
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)
1.16.1