00001
00002
00003
00004
00005
00006
00007
00008
00009 #ifndef CBLAS_F77_H
00010 #define CBLAS_f77_H
00011
00012 #ifdef CRAY
00013 #include <fortran.h>
00014 #define F77_CHAR _fcd
00015 #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
00016 #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
00017 #define F77_STRLEN(a) (_fcdlen)
00018 #endif
00019
00020 #ifdef WeirdNEC
00021 #define F77_INT long
00022 #endif
00023
00024 #ifdef F77_CHAR
00025 #define FCHAR F77_CHAR
00026 #else
00027 #define FCHAR char *
00028 #endif
00029
00030 #ifdef F77_INT
00031 #define FINT const F77_INT *
00032 #define FINT2 F77_INT *
00033 #else
00034 #define FINT const int *
00035 #define FINT2 int *
00036 #endif
00037
00038 #if defined(ADD_)
00039
00040
00041
00042 #define F77_xerbla xerbla_
00043 #define F77_srotg srotg_
00044 #define F77_srotmg srotmg_
00045 #define F77_srot srot_
00046 #define F77_srotm srotm_
00047 #define F77_drotg drotg_
00048 #define F77_drotmg drotmg_
00049 #define F77_drot drot_
00050 #define F77_drotm drotm_
00051 #define F77_sswap sswap_
00052 #define F77_scopy scopy_
00053 #define F77_saxpy saxpy_
00054 #define F77_isamax_sub isamaxsub_
00055 #define F77_dswap dswap_
00056 #define F77_dcopy dcopy_
00057 #define F77_daxpy daxpy_
00058 #define F77_idamax_sub idamaxsub_
00059 #define F77_cswap cswap_
00060 #define F77_ccopy ccopy_
00061 #define F77_caxpy caxpy_
00062 #define F77_icamax_sub icamaxsub_
00063 #define F77_zswap zswap_
00064 #define F77_zcopy zcopy_
00065 #define F77_zaxpy zaxpy_
00066 #define F77_izamax_sub izamaxsub_
00067 #define F77_sdot_sub sdotsub_
00068 #define F77_ddot_sub ddotsub_
00069 #define F77_dsdot_sub dsdotsub_
00070 #define F77_sscal sscal_
00071 #define F77_dscal dscal_
00072 #define F77_cscal cscal_
00073 #define F77_zscal zscal_
00074 #define F77_csscal csscal_
00075 #define F77_zdscal zdscal_
00076 #define F77_cdotu_sub cdotusub_
00077 #define F77_cdotc_sub cdotcsub_
00078 #define F77_zdotu_sub zdotusub_
00079 #define F77_zdotc_sub zdotcsub_
00080 #define F77_snrm2_sub snrm2sub_
00081 #define F77_sasum_sub sasumsub_
00082 #define F77_dnrm2_sub dnrm2sub_
00083 #define F77_dasum_sub dasumsub_
00084 #define F77_scnrm2_sub scnrm2sub_
00085 #define F77_scasum_sub scasumsub_
00086 #define F77_dznrm2_sub dznrm2sub_
00087 #define F77_dzasum_sub dzasumsub_
00088 #define F77_sdsdot_sub sdsdotsub_
00089
00090
00091
00092 #define F77_ssymv ssymv_
00093 #define F77_ssbmv ssbmv_
00094 #define F77_sspmv sspmv_
00095 #define F77_sger sger_
00096 #define F77_ssyr ssyr_
00097 #define F77_sspr sspr_
00098 #define F77_ssyr2 ssyr2_
00099 #define F77_sspr2 sspr2_
00100 #define F77_dsymv dsymv_
00101 #define F77_dsbmv dsbmv_
00102 #define F77_dspmv dspmv_
00103 #define F77_dger dger_
00104 #define F77_dsyr dsyr_
00105 #define F77_dspr dspr_
00106 #define F77_dsyr2 dsyr2_
00107 #define F77_dspr2 dspr2_
00108 #define F77_chemv chemv_
00109 #define F77_chbmv chbmv_
00110 #define F77_chpmv chpmv_
00111 #define F77_cgeru cgeru_
00112 #define F77_cgerc cgerc_
00113 #define F77_cher cher_
00114 #define F77_chpr chpr_
00115 #define F77_cher2 cher2_
00116 #define F77_chpr2 chpr2_
00117 #define F77_zhemv zhemv_
00118 #define F77_zhbmv zhbmv_
00119 #define F77_zhpmv zhpmv_
00120 #define F77_zgeru zgeru_
00121 #define F77_zgerc zgerc_
00122 #define F77_zher zher_
00123 #define F77_zhpr zhpr_
00124 #define F77_zher2 zher2_
00125 #define F77_zhpr2 zhpr2_
00126 #define F77_sgemv sgemv_
00127 #define F77_sgbmv sgbmv_
00128 #define F77_strmv strmv_
00129 #define F77_stbmv stbmv_
00130 #define F77_stpmv stpmv_
00131 #define F77_strsv strsv_
00132 #define F77_stbsv stbsv_
00133 #define F77_stpsv stpsv_
00134 #define F77_dgemv dgemv_
00135 #define F77_dgbmv dgbmv_
00136 #define F77_dtrmv dtrmv_
00137 #define F77_dtbmv dtbmv_
00138 #define F77_dtpmv dtpmv_
00139 #define F77_dtrsv dtrsv_
00140 #define F77_dtbsv dtbsv_
00141 #define F77_dtpsv dtpsv_
00142 #define F77_cgemv cgemv_
00143 #define F77_cgbmv cgbmv_
00144 #define F77_ctrmv ctrmv_
00145 #define F77_ctbmv ctbmv_
00146 #define F77_ctpmv ctpmv_
00147 #define F77_ctrsv ctrsv_
00148 #define F77_ctbsv ctbsv_
00149 #define F77_ctpsv ctpsv_
00150 #define F77_zgemv zgemv_
00151 #define F77_zgbmv zgbmv_
00152 #define F77_ztrmv ztrmv_
00153 #define F77_ztbmv ztbmv_
00154 #define F77_ztpmv ztpmv_
00155 #define F77_ztrsv ztrsv_
00156 #define F77_ztbsv ztbsv_
00157 #define F77_ztpsv ztpsv_
00158
00159
00160
00161 #define F77_chemm chemm_
00162 #define F77_cherk cherk_
00163 #define F77_cher2k cher2k_
00164 #define F77_zhemm zhemm_
00165 #define F77_zherk zherk_
00166 #define F77_zher2k zher2k_
00167 #define F77_sgemm sgemm_
00168 #define F77_ssymm ssymm_
00169 #define F77_ssyrk ssyrk_
00170 #define F77_ssyr2k ssyr2k_
00171 #define F77_strmm strmm_
00172 #define F77_strsm strsm_
00173 #define F77_dgemm dgemm_
00174 #define F77_dsymm dsymm_
00175 #define F77_dsyrk dsyrk_
00176 #define F77_dsyr2k dsyr2k_
00177 #define F77_dtrmm dtrmm_
00178 #define F77_dtrsm dtrsm_
00179 #define F77_cgemm cgemm_
00180 #define F77_csymm csymm_
00181 #define F77_csyrk csyrk_
00182 #define F77_csyr2k csyr2k_
00183 #define F77_ctrmm ctrmm_
00184 #define F77_ctrsm ctrsm_
00185 #define F77_zgemm zgemm_
00186 #define F77_zsymm zsymm_
00187 #define F77_zsyrk zsyrk_
00188 #define F77_zsyr2k zsyr2k_
00189 #define F77_ztrmm ztrmm_
00190 #define F77_ztrsm ztrsm_
00191 #elif defined(UPCASE)
00192
00193
00194
00195 #define F77_xerbla XERBLA
00196 #define F77_srotg SROTG
00197 #define F77_srotmg SROTMG
00198 #define F77_srot SROT
00199 #define F77_srotm SROTM
00200 #define F77_drotg DROTG
00201 #define F77_drotmg DROTMG
00202 #define F77_drot DROT
00203 #define F77_drotm DROTM
00204 #define F77_sswap SSWAP
00205 #define F77_scopy SCOPY
00206 #define F77_saxpy SAXPY
00207 #define F77_isamax_sub ISAMAXSUB
00208 #define F77_dswap DSWAP
00209 #define F77_dcopy DCOPY
00210 #define F77_daxpy DAXPY
00211 #define F77_idamax_sub IDAMAXSUB
00212 #define F77_cswap CSWAP
00213 #define F77_ccopy CCOPY
00214 #define F77_caxpy CAXPY
00215 #define F77_icamax_sub ICAMAXSUB
00216 #define F77_zswap ZSWAP
00217 #define F77_zcopy ZCOPY
00218 #define F77_zaxpy ZAXPY
00219 #define F77_izamax_sub IZAMAXSUB
00220 #define F77_sdot_sub SDOTSUB
00221 #define F77_ddot_sub DDOTSUB
00222 #define F77_dsdot_sub DSDOTSUB
00223 #define F77_sscal SSCAL
00224 #define F77_dscal DSCAL
00225 #define F77_cscal CSCAL
00226 #define F77_zscal ZSCAL
00227 #define F77_csscal CSSCAL
00228 #define F77_zdscal ZDSCAL
00229 #define F77_cdotu_sub CDOTUSUB
00230 #define F77_cdotc_sub CDOTCSUB
00231 #define F77_zdotu_sub ZDOTUSUB
00232 #define F77_zdotc_sub ZDOTCSUB
00233 #define F77_snrm2_sub SNRM2SUB
00234 #define F77_sasum_sub SASUMSUB
00235 #define F77_dnrm2_sub DNRM2SUB
00236 #define F77_dasum_sub DASUMSUB
00237 #define F77_scnrm2_sub SCNRM2SUB
00238 #define F77_scasum_sub SCASUMSUB
00239 #define F77_dznrm2_sub DZNRM2SUB
00240 #define F77_dzasum_sub DZASUMSUB
00241 #define F77_sdsdot_sub SDSDOTSUB
00242
00243
00244
00245 #define F77_ssymv SSYMV
00246 #define F77_ssbmv SSBMV
00247 #define F77_sspmv SSPMV
00248 #define F77_sger SGER
00249 #define F77_ssyr SSYR
00250 #define F77_sspr SSPR
00251 #define F77_ssyr2 SSYR2
00252 #define F77_sspr2 SSPR2
00253 #define F77_dsymv DSYMV
00254 #define F77_dsbmv DSBMV
00255 #define F77_dspmv DSPMV
00256 #define F77_dger DGER
00257 #define F77_dsyr DSYR
00258 #define F77_dspr DSPR
00259 #define F77_dsyr2 DSYR2
00260 #define F77_dspr2 DSPR2
00261 #define F77_chemv CHEMV
00262 #define F77_chbmv CHBMV
00263 #define F77_chpmv CHPMV
00264 #define F77_cgeru CGERU
00265 #define F77_cgerc CGERC
00266 #define F77_cher CHER
00267 #define F77_chpr CHPR
00268 #define F77_cher2 CHER2
00269 #define F77_chpr2 CHPR2
00270 #define F77_zhemv ZHEMV
00271 #define F77_zhbmv ZHBMV
00272 #define F77_zhpmv ZHPMV
00273 #define F77_zgeru ZGERU
00274 #define F77_zgerc ZGERC
00275 #define F77_zher ZHER
00276 #define F77_zhpr ZHPR
00277 #define F77_zher2 ZHER2
00278 #define F77_zhpr2 ZHPR2
00279 #define F77_sgemv SGEMV
00280 #define F77_sgbmv SGBMV
00281 #define F77_strmv STRMV
00282 #define F77_stbmv STBMV
00283 #define F77_stpmv STPMV
00284 #define F77_strsv STRSV
00285 #define F77_stbsv STBSV
00286 #define F77_stpsv STPSV
00287 #define F77_dgemv DGEMV
00288 #define F77_dgbmv DGBMV
00289 #define F77_dtrmv DTRMV
00290 #define F77_dtbmv DTBMV
00291 #define F77_dtpmv DTPMV
00292 #define F77_dtrsv DTRSV
00293 #define F77_dtbsv DTBSV
00294 #define F77_dtpsv DTPSV
00295 #define F77_cgemv CGEMV
00296 #define F77_cgbmv CGBMV
00297 #define F77_ctrmv CTRMV
00298 #define F77_ctbmv CTBMV
00299 #define F77_ctpmv CTPMV
00300 #define F77_ctrsv CTRSV
00301 #define F77_ctbsv CTBSV
00302 #define F77_ctpsv CTPSV
00303 #define F77_zgemv ZGEMV
00304 #define F77_zgbmv ZGBMV
00305 #define F77_ztrmv ZTRMV
00306 #define F77_ztbmv ZTBMV
00307 #define F77_ztpmv ZTPMV
00308 #define F77_ztrsv ZTRSV
00309 #define F77_ztbsv ZTBSV
00310 #define F77_ztpsv ZTPSV
00311
00312
00313
00314 #define F77_chemm CHEMM
00315 #define F77_cherk CHERK
00316 #define F77_cher2k CHER2K
00317 #define F77_zhemm ZHEMM
00318 #define F77_zherk ZHERK
00319 #define F77_zher2k ZHER2K
00320 #define F77_sgemm SGEMM
00321 #define F77_ssymm SSYMM
00322 #define F77_ssyrk SSYRK
00323 #define F77_ssyr2k SSYR2K
00324 #define F77_strmm STRMM
00325 #define F77_strsm STRSM
00326 #define F77_dgemm DGEMM
00327 #define F77_dsymm DSYMM
00328 #define F77_dsyrk DSYRK
00329 #define F77_dsyr2k DSYR2K
00330 #define F77_dtrmm DTRMM
00331 #define F77_dtrsm DTRSM
00332 #define F77_cgemm CGEMM
00333 #define F77_csymm CSYMM
00334 #define F77_csyrk CSYRK
00335 #define F77_csyr2k CSYR2K
00336 #define F77_ctrmm CTRMM
00337 #define F77_ctrsm CTRSM
00338 #define F77_zgemm ZGEMM
00339 #define F77_zsymm ZSYMM
00340 #define F77_zsyrk ZSYRK
00341 #define F77_zsyr2k ZSYR2K
00342 #define F77_ztrmm ZTRMM
00343 #define F77_ztrsm ZTRSM
00344 #elif defined(NOCHANGE)
00345
00346
00347
00348 #define F77_xerbla xerbla
00349 #define F77_srotg srotg
00350 #define F77_srotmg srotmg
00351 #define F77_srot srot
00352 #define F77_srotm srotm
00353 #define F77_drotg drotg
00354 #define F77_drotmg drotmg
00355 #define F77_drot drot
00356 #define F77_drotm drotm
00357 #define F77_sswap sswap
00358 #define F77_scopy scopy
00359 #define F77_saxpy saxpy
00360 #define F77_isamax_sub isamaxsub
00361 #define F77_dswap dswap
00362 #define F77_dcopy dcopy
00363 #define F77_daxpy daxpy
00364 #define F77_idamax_sub idamaxsub
00365 #define F77_cswap cswap
00366 #define F77_ccopy ccopy
00367 #define F77_caxpy caxpy
00368 #define F77_icamax_sub icamaxsub
00369 #define F77_zswap zswap
00370 #define F77_zcopy zcopy
00371 #define F77_zaxpy zaxpy
00372 #define F77_izamax_sub izamaxsub
00373 #define F77_sdot_sub sdotsub
00374 #define F77_ddot_sub ddotsub
00375 #define F77_dsdot_sub dsdotsub
00376 #define F77_sscal sscal
00377 #define F77_dscal dscal
00378 #define F77_cscal cscal
00379 #define F77_zscal zscal
00380 #define F77_csscal csscal
00381 #define F77_zdscal zdscal
00382 #define F77_cdotu_sub cdotusub
00383 #define F77_cdotc_sub cdotcsub
00384 #define F77_zdotu_sub zdotusub
00385 #define F77_zdotc_sub zdotcsub
00386 #define F77_snrm2_sub snrm2sub
00387 #define F77_sasum_sub sasumsub
00388 #define F77_dnrm2_sub dnrm2sub
00389 #define F77_dasum_sub dasumsub
00390 #define F77_scnrm2_sub scnrm2sub
00391 #define F77_scasum_sub scasumsub
00392 #define F77_dznrm2_sub dznrm2sub
00393 #define F77_dzasum_sub dzasumsub
00394 #define F77_sdsdot_sub sdsdotsub
00395
00396
00397
00398 #define F77_ssymv ssymv
00399 #define F77_ssbmv ssbmv
00400 #define F77_sspmv sspmv
00401 #define F77_sger sger
00402 #define F77_ssyr ssyr
00403 #define F77_sspr sspr
00404 #define F77_ssyr2 ssyr2
00405 #define F77_sspr2 sspr2
00406 #define F77_dsymv dsymv
00407 #define F77_dsbmv dsbmv
00408 #define F77_dspmv dspmv
00409 #define F77_dger dger
00410 #define F77_dsyr dsyr
00411 #define F77_dspr dspr
00412 #define F77_dsyr2 dsyr2
00413 #define F77_dspr2 dspr2
00414 #define F77_chemv chemv
00415 #define F77_chbmv chbmv
00416 #define F77_chpmv chpmv
00417 #define F77_cgeru cgeru
00418 #define F77_cgerc cgerc
00419 #define F77_cher cher
00420 #define F77_chpr chpr
00421 #define F77_cher2 cher2
00422 #define F77_chpr2 chpr2
00423 #define F77_zhemv zhemv
00424 #define F77_zhbmv zhbmv
00425 #define F77_zhpmv zhpmv
00426 #define F77_zgeru zgeru
00427 #define F77_zgerc zgerc
00428 #define F77_zher zher
00429 #define F77_zhpr zhpr
00430 #define F77_zher2 zher2
00431 #define F77_zhpr2 zhpr2
00432 #define F77_sgemv sgemv
00433 #define F77_sgbmv sgbmv
00434 #define F77_strmv strmv
00435 #define F77_stbmv stbmv
00436 #define F77_stpmv stpmv
00437 #define F77_strsv strsv
00438 #define F77_stbsv stbsv
00439 #define F77_stpsv stpsv
00440 #define F77_dgemv dgemv
00441 #define F77_dgbmv dgbmv
00442 #define F77_dtrmv dtrmv
00443 #define F77_dtbmv dtbmv
00444 #define F77_dtpmv dtpmv
00445 #define F77_dtrsv dtrsv
00446 #define F77_dtbsv dtbsv
00447 #define F77_dtpsv dtpsv
00448 #define F77_cgemv cgemv
00449 #define F77_cgbmv cgbmv
00450 #define F77_ctrmv ctrmv
00451 #define F77_ctbmv ctbmv
00452 #define F77_ctpmv ctpmv
00453 #define F77_ctrsv ctrsv
00454 #define F77_ctbsv ctbsv
00455 #define F77_ctpsv ctpsv
00456 #define F77_zgemv zgemv
00457 #define F77_zgbmv zgbmv
00458 #define F77_ztrmv ztrmv
00459 #define F77_ztbmv ztbmv
00460 #define F77_ztpmv ztpmv
00461 #define F77_ztrsv ztrsv
00462 #define F77_ztbsv ztbsv
00463 #define F77_ztpsv ztpsv
00464
00465
00466
00467 #define F77_chemm chemm
00468 #define F77_cherk cherk
00469 #define F77_cher2k cher2k
00470 #define F77_zhemm zhemm
00471 #define F77_zherk zherk
00472 #define F77_zher2k zher2k
00473 #define F77_sgemm sgemm
00474 #define F77_ssymm ssymm
00475 #define F77_ssyrk ssyrk
00476 #define F77_ssyr2k ssyr2k
00477 #define F77_strmm strmm
00478 #define F77_strsm strsm
00479 #define F77_dgemm dgemm
00480 #define F77_dsymm dsymm
00481 #define F77_dsyrk dsyrk
00482 #define F77_dsyr2k dsyr2k
00483 #define F77_dtrmm dtrmm
00484 #define F77_dtrsm dtrsm
00485 #define F77_cgemm cgemm
00486 #define F77_csymm csymm
00487 #define F77_csyrk csyrk
00488 #define F77_csyr2k csyr2k
00489 #define F77_ctrmm ctrmm
00490 #define F77_ctrsm ctrsm
00491 #define F77_zgemm zgemm
00492 #define F77_zsymm zsymm
00493 #define F77_zsyrk zsyrk
00494 #define F77_zsyr2k zsyr2k
00495 #define F77_ztrmm ztrmm
00496 #define F77_ztrsm ztrsm
00497 #endif
00498
00499 #ifdef __cplusplus
00500 extern "C" {
00501 #endif
00502
00503 void F77_xerbla(FCHAR, void *);
00504
00505
00506
00507
00508
00509
00510 void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
00511 void F77_srotg(float *,float *,float *,float *);
00512 void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
00513 void F77_srotmg(float *,float *,float *,const float *, float *);
00514 void F77_sswap( FINT, float *, FINT, float *, FINT);
00515 void F77_scopy( FINT, const float *, FINT, float *, FINT);
00516 void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
00517 void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
00518 void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
00519 void F77_sscal( FINT, const float *, float *, FINT);
00520 void F77_snrm2_sub( FINT, const float *, FINT, float *);
00521 void F77_sasum_sub( FINT, const float *, FINT, float *);
00522 void F77_isamax_sub( FINT, const float * , FINT, FINT2);
00523
00524
00525
00526 void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
00527 void F77_drotg(double *,double *,double *,double *);
00528 void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
00529 void F77_drotmg(double *,double *,double *,const double *, double *);
00530 void F77_dswap( FINT, double *, FINT, double *, FINT);
00531 void F77_dcopy( FINT, const double *, FINT, double *, FINT);
00532 void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
00533 void F77_dswap( FINT, double *, FINT, double *, FINT);
00534 void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
00535 void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
00536 void F77_dscal( FINT, const double *, double *, FINT);
00537 void F77_dnrm2_sub( FINT, const double *, FINT, double *);
00538 void F77_dasum_sub( FINT, const double *, FINT, double *);
00539 void F77_idamax_sub( FINT, const double * , FINT, FINT2);
00540
00541
00542
00543 void F77_cswap( FINT, void *, FINT, void *, FINT);
00544 void F77_ccopy( FINT, const void *, FINT, void *, FINT);
00545 void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
00546 void F77_cswap( FINT, void *, FINT, void *, FINT);
00547 void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
00548 void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
00549 void F77_cscal( FINT, const void *, void *, FINT);
00550 void F77_icamax_sub( FINT, const void *, FINT, FINT2);
00551 void F77_csscal( FINT, const float *, void *, FINT);
00552 void F77_scnrm2_sub( FINT, const void *, FINT, float *);
00553 void F77_scasum_sub( FINT, const void *, FINT, float *);
00554
00555
00556
00557 void F77_zswap( FINT, void *, FINT, void *, FINT);
00558 void F77_zcopy( FINT, const void *, FINT, void *, FINT);
00559 void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
00560 void F77_zswap( FINT, void *, FINT, void *, FINT);
00561 void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
00562 void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
00563 void F77_zdscal( FINT, const double *, void *, FINT);
00564 void F77_zscal( FINT, const void *, void *, FINT);
00565 void F77_dznrm2_sub( FINT, const void *, FINT, double *);
00566 void F77_dzasum_sub( FINT, const void *, FINT, double *);
00567 void F77_izamax_sub( FINT, const void *, FINT, FINT2);
00568
00569
00570
00571
00572
00573
00574
00575 void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00576 void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00577 void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00578 void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00579 void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
00580 void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
00581 void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
00582 void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
00583 void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
00584 void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
00585 void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
00586 void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
00587 void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
00588 void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
00589 void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
00590 void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
00591
00592
00593
00594 void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00595 void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00596 void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00597 void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00598 void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
00599 void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
00600 void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
00601 void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
00602 void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
00603 void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
00604 void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
00605 void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
00606 void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
00607 void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
00608 void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
00609 void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
00610
00611
00612
00613 void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00614 void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00615 void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00616 void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00617 void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
00618 void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00619 void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00620 void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
00621 void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00622 void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00623 void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
00624 void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00625 void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00626 void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
00627 void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00628 void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
00629 void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);
00630
00631
00632
00633 void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00634 void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00635 void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00636 void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00637 void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
00638 void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00639 void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00640 void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
00641 void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00642 void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00643 void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
00644 void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00645 void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00646 void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
00647 void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00648 void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
00649 void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);
00650
00651
00652
00653
00654
00655
00656
00657 void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00658 void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00659 void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
00660 void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00661 void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00662 void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00663
00664
00665
00666 void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00667 void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00668 void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
00669 void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00670 void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00671 void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00672
00673
00674
00675 void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00676 void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00677 void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00678 void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
00679 void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
00680 void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00681 void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00682 void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00683 void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00684
00685
00686
00687 void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00688 void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00689 void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00690 void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
00691 void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
00692 void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00693 void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00694 void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00695 void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00696
00697 #ifdef __cplusplus
00698 }
00699 #endif
00700
00701 #endif