Mercurial > hg > qm-dsp

annotate ext/cblas/include/cblas_f77.h @ 482:cbe668c7d724

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify, indent, tidy
author Chris Cannam <cannam@all-day-breakfast.com>
date Fri, 31 May 2019 11:02:28 +0100
parents c49dbfac4349
children
rev   line source
c@427 1 /*
c@427 2 * cblas_f77.h
c@427 3 * Written by Keita Teranishi
c@427 4 *
c@427 5 * Updated by Jeff Horner
c@427 6 * Merged cblas_f77.h and cblas_fortran_header.h
c@427 7 */
c@427 8
c@427 9 #ifndef CBLAS_F77_H
c@431 10 #define CBLAS_F77_H
c@427 11
c@427 12 #ifdef CRAY
c@427 13 #include <fortran.h>
c@427 14 #define F77_CHAR _fcd
c@427 15 #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
c@427 16 #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
c@427 17 #define F77_STRLEN(a) (_fcdlen)
c@427 18 #endif
c@427 19
c@427 20 #ifdef WeirdNEC
c@427 21 #define F77_INT long
c@427 22 #endif
c@427 23
c@427 24 #ifdef F77_CHAR
c@427 25 #define FCHAR F77_CHAR
c@427 26 #else
c@427 27 #define FCHAR char *
c@427 28 #endif
c@427 29
c@427 30 #ifdef F77_INT
c@427 31 #define FINT const F77_INT *
c@427 32 #define FINT2 F77_INT *
c@427 33 #else
c@427 34 #define FINT const int *
c@427 35 #define FINT2 int *
c@427 36 #endif
c@427 37
c@427 38 #if defined(ADD_)
c@427 39 /*
c@427 40 * Level 1 BLAS
c@427 41 */
c@427 42 #define F77_xerbla xerbla_
c@427 43 #define F77_srotg srotg_
c@427 44 #define F77_srotmg srotmg_
c@427 45 #define F77_srot srot_
c@427 46 #define F77_srotm srotm_
c@427 47 #define F77_drotg drotg_
c@427 48 #define F77_drotmg drotmg_
c@427 49 #define F77_drot drot_
c@427 50 #define F77_drotm drotm_
c@427 51 #define F77_sswap sswap_
c@427 52 #define F77_scopy scopy_
c@427 53 #define F77_saxpy saxpy_
c@427 54 #define F77_isamax_sub isamaxsub_
c@427 55 #define F77_dswap dswap_
c@427 56 #define F77_dcopy dcopy_
c@427 57 #define F77_daxpy daxpy_
c@427 58 #define F77_idamax_sub idamaxsub_
c@427 59 #define F77_cswap cswap_
c@427 60 #define F77_ccopy ccopy_
c@427 61 #define F77_caxpy caxpy_
c@427 62 #define F77_icamax_sub icamaxsub_
c@427 63 #define F77_zswap zswap_
c@427 64 #define F77_zcopy zcopy_
c@427 65 #define F77_zaxpy zaxpy_
c@427 66 #define F77_izamax_sub izamaxsub_
c@427 67 #define F77_sdot_sub sdotsub_
c@427 68 #define F77_ddot_sub ddotsub_
c@427 69 #define F77_dsdot_sub dsdotsub_
c@427 70 #define F77_sscal sscal_
c@427 71 #define F77_dscal dscal_
c@427 72 #define F77_cscal cscal_
c@427 73 #define F77_zscal zscal_
c@427 74 #define F77_csscal csscal_
c@427 75 #define F77_zdscal zdscal_
c@427 76 #define F77_cdotu_sub cdotusub_
c@427 77 #define F77_cdotc_sub cdotcsub_
c@427 78 #define F77_zdotu_sub zdotusub_
c@427 79 #define F77_zdotc_sub zdotcsub_
c@427 80 #define F77_snrm2_sub snrm2sub_
c@427 81 #define F77_sasum_sub sasumsub_
c@427 82 #define F77_dnrm2_sub dnrm2sub_
c@427 83 #define F77_dasum_sub dasumsub_
c@427 84 #define F77_scnrm2_sub scnrm2sub_
c@427 85 #define F77_scasum_sub scasumsub_
c@427 86 #define F77_dznrm2_sub dznrm2sub_
c@427 87 #define F77_dzasum_sub dzasumsub_
c@427 88 #define F77_sdsdot_sub sdsdotsub_
c@427 89 /*
c@427 90 * Level 2 BLAS
c@427 91 */
c@427 92 #define F77_ssymv ssymv_
c@427 93 #define F77_ssbmv ssbmv_
c@427 94 #define F77_sspmv sspmv_
c@427 95 #define F77_sger sger_
c@427 96 #define F77_ssyr ssyr_
c@427 97 #define F77_sspr sspr_
c@427 98 #define F77_ssyr2 ssyr2_
c@427 99 #define F77_sspr2 sspr2_
c@427 100 #define F77_dsymv dsymv_
c@427 101 #define F77_dsbmv dsbmv_
c@427 102 #define F77_dspmv dspmv_
c@427 103 #define F77_dger dger_
c@427 104 #define F77_dsyr dsyr_
c@427 105 #define F77_dspr dspr_
c@427 106 #define F77_dsyr2 dsyr2_
c@427 107 #define F77_dspr2 dspr2_
c@427 108 #define F77_chemv chemv_
c@427 109 #define F77_chbmv chbmv_
c@427 110 #define F77_chpmv chpmv_
c@427 111 #define F77_cgeru cgeru_
c@427 112 #define F77_cgerc cgerc_
c@427 113 #define F77_cher cher_
c@427 114 #define F77_chpr chpr_
c@427 115 #define F77_cher2 cher2_
c@427 116 #define F77_chpr2 chpr2_
c@427 117 #define F77_zhemv zhemv_
c@427 118 #define F77_zhbmv zhbmv_
c@427 119 #define F77_zhpmv zhpmv_
c@427 120 #define F77_zgeru zgeru_
c@427 121 #define F77_zgerc zgerc_
c@427 122 #define F77_zher zher_
c@427 123 #define F77_zhpr zhpr_
c@427 124 #define F77_zher2 zher2_
c@427 125 #define F77_zhpr2 zhpr2_
c@427 126 #define F77_sgemv sgemv_
c@427 127 #define F77_sgbmv sgbmv_
c@427 128 #define F77_strmv strmv_
c@427 129 #define F77_stbmv stbmv_
c@427 130 #define F77_stpmv stpmv_
c@427 131 #define F77_strsv strsv_
c@427 132 #define F77_stbsv stbsv_
c@427 133 #define F77_stpsv stpsv_
c@427 134 #define F77_dgemv dgemv_
c@427 135 #define F77_dgbmv dgbmv_
c@427 136 #define F77_dtrmv dtrmv_
c@427 137 #define F77_dtbmv dtbmv_
c@427 138 #define F77_dtpmv dtpmv_
c@427 139 #define F77_dtrsv dtrsv_
c@427 140 #define F77_dtbsv dtbsv_
c@427 141 #define F77_dtpsv dtpsv_
c@427 142 #define F77_cgemv cgemv_
c@427 143 #define F77_cgbmv cgbmv_
c@427 144 #define F77_ctrmv ctrmv_
c@427 145 #define F77_ctbmv ctbmv_
c@427 146 #define F77_ctpmv ctpmv_
c@427 147 #define F77_ctrsv ctrsv_
c@427 148 #define F77_ctbsv ctbsv_
c@427 149 #define F77_ctpsv ctpsv_
c@427 150 #define F77_zgemv zgemv_
c@427 151 #define F77_zgbmv zgbmv_
c@427 152 #define F77_ztrmv ztrmv_
c@427 153 #define F77_ztbmv ztbmv_
c@427 154 #define F77_ztpmv ztpmv_
c@427 155 #define F77_ztrsv ztrsv_
c@427 156 #define F77_ztbsv ztbsv_
c@427 157 #define F77_ztpsv ztpsv_
c@427 158 /*
c@427 159 * Level 3 BLAS
c@427 160 */
c@427 161 #define F77_chemm chemm_
c@427 162 #define F77_cherk cherk_
c@427 163 #define F77_cher2k cher2k_
c@427 164 #define F77_zhemm zhemm_
c@427 165 #define F77_zherk zherk_
c@427 166 #define F77_zher2k zher2k_
c@427 167 #define F77_sgemm sgemm_
c@427 168 #define F77_ssymm ssymm_
c@427 169 #define F77_ssyrk ssyrk_
c@427 170 #define F77_ssyr2k ssyr2k_
c@427 171 #define F77_strmm strmm_
c@427 172 #define F77_strsm strsm_
c@427 173 #define F77_dgemm dgemm_
c@427 174 #define F77_dsymm dsymm_
c@427 175 #define F77_dsyrk dsyrk_
c@427 176 #define F77_dsyr2k dsyr2k_
c@427 177 #define F77_dtrmm dtrmm_
c@427 178 #define F77_dtrsm dtrsm_
c@427 179 #define F77_cgemm cgemm_
c@427 180 #define F77_csymm csymm_
c@427 181 #define F77_csyrk csyrk_
c@427 182 #define F77_csyr2k csyr2k_
c@427 183 #define F77_ctrmm ctrmm_
c@427 184 #define F77_ctrsm ctrsm_
c@427 185 #define F77_zgemm zgemm_
c@427 186 #define F77_zsymm zsymm_
c@427 187 #define F77_zsyrk zsyrk_
c@427 188 #define F77_zsyr2k zsyr2k_
c@427 189 #define F77_ztrmm ztrmm_
c@427 190 #define F77_ztrsm ztrsm_
c@427 191 #elif defined(UPCASE)
c@427 192 /*
c@427 193 * Level 1 BLAS
c@427 194 */
c@427 195 #define F77_xerbla XERBLA
c@427 196 #define F77_srotg SROTG
c@427 197 #define F77_srotmg SROTMG
c@427 198 #define F77_srot SROT
c@427 199 #define F77_srotm SROTM
c@427 200 #define F77_drotg DROTG
c@427 201 #define F77_drotmg DROTMG
c@427 202 #define F77_drot DROT
c@427 203 #define F77_drotm DROTM
c@427 204 #define F77_sswap SSWAP
c@427 205 #define F77_scopy SCOPY
c@427 206 #define F77_saxpy SAXPY
c@427 207 #define F77_isamax_sub ISAMAXSUB
c@427 208 #define F77_dswap DSWAP
c@427 209 #define F77_dcopy DCOPY
c@427 210 #define F77_daxpy DAXPY
c@427 211 #define F77_idamax_sub IDAMAXSUB
c@427 212 #define F77_cswap CSWAP
c@427 213 #define F77_ccopy CCOPY
c@427 214 #define F77_caxpy CAXPY
c@427 215 #define F77_icamax_sub ICAMAXSUB
c@427 216 #define F77_zswap ZSWAP
c@427 217 #define F77_zcopy ZCOPY
c@427 218 #define F77_zaxpy ZAXPY
c@427 219 #define F77_izamax_sub IZAMAXSUB
c@427 220 #define F77_sdot_sub SDOTSUB
c@427 221 #define F77_ddot_sub DDOTSUB
c@427 222 #define F77_dsdot_sub DSDOTSUB
c@427 223 #define F77_sscal SSCAL
c@427 224 #define F77_dscal DSCAL
c@427 225 #define F77_cscal CSCAL
c@427 226 #define F77_zscal ZSCAL
c@427 227 #define F77_csscal CSSCAL
c@427 228 #define F77_zdscal ZDSCAL
c@427 229 #define F77_cdotu_sub CDOTUSUB
c@427 230 #define F77_cdotc_sub CDOTCSUB
c@427 231 #define F77_zdotu_sub ZDOTUSUB
c@427 232 #define F77_zdotc_sub ZDOTCSUB
c@427 233 #define F77_snrm2_sub SNRM2SUB
c@427 234 #define F77_sasum_sub SASUMSUB
c@427 235 #define F77_dnrm2_sub DNRM2SUB
c@427 236 #define F77_dasum_sub DASUMSUB
c@427 237 #define F77_scnrm2_sub SCNRM2SUB
c@427 238 #define F77_scasum_sub SCASUMSUB
c@427 239 #define F77_dznrm2_sub DZNRM2SUB
c@427 240 #define F77_dzasum_sub DZASUMSUB
c@427 241 #define F77_sdsdot_sub SDSDOTSUB
c@427 242 /*
c@427 243 * Level 2 BLAS
c@427 244 */
c@427 245 #define F77_ssymv SSYMV
c@427 246 #define F77_ssbmv SSBMV
c@427 247 #define F77_sspmv SSPMV
c@427 248 #define F77_sger SGER
c@427 249 #define F77_ssyr SSYR
c@427 250 #define F77_sspr SSPR
c@427 251 #define F77_ssyr2 SSYR2
c@427 252 #define F77_sspr2 SSPR2
c@427 253 #define F77_dsymv DSYMV
c@427 254 #define F77_dsbmv DSBMV
c@427 255 #define F77_dspmv DSPMV
c@427 256 #define F77_dger DGER
c@427 257 #define F77_dsyr DSYR
c@427 258 #define F77_dspr DSPR
c@427 259 #define F77_dsyr2 DSYR2
c@427 260 #define F77_dspr2 DSPR2
c@427 261 #define F77_chemv CHEMV
c@427 262 #define F77_chbmv CHBMV
c@427 263 #define F77_chpmv CHPMV
c@427 264 #define F77_cgeru CGERU
c@427 265 #define F77_cgerc CGERC
c@427 266 #define F77_cher CHER
c@427 267 #define F77_chpr CHPR
c@427 268 #define F77_cher2 CHER2
c@427 269 #define F77_chpr2 CHPR2
c@427 270 #define F77_zhemv ZHEMV
c@427 271 #define F77_zhbmv ZHBMV
c@427 272 #define F77_zhpmv ZHPMV
c@427 273 #define F77_zgeru ZGERU
c@427 274 #define F77_zgerc ZGERC
c@427 275 #define F77_zher ZHER
c@427 276 #define F77_zhpr ZHPR
c@427 277 #define F77_zher2 ZHER2
c@427 278 #define F77_zhpr2 ZHPR2
c@427 279 #define F77_sgemv SGEMV
c@427 280 #define F77_sgbmv SGBMV
c@427 281 #define F77_strmv STRMV
c@427 282 #define F77_stbmv STBMV
c@427 283 #define F77_stpmv STPMV
c@427 284 #define F77_strsv STRSV
c@427 285 #define F77_stbsv STBSV
c@427 286 #define F77_stpsv STPSV
c@427 287 #define F77_dgemv DGEMV
c@427 288 #define F77_dgbmv DGBMV
c@427 289 #define F77_dtrmv DTRMV
c@427 290 #define F77_dtbmv DTBMV
c@427 291 #define F77_dtpmv DTPMV
c@427 292 #define F77_dtrsv DTRSV
c@427 293 #define F77_dtbsv DTBSV
c@427 294 #define F77_dtpsv DTPSV
c@427 295 #define F77_cgemv CGEMV
c@427 296 #define F77_cgbmv CGBMV
c@427 297 #define F77_ctrmv CTRMV
c@427 298 #define F77_ctbmv CTBMV
c@427 299 #define F77_ctpmv CTPMV
c@427 300 #define F77_ctrsv CTRSV
c@427 301 #define F77_ctbsv CTBSV
c@427 302 #define F77_ctpsv CTPSV
c@427 303 #define F77_zgemv ZGEMV
c@427 304 #define F77_zgbmv ZGBMV
c@427 305 #define F77_ztrmv ZTRMV
c@427 306 #define F77_ztbmv ZTBMV
c@427 307 #define F77_ztpmv ZTPMV
c@427 308 #define F77_ztrsv ZTRSV
c@427 309 #define F77_ztbsv ZTBSV
c@427 310 #define F77_ztpsv ZTPSV
c@427 311 /*
c@427 312 * Level 3 BLAS
c@427 313 */
c@427 314 #define F77_chemm CHEMM
c@427 315 #define F77_cherk CHERK
c@427 316 #define F77_cher2k CHER2K
c@427 317 #define F77_zhemm ZHEMM
c@427 318 #define F77_zherk ZHERK
c@427 319 #define F77_zher2k ZHER2K
c@427 320 #define F77_sgemm SGEMM
c@427 321 #define F77_ssymm SSYMM
c@427 322 #define F77_ssyrk SSYRK
c@427 323 #define F77_ssyr2k SSYR2K
c@427 324 #define F77_strmm STRMM
c@427 325 #define F77_strsm STRSM
c@427 326 #define F77_dgemm DGEMM
c@427 327 #define F77_dsymm DSYMM
c@427 328 #define F77_dsyrk DSYRK
c@427 329 #define F77_dsyr2k DSYR2K
c@427 330 #define F77_dtrmm DTRMM
c@427 331 #define F77_dtrsm DTRSM
c@427 332 #define F77_cgemm CGEMM
c@427 333 #define F77_csymm CSYMM
c@427 334 #define F77_csyrk CSYRK
c@427 335 #define F77_csyr2k CSYR2K
c@427 336 #define F77_ctrmm CTRMM
c@427 337 #define F77_ctrsm CTRSM
c@427 338 #define F77_zgemm ZGEMM
c@427 339 #define F77_zsymm ZSYMM
c@427 340 #define F77_zsyrk ZSYRK
c@427 341 #define F77_zsyr2k ZSYR2K
c@427 342 #define F77_ztrmm ZTRMM
c@427 343 #define F77_ztrsm ZTRSM
c@427 344 #elif defined(NOCHANGE)
c@427 345 /*
c@427 346 * Level 1 BLAS
c@427 347 */
c@427 348 #define F77_xerbla xerbla
c@427 349 #define F77_srotg srotg
c@427 350 #define F77_srotmg srotmg
c@427 351 #define F77_srot srot
c@427 352 #define F77_srotm srotm
c@427 353 #define F77_drotg drotg
c@427 354 #define F77_drotmg drotmg
c@427 355 #define F77_drot drot
c@427 356 #define F77_drotm drotm
c@427 357 #define F77_sswap sswap
c@427 358 #define F77_scopy scopy
c@427 359 #define F77_saxpy saxpy
c@427 360 #define F77_isamax_sub isamaxsub
c@427 361 #define F77_dswap dswap
c@427 362 #define F77_dcopy dcopy
c@427 363 #define F77_daxpy daxpy
c@427 364 #define F77_idamax_sub idamaxsub
c@427 365 #define F77_cswap cswap
c@427 366 #define F77_ccopy ccopy
c@427 367 #define F77_caxpy caxpy
c@427 368 #define F77_icamax_sub icamaxsub
c@427 369 #define F77_zswap zswap
c@427 370 #define F77_zcopy zcopy
c@427 371 #define F77_zaxpy zaxpy
c@427 372 #define F77_izamax_sub izamaxsub
c@427 373 #define F77_sdot_sub sdotsub
c@427 374 #define F77_ddot_sub ddotsub
c@427 375 #define F77_dsdot_sub dsdotsub
c@427 376 #define F77_sscal sscal
c@427 377 #define F77_dscal dscal
c@427 378 #define F77_cscal cscal
c@427 379 #define F77_zscal zscal
c@427 380 #define F77_csscal csscal
c@427 381 #define F77_zdscal zdscal
c@427 382 #define F77_cdotu_sub cdotusub
c@427 383 #define F77_cdotc_sub cdotcsub
c@427 384 #define F77_zdotu_sub zdotusub
c@427 385 #define F77_zdotc_sub zdotcsub
c@427 386 #define F77_snrm2_sub snrm2sub
c@427 387 #define F77_sasum_sub sasumsub
c@427 388 #define F77_dnrm2_sub dnrm2sub
c@427 389 #define F77_dasum_sub dasumsub
c@427 390 #define F77_scnrm2_sub scnrm2sub
c@427 391 #define F77_scasum_sub scasumsub
c@427 392 #define F77_dznrm2_sub dznrm2sub
c@427 393 #define F77_dzasum_sub dzasumsub
c@427 394 #define F77_sdsdot_sub sdsdotsub
c@427 395 /*
c@427 396 * Level 2 BLAS
c@427 397 */
c@427 398 #define F77_ssymv ssymv
c@427 399 #define F77_ssbmv ssbmv
c@427 400 #define F77_sspmv sspmv
c@427 401 #define F77_sger sger
c@427 402 #define F77_ssyr ssyr
c@427 403 #define F77_sspr sspr
c@427 404 #define F77_ssyr2 ssyr2
c@427 405 #define F77_sspr2 sspr2
c@427 406 #define F77_dsymv dsymv
c@427 407 #define F77_dsbmv dsbmv
c@427 408 #define F77_dspmv dspmv
c@427 409 #define F77_dger dger
c@427 410 #define F77_dsyr dsyr
c@427 411 #define F77_dspr dspr
c@427 412 #define F77_dsyr2 dsyr2
c@427 413 #define F77_dspr2 dspr2
c@427 414 #define F77_chemv chemv
c@427 415 #define F77_chbmv chbmv
c@427 416 #define F77_chpmv chpmv
c@427 417 #define F77_cgeru cgeru
c@427 418 #define F77_cgerc cgerc
c@427 419 #define F77_cher cher
c@427 420 #define F77_chpr chpr
c@427 421 #define F77_cher2 cher2
c@427 422 #define F77_chpr2 chpr2
c@427 423 #define F77_zhemv zhemv
c@427 424 #define F77_zhbmv zhbmv
c@427 425 #define F77_zhpmv zhpmv
c@427 426 #define F77_zgeru zgeru
c@427 427 #define F77_zgerc zgerc
c@427 428 #define F77_zher zher
c@427 429 #define F77_zhpr zhpr
c@427 430 #define F77_zher2 zher2
c@427 431 #define F77_zhpr2 zhpr2
c@427 432 #define F77_sgemv sgemv
c@427 433 #define F77_sgbmv sgbmv
c@427 434 #define F77_strmv strmv
c@427 435 #define F77_stbmv stbmv
c@427 436 #define F77_stpmv stpmv
c@427 437 #define F77_strsv strsv
c@427 438 #define F77_stbsv stbsv
c@427 439 #define F77_stpsv stpsv
c@427 440 #define F77_dgemv dgemv
c@427 441 #define F77_dgbmv dgbmv
c@427 442 #define F77_dtrmv dtrmv
c@427 443 #define F77_dtbmv dtbmv
c@427 444 #define F77_dtpmv dtpmv
c@427 445 #define F77_dtrsv dtrsv
c@427 446 #define F77_dtbsv dtbsv
c@427 447 #define F77_dtpsv dtpsv
c@427 448 #define F77_cgemv cgemv
c@427 449 #define F77_cgbmv cgbmv
c@427 450 #define F77_ctrmv ctrmv
c@427 451 #define F77_ctbmv ctbmv
c@427 452 #define F77_ctpmv ctpmv
c@427 453 #define F77_ctrsv ctrsv
c@427 454 #define F77_ctbsv ctbsv
c@427 455 #define F77_ctpsv ctpsv
c@427 456 #define F77_zgemv zgemv
c@427 457 #define F77_zgbmv zgbmv
c@427 458 #define F77_ztrmv ztrmv
c@427 459 #define F77_ztbmv ztbmv
c@427 460 #define F77_ztpmv ztpmv
c@427 461 #define F77_ztrsv ztrsv
c@427 462 #define F77_ztbsv ztbsv
c@427 463 #define F77_ztpsv ztpsv
c@427 464 /*
c@427 465 * Level 3 BLAS
c@427 466 */
c@427 467 #define F77_chemm chemm
c@427 468 #define F77_cherk cherk
c@427 469 #define F77_cher2k cher2k
c@427 470 #define F77_zhemm zhemm
c@427 471 #define F77_zherk zherk
c@427 472 #define F77_zher2k zher2k
c@427 473 #define F77_sgemm sgemm
c@427 474 #define F77_ssymm ssymm
c@427 475 #define F77_ssyrk ssyrk
c@427 476 #define F77_ssyr2k ssyr2k
c@427 477 #define F77_strmm strmm
c@427 478 #define F77_strsm strsm
c@427 479 #define F77_dgemm dgemm
c@427 480 #define F77_dsymm dsymm
c@427 481 #define F77_dsyrk dsyrk
c@427 482 #define F77_dsyr2k dsyr2k
c@427 483 #define F77_dtrmm dtrmm
c@427 484 #define F77_dtrsm dtrsm
c@427 485 #define F77_cgemm cgemm
c@427 486 #define F77_csymm csymm
c@427 487 #define F77_csyrk csyrk
c@427 488 #define F77_csyr2k csyr2k
c@427 489 #define F77_ctrmm ctrmm
c@427 490 #define F77_ctrsm ctrsm
c@427 491 #define F77_zgemm zgemm
c@427 492 #define F77_zsymm zsymm
c@427 493 #define F77_zsyrk zsyrk
c@427 494 #define F77_zsyr2k zsyr2k
c@427 495 #define F77_ztrmm ztrmm
c@427 496 #define F77_ztrsm ztrsm
c@427 497 #endif
c@427 498
c@427 499 #ifdef __cplusplus
c@427 500 extern "C" {
c@427 501 #endif
c@427 502
c@427 503 void F77_xerbla(FCHAR, void *);
c@427 504 /*
c@427 505 * Level 1 Fortran Prototypes
c@427 506 */
c@427 507
c@427 508 /* Single Precision */
c@427 509
c@427 510 void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
c@427 511 void F77_srotg(float *,float *,float *,float *);
c@427 512 void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
c@427 513 void F77_srotmg(float *,float *,float *,const float *, float *);
c@427 514 void F77_sswap( FINT, float *, FINT, float *, FINT);
c@427 515 void F77_scopy( FINT, const float *, FINT, float *, FINT);
c@427 516 void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
c@427 517 void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
c@427 518 void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
c@427 519 void F77_sscal( FINT, const float *, float *, FINT);
c@427 520 void F77_snrm2_sub( FINT, const float *, FINT, float *);
c@427 521 void F77_sasum_sub( FINT, const float *, FINT, float *);
c@427 522 void F77_isamax_sub( FINT, const float * , FINT, FINT2);
c@427 523
c@427 524 /* Double Precision */
c@427 525
c@427 526 void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
c@427 527 void F77_drotg(double *,double *,double *,double *);
c@427 528 void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
c@427 529 void F77_drotmg(double *,double *,double *,const double *, double *);
c@427 530 void F77_dswap( FINT, double *, FINT, double *, FINT);
c@427 531 void F77_dcopy( FINT, const double *, FINT, double *, FINT);
c@427 532 void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
c@427 533 void F77_dswap( FINT, double *, FINT, double *, FINT);
c@427 534 void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
c@427 535 void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
c@427 536 void F77_dscal( FINT, const double *, double *, FINT);
c@427 537 void F77_dnrm2_sub( FINT, const double *, FINT, double *);
c@427 538 void F77_dasum_sub( FINT, const double *, FINT, double *);
c@427 539 void F77_idamax_sub( FINT, const double * , FINT, FINT2);
c@427 540
c@427 541 /* Single Complex Precision */
c@427 542
c@427 543 void F77_cswap( FINT, void *, FINT, void *, FINT);
c@427 544 void F77_ccopy( FINT, const void *, FINT, void *, FINT);
c@427 545 void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
c@427 546 void F77_cswap( FINT, void *, FINT, void *, FINT);
c@427 547 void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
c@427 548 void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
c@427 549 void F77_cscal( FINT, const void *, void *, FINT);
c@427 550 void F77_icamax_sub( FINT, const void *, FINT, FINT2);
c@427 551 void F77_csscal( FINT, const float *, void *, FINT);
c@427 552 void F77_scnrm2_sub( FINT, const void *, FINT, float *);
c@427 553 void F77_scasum_sub( FINT, const void *, FINT, float *);
c@427 554
c@427 555 /* Double Complex Precision */
c@427 556
c@427 557 void F77_zswap( FINT, void *, FINT, void *, FINT);
c@427 558 void F77_zcopy( FINT, const void *, FINT, void *, FINT);
c@427 559 void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
c@427 560 void F77_zswap( FINT, void *, FINT, void *, FINT);
c@427 561 void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
c@427 562 void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
c@427 563 void F77_zdscal( FINT, const double *, void *, FINT);
c@427 564 void F77_zscal( FINT, const void *, void *, FINT);
c@427 565 void F77_dznrm2_sub( FINT, const void *, FINT, double *);
c@427 566 void F77_dzasum_sub( FINT, const void *, FINT, double *);
c@427 567 void F77_izamax_sub( FINT, const void *, FINT, FINT2);
c@427 568
c@427 569 /*
c@427 570 * Level 2 Fortran Prototypes
c@427 571 */
c@427 572
c@427 573 /* Single Precision */
c@427 574
c@427 575 void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 576 void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 577 void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 578 void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 579 void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
c@427 580 void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
c@427 581 void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
c@427 582 void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
c@427 583 void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
c@427 584 void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
c@427 585 void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
c@427 586 void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
c@427 587 void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
c@427 588 void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
c@427 589 void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
c@427 590 void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
c@427 591
c@427 592 /* Double Precision */
c@427 593
c@427 594 void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 595 void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 596 void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 597 void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 598 void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
c@427 599 void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
c@427 600 void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
c@427 601 void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
c@427 602 void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
c@427 603 void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
c@427 604 void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
c@427 605 void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
c@427 606 void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
c@427 607 void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
c@427 608 void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
c@427 609 void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
c@427 610
c@427 611 /* Single Complex Precision */
c@427 612
c@427 613 void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 614 void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 615 void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 616 void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 617 void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
c@427 618 void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
c@427 619 void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
c@427 620 void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
c@427 621 void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
c@427 622 void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
c@427 623 void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
c@427 624 void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
c@427 625 void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
c@427 626 void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
c@427 627 void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
c@427 628 void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
c@427 629 void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);
c@427 630
c@427 631 /* Double Complex Precision */
c@427 632
c@427 633 void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 634 void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 635 void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 636 void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
c@427 637 void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
c@427 638 void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
c@427 639 void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
c@427 640 void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
c@427 641 void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
c@427 642 void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
c@427 643 void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
c@427 644 void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
c@427 645 void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
c@427 646 void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
c@427 647 void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
c@427 648 void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
c@427 649 void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);
c@427 650
c@427 651 /*
c@427 652 * Level 3 Fortran Prototypes
c@427 653 */
c@427 654
c@427 655 /* Single Precision */
c@427 656
c@427 657 void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 658 void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 659 void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
c@427 660 void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 661 void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
c@427 662 void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
c@427 663
c@427 664 /* Double Precision */
c@427 665
c@427 666 void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 667 void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 668 void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
c@427 669 void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 670 void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
c@427 671 void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
c@427 672
c@427 673 /* Single Complex Precision */
c@427 674
c@427 675 void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 676 void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 677 void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 678 void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
c@427 679 void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
c@427 680 void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 681 void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
c@427 682 void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
c@427 683 void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
c@427 684
c@427 685 /* Double Complex Precision */
c@427 686
c@427 687 void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 688 void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 689 void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 690 void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
c@427 691 void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
c@427 692 void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 693 void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
c@427 694 void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
c@427 695 void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
c@427 696
c@427 697 #ifdef __cplusplus
c@427 698 }
c@427 699 #endif
c@427 700
c@427 701 #endif /* CBLAS_F77_H */