blaswrap.h 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160
  1. /* CLAPACK 3.0 BLAS wrapper macros
  2. * Feb 5, 2000
  3. */
  4. #ifndef __BLASWRAP_H
  5. #define __BLASWRAP_H
  6. #ifndef NO_BLAS_WRAP
  7. /* BLAS1 routines */
  8. #define srotg_ f2c_srotg
  9. #define crotg_ f2c_crotg
  10. #define drotg_ f2c_drotg
  11. #define zrotg_ f2c_zrotg
  12. #define srotmg_ f2c_srotmg
  13. #define drotmg_ f2c_drotmg
  14. #define srot_ f2c_srot
  15. #define drot_ f2c_drot
  16. #define srotm_ f2c_srotm
  17. #define drotm_ f2c_drotm
  18. #define sswap_ f2c_sswap
  19. #define dswap_ f2c_dswap
  20. #define cswap_ f2c_cswap
  21. #define zswap_ f2c_zswap
  22. #define sscal_ f2c_sscal
  23. #define dscal_ f2c_dscal
  24. #define cscal_ f2c_cscal
  25. #define zscal_ f2c_zscal
  26. #define csscal_ f2c_csscal
  27. #define zdscal_ f2c_zdscal
  28. #define scopy_ f2c_scopy
  29. #define dcopy_ f2c_dcopy
  30. #define ccopy_ f2c_ccopy
  31. #define zcopy_ f2c_zcopy
  32. #define saxpy_ f2c_saxpy
  33. #define daxpy_ f2c_daxpy
  34. #define caxpy_ f2c_caxpy
  35. #define zaxpy_ f2c_zaxpy
  36. #define sdot_ f2c_sdot
  37. #define ddot_ f2c_ddot
  38. #define cdotu_ f2c_cdotu
  39. #define zdotu_ f2c_zdotu
  40. #define cdotc_ f2c_cdotc
  41. #define zdotc_ f2c_zdotc
  42. #define snrm2_ f2c_snrm2
  43. #define dnrm2_ f2c_dnrm2
  44. #define scnrm2_ f2c_scnrm2
  45. #define dznrm2_ f2c_dznrm2
  46. #define sasum_ f2c_sasum
  47. #define dasum_ f2c_dasum
  48. #define scasum_ f2c_scasum
  49. #define dzasum_ f2c_dzasum
  50. #define isamax_ f2c_isamax
  51. #define idamax_ f2c_idamax
  52. #define icamax_ f2c_icamax
  53. #define izamax_ f2c_izamax
  54. /* BLAS2 routines */
  55. #define sgemv_ f2c_sgemv
  56. #define dgemv_ f2c_dgemv
  57. #define cgemv_ f2c_cgemv
  58. #define zgemv_ f2c_zgemv
  59. #define sgbmv_ f2c_sgbmv
  60. #define dgbmv_ f2c_dgbmv
  61. #define cgbmv_ f2c_cgbmv
  62. #define zgbmv_ f2c_zgbmv
  63. #define chemv_ f2c_chemv
  64. #define zhemv_ f2c_zhemv
  65. #define chbmv_ f2c_chbmv
  66. #define zhbmv_ f2c_zhbmv
  67. #define chpmv_ f2c_chpmv
  68. #define zhpmv_ f2c_zhpmv
  69. #define ssymv_ f2c_ssymv
  70. #define dsymv_ f2c_dsymv
  71. #define ssbmv_ f2c_ssbmv
  72. #define dsbmv_ f2c_dsbmv
  73. #define sspmv_ f2c_sspmv
  74. #define dspmv_ f2c_dspmv
  75. #define strmv_ f2c_strmv
  76. #define dtrmv_ f2c_dtrmv
  77. #define ctrmv_ f2c_ctrmv
  78. #define ztrmv_ f2c_ztrmv
  79. #define stbmv_ f2c_stbmv
  80. #define dtbmv_ f2c_dtbmv
  81. #define ctbmv_ f2c_ctbmv
  82. #define ztbmv_ f2c_ztbmv
  83. #define stpmv_ f2c_stpmv
  84. #define dtpmv_ f2c_dtpmv
  85. #define ctpmv_ f2c_ctpmv
  86. #define ztpmv_ f2c_ztpmv
  87. #define strsv_ f2c_strsv
  88. #define dtrsv_ f2c_dtrsv
  89. #define ctrsv_ f2c_ctrsv
  90. #define ztrsv_ f2c_ztrsv
  91. #define stbsv_ f2c_stbsv
  92. #define dtbsv_ f2c_dtbsv
  93. #define ctbsv_ f2c_ctbsv
  94. #define ztbsv_ f2c_ztbsv
  95. #define stpsv_ f2c_stpsv
  96. #define dtpsv_ f2c_dtpsv
  97. #define ctpsv_ f2c_ctpsv
  98. #define ztpsv_ f2c_ztpsv
  99. #define sger_ f2c_sger
  100. #define dger_ f2c_dger
  101. #define cgeru_ f2c_cgeru
  102. #define zgeru_ f2c_zgeru
  103. #define cgerc_ f2c_cgerc
  104. #define zgerc_ f2c_zgerc
  105. #define cher_ f2c_cher
  106. #define zher_ f2c_zher
  107. #define chpr_ f2c_chpr
  108. #define zhpr_ f2c_zhpr
  109. #define cher2_ f2c_cher2
  110. #define zher2_ f2c_zher2
  111. #define chpr2_ f2c_chpr2
  112. #define zhpr2_ f2c_zhpr2
  113. #define ssyr_ f2c_ssyr
  114. #define dsyr_ f2c_dsyr
  115. #define sspr_ f2c_sspr
  116. #define dspr_ f2c_dspr
  117. #define ssyr2_ f2c_ssyr2
  118. #define dsyr2_ f2c_dsyr2
  119. #define sspr2_ f2c_sspr2
  120. #define dspr2_ f2c_dspr2
  121. /* BLAS3 routines */
  122. #define sgemm_ f2c_sgemm
  123. #define dgemm_ f2c_dgemm
  124. #define cgemm_ f2c_cgemm
  125. #define zgemm_ f2c_zgemm
  126. #define ssymm_ f2c_ssymm
  127. #define dsymm_ f2c_dsymm
  128. #define csymm_ f2c_csymm
  129. #define zsymm_ f2c_zsymm
  130. #define chemm_ f2c_chemm
  131. #define zhemm_ f2c_zhemm
  132. #define ssyrk_ f2c_ssyrk
  133. #define dsyrk_ f2c_dsyrk
  134. #define csyrk_ f2c_csyrk
  135. #define zsyrk_ f2c_zsyrk
  136. #define cherk_ f2c_cherk
  137. #define zherk_ f2c_zherk
  138. #define ssyr2k_ f2c_ssyr2k
  139. #define dsyr2k_ f2c_dsyr2k
  140. #define csyr2k_ f2c_csyr2k
  141. #define zsyr2k_ f2c_zsyr2k
  142. #define cher2k_ f2c_cher2k
  143. #define zher2k_ f2c_zher2k
  144. #define strmm_ f2c_strmm
  145. #define dtrmm_ f2c_dtrmm
  146. #define ctrmm_ f2c_ctrmm
  147. #define ztrmm_ f2c_ztrmm
  148. #define strsm_ f2c_strsm
  149. #define dtrsm_ f2c_dtrsm
  150. #define ctrsm_ f2c_ctrsm
  151. #define ztrsm_ f2c_ztrsm
  152. #endif /* NO_BLAS_WRAP */
  153. #endif /* __BLASWRAP_H */