|
copasi API
0.1
|
copasi/blas.h
Go to the documentation of this file.
00001 /* Begin CVS Header 00002 $Source: /fs/turing/cvs/copasi_dev/copasi/blas.h,v $ 00003 $Revision: 1.3 $ 00004 $Name: Build-33 $ 00005 $Author: shoops $ 00006 $Date: 2006/04/27 01:34:21 $ 00007 End CVS Header */ 00008 00009 // Copyright © 2005 by Pedro Mendes, Virginia Tech Intellectual 00010 // Properties, Inc. and EML Research, gGmbH. 00011 // All rights reserved. 00012 extern "C" 00013 { 00014 /* Function */ 00015 VOID cdotc_(complex *ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 00016 /* Function */ 00017 VOID cdotu_(complex *ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 00018 /* Function */ 00019 VOID zdotc_(doublecomplex *ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00020 /* Function */ 00021 VOID zdotu_(doublecomplex *ret_val, integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00022 /* Function */ 00023 doublereal dasum_(integer *n, doublereal *dx, integer *incx); 00024 /* Function */ 00025 doublereal dcabs1_(doublecomplex *z); 00026 /* Function */ 00027 doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00028 /* Function */ 00029 doublereal dnrm2_(integer *n, doublereal *x, integer *incx); 00030 /* Function */ 00031 doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx); 00032 /* Function */ 00033 doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx); 00034 /* Function */ 00035 doublereal sasum_(integer *n, real *sx, integer *incx); 00036 /* Function */ 00037 doublereal scasum_(integer *n, complex *cx, integer *incx); 00038 /* Function */ 00039 doublereal scnrm2_(integer *n, complex *x, integer *incx); 00040 /* Function */ 00041 doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 00042 /* Function */ 00043 doublereal snrm2_(integer *n, real *x, integer *incx); 00044 /* Function */ 00045 integer icamax_(integer *n, complex *cx, integer *incx); 00046 /* Function */ 00047 integer idamax_(integer *n, doublereal *dx, integer *incx); 00048 /* Function */ 00049 integer isamax_(integer *n, real *sx, integer *incx); 00050 /* Function */ 00051 integer izamax_(integer *n, doublecomplex *zx, integer *incx); 00052 /* Function */ 00053 logical lsame_(char *ca, char *cb); 00054 00055 /* Subroutine */ 00056 int caxpy_(integer *n, complex *ca, complex *cx, integer *incx, complex *cy, integer *incy); 00057 /* Subroutine */ 00058 int ccopy_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 00059 /* Subroutine */ 00060 int cgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy); 00061 /* Subroutine */ 00062 int cgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c, integer *ldc); 00063 /* Subroutine */ 00064 int cgemv_(char *trans, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy); 00065 /* Subroutine */ 00066 int cgerc_(integer *m, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); 00067 /* Subroutine */ 00068 int cgeru_(integer *m, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); 00069 /* Subroutine */ 00070 int chbmv_(char *uplo, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy); 00071 /* Subroutine */ 00072 int chemm_(char *side, char *uplo, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c, integer *ldc); 00073 /* Subroutine */ 00074 int chemv_(char *uplo, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy); 00075 /* Subroutine */ 00076 int cher2_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); 00077 /* Subroutine */ 00078 int cher2k_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, real *beta, complex *c, integer *ldc); 00079 /* Subroutine */ 00080 int cher_(char *uplo, integer *n, real *alpha, complex *x, integer *incx, complex *a, integer *lda); 00081 /* Subroutine */ 00082 int cherk_(char *uplo, char *trans, integer *n, integer *k, real *alpha, complex *a, integer *lda, real *beta, complex *c, integer *ldc); 00083 /* Subroutine */ 00084 int chpmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx, complex *beta, complex *y, integer *incy); 00085 /* Subroutine */ 00086 int chpr2_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *y, integer *incy, complex *ap); 00087 /* Subroutine */ 00088 int chpr_(char *uplo, integer *n, real *alpha, complex *x, integer *incx, complex *ap); 00089 /* Subroutine */ 00090 int crotg_(complex *ca, complex *cb, real *c, complex *s); 00091 /* Subroutine */ 00092 int cscal_(integer *n, complex *ca, complex *cx, integer *incx); 00093 /* Subroutine */ 00094 int csscal_(integer *n, real *sa, complex *cx, integer *incx); 00095 /* Subroutine */ 00096 int cswap_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 00097 /* Subroutine */ 00098 int csymm_(char *side, char *uplo, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c, integer *ldc); 00099 /* Subroutine */ 00100 int csyr2k_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, complex *beta, complex *c, integer *ldc); 00101 /* Subroutine */ 00102 int csyrk_(char *uplo, char *trans, integer *n, integer *k, complex *alpha, complex *a, integer *lda, complex *beta, complex *c, integer *ldc); 00103 /* Subroutine */ 00104 int ctbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx); 00105 /* Subroutine */ 00106 int ctbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, complex *a, integer *lda, complex *x, integer *incx); 00107 /* Subroutine */ 00108 int ctpmv_(char *uplo, char *trans, char *diag, integer *n, complex *ap, complex *x, integer *incx); 00109 /* Subroutine */ 00110 int ctpsv_(char *uplo, char *trans, char *diag, integer *n, complex *ap, complex *x, integer *incx); 00111 /* Subroutine */ 00112 int ctrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb); 00113 /* Subroutine */ 00114 int ctrmv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx); 00115 /* Subroutine */ 00116 int ctrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, complex *alpha, complex *a, integer *lda, complex *b, integer *ldb); 00117 /* Subroutine */ 00118 int ctrsv_(char *uplo, char *trans, char *diag, integer *n, complex *a, integer *lda, complex *x, integer *incx); 00119 /* Subroutine */ 00120 int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00121 /* Subroutine */ 00122 int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00123 /* Subroutine */ 00124 int dgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); 00125 /* Subroutine */ 00126 int dgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c, integer *ldc); 00127 /* Subroutine */ 00128 int dgemv_(char *trans, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); 00129 /* Subroutine */ 00130 int dger_(integer *m, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda); 00131 /* Subroutine */ 00132 int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *c, doublereal *s); 00133 /* Subroutine */ 00134 int drotg_(doublereal *da, doublereal *db, doublereal *c, doublereal *s); 00135 /* Subroutine */ 00136 int dsbmv_(char *uplo, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); 00137 /* Subroutine */ 00138 int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx); 00139 /* Subroutine */ 00140 int dspmv_(char *uplo, integer *n, doublereal *alpha, doublereal *ap, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); 00141 /* Subroutine */ 00142 int dspr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ap); 00143 /* Subroutine */ 00144 int dspr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *ap); 00145 /* Subroutine */ 00146 int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00147 /* Subroutine */ 00148 int dsymm_(char *side, char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c, integer *ldc); 00149 /* Subroutine */ 00150 int dsymv_(char *uplo, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy); 00151 /* Subroutine */ 00152 int dsyr2_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *a, integer *lda); 00153 /* Subroutine */ 00154 int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *beta, doublereal *c, integer *ldc); 00155 /* Subroutine */ 00156 int dsyr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *a, integer *lda); 00157 /* Subroutine */ 00158 int dsyrk_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, doublereal *c, integer *ldc); 00159 /* Subroutine */ 00160 int dtbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); 00161 /* Subroutine */ 00162 int dtbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); 00163 /* Subroutine */ 00164 int dtpmv_(char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx); 00165 /* Subroutine */ 00166 int dtpsv_(char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx); 00167 /* Subroutine */ 00168 int dtrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb); 00169 /* Subroutine */ 00170 int dtrmv_(char *uplo, char *trans, char *diag, integer *n, doublereal *a, integer *lda, doublereal *x, integer *incx); 00171 /* Subroutine */ 00172 int dtrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *b, integer *ldb); 00173 /* Subroutine */ 00174 int dtrsv_(char *uplo, char *trans, char *diag, integer *n, doublereal *a, integer *lda, doublereal *x, integer *incx); 00175 /* Subroutine */ 00176 int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy); 00177 /* Subroutine */ 00178 int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 00179 /* Subroutine */ 00180 int sgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy); 00181 /* Subroutine */ 00182 int sgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c, integer *ldc); 00183 /* Subroutine */ 00184 int sgemv_(char *trans, integer *m, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy); 00185 /* Subroutine */ 00186 int sger_(integer *m, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda); 00187 /* Subroutine */ 00188 int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *c, real *s); 00189 /* Subroutine */ 00190 int srotg_(real *sa, real *sb, real *c, real *s); 00191 /* Subroutine */ 00192 int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy); 00193 /* Subroutine */ 00194 int sscal_(integer *n, real *sa, real *sx, integer *incx); 00195 /* Subroutine */ 00196 int sspmv_(char *uplo, integer *n, real *alpha, real *ap, real *x, integer *incx, real *beta, real *y, integer *incy); 00197 /* Subroutine */ 00198 int sspr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *ap); 00199 /* Subroutine */ 00200 int sspr_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *ap); 00201 /* Subroutine */ 00202 int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 00203 /* Subroutine */ 00204 int ssymm_(char *side, char *uplo, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c, integer *ldc); 00205 /* Subroutine */ 00206 int ssymv_(char *uplo, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy); 00207 /* Subroutine */ 00208 int ssyr2_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *y, integer *incy, real *a, integer *lda); 00209 /* Subroutine */ 00210 int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, real *c, integer *ldc); 00211 /* Subroutine */ 00212 int ssyr_(char *uplo, integer *n, real *alpha, real *x, integer *incx, real *a, integer *lda); 00213 /* Subroutine */ 00214 int ssyrk_(char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *beta, real *c, integer *ldc); 00215 /* Subroutine */ 00216 int stbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx); 00217 /* Subroutine */ 00218 int stbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, real *a, integer *lda, real *x, integer *incx); 00219 /* Subroutine */ 00220 int stpmv_(char *uplo, char *trans, char *diag, integer *n, real *ap, real *x, integer *incx); 00221 /* Subroutine */ 00222 int stpsv_(char *uplo, char *trans, char *diag, integer *n, real *ap, real *x, integer *incx); 00223 /* Subroutine */ 00224 int strmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb); 00225 /* Subroutine */ 00226 int strmv_(char *uplo, char *trans, char *diag, integer *n, real *a, integer *lda, real *x, integer *incx); 00227 /* Subroutine */ 00228 int strsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, integer *ldb); 00229 /* Subroutine */ 00230 int strsv_(char *uplo, char *trans, char *diag, integer *n, real *a, integer *lda, real *x, integer *incx); 00231 /* Subroutine */ 00232 int xerbla_(char *srname, integer *info); 00233 /* Subroutine */ 00234 int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00235 /* Subroutine */ 00236 int zcopy_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00237 /* Subroutine */ 00238 int zdscal_(integer *n, doublereal *da, doublecomplex *zx, integer *incx); 00239 /* Subroutine */ 00240 int zgbmv_(char *trans, integer *m, integer *n, integer *kl, integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy); 00241 /* Subroutine */ 00242 int zgemm_(char *transa, char *transb, integer *m, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c, integer *ldc); 00243 /* Subroutine */ 00244 int zgemv_(char *trans, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy); 00245 /* Subroutine */ 00246 int zgerc_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda); 00247 /* Subroutine */ 00248 int zgeru_(integer *m, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda); 00249 /* Subroutine */ 00250 int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy); 00251 /* Subroutine */ 00252 int zhemm_(char *side, char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c, integer *ldc); 00253 /* Subroutine */ 00254 int zhemv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy); 00255 /* Subroutine */ 00256 int zher2_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *a, integer *lda); 00257 /* Subroutine */ 00258 int zher2k_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *beta, doublecomplex *c, integer *ldc); 00259 /* Subroutine */ 00260 int zher_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda); 00261 /* Subroutine */ 00262 int zherk_(char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, doublecomplex *c, integer *ldc); 00263 /* Subroutine */ 00264 int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy); 00265 /* Subroutine */ 00266 int zhpr2_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublecomplex *ap); 00267 /* Subroutine */ 00268 int zhpr_(char *uplo, integer *n, doublereal *alpha, doublecomplex *x, integer *incx, doublecomplex *ap); 00269 /* Subroutine */ 00270 int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal *c, doublecomplex *s); 00271 /* Subroutine */ 00272 int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx); 00273 /* Subroutine */ 00274 int zswap_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00275 /* Subroutine */ 00276 int zsymm_(char *side, char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c, integer *ldc); 00277 /* Subroutine */ 00278 int zsyr2k_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *c, integer *ldc); 00279 /* Subroutine */ 00280 int zsyrk_(char *uplo, char *trans, integer *n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *beta, doublecomplex *c, integer *ldc); 00281 /* Subroutine */ 00282 int ztbmv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 00283 /* Subroutine */ 00284 int ztbsv_(char *uplo, char *trans, char *diag, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 00285 /* Subroutine */ 00286 int ztpmv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *ap, doublecomplex *x, integer *incx); 00287 /* Subroutine */ 00288 int ztpsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *ap, doublecomplex *x, integer *incx); 00289 /* Subroutine */ 00290 int ztrmm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb); 00291 /* Subroutine */ 00292 int ztrmv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 00293 /* Subroutine */ 00294 int ztrsm_(char *side, char *uplo, char *transa, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb); 00295 /* Subroutine */ 00296 int ztrsv_(char *uplo, char *trans, char *diag, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 00297 } 00298
