PUNC: vcgcode.h Source File

00001 /*
00002  * ***************************************************************************
00003  * PUNC = < Portable Understructure for Numerical Computing >
00004  * Copyright (C) 1994--2008 Michael Holst
00005  *
00006  * This library is free software; you can redistribute it and/or
00007  * modify it under the terms of the GNU Lesser General Public
00008  * License as published by the Free Software Foundation; either
00009  * version 2.1 of the License, or (at your option) any later version.
00010  *
00011  * This library is distributed in the hope that it will be useful,
00012  * but WITHOUT ANY WARRANTY; without even the implied warranty of
00013  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
00014  * Lesser General Public License for more details.
00015  *
00016  * You should have received a copy of the GNU Lesser General Public
00017  * License along with this library; if not, write to the Free Software
00018  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
00019  *
00020  * rcsid="$Id: vcgcode.h,v 1.6 2008/05/01 00:54:48 fetk Exp $"
00021  * ***************************************************************************
00022  */
00023 
00024 /*
00025  * ***************************************************************************
00026  * File:     vcgcode.h
00027  *
00028  * Purpose:  The primary header for CgCode.
00029  *
00030  * Notes:    We provide this header whether or not we provide the BLAS
00031  *           library itself.  This gives us some compile-time type-checking
00032  *           even for architecture-dependent assembly-coded BLAS.
00033  *
00034  * Author:   Michael Holst
00035  * ***************************************************************************
00036  */
00037 
00038 #ifndef _VCGCODE_H_
00039 #define _VCGCODE_H_
00040 
00041 #include <punc/punc_base.h>
00042 
00043 #include <punc/vf2c.h>
00044 
00045 /*
00046  * ***************************************************************************
00047  * Library VCGCODE prototypes
00048  * ***************************************************************************
00049  */
00050 
00051 doublereal d1mach_(integer *idum);
00052 int dcbfix_(S_fp matvec, S_fp pcondl, doublereal *a, integer *ia, doublereal *c__, integer *ic, integer *ipc, doublereal *aa, doublereal *bb, integer *nsteps, doublereal *b, doublereal *x, doublereal *r__, doublereal *dx, doublereal *work, integer *n);
00053 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00054 int dcg_(S_fp matvec, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *ap, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00055 /*:ref: dcgchk_ 14 3 4 7 4 */
00056 /*:ref: d1mach_ 7 1 4 */
00057 /*:ref: dnrm2_ 7 3 4 7 4 */
00058 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00059 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00060 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00061 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00062 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00063 int dcgchk_(integer *ipar, doublereal *rpar, integer *n);
00064 /*:ref: d1mach_ 7 1 4 */
00065 int dcgdrv_(U_fp matvec, U_fp pcondl, U_fp pcondr, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, doublereal *q, integer *iq, doublereal *p, integer *ip, integer *iparam, doublereal *rparam, integer *iwork, doublereal *rwork, integer *ierror);
00066 /*:ref: dcg_ 14 15 200 7 4 7 7 4 4 7 4 7 7 7 7 7 4 */
00067 /*:ref: dcr_ 14 16 200 7 4 7 7 4 4 7 4 7 7 7 7 7 7 4 */
00068 /*:ref: dcrind_ 14 18 200 7 4 7 7 4 4 7 4 7 7 7 7 7 7 7 7 4 */
00069 /*:ref: dpcg_ 14 18 200 200 7 4 7 7 4 7 4 4 7 4 7 7 7 7 7 4 */
00070 /*:ref: dcgnr_ 14 15 200 7 4 7 7 4 4 7 4 7 7 7 7 7 4 */
00071 /*:ref: dcgne_ 14 15 200 7 4 7 7 4 4 7 4 7 7 7 7 7 4 */
00072 /*:ref: dpcgnr_ 14 19 200 200 7 4 7 7 4 7 4 4 7 4 7 7 7 7 7 7 4 */
00073 /*:ref: dpcgne_ 14 19 200 200 7 4 7 7 4 7 4 4 7 4 7 7 7 7 7 7 4 */
00074 /*:ref: dppcg_ 14 21 200 200 7 4 7 7 4 7 4 4 7 4 7 7 7 7 7 7 7 7 4 */
00075 /*:ref: dpcgca_ 14 21 200 200 7 4 7 7 4 7 4 4 7 4 7 7 7 7 7 7 7 7 4 */
00076 int dcgne_(S_fp matvec, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *h__, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00077 /*:ref: dcgchk_ 14 3 4 7 4 */
00078 /*:ref: d1mach_ 7 1 4 */
00079 /*:ref: dnrm2_ 7 3 4 7 4 */
00080 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00081 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00082 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00083 int dcgnr_(S_fp matvec, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *h__, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00084 /*:ref: dcgchk_ 14 3 4 7 4 */
00085 /*:ref: d1mach_ 7 1 4 */
00086 /*:ref: dnrm2_ 7 3 4 7 4 */
00087 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00088 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00089 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00090 int dckchb_(integer *ipar, doublereal *rpar, doublereal *pegmin, doublereal *pegmax, doublereal *condca);
00091 /*:ref: d1mach_ 7 1 4 */
00092 /*:ref: ddpchb_ 14 9 4 7 7 4 7 7 7 7 4 */
00093 int dcr_(S_fp matvec, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *ar, doublereal *ap, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00094 /*:ref: dcgchk_ 14 3 4 7 4 */
00095 /*:ref: d1mach_ 7 1 4 */
00096 /*:ref: dnrm2_ 7 3 4 7 4 */
00097 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00098 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00099 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00100 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00101 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00102 int dcrind_(S_fp matvec, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *aap, doublereal *ap, doublereal *pold, doublereal *apold, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00103 /*:ref: d1mach_ 7 1 4 */
00104 /*:ref: dcgchk_ 14 3 4 7 4 */
00105 /*:ref: dnrm2_ 7 3 4 7 4 */
00106 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00107 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00108 int ddpchb_(integer *iounit, doublereal *aa, doublereal *bb, integer *n, doublereal *cl, doublereal *cu, doublereal *cond, doublereal *ereps, integer *iadapt);
00109 /*:ref: d1mach_ 7 1 4 */
00110 doublereal depsln_(doublereal *x);
00111 int donest_(integer *iounit, doublereal *d__, doublereal *e, doublereal *w1, doublereal *w2, integer *ind, integer *nt, doublereal *eigmin, doublereal *eigmax, doublereal *cond);
00112 /*:ref: sratqr_ 14 12 4 7 7 7 7 4 7 4 7 12 4 4 */
00113 int dpcg_(S_fp matvec, S_fp pcondl, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, doublereal *q, integer *iq, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *h__, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00114 /*:ref: dcgchk_ 14 3 4 7 4 */
00115 /*:ref: d1mach_ 7 1 4 */
00116 /*:ref: dnrm2_ 7 3 4 7 4 */
00117 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00118 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00119 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00120 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00121 int dpcgca_(S_fp matvec, S_fp pcondl, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, doublereal *q, integer *iq, integer *iparam, doublereal *rparam, integer *iwork, doublereal *p, doublereal *h__, doublereal *cap, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *d__, doublereal *e, integer *ierror);
00122 /*:ref: dcgchk_ 14 3 4 7 4 */
00123 /*:ref: dckchb_ 14 5 4 7 7 7 7 */
00124 /*:ref: dnrm2_ 7 3 4 7 4 */
00125 /*:ref: dcbfix_ 14 16 214 214 7 4 7 4 4 7 7 4 7 7 7 7 7 4 */
00126 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00127 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00128 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00129 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00130 /*:ref: ddpchb_ 14 9 4 7 7 4 7 7 7 7 4 */
00131 int dpcgne_(S_fp matvec, S_fp pcondl, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, doublereal *q, integer *iq, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *h__, doublereal *ap, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00132 /*:ref: dcgchk_ 14 3 4 7 4 */
00133 /*:ref: d1mach_ 7 1 4 */
00134 /*:ref: dnrm2_ 7 3 4 7 4 */
00135 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00136 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00137 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00138 int dpcgnr_(S_fp matvec, S_fp pcondl, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, doublereal *q, integer *iq, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *h__, doublereal *ap, doublereal *d__, doublereal *e, doublereal *cndwk, integer *ierror);
00139 /*:ref: dcgchk_ 14 3 4 7 4 */
00140 /*:ref: d1mach_ 7 1 4 */
00141 /*:ref: dnrm2_ 7 3 4 7 4 */
00142 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00143 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00144 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00145 int dppcg_(S_fp matvec, S_fp pcondl, doublereal *a, integer *ia, doublereal *x, doublereal *b, integer *n, doublereal *q, integer *iq, integer *iparam, doublereal *rparam, integer *iwork, doublereal *r__, doublereal *h__, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *w4, doublereal *d__, doublereal *e, integer *ierror);
00146 /*:ref: dcgchk_ 14 3 4 7 4 */
00147 /*:ref: dckchb_ 14 5 4 7 7 7 7 */
00148 /*:ref: dnrm2_ 7 3 4 7 4 */
00149 /*:ref: dcbfix_ 14 16 214 214 7 4 7 4 4 7 7 4 7 7 7 7 7 4 */
00150 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00151 /*:ref: mdstop_ 4 16 4 4 4 7 7 4 7 7 7 4 7 7 7 7 7 4 */
00152 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00153 /*:ref: donest_ 14 10 4 7 7 7 7 4 4 7 7 7 */
00154 /*:ref: ddpchb_ 14 9 4 7 7 4 7 7 7 7 4 */
00155 int dratqr_(integer *n, doublereal *eps1, doublereal *d__, doublereal *e, doublereal *e2, integer *m, doublereal *w, integer *ind, doublereal *bd, logical *type__, integer *idef, integer *ierr);
00156 /*:ref: depsln_ 7 1 7 */
00157 integer mdstop_(integer *istop, integer *iters, integer *itmax, doublereal *errtol, doublereal *stptst, integer *ierror, doublereal *r__, doublereal *s, doublereal *z__, integer *n, doublereal *rnorm, doublereal *snorm, doublereal *znorm, doublereal *denom, doublereal *conda, integer *ido);
00158 /*:ref: dnrm2_ 7 3 4 7 4 */
00159 integer msstop_(integer *istop, integer *iters, integer *itmax, real *errtol, real *stptst, integer *ierror, real *r__, real *s, real *z__, integer *n, real *rnorm, real *snorm, real *znorm, real *denom, real *conda, integer *ido);
00160 /*:ref: snrm2_ 6 3 4 6 4 */
00161 E_f r1mach_(integer *idum);
00162 int scbfix_(S_fp matvec, S_fp pcondl, real *a, integer *ia, real *c__, integer *ic, integer *ipc, real *aa, real *bb, integer *nsteps, real *b, real *x, real *r__, real *dx, real *work, integer *n);
00163 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00164 int scg_(S_fp matvec, real *a, integer *ia, real *x, real *b, integer *n, integer *iparam, real *rparam, integer *iwork, real *r__, real *ap, real *d__, real *e, real *cndwk, integer *ierror);
00165 /*:ref: scgchk_ 14 3 4 6 4 */
00166 /*:ref: r1mach_ 6 1 4 */
00167 /*:ref: snrm2_ 6 3 4 6 4 */
00168 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00169 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00170 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00171 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00172 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00173 int scgchk_(integer *ipar, real *rpar, integer *n);
00174 /*:ref: r1mach_ 6 1 4 */
00175 int scgdrv_(U_fp matvec, U_fp pcondl, U_fp pcondr, real *a, integer *ia, real *x, real *b, integer *n, real *q, integer *iq, real *p, integer *ip, integer *iparam, real *rparam, integer *iwork, real *rwork, integer *ierror);
00176 /*:ref: scg_ 14 15 200 6 4 6 6 4 4 6 4 6 6 6 6 6 4 */
00177 /*:ref: scr_ 14 16 200 6 4 6 6 4 4 6 4 6 6 6 6 6 6 4 */
00178 /*:ref: scrind_ 14 18 200 6 4 6 6 4 4 6 4 6 6 6 6 6 6 6 6 4 */
00179 /*:ref: spcg_ 14 18 200 200 6 4 6 6 4 6 4 4 6 4 6 6 6 6 6 4 */
00180 /*:ref: scgnr_ 14 15 200 6 4 6 6 4 4 6 4 6 6 6 6 6 4 */
00181 /*:ref: scgne_ 14 15 200 6 4 6 6 4 4 6 4 6 6 6 6 6 4 */
00182 /*:ref: spcgnr_ 14 19 200 200 6 4 6 6 4 6 4 4 6 4 6 6 6 6 6 6 4 */
00183 /*:ref: spcgne_ 14 19 200 200 6 4 6 6 4 6 4 4 6 4 6 6 6 6 6 6 4 */
00184 /*:ref: sppcg_ 14 21 200 200 6 4 6 6 4 6 4 4 6 4 6 6 6 6 6 6 6 6 4 */
00185 /*:ref: spcgca_ 14 21 200 200 6 4 6 6 4 6 4 4 6 4 6 6 6 6 6 6 6 6 4 */
00186 int scgne_(S_fp matvec, real *a, integer *ia, real *x, real *b, integer *n, integer *iparam, real *rparam, integer *iwork, real *r__, real *h__, real *d__, real *e, real *cndwk, integer *ierror);
00187 /*:ref: scgchk_ 14 3 4 6 4 */
00188 /*:ref: r1mach_ 6 1 4 */
00189 /*:ref: snrm2_ 6 3 4 6 4 */
00190 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00191 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00192 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00193 int scgnr_(S_fp matvec, real *a, integer *ia, real *x, real *b, integer *n, integer *iparam, real *rparam, integer *iwork, real *r__, real *h__, real *d__, real *e, real *cndwk, integer *ierror);
00194 /*:ref: scgchk_ 14 3 4 6 4 */
00195 /*:ref: r1mach_ 6 1 4 */
00196 /*:ref: snrm2_ 6 3 4 6 4 */
00197 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00198 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00199 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00200 int sckchb_(integer *ipar, real *rpar, real *pegmin, real *pegmax, real *condca);
00201 /*:ref: r1mach_ 6 1 4 */
00202 /*:ref: sdpchb_ 14 9 4 6 6 4 6 6 6 6 4 */
00203 int scr_(S_fp matvec, real *a, integer *ia, real *x, real *b, integer *n, integer *iparam, real *rparam, integer *iwork, real *r__, real *ar, real *ap, real *d__, real *e, real *cndwk, integer *ierror);
00204 /*:ref: scgchk_ 14 3 4 6 4 */
00205 /*:ref: r1mach_ 6 1 4 */
00206 /*:ref: snrm2_ 6 3 4 6 4 */
00207 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00208 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00209 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00210 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00211 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00212 int scrind_(S_fp matvec, real *a, integer *ia, real *x, real *b, integer *n, integer *iparam, real *rparam, integer *iwork, real *r__, real *aap, real *ap, real *pold, real *apold, real *d__, real *e, real *cndwk, integer *ierror);
00213 /*:ref: r1mach_ 6 1 4 */
00214 /*:ref: scgchk_ 14 3 4 6 4 */
00215 /*:ref: snrm2_ 6 3 4 6 4 */
00216 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00217 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00218 int sdpchb_(integer *iounit, real *aa, real *bb, integer *n, real *cl, real *cu, real *cond, real *ereps, integer *iadapt);
00219 /*:ref: r1mach_ 6 1 4 */
00220 int sonest_(integer *iounit, real *d__, real *e, real *w1, real *w2, integer *ind, integer *nt, real *eigmin, real *eigmax, real *cond);
00221 /*:ref: sratqr_ 14 12 4 6 6 6 6 4 6 4 6 12 4 4 */
00222 int spcg_(S_fp matvec, S_fp pcondl, real *a, integer *ia, real *x, real *b, integer *n, real *q, integer *iq, integer *iparam, real *rparam, integer *iwork, real *r__, real *h__, real *d__, real *e, real *cndwk, integer *ierror);
00223 /*:ref: scgchk_ 14 3 4 6 4 */
00224 /*:ref: r1mach_ 6 1 4 */
00225 /*:ref: snrm2_ 6 3 4 6 4 */
00226 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00227 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00228 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00229 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00230 int spcgca_(S_fp matvec, S_fp pcondl, real *a, integer *ia, real *x, real *b, integer *n, real *q, integer *iq, integer *iparam, real *rparam, integer *iwork, real *p, real *h__, real *cap, real *w1, real *w2, real *w3, real *d__, real *e, integer *ierror);
00231 /*:ref: scgchk_ 14 3 4 6 4 */
00232 /*:ref: sckchb_ 14 5 4 6 6 6 6 */
00233 /*:ref: snrm2_ 6 3 4 6 4 */
00234 /*:ref: scbfix_ 14 16 214 214 6 4 6 4 4 6 6 4 6 6 6 6 6 4 */
00235 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00236 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00237 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00238 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00239 /*:ref: sdpchb_ 14 9 4 6 6 4 6 6 6 6 4 */
00240 int spcgne_(S_fp matvec, S_fp pcondl, real *a, integer *ia, real *x, real *b, integer *n, real *q, integer *iq, integer *iparam, real *rparam, integer *iwork, real *r__, real *h__, real *ap, real *d__, real *e, real *cndwk, integer *ierror);
00241 /*:ref: scgchk_ 14 3 4 6 4 */
00242 /*:ref: r1mach_ 6 1 4 */
00243 /*:ref: snrm2_ 6 3 4 6 4 */
00244 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00245 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00246 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00247 int spcgnr_(S_fp matvec, S_fp pcondl, real *a, integer *ia, real *x, real *b, integer *n, real *q, integer *iq, integer *iparam, real *rparam, integer *iwork, real *r__, real *h__, real *ap, real *d__, real *e, real *cndwk, integer *ierror);
00248 /*:ref: scgchk_ 14 3 4 6 4 */
00249 /*:ref: r1mach_ 6 1 4 */
00250 /*:ref: snrm2_ 6 3 4 6 4 */
00251 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00252 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00253 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00254 int sppcg_(S_fp matvec, S_fp pcondl, real *a, integer *ia, real *x, real *b, integer *n, real *q, integer *iq, integer *iparam, real *rparam, integer *iwork, real *r__, real *h__, real *w1, real *w2, real *w3, real *w4, real *d__, real *e, integer *ierror);
00255 /*:ref: scgchk_ 14 3 4 6 4 */
00256 /*:ref: sckchb_ 14 5 4 6 6 6 6 */
00257 /*:ref: snrm2_ 6 3 4 6 4 */
00258 /*:ref: scbfix_ 14 16 214 214 6 4 6 4 4 6 6 4 6 6 6 6 6 4 */
00259 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00260 /*:ref: msstop_ 4 16 4 4 4 6 6 4 6 6 6 4 6 6 6 6 6 4 */
00261 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00262 /*:ref: sonest_ 14 10 4 6 6 6 6 4 4 6 6 6 */
00263 /*:ref: sdpchb_ 14 9 4 6 6 4 6 6 6 6 4 */
00264 int sratqr_(integer *n, real *eps1, real *d__, real *e, real *e2, integer *m, real *w, integer *ind, real *bd, logical *type__, integer *idef, integer *ierr);
00265 /*:ref: r1mach_ 6 1 4 */
00266 
00267 #endif /* _VCGCODE_H_ */
00268 
00269