00001 extern int dbcg_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*mttvec)(), int (*msolve)(), int (*mtsolv)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *rr, double *zz, double *pp, double *dz, double *rwork, long *iwork);
00002 extern int dsdbcg_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00003 extern int dslubc_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00004 extern long isdbcg_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *rr, double *zz, double *pp, double *dz, double *rwork, long *iwork, double *ak, double *bk, double *bnrm, double *solnrm);
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 extern int dcg_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *dz, double *rwork, long *iwork);
00021 extern int dsdcg_(const int *n, const double *b, double *x, const long *nelt, int *ia, int *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00022 extern int dsiccg_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00023 extern long isdcg_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *dz, double *rwork, long *iwork, double *ak, double *bk, double *bnrm, double *solnrm);
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038 extern int dcgn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*mttvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *atp, double *atz, double *dz, double *atdz, double *rwork, long *iwork);
00039 extern int dsdcgn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00040 extern int dslucn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00041 extern long isdcgn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*mttvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *atp, double *atz, double *dz, double *atdz, double *rwork, long *iwork, double *ak, double *bk, double *bnrm, double *solnrm);
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056 extern int dcgs_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *r0, double *p, double *q, double *u, double *v1, double *v2, double *rwork, long *iwork);
00057 extern int dsdcgs_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00058 extern int dslucs_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00059 extern long isdcgs_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *r0, double *p, double *q, double *u, double *v1, double *v2, double *rwork, long *iwork, double *ak, double *bk, double *bnrm, double *solnrm);
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072 extern int dgmres_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *sb, double *sx, double *rgwk, long *lrgw, long *igwk, long *ligw, double *rwork, long *iwork);
00073 extern int dsdgmr_(const int *n, const double *b, double *x, const long *nelt, int *ia, int *ja, double *a, const long *isym, long *nsave, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00074 extern int dslugm_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, long *nsave, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00075 extern int dhels_(double *a, long *lda, const long *n, double *q, double *b);
00076 extern int dheqr_(double *a, long *lda, const long *n, double *q, long *info, long *ijob);
00077 extern int dorth_(double *vnew, double *v, double *hes, const long *n, long *ll, long *ldhes, long *kmp, double *snormw);
00078 extern int dpigmr_(const long *n, double *r0, double *sr, double *sz, long *jscal, long *maxl, long *maxlp1, long *kmp, long *nrsts, long *jpre, int (*matvec)(), int (*msolve)(), long *nmsl, double *z, double *v, double *hes, double *q, long *lgmr, double *rpar, long *ipar, double *wk, double *dl, double *rhol, long *nrmax, const double *b, double *bnrm, double *x, double *xl, const long *itol, const double *tol, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *iunit, long *iflag, double *err);
00079 extern int drlcal_(const long *n, long *kmp, long *ll, long *maxl, double *v, double *q, double *rl, double *snormw, double *prod, double *r0nrm);
00080 extern int dxlcal_(const long *n, long *lgmr, double *x, double *xl, double *zl, double *hes, long *maxlp1, double *q, double *v, double *r0nrm, double *wk, double *sz, long *jscal, long *jpre, int (*msolve)(), long *nmsl, double *rpar, long *ipar, const long *nelt, long *ia, long *ja, double *a, long *isym);
00081 extern long isdgmr_(const long *n, const double *b, double *x, double *xl, const long *nelt, double *ia, double *ja, double *a, const long *isym, int (*msolve)(), long *nmsl, const long *itol, const double *tol, const long *itmax, long *iter, double *err, const long *iunit, double *r, double *z, double *dz, double *rwork, double *iwork, double *rnrm, double *bnrm, double *sb, double *sx, long *jscal, long *kmp, long *lgmr, long *maxl, long *maxlp1, double *v, double *q, double *snormw, double *prod, double *r0nrm, double *hes, long *jpre);
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094
00095
00096
00097 extern int dir_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *dz, double *rwork, long *iwork);
00098 extern int dsjac_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00099 extern int dsgs_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00100 extern int dsilur_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00101 extern long isdir_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*msolve)(), const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *dz, double *rwork, long *iwork, double *bnrm, double *solnrm);
00102
00103
00104
00105
00106
00107
00108
00109
00110
00111
00112
00113
00114 extern int dbhin_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *soln, double *rhs, const long *iunit, long *job);
00115 extern int dchkw_(char *name, long *lociw, const long *leniw, long *locw, const long *lenw, long *ierr, long *iter, double *err, int name_len);
00116 extern int qs2i1d_(long *ia, long *ja, double *a, const long *n, long *kflag);
00117 extern int ds2y_(const long *n, const long *nelt, long *ia, long *ja, double *a, long *isym);
00118 extern int dcpplt_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, const long *iunit);
00119 extern int dtout_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *soln, double *rhs, const long *iunit, long *job);
00120 extern int dtin_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *soln, double *rhs, const long *iunit, long *job);
00121
00122
00123
00124 extern int dsds_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *dinv);
00125 extern int dsdscl_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *x, const double *b, double *dinv, long *job, long *itol);
00126 extern int dsd2s_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *dinv);
00127 extern int ds2lt_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, long *nel, long *iel, long *jel, double *el);
00128 extern int dsics_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, long *nel, long *iel, long *jel, double *el, double *d, double *r, long *iwarn);
00129 extern int dsilus_(const long *n, const long *nelt, long *ia, long *ja, double *a, const long *isym, long *nl, long *il, long *jl, double *l, double *dinv, long *nu, long *iu, long *ju, double *u, long *nrow, long *ncol);
00130
00131
00132 extern int dsmv_(const long *n, double *x, double *y, const long *nelt, long *ia, long *ja, double *a, long *isym);
00133 extern int dsmtv_(const long *n, double *x, double *y, const long *nelt, long *ia, long *ja, double *a, long *isym);
00134 extern int dsdi_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *rwork, long *iwork);
00135 extern int dsli_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *rwork, long *iwork);
00136 extern int dsli2_(const long *n, const double *b, double *x, long *nel, long *iel, long *jel, double *el);
00137 extern int dsllti_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *rwork, long *iwork);
00138 extern int dllti2_(const long *n, const double *b, double *x, long *nel, long *iel, long *jel, double *el, double *dinv);
00139 extern int dslui_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *rwork, long *iwork);
00140 extern int dslui2_(const long *n, const double *b, double *x, long *il, long *jl, double *l, double *dinv, long *iu, long *ju, double *u);
00141 extern int dsluti_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *rwork, long *iwork);
00142 extern int dslui4_(const long *n, const double *b, double *x, long *il, long *jl, double *l, double *dinv, long *iu, long *ju, double *u);
00143 extern int dsmmti_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, double *rwork, long *iwork);
00144 extern int dsmmi2_(const long *n, const double *b, double *x, long *il, long *jl, double *l, double *dinv, long *iu, long *ju, double *u);
00145 extern int domn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*matvec)(), int (*msolve)(), long *nsave, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *ap, double *emap, double *dz, double *csav, double *rwork, long *iwork);
00146 extern int dsdomn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, long *nsave, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00147 extern int dsluom_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, long *nsave, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *rwork, const long *lenw, long *iwork, const long *leniw);
00148 extern long isdomn_(const long *n, const double *b, double *x, const long *nelt, long *ia, long *ja, double *a, const long *isym, int (*msolve)(), long *nsave, const long *itol, const double *tol, const long *itmax, long *iter, double *err, long *ierr, const long *iunit, double *r, double *z, double *p, double *ap, double *emap, double *dz, double *csav, double *rwork, long *iwork, double *ak, double *bnrm, double *solnrm);
00149
00150
00151
00152
00153
00154
00155
00156
00157
00158
00159
00160
00161