/usr/lib/petscdir/3.4.2/include/petscblaslapack_caps.h is in libpetsc3.4.2-dev 3.4.2.dfsg1-8.1+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 | /*
This file deals with CAPS Fortran 77 naming convention.
*/
#if !defined(_BLASLAPACK_CAPS_H)
#define _BLASLAPACK_CAPS_H
#if !defined(PETSC_USE_COMPLEX)
# if defined(PETSC_USE_REAL_SINGLE) || defined(PETSC_USES_FORTRAN_SINGLE)
/* Real single precision with no character string arguments */
# define LAPACKgeqrf_ SGEQRF
# define LAPACKungqr_ SORGQR
# define LAPACKgetrf_ SGETRF
# define BLASdot_ SDOT
# define BLASdotu_ SDOT
# define BLASnrm2_ SNRM2
# define BLASscal_ SSCAL
# define BLAScopy_ SCOPY
# define BLASswap_ SSWAP
# define BLASaxpy_ SAXPY
# define BLASasum_ SASUM
# define LAPACKpttrf_ SPTTRF
# define LAPACKpttrs_ SPTTRS
# define LAPACKstein_ SSTEIN
# define LAPACKgesv_ SGESV
# define LAPACKgelss_ SGELSS
# define LAPACKgerfs_ SGERFS
# define LAPACKtgsen_ STGSEN
/* Real single precision with character string arguments. */
# define LAPACKpotrf_ SPOTRF
# define LAPACKpotrs_ SPOTRS
# define BLASgemv_ SGEMV
# define LAPACKgetrs_ SGETRS
# define BLAStrmv_ STRMV
# define LAPACKgesvd_ SGESVD
# define LAPACKgeev_ SGEEV
# define LAPACKsyev_ SSYEV
# define LAPACKsyevx_ SSYEVX
# define LAPACKsygv_ SSYGV
# define LAPACKsygvx_ SSYGVX
# define BLASgemm_ SGEMM
# define BLAStrsm_ STRSM
# define LAPACKstebz_ SSTEBZ
# define LAPACKsteqr_ SSTEQR /* eigenvalues of symm tridiagonal matrix */
# define LAPACKhseqr_ SHSEQR
# define LAPACKgges_ SGGES
# define LAPACKtrsen_ STRSEN
# define LAPACKormqr_ SORMQR
# define LAPACKhgeqz_ SHGEQZ
# define LAPACKtrtrs_ STRTRS
# else
/* Real double precision with no character string arguments */
# define LAPACKgeqrf_ DGEQRF
# define LAPACKungqr_ DORGQR
# define LAPACKgetrf_ DGETRF
# define BLASdot_ DDOT
# define BLASdotu_ DDOT
# define BLASnrm2_ DNRM2
# define BLASscal_ DSCAL
# define BLAScopy_ DCOPY
# define BLASswap_ DSWAP
# define BLASaxpy_ DAXPY
# define BLASasum_ DASUM
# define LAPACKpttrf_ DPTTRF
# define LAPACKpttrs_ DPTTRS
# define LAPACKstein_ DSTEIN
# define LAPACKgesv_ DGESV
# define LAPACKgelss_ DGELSS
# define LAPACKgerfs_ DGERFS
# define LAPACKtgsen_ DTGSEN
/* Real double precision with character string arguments. */
# define LAPACKpotrf_ DPOTRF
# define LAPACKpotrs_ DPOTRS
# define BLASgemv_ DGEMV
# define LAPACKgetrs_ DGETRS
# define BLAStrmv_ DTRMV
# define LAPACKgesvd_ DGESVD
# define LAPACKgeev_ DGEEV
# define LAPACKsyev_ DSYEV
# define LAPACKsyevx_ DSYEVX
# define LAPACKsygv_ DSYGV
# define LAPACKsygvx_ DSYGVX
# define BLASgemm_ DGEMM
# define BLAStrsm_ DTRSM
# define LAPACKstebz_ DSTEBZ
# define LAPACKsteqr_ DSTEQR
# define LAPACKhseqr_ DHSEQR
# define LAPACKgges_ DGGES
# define LAPACKtrsen_ DTRSEN
# define LAPACKormqr_ DORMQR
# define LAPACKhgeqz_ DHGEQZ
# define LAPACKtrtrs_ DTRTRS
# endif
#else
# if defined(PETSC_USES_FORTRAN_SINGLE)
/* Complex single precision with no character string arguments */
# define LAPACKgeqrf_ CGEQRF
# define LAPACKungqr_ CUNGQR
# define LAPACKgetrf_ CGETRF
/* # define BLASdot_ CDOTC */
/* # define BLASdotu_ CDOTU */
# define BLASnrm2_ SCNRM2
# define BLASscal_ CSCAL
# define BLAScopy_ CCOPY
# define BLASswap_ CSWAP
# define BLASaxpy_ CAXPY
# define BLASasum_ SCASUM
# define LAPACKpttrf_ CPTTRF
# define LAPACKstein_ CSTEIN
# define LAPACKgesv_ CGESV
# define LAPACKgelss_ CGELSS
# define LAPACKgerfs_ CGERFS
# define LAPACKtgsen_ CTGSEN
/* Complex single precision with character string arguments */
# define LAPACKpotrf_ CPOTRF
# define LAPACKpotrs_ CPOTRS
# define BLASgemv_ CGEMV
# define LAPACKgetrs_ CGETRS
# define BLAStrmv_ CTRMV
# define BLASgemm_ CGEMM
# define BLAStrsm_ CTRSM
# define LAPACKgesvd_ CGESVD
# define LAPACKgeev_ CGEEV
# define LAPACKsyev_ CSYEV
# define LAPACKsyevx_ CSYEVX
# define LAPACKsygv_ CHEGV
# define LAPACKsygvx_ CHEGVX
# define LAPACKpttrs_ CPTTRS
/* LAPACKstebz_ does not exist for complex. */
# define LAPACKsteqr_ CSTEQR
# define LAPACKhseqr_ CHSEQR
# define LAPACKgges_ CGGES
# define LAPACKtrsen_ CTRSEN
# define LAPACKormqr_ CORMQR
# define LAPACKhgeqz_ CHGEQZ
# define LAPACKtrtrs_ CTRTRS
# else
/* Complex double precision with no character string arguments */
# define LAPACKgeqrf_ ZGEQRF
# define LAPACKungqr_ ZUNGQR
# define LAPACKgetrf_ ZGETRF
/* # define BLASdot_ ZDOTC */
/* # define BLASdotu_ ZDOTU */
# define BLASnrm2_ DZNRM2
# define BLASscal_ ZSCAL
# define BLAScopy_ ZCOPY
# define BLASswap_ ZSWAP
# define BLASaxpy_ ZAXPY
# define BLASasum_ DZASUM
# define LAPACKpttrf_ ZPTTRF
# define LAPACKstein_ ZSTEIN
# define LAPACKgesv_ ZGESV
# define LAPACKgelss_ ZGELSS
# define LAPACKgerfs_ ZGERFS
# define LAPACKtgsen_ ZTGSEN
/* Complex double precision with character string arguments */
# define LAPACKpotrf_ ZPOTRF
# define LAPACKpotrs_ ZPOTRS
# define BLASgemv_ ZGEMV
# define LAPACKgetrs_ ZGETRS
# define BLAStrmv_ ZTRMV
# define BLASgemm_ ZGEMM
# define BLAStrsm_ ZTRSM
# define LAPACKgesvd_ ZGESVD
# define LAPACKgeev_ ZGEEV
# define LAPACKsyev_ ZHEEV
# define LAPACKsyevx_ ZHEEVX
# define LAPACKsygv_ ZHEGV
# define LAPACKsygvx_ ZHEGVX
# define LAPACKpttrs_ ZPTTRS
/* LAPACKstebz_ does not exist for complex. */
# define LAPACKsteqr_ ZSTEQR
# define LAPACKhseqr_ ZHSEQR
# define LAPACKgges_ ZGGES
# define LAPACKtrsen_ ZTRSEN
# define LAPACKormqr_ ZORMQR
# define LAPACKhgeqz_ ZHGEQZ
# define LAPACKtrtrs_ ZTRTRS
# endif
#endif
#endif
|