17 #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) ) 18 #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) ) 19 #define F77_STRLEN(a) (_fcdlen) 27 #define FCHAR F77_CHAR 33 #define FINT const F77_INT * 34 #define FINT2 F77_INT * 36 #define FINT const int * 44 #define F77_xerbla xerbla_ 45 #define F77_srotg srotg_ 46 #define F77_srotmg srotmg_ 47 #define F77_srot srot_ 48 #define F77_srotm srotm_ 49 #define F77_drotg drotg_ 50 #define F77_drotmg drotmg_ 51 #define F77_drot drot_ 52 #define F77_drotm drotm_ 53 #define F77_sswap sswap_ 54 #define F77_scopy scopy_ 55 #define F77_saxpy saxpy_ 56 #define F77_isamax_sub isamaxsub_ 57 #define F77_dswap dswap_ 58 #define F77_dcopy dcopy_ 59 #define F77_daxpy daxpy_ 60 #define F77_idamax_sub idamaxsub_ 61 #define F77_cswap cswap_ 62 #define F77_ccopy ccopy_ 63 #define F77_caxpy caxpy_ 64 #define F77_icamax_sub icamaxsub_ 65 #define F77_zswap zswap_ 66 #define F77_zcopy zcopy_ 67 #define F77_zaxpy zaxpy_ 68 #define F77_izamax_sub izamaxsub_ 69 #define F77_sdot_sub sdotsub_ 70 #define F77_ddot_sub ddotsub_ 71 #define F77_dsdot_sub dsdotsub_ 72 #define F77_sscal sscal_ 73 #define F77_dscal dscal_ 74 #define F77_cscal cscal_ 75 #define F77_zscal zscal_ 76 #define F77_csscal csscal_ 77 #define F77_zdscal zdscal_ 78 #define F77_cdotu_sub cdotusub_ 79 #define F77_cdotc_sub cdotcsub_ 80 #define F77_zdotu_sub zdotusub_ 81 #define F77_zdotc_sub zdotcsub_ 82 #define F77_snrm2_sub snrm2sub_ 83 #define F77_sasum_sub sasumsub_ 84 #define F77_dnrm2_sub dnrm2sub_ 85 #define F77_dasum_sub dasumsub_ 86 #define F77_scnrm2_sub scnrm2sub_ 87 #define F77_scasum_sub scasumsub_ 88 #define F77_dznrm2_sub dznrm2sub_ 89 #define F77_dzasum_sub dzasumsub_ 90 #define F77_sdsdot_sub sdsdotsub_ 94 #define F77_ssymv ssymv_ 95 #define F77_ssbmv ssbmv_ 96 #define F77_sspmv sspmv_ 97 #define F77_sger sger_ 98 #define F77_ssyr ssyr_ 99 #define F77_sspr sspr_ 100 #define F77_ssyr2 ssyr2_ 101 #define F77_sspr2 sspr2_ 102 #define F77_dsymv dsymv_ 103 #define F77_dsbmv dsbmv_ 104 #define F77_dspmv dspmv_ 105 #define F77_dger dger_ 106 #define F77_dsyr dsyr_ 107 #define F77_dspr dspr_ 108 #define F77_dsyr2 dsyr2_ 109 #define F77_dspr2 dspr2_ 110 #define F77_chemv chemv_ 111 #define F77_chbmv chbmv_ 112 #define F77_chpmv chpmv_ 113 #define F77_cgeru cgeru_ 114 #define F77_cgerc cgerc_ 115 #define F77_cher cher_ 116 #define F77_chpr chpr_ 117 #define F77_cher2 cher2_ 118 #define F77_chpr2 chpr2_ 119 #define F77_zhemv zhemv_ 120 #define F77_zhbmv zhbmv_ 121 #define F77_zhpmv zhpmv_ 122 #define F77_zgeru zgeru_ 123 #define F77_zgerc zgerc_ 124 #define F77_zher zher_ 125 #define F77_zhpr zhpr_ 126 #define F77_zher2 zher2_ 127 #define F77_zhpr2 zhpr2_ 128 #define F77_sgemv sgemv_ 129 #define F77_sgbmv sgbmv_ 130 #define F77_strmv strmv_ 131 #define F77_stbmv stbmv_ 132 #define F77_stpmv stpmv_ 133 #define F77_strsv strsv_ 134 #define F77_stbsv stbsv_ 135 #define F77_stpsv stpsv_ 136 #define F77_dgemv dgemv_ 137 #define F77_dgbmv dgbmv_ 138 #define F77_dtrmv dtrmv_ 139 #define F77_dtbmv dtbmv_ 140 #define F77_dtpmv dtpmv_ 141 #define F77_dtrsv dtrsv_ 142 #define F77_dtbsv dtbsv_ 143 #define F77_dtpsv dtpsv_ 144 #define F77_cgemv cgemv_ 145 #define F77_cgbmv cgbmv_ 146 #define F77_ctrmv ctrmv_ 147 #define F77_ctbmv ctbmv_ 148 #define F77_ctpmv ctpmv_ 149 #define F77_ctrsv ctrsv_ 150 #define F77_ctbsv ctbsv_ 151 #define F77_ctpsv ctpsv_ 152 #define F77_zgemv zgemv_ 153 #define F77_zgbmv zgbmv_ 154 #define F77_ztrmv ztrmv_ 155 #define F77_ztbmv ztbmv_ 156 #define F77_ztpmv ztpmv_ 157 #define F77_ztrsv ztrsv_ 158 #define F77_ztbsv ztbsv_ 159 #define F77_ztpsv ztpsv_ 163 #define F77_chemm chemm_ 164 #define F77_cherk cherk_ 165 #define F77_cher2k cher2k_ 166 #define F77_zhemm zhemm_ 167 #define F77_zherk zherk_ 168 #define F77_zher2k zher2k_ 169 #define F77_sgemm sgemm_ 170 #define F77_ssymm ssymm_ 171 #define F77_ssyrk ssyrk_ 172 #define F77_ssyr2k ssyr2k_ 173 #define F77_strmm strmm_ 174 #define F77_strsm strsm_ 175 #define F77_dgemm dgemm_ 176 #define F77_dsymm dsymm_ 177 #define F77_dsyrk dsyrk_ 178 #define F77_dsyr2k dsyr2k_ 179 #define F77_dtrmm dtrmm_ 180 #define F77_dtrsm dtrsm_ 181 #define F77_cgemm cgemm_ 182 #define F77_csymm csymm_ 183 #define F77_csyrk csyrk_ 184 #define F77_csyr2k csyr2k_ 185 #define F77_ctrmm ctrmm_ 186 #define F77_ctrsm ctrsm_ 187 #define F77_zgemm zgemm_ 188 #define F77_zsymm zsymm_ 189 #define F77_zsyrk zsyrk_ 190 #define F77_zsyr2k zsyr2k_ 191 #define F77_ztrmm ztrmm_ 192 #define F77_ztrsm ztrsm_ 193 #elif defined(UPCASE) 197 #define F77_xerbla XERBLA 198 #define F77_srotg SROTG 199 #define F77_srotmg SROTMG 200 #define F77_srot SROT 201 #define F77_srotm SROTM 202 #define F77_drotg DROTG 203 #define F77_drotmg DROTMG 204 #define F77_drot DROT 205 #define F77_drotm DROTM 206 #define F77_sswap SSWAP 207 #define F77_scopy SCOPY 208 #define F77_saxpy SAXPY 209 #define F77_isamax_sub ISAMAXSUB 210 #define F77_dswap DSWAP 211 #define F77_dcopy DCOPY 212 #define F77_daxpy DAXPY 213 #define F77_idamax_sub IDAMAXSUB 214 #define F77_cswap CSWAP 215 #define F77_ccopy CCOPY 216 #define F77_caxpy CAXPY 217 #define F77_icamax_sub ICAMAXSUB 218 #define F77_zswap ZSWAP 219 #define F77_zcopy ZCOPY 220 #define F77_zaxpy ZAXPY 221 #define F77_izamax_sub IZAMAXSUB 222 #define F77_sdot_sub SDOTSUB 223 #define F77_ddot_sub DDOTSUB 224 #define F77_dsdot_sub DSDOTSUB 225 #define F77_sscal SSCAL 226 #define F77_dscal DSCAL 227 #define F77_cscal CSCAL 228 #define F77_zscal ZSCAL 229 #define F77_csscal CSSCAL 230 #define F77_zdscal ZDSCAL 231 #define F77_cdotu_sub CDOTUSUB 232 #define F77_cdotc_sub CDOTCSUB 233 #define F77_zdotu_sub ZDOTUSUB 234 #define F77_zdotc_sub ZDOTCSUB 235 #define F77_snrm2_sub SNRM2SUB 236 #define F77_sasum_sub SASUMSUB 237 #define F77_dnrm2_sub DNRM2SUB 238 #define F77_dasum_sub DASUMSUB 239 #define F77_scnrm2_sub SCNRM2SUB 240 #define F77_scasum_sub SCASUMSUB 241 #define F77_dznrm2_sub DZNRM2SUB 242 #define F77_dzasum_sub DZASUMSUB 243 #define F77_sdsdot_sub SDSDOTSUB 247 #define F77_ssymv SSYMV 248 #define F77_ssbmv SSBMV 249 #define F77_sspmv SSPMV 250 #define F77_sger SGER 251 #define F77_ssyr SSYR 252 #define F77_sspr SSPR 253 #define F77_ssyr2 SSYR2 254 #define F77_sspr2 SSPR2 255 #define F77_dsymv DSYMV 256 #define F77_dsbmv DSBMV 257 #define F77_dspmv DSPMV 258 #define F77_dger DGER 259 #define F77_dsyr DSYR 260 #define F77_dspr DSPR 261 #define F77_dsyr2 DSYR2 262 #define F77_dspr2 DSPR2 263 #define F77_chemv CHEMV 264 #define F77_chbmv CHBMV 265 #define F77_chpmv CHPMV 266 #define F77_cgeru CGERU 267 #define F77_cgerc CGERC 268 #define F77_cher CHER 269 #define F77_chpr CHPR 270 #define F77_cher2 CHER2 271 #define F77_chpr2 CHPR2 272 #define F77_zhemv ZHEMV 273 #define F77_zhbmv ZHBMV 274 #define F77_zhpmv ZHPMV 275 #define F77_zgeru ZGERU 276 #define F77_zgerc ZGERC 277 #define F77_zher ZHER 278 #define F77_zhpr ZHPR 279 #define F77_zher2 ZHER2 280 #define F77_zhpr2 ZHPR2 281 #define F77_sgemv SGEMV 282 #define F77_sgbmv SGBMV 283 #define F77_strmv STRMV 284 #define F77_stbmv STBMV 285 #define F77_stpmv STPMV 286 #define F77_strsv STRSV 287 #define F77_stbsv STBSV 288 #define F77_stpsv STPSV 289 #define F77_dgemv DGEMV 290 #define F77_dgbmv DGBMV 291 #define F77_dtrmv DTRMV 292 #define F77_dtbmv DTBMV 293 #define F77_dtpmv DTPMV 294 #define F77_dtrsv DTRSV 295 #define F77_dtbsv DTBSV 296 #define F77_dtpsv DTPSV 297 #define F77_cgemv CGEMV 298 #define F77_cgbmv CGBMV 299 #define F77_ctrmv CTRMV 300 #define F77_ctbmv CTBMV 301 #define F77_ctpmv CTPMV 302 #define F77_ctrsv CTRSV 303 #define F77_ctbsv CTBSV 304 #define F77_ctpsv CTPSV 305 #define F77_zgemv ZGEMV 306 #define F77_zgbmv ZGBMV 307 #define F77_ztrmv ZTRMV 308 #define F77_ztbmv ZTBMV 309 #define F77_ztpmv ZTPMV 310 #define F77_ztrsv ZTRSV 311 #define F77_ztbsv ZTBSV 312 #define F77_ztpsv ZTPSV 316 #define F77_chemm CHEMM 317 #define F77_cherk CHERK 318 #define F77_cher2k CHER2K 319 #define F77_zhemm ZHEMM 320 #define F77_zherk ZHERK 321 #define F77_zher2k ZHER2K 322 #define F77_sgemm SGEMM 323 #define F77_ssymm SSYMM 324 #define F77_ssyrk SSYRK 325 #define F77_ssyr2k SSYR2K 326 #define F77_strmm STRMM 327 #define F77_strsm STRSM 328 #define F77_dgemm DGEMM 329 #define F77_dsymm DSYMM 330 #define F77_dsyrk DSYRK 331 #define F77_dsyr2k DSYR2K 332 #define F77_dtrmm DTRMM 333 #define F77_dtrsm DTRSM 334 #define F77_cgemm CGEMM 335 #define F77_csymm CSYMM 336 #define F77_csyrk CSYRK 337 #define F77_csyr2k CSYR2K 338 #define F77_ctrmm CTRMM 339 #define F77_ctrsm CTRSM 340 #define F77_zgemm ZGEMM 341 #define F77_zsymm ZSYMM 342 #define F77_zsyrk ZSYRK 343 #define F77_zsyr2k ZSYR2K 344 #define F77_ztrmm ZTRMM 345 #define F77_ztrsm ZTRSM 346 #elif defined(NOCHANGE) 350 #define F77_xerbla xerbla 351 #define F77_srotg srotg 352 #define F77_srotmg srotmg 353 #define F77_srot srot 354 #define F77_srotm srotm 355 #define F77_drotg drotg 356 #define F77_drotmg drotmg 357 #define F77_drot drot 358 #define F77_drotm drotm 359 #define F77_sswap sswap 360 #define F77_scopy scopy 361 #define F77_saxpy saxpy 362 #define F77_isamax_sub isamaxsub 363 #define F77_dswap dswap 364 #define F77_dcopy dcopy 365 #define F77_daxpy daxpy 366 #define F77_idamax_sub idamaxsub 367 #define F77_cswap cswap 368 #define F77_ccopy ccopy 369 #define F77_caxpy caxpy 370 #define F77_icamax_sub icamaxsub 371 #define F77_zswap zswap 372 #define F77_zcopy zcopy 373 #define F77_zaxpy zaxpy 374 #define F77_izamax_sub izamaxsub 375 #define F77_sdot_sub sdotsub 376 #define F77_ddot_sub ddotsub 377 #define F77_dsdot_sub dsdotsub 378 #define F77_sscal sscal 379 #define F77_dscal dscal 380 #define F77_cscal cscal 381 #define F77_zscal zscal 382 #define F77_csscal csscal 383 #define F77_zdscal zdscal 384 #define F77_cdotu_sub cdotusub 385 #define F77_cdotc_sub cdotcsub 386 #define F77_zdotu_sub zdotusub 387 #define F77_zdotc_sub zdotcsub 388 #define F77_snrm2_sub snrm2sub 389 #define F77_sasum_sub sasumsub 390 #define F77_dnrm2_sub dnrm2sub 391 #define F77_dasum_sub dasumsub 392 #define F77_scnrm2_sub scnrm2sub 393 #define F77_scasum_sub scasumsub 394 #define F77_dznrm2_sub dznrm2sub 395 #define F77_dzasum_sub dzasumsub 396 #define F77_sdsdot_sub sdsdotsub 400 #define F77_ssymv ssymv 401 #define F77_ssbmv ssbmv 402 #define F77_sspmv sspmv 403 #define F77_sger sger 404 #define F77_ssyr ssyr 405 #define F77_sspr sspr 406 #define F77_ssyr2 ssyr2 407 #define F77_sspr2 sspr2 408 #define F77_dsymv dsymv 409 #define F77_dsbmv dsbmv 410 #define F77_dspmv dspmv 411 #define F77_dger dger 412 #define F77_dsyr dsyr 413 #define F77_dspr dspr 414 #define F77_dsyr2 dsyr2 415 #define F77_dspr2 dspr2 416 #define F77_chemv chemv 417 #define F77_chbmv chbmv 418 #define F77_chpmv chpmv 419 #define F77_cgeru cgeru 420 #define F77_cgerc cgerc 421 #define F77_cher cher 422 #define F77_chpr chpr 423 #define F77_cher2 cher2 424 #define F77_chpr2 chpr2 425 #define F77_zhemv zhemv 426 #define F77_zhbmv zhbmv 427 #define F77_zhpmv zhpmv 428 #define F77_zgeru zgeru 429 #define F77_zgerc zgerc 430 #define F77_zher zher 431 #define F77_zhpr zhpr 432 #define F77_zher2 zher2 433 #define F77_zhpr2 zhpr2 434 #define F77_sgemv sgemv 435 #define F77_sgbmv sgbmv 436 #define F77_strmv strmv 437 #define F77_stbmv stbmv 438 #define F77_stpmv stpmv 439 #define F77_strsv strsv 440 #define F77_stbsv stbsv 441 #define F77_stpsv stpsv 442 #define F77_dgemv dgemv 443 #define F77_dgbmv dgbmv 444 #define F77_dtrmv dtrmv 445 #define F77_dtbmv dtbmv 446 #define F77_dtpmv dtpmv 447 #define F77_dtrsv dtrsv 448 #define F77_dtbsv dtbsv 449 #define F77_dtpsv dtpsv 450 #define F77_cgemv cgemv 451 #define F77_cgbmv cgbmv 452 #define F77_ctrmv ctrmv 453 #define F77_ctbmv ctbmv 454 #define F77_ctpmv ctpmv 455 #define F77_ctrsv ctrsv 456 #define F77_ctbsv ctbsv 457 #define F77_ctpsv ctpsv 458 #define F77_zgemv zgemv 459 #define F77_zgbmv zgbmv 460 #define F77_ztrmv ztrmv 461 #define F77_ztbmv ztbmv 462 #define F77_ztpmv ztpmv 463 #define F77_ztrsv ztrsv 464 #define F77_ztbsv ztbsv 465 #define F77_ztpsv ztpsv 469 #define F77_chemm chemm 470 #define F77_cherk cherk 471 #define F77_cher2k cher2k 472 #define F77_zhemm zhemm 473 #define F77_zherk zherk 474 #define F77_zher2k zher2k 475 #define F77_sgemm sgemm 476 #define F77_ssymm ssymm 477 #define F77_ssyrk ssyrk 478 #define F77_ssyr2k ssyr2k 479 #define F77_strmm strmm 480 #define F77_strsm strsm 481 #define F77_dgemm dgemm 482 #define F77_dsymm dsymm 483 #define F77_dsyrk dsyrk 484 #define F77_dsyr2k dsyr2k 485 #define F77_dtrmm dtrmm 486 #define F77_dtrsm dtrsm 487 #define F77_cgemm cgemm 488 #define F77_csymm csymm 489 #define F77_csyrk csyrk 490 #define F77_csyr2k csyr2k 491 #define F77_ctrmm ctrmm 492 #define F77_ctrsm ctrsm 493 #define F77_zgemm zgemm 494 #define F77_zsymm zsymm 495 #define F77_zsyrk zsyrk 496 #define F77_zsyr2k zsyr2k 497 #define F77_ztrmm ztrmm 498 #define F77_ztrsm ztrsm 513 void F77_srotg(
float *,
float *,
float *,
float *);
515 void F77_srotmg(
float *,
float *,
float *,
const float *,
float *);
529 void F77_drotg(
double *,
double *,
double *,
double *);
531 void F77_drotmg(
double *,
double *,
double *,
const double *,
double *);
577 void F77_sgemv(
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
578 void F77_sgbmv(
FCHAR,
FINT,
FINT,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
580 void F77_ssbmv(
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
596 void F77_dgemv(
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
597 void F77_dgbmv(
FCHAR,
FINT,
FINT,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
599 void F77_dsbmv(
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
615 void F77_cgemv(
FCHAR,
FINT,
FINT,
const void *,
const void *,
FINT,
const void *,
FINT,
const void *,
void *,
FINT);
616 void F77_cgbmv(
FCHAR,
FINT,
FINT,
FINT,
FINT,
const void *,
const void *,
FINT,
const void *,
FINT,
const void *,
void *,
FINT);
618 void F77_chbmv(
FCHAR,
FINT,
FINT,
const void *,
const void *,
FINT,
const void *,
FINT,
const void *,
void *,
FINT);
635 void F77_zgemv(
FCHAR,
FINT,
FINT,
const void *,
const void *,
FINT,
const void *,
FINT,
const void *,
void *,
FINT);
636 void F77_zgbmv(
FCHAR,
FINT,
FINT,
FINT,
FINT,
const void *,
const void *,
FINT,
const void *,
FINT,
const void *,
void *,
FINT);
638 void F77_zhbmv(
FCHAR,
FINT,
FINT,
const void *,
const void *,
FINT,
const void *,
FINT,
const void *,
void *,
FINT);
659 void F77_sgemm(
FCHAR,
FCHAR,
FINT,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
660 void F77_ssymm(
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
662 void F77_ssyr2k(
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
663 void F77_strmm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
float *,
FINT);
664 void F77_strsm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
float *,
FINT);
668 void F77_dgemm(
FCHAR,
FCHAR,
FINT,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
669 void F77_dsymm(
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
671 void F77_dsyr2k(
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
672 void F77_dtrmm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
double *,
FINT);
673 void F77_dtrsm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
double *,
FINT);
677 void F77_cgemm(
FCHAR,
FCHAR,
FINT,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
678 void F77_csymm(
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
679 void F77_chemm(
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
682 void F77_csyr2k(
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
683 void F77_cher2k(
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
const float *,
FINT,
const float *,
float *,
FINT);
684 void F77_ctrmm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
float *,
FINT);
685 void F77_ctrsm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const float *,
const float *,
FINT,
float *,
FINT);
689 void F77_zgemm(
FCHAR,
FCHAR,
FINT,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
690 void F77_zsymm(
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
691 void F77_zhemm(
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
694 void F77_zsyr2k(
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
695 void F77_zher2k(
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
const double *,
FINT,
const double *,
double *,
FINT);
696 void F77_ztrmm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
double *,
FINT);
697 void F77_ztrsm(
FCHAR,
FCHAR,
FCHAR,
FCHAR,
FINT,
FINT,
const double *,
const double *,
FINT,
double *,
FINT);
void F77_ztpmv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)
void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *)
void F77_cdotc_sub(FINT, const void *, FINT, const void *, FINT, void *)
void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_stpmv(FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT)
void F77_dnrm2_sub(FINT, const double *, FINT, double *)
void F77_dswap(FINT, double *, FINT, double *, FINT)
void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)
void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)
void F77_ztbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)
void F77_zdotu_sub(FINT, const void *, FINT, const void *, FINT, void *)
void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_dscal(FINT, const double *, double *, FINT)
void F77_scasum_sub(FINT, const void *, FINT, float *)
void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *)
void F77_stbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT)
void F77_ctrsv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)
void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)
void F77_dtpsv(FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT)
void F77_stbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT)
void F77_cswap(FINT, void *, FINT, void *, FINT)
void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT)
void F77_ctpsv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)
void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT)
void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)
void F77_drotm(FINT, double *, FINT, double *, FINT, const double *)
void F77_strmv(FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT)
void F77_dtbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT)
void F77_cscal(FINT, const void *, void *, FINT)
void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT)
void F77_cgerc(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)
void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *)
void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *)
void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT)
void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *)
void F77_scopy(FINT, const float *, FINT, float *, FINT)
void F77_drotmg(double *, double *, double *, const double *, double *)
void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT)
void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *)
void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_idamax_sub(FINT, const double *, FINT, FINT2)
void F77_sswap(FINT, float *, FINT, float *, FINT)
void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT)
void F77_dtrmv(FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT)
void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_dtrsv(FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT)
void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)
void F77_srotg(float *, float *, float *, float *)
void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)
void F77_snrm2_sub(FINT, const float *, FINT, float *)
void F77_ctbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)
void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *)
void F77_dger(FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT)
void F77_ztpsv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)
void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)
void F77_zdscal(FINT, const double *, void *, FINT)
void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *)
void F77_zscal(FINT, const void *, void *, FINT)
void F77_ztrsv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)
void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_zcopy(FINT, const void *, FINT, void *, FINT)
void F77_izamax_sub(FINT, const void *, FINT, FINT2)
void F77_ccopy(FINT, const void *, FINT, void *, FINT)
void F77_dtpmv(FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT)
void F77_ddot_sub(FINT, const double *, FINT, const double *, FINT, double *)
void F77_daxpy(FINT, const double *, const double *, FINT, double *, FINT)
void F77_saxpy(FINT, const float *, const float *, FINT, float *, FINT)
void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_zswap(FINT, void *, FINT, void *, FINT)
void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT)
void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *)
void F77_zgerc(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)
void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_ctrmv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)
void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_icamax_sub(FINT, const void *, FINT, FINT2)
void F77_sger(FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT)
void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_sasum_sub(FINT, const float *, FINT, float *)
void F77_zgeru(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)
void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_srotmg(float *, float *, float *, const float *, float *)
void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_sdsdot_sub(FINT, const float *, const float *, FINT, const float *, FINT, float *)
void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_zaxpy(FINT, const void *, const void *, FINT, void *, FINT)
void F77_csscal(FINT, const float *, void *, FINT)
void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT)
void F77_ztrmv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)
void F77_strsv(FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT)
void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT)
void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT)
void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *)
void F77_ctbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)
void F77_stpsv(FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT)
void F77_drotg(double *, double *, double *, double *)
void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_cgeru(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)
void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT)
void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *)
void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)
void F77_srotm(FINT, float *, FINT, float *, FINT, const float *)
void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)
void F77_dznrm2_sub(FINT, const void *, FINT, double *)
void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *)
void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT)
void F77_ctpmv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)
void F77_caxpy(FINT, const void *, const void *, FINT, void *, FINT)
void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)
void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT)
void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)
void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT)
void F77_ztbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)
void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT)
void F77_dasum_sub(FINT, const double *, FINT, double *)
void F77_dcopy(FINT, const double *, FINT, double *, FINT)
void F77_cdotu_sub(FINT, const void *, FINT, const void *, FINT, void *)
void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)
void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_xerbla(FCHAR, void *)
void F77_scnrm2_sub(FINT, const void *, FINT, float *)
void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT)
void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)
void F77_dtbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT)
void F77_dzasum_sub(FINT, const void *, FINT, double *)
void F77_sscal(FINT, const float *, float *, FINT)
void F77_isamax_sub(FINT, const float *, FINT, FINT2)
void F77_zdotc_sub(FINT, const void *, FINT, const void *, FINT, void *)