/usr/lib/petscdir/3.1/include/petscblaslapack_caps.h is in libpetsc3.1-dev 3.1.dfsg-11ubuntu1.
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 | /*
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_SCALAR_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 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
/* Real single precision with character string arguments. */
# define LAPACKormqr_ SORMQR
# define LAPACKtrtrs_ STRTRS
# 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 LAPACKstebz_ SSTEBZ
# else
/* Real double precision with no character string arguments */
# define LAPACKgeqrf_ DGEQRF
# define LAPACKungqr_ DORGQR
# define LAPACKgetrf_ DGETRF
# define BLASdot_ 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
/* Real double precision with character string arguments. */
# define LAPACKormqr_ DORMQR
# define LAPACKtrtrs_ DTRTRS
# 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 LAPACKstebz_ DSTEBZ
# 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 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
/* Complex single precision with character string arguments */
/* LAPACKormqr_ does not exist for complex. */
# define LAPACKtrtrs_ CTRTRS
# define LAPACKpotrf_ CPOTRF
# define LAPACKpotrs_ CPOTRS
# define BLASgemv_ CGEMV
# define LAPACKgetrs_ CGETRS
# define BLAStrmv_ CTRMV
# define BLASgemm_ SGEMM
# 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. */
# else
/* Complex double precision with no character string arguments */
# define LAPACKgeqrf_ ZGEQRF
# define LAPACKungqr_ ZUNGQR
# define LAPACKgetrf_ ZGETRF
# define BLASdot_ ZDOTC
# 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
/* Complex double precision with character string arguments */
/* LAPACKormqr_ does not exist for complex. */
# define LAPACKtrtrs_ ZTRTRS
# define LAPACKpotrf_ ZPOTRF
# define LAPACKpotrs_ ZPOTRS
# define BLASgemv_ ZGEMV
# define LAPACKgetrs_ ZGETRS
# define BLAStrmv_ ZTRMV
# define BLASgemm_ ZGEMM
# 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. */
# endif
#endif
#endif
|