Skip to content

Commit 05043da

Browse files
STCE2023STCE2023
committed
Formatting.
1 parent 9448b7e commit 05043da

File tree

1 file changed

+147
-147
lines changed

1 file changed

+147
-147
lines changed

‎CBLAS/include/cblas_f77.h

Lines changed: 147 additions & 147 deletions
Original file line numberDiff line numberDiff line change
@@ -46,162 +46,162 @@
4646
* Level 1 BLAS
4747
*/
4848

49-
#define F77_xerbla_base F77_GLOBAL(xerbla,XERBLA)
50-
#define F77_srotg_base F77_GLOBAL(srotg,SROTG)
51-
#define F77_srotmg_base F77_GLOBAL(srotmg,SROTMG)
52-
#define F77_srot_base F77_GLOBAL(srot,SROT)
53-
#define F77_srotm_base F77_GLOBAL(srotm,SROTM)
54-
#define F77_drotg_base F77_GLOBAL(drotg,DROTG)
55-
#define F77_drotmg_base F77_GLOBAL(drotmg,DROTMG)
56-
#define F77_drot_base F77_GLOBAL(drot,DROT)
57-
#define F77_drotm_base F77_GLOBAL(drotm,DROTM)
58-
#define F77_sswap_base F77_GLOBAL(sswap,SSWAP)
59-
#define F77_scopy_base F77_GLOBAL(scopy,SCOPY)
60-
#define F77_saxpy_base F77_GLOBAL(saxpy,SAXPY)
61-
#define F77_isamax_sub_base F77_GLOBAL(isamaxsub,ISAMAXSUB)
62-
#define F77_dswap_base F77_GLOBAL(dswap,DSWAP)
63-
#define F77_dcopy_base F77_GLOBAL(dcopy,DCOPY)
64-
#define F77_daxpy_base F77_GLOBAL(daxpy,DAXPY)
65-
#define F77_idamax_sub_base F77_GLOBAL(idamaxsub,IDAMAXSUB)
66-
#define F77_cswap_base F77_GLOBAL(cswap,CSWAP)
67-
#define F77_ccopy_base F77_GLOBAL(ccopy,CCOPY)
68-
#define F77_caxpy_base F77_GLOBAL(caxpy,CAXPY)
69-
#define F77_icamax_sub_base F77_GLOBAL(icamaxsub,ICAMAXSUB)
70-
#define F77_zswap_base F77_GLOBAL(zswap,ZSWAP)
71-
#define F77_zcopy_base F77_GLOBAL(zcopy,ZCOPY)
72-
#define F77_zaxpy_base F77_GLOBAL(zaxpy,ZAXPY)
73-
#define F77_izamax_sub_base F77_GLOBAL(izamaxsub,IZAMAXSUB)
74-
#define F77_sdot_sub_base F77_GLOBAL(sdotsub,SDOTSUB)
75-
#define F77_ddot_sub_base F77_GLOBAL(ddotsub,DDOTSUB)
76-
#define F77_dsdot_sub_base F77_GLOBAL(dsdotsub,DSDOTSUB)
77-
#define F77_sscal_base F77_GLOBAL(sscal,SSCAL)
78-
#define F77_dscal_base F77_GLOBAL(dscal,DSCAL)
79-
#define F77_cscal_base F77_GLOBAL(cscal,CSCAL)
80-
#define F77_zscal_base F77_GLOBAL(zscal,ZSCAL)
81-
#define F77_csscal_base F77_GLOBAL(csscal,CSSCAL)
82-
#define F77_zdscal_base F77_GLOBAL(zdscal,ZDSCAL)
83-
#define F77_cdotu_sub_base F77_GLOBAL(cdotusub,CDOTUSUB)
84-
#define F77_cdotc_sub_base F77_GLOBAL(cdotcsub,CDOTCSUB)
85-
#define F77_zdotu_sub_base F77_GLOBAL(zdotusub,ZDOTUSUB)
86-
#define F77_zdotc_sub_base F77_GLOBAL(zdotcsub,ZDOTCSUB)
87-
#define F77_snrm2_sub_base F77_GLOBAL(snrm2sub,SNRM2SUB)
88-
#define F77_sasum_sub_base F77_GLOBAL(sasumsub,SASUMSUB)
89-
#define F77_dnrm2_sub_base F77_GLOBAL(dnrm2sub,DNRM2SUB)
90-
#define F77_dasum_sub_base F77_GLOBAL(dasumsub,DASUMSUB)
91-
#define F77_scnrm2_sub_base F77_GLOBAL(scnrm2sub,SCNRM2SUB)
92-
#define F77_scasum_sub_base F77_GLOBAL(scasumsub,SCASUMSUB)
93-
#define F77_dznrm2_sub_base F77_GLOBAL(dznrm2sub,DZNRM2SUB)
94-
#define F77_dzasum_sub_base F77_GLOBAL(dzasumsub,DZASUMSUB)
95-
#define F77_sdsdot_sub_base F77_GLOBAL(sdsdotsub,SDSDOTSUB)
96-
#define F77_crotg_base F77_GLOBAL(crotg, CROTG)
97-
#define F77_csrot_base F77_GLOBAL(csrot, CSROT)
98-
#define F77_zrotg_base F77_GLOBAL(zrotg, ZROTG)
99-
#define F77_zdrot_base F77_GLOBAL(zdrot, ZDROT)
49+
#define F77_xerbla_base F77_GLOBAL(xerbla,XERBLA)
50+
#define F77_srotg_base F77_GLOBAL(srotg,SROTG)
51+
#define F77_srotmg_base F77_GLOBAL(srotmg,SROTMG)
52+
#define F77_srot_base F77_GLOBAL(srot,SROT)
53+
#define F77_srotm_base F77_GLOBAL(srotm,SROTM)
54+
#define F77_drotg_base F77_GLOBAL(drotg,DROTG)
55+
#define F77_drotmg_base F77_GLOBAL(drotmg,DROTMG)
56+
#define F77_drot_base F77_GLOBAL(drot,DROT)
57+
#define F77_drotm_base F77_GLOBAL(drotm,DROTM)
58+
#define F77_sswap_base F77_GLOBAL(sswap,SSWAP)
59+
#define F77_scopy_base F77_GLOBAL(scopy,SCOPY)
60+
#define F77_saxpy_base F77_GLOBAL(saxpy,SAXPY)
61+
#define F77_isamax_sub_base F77_GLOBAL(isamaxsub,ISAMAXSUB)
62+
#define F77_dswap_base F77_GLOBAL(dswap,DSWAP)
63+
#define F77_dcopy_base F77_GLOBAL(dcopy,DCOPY)
64+
#define F77_daxpy_base F77_GLOBAL(daxpy,DAXPY)
65+
#define F77_idamax_sub_base F77_GLOBAL(idamaxsub,IDAMAXSUB)
66+
#define F77_cswap_base F77_GLOBAL(cswap,CSWAP)
67+
#define F77_ccopy_base F77_GLOBAL(ccopy,CCOPY)
68+
#define F77_caxpy_base F77_GLOBAL(caxpy,CAXPY)
69+
#define F77_icamax_sub_base F77_GLOBAL(icamaxsub,ICAMAXSUB)
70+
#define F77_zswap_base F77_GLOBAL(zswap,ZSWAP)
71+
#define F77_zcopy_base F77_GLOBAL(zcopy,ZCOPY)
72+
#define F77_zaxpy_base F77_GLOBAL(zaxpy,ZAXPY)
73+
#define F77_izamax_sub_base F77_GLOBAL(izamaxsub,IZAMAXSUB)
74+
#define F77_sdot_sub_base F77_GLOBAL(sdotsub,SDOTSUB)
75+
#define F77_ddot_sub_base F77_GLOBAL(ddotsub,DDOTSUB)
76+
#define F77_dsdot_sub_base F77_GLOBAL(dsdotsub,DSDOTSUB)
77+
#define F77_sscal_base F77_GLOBAL(sscal,SSCAL)
78+
#define F77_dscal_base F77_GLOBAL(dscal,DSCAL)
79+
#define F77_cscal_base F77_GLOBAL(cscal,CSCAL)
80+
#define F77_zscal_base F77_GLOBAL(zscal,ZSCAL)
81+
#define F77_csscal_base F77_GLOBAL(csscal,CSSCAL)
82+
#define F77_zdscal_base F77_GLOBAL(zdscal,ZDSCAL)
83+
#define F77_cdotu_sub_base F77_GLOBAL(cdotusub,CDOTUSUB)
84+
#define F77_cdotc_sub_base F77_GLOBAL(cdotcsub,CDOTCSUB)
85+
#define F77_zdotu_sub_base F77_GLOBAL(zdotusub,ZDOTUSUB)
86+
#define F77_zdotc_sub_base F77_GLOBAL(zdotcsub,ZDOTCSUB)
87+
#define F77_snrm2_sub_base F77_GLOBAL(snrm2sub,SNRM2SUB)
88+
#define F77_sasum_sub_base F77_GLOBAL(sasumsub,SASUMSUB)
89+
#define F77_dnrm2_sub_base F77_GLOBAL(dnrm2sub,DNRM2SUB)
90+
#define F77_dasum_sub_base F77_GLOBAL(dasumsub,DASUMSUB)
91+
#define F77_scnrm2_sub_base F77_GLOBAL(scnrm2sub,SCNRM2SUB)
92+
#define F77_scasum_sub_base F77_GLOBAL(scasumsub,SCASUMSUB)
93+
#define F77_dznrm2_sub_base F77_GLOBAL(dznrm2sub,DZNRM2SUB)
94+
#define F77_dzasum_sub_base F77_GLOBAL(dzasumsub,DZASUMSUB)
95+
#define F77_sdsdot_sub_base F77_GLOBAL(sdsdotsub,SDSDOTSUB)
96+
#define F77_crotg_base F77_GLOBAL(crotg, CROTG)
97+
#define F77_csrot_base F77_GLOBAL(csrot, CSROT)
98+
#define F77_zrotg_base F77_GLOBAL(zrotg, ZROTG)
99+
#define F77_zdrot_base F77_GLOBAL(zdrot, ZDROT)
100100
#define F77_scabs1_sub_base F77_GLOBAL(scabs1sub, SCABS1SUB)
101101
#define F77_dcabs1_sub_base F77_GLOBAL(dcabs1sub, DCABS1SUB)
102102

103103
/*
104104
* Level 2 BLAS
105105
*/
106-
#define F77_ssymv_base F77_GLOBAL(ssymv,SSYMV)
107-
#define F77_ssbmv_base F77_GLOBAL(ssbmv,SSBMV)
108-
#define F77_sspmv_base F77_GLOBAL(sspmv,SSPMV)
109-
#define F77_sger_base F77_GLOBAL(sger,SGER)
110-
#define F77_ssyr_base F77_GLOBAL(ssyr,SSYR)
111-
#define F77_sspr_base F77_GLOBAL(sspr,SSPR)
112-
#define F77_ssyr2_base F77_GLOBAL(ssyr2,SSYR2)
113-
#define F77_sspr2_base F77_GLOBAL(sspr2,SSPR2)
114-
#define F77_dsymv_base F77_GLOBAL(dsymv,DSYMV)
115-
#define F77_dsbmv_base F77_GLOBAL(dsbmv,DSBMV)
116-
#define F77_dspmv_base F77_GLOBAL(dspmv,DSPMV)
117-
#define F77_dger_base F77_GLOBAL(dger,DGER)
118-
#define F77_dsyr_base F77_GLOBAL(dsyr,DSYR)
119-
#define F77_dspr_base F77_GLOBAL(dspr,DSPR)
120-
#define F77_dsyr2_base F77_GLOBAL(dsyr2,DSYR2)
121-
#define F77_dspr2_base F77_GLOBAL(dspr2,DSPR2)
122-
#define F77_chemv_base F77_GLOBAL(chemv,CHEMV)
123-
#define F77_chbmv_base F77_GLOBAL(chbmv,CHBMV)
124-
#define F77_chpmv_base F77_GLOBAL(chpmv,CHPMV)
125-
#define F77_cgeru_base F77_GLOBAL(cgeru,CGERU)
126-
#define F77_cgerc_base F77_GLOBAL(cgerc,CGERC)
127-
#define F77_cher_base F77_GLOBAL(cher,CHER)
128-
#define F77_chpr_base F77_GLOBAL(chpr,CHPR)
129-
#define F77_cher2_base F77_GLOBAL(cher2,CHER2)
130-
#define F77_chpr2_base F77_GLOBAL(chpr2,CHPR2)
131-
#define F77_zhemv_base F77_GLOBAL(zhemv,ZHEMV)
132-
#define F77_zhbmv_base F77_GLOBAL(zhbmv,ZHBMV)
133-
#define F77_zhpmv_base F77_GLOBAL(zhpmv,ZHPMV)
134-
#define F77_zgeru_base F77_GLOBAL(zgeru,ZGERU)
135-
#define F77_zgerc_base F77_GLOBAL(zgerc,ZGERC)
136-
#define F77_zher_base F77_GLOBAL(zher,ZHER)
137-
#define F77_zhpr_base F77_GLOBAL(zhpr,ZHPR)
138-
#define F77_zher2_base F77_GLOBAL(zher2,ZHER2)
139-
#define F77_zhpr2_base F77_GLOBAL(zhpr2,ZHPR2)
140-
#define F77_sgemv_base F77_GLOBAL(sgemv,SGEMV)
141-
#define F77_sgbmv_base F77_GLOBAL(sgbmv,SGBMV)
142-
#define F77_strmv_base F77_GLOBAL(strmv,STRMV)
143-
#define F77_stbmv_base F77_GLOBAL(stbmv,STBMV)
144-
#define F77_stpmv_base F77_GLOBAL(stpmv,STPMV)
145-
#define F77_strsv_base F77_GLOBAL(strsv,STRSV)
146-
#define F77_stbsv_base F77_GLOBAL(stbsv,STBSV)
147-
#define F77_stpsv_base F77_GLOBAL(stpsv,STPSV)
148-
#define F77_dgemv_base F77_GLOBAL(dgemv,DGEMV)
149-
#define F77_dgbmv_base F77_GLOBAL(dgbmv,DGBMV)
150-
#define F77_dtrmv_base F77_GLOBAL(dtrmv,DTRMV)
151-
#define F77_dtbmv_base F77_GLOBAL(dtbmv,DTBMV)
152-
#define F77_dtpmv_base F77_GLOBAL(dtpmv,DTPMV)
153-
#define F77_dtrsv_base F77_GLOBAL(dtrsv,DTRSV)
154-
#define F77_dtbsv_base F77_GLOBAL(dtbsv,DTBSV)
155-
#define F77_dtpsv_base F77_GLOBAL(dtpsv,DTPSV)
156-
#define F77_cgemv_base F77_GLOBAL(cgemv,CGEMV)
157-
#define F77_cgbmv_base F77_GLOBAL(cgbmv,CGBMV)
158-
#define F77_ctrmv_base F77_GLOBAL(ctrmv,CTRMV)
159-
#define F77_ctbmv_base F77_GLOBAL(ctbmv,CTBMV)
160-
#define F77_ctpmv_base F77_GLOBAL(ctpmv,CTPMV)
161-
#define F77_ctrsv_base F77_GLOBAL(ctrsv,CTRSV)
162-
#define F77_ctbsv_base F77_GLOBAL(ctbsv,CTBSV)
163-
#define F77_ctpsv_base F77_GLOBAL(ctpsv,CTPSV)
164-
#define F77_zgemv_base F77_GLOBAL(zgemv,ZGEMV)
165-
#define F77_zgbmv_base F77_GLOBAL(zgbmv,ZGBMV)
166-
#define F77_ztrmv_base F77_GLOBAL(ztrmv,ZTRMV)
167-
#define F77_ztbmv_base F77_GLOBAL(ztbmv,ZTBMV)
168-
#define F77_ztpmv_base F77_GLOBAL(ztpmv,ZTPMV)
169-
#define F77_ztrsv_base F77_GLOBAL(ztrsv,ZTRSV)
170-
#define F77_ztbsv_base F77_GLOBAL(ztbsv,ZTBSV)
171-
#define F77_ztpsv_base F77_GLOBAL(ztpsv,ZTPSV)
106+
#define F77_ssymv_base F77_GLOBAL(ssymv,SSYMV)
107+
#define F77_ssbmv_base F77_GLOBAL(ssbmv,SSBMV)
108+
#define F77_sspmv_base F77_GLOBAL(sspmv,SSPMV)
109+
#define F77_sger_base F77_GLOBAL(sger,SGER)
110+
#define F77_ssyr_base F77_GLOBAL(ssyr,SSYR)
111+
#define F77_sspr_base F77_GLOBAL(sspr,SSPR)
112+
#define F77_ssyr2_base F77_GLOBAL(ssyr2,SSYR2)
113+
#define F77_sspr2_base F77_GLOBAL(sspr2,SSPR2)
114+
#define F77_dsymv_base F77_GLOBAL(dsymv,DSYMV)
115+
#define F77_dsbmv_base F77_GLOBAL(dsbmv,DSBMV)
116+
#define F77_dspmv_base F77_GLOBAL(dspmv,DSPMV)
117+
#define F77_dger_base F77_GLOBAL(dger,DGER)
118+
#define F77_dsyr_base F77_GLOBAL(dsyr,DSYR)
119+
#define F77_dspr_base F77_GLOBAL(dspr,DSPR)
120+
#define F77_dsyr2_base F77_GLOBAL(dsyr2,DSYR2)
121+
#define F77_dspr2_base F77_GLOBAL(dspr2,DSPR2)
122+
#define F77_chemv_base F77_GLOBAL(chemv,CHEMV)
123+
#define F77_chbmv_base F77_GLOBAL(chbmv,CHBMV)
124+
#define F77_chpmv_base F77_GLOBAL(chpmv,CHPMV)
125+
#define F77_cgeru_base F77_GLOBAL(cgeru,CGERU)
126+
#define F77_cgerc_base F77_GLOBAL(cgerc,CGERC)
127+
#define F77_cher_base F77_GLOBAL(cher,CHER)
128+
#define F77_chpr_base F77_GLOBAL(chpr,CHPR)
129+
#define F77_cher2_base F77_GLOBAL(cher2,CHER2)
130+
#define F77_chpr2_base F77_GLOBAL(chpr2,CHPR2)
131+
#define F77_zhemv_base F77_GLOBAL(zhemv,ZHEMV)
132+
#define F77_zhbmv_base F77_GLOBAL(zhbmv,ZHBMV)
133+
#define F77_zhpmv_base F77_GLOBAL(zhpmv,ZHPMV)
134+
#define F77_zgeru_base F77_GLOBAL(zgeru,ZGERU)
135+
#define F77_zgerc_base F77_GLOBAL(zgerc,ZGERC)
136+
#define F77_zher_base F77_GLOBAL(zher,ZHER)
137+
#define F77_zhpr_base F77_GLOBAL(zhpr,ZHPR)
138+
#define F77_zher2_base F77_GLOBAL(zher2,ZHER2)
139+
#define F77_zhpr2_base F77_GLOBAL(zhpr2,ZHPR2)
140+
#define F77_sgemv_base F77_GLOBAL(sgemv,SGEMV)
141+
#define F77_sgbmv_base F77_GLOBAL(sgbmv,SGBMV)
142+
#define F77_strmv_base F77_GLOBAL(strmv,STRMV)
143+
#define F77_stbmv_base F77_GLOBAL(stbmv,STBMV)
144+
#define F77_stpmv_base F77_GLOBAL(stpmv,STPMV)
145+
#define F77_strsv_base F77_GLOBAL(strsv,STRSV)
146+
#define F77_stbsv_base F77_GLOBAL(stbsv,STBSV)
147+
#define F77_stpsv_base F77_GLOBAL(stpsv,STPSV)
148+
#define F77_dgemv_base F77_GLOBAL(dgemv,DGEMV)
149+
#define F77_dgbmv_base F77_GLOBAL(dgbmv,DGBMV)
150+
#define F77_dtrmv_base F77_GLOBAL(dtrmv,DTRMV)
151+
#define F77_dtbmv_base F77_GLOBAL(dtbmv,DTBMV)
152+
#define F77_dtpmv_base F77_GLOBAL(dtpmv,DTPMV)
153+
#define F77_dtrsv_base F77_GLOBAL(dtrsv,DTRSV)
154+
#define F77_dtbsv_base F77_GLOBAL(dtbsv,DTBSV)
155+
#define F77_dtpsv_base F77_GLOBAL(dtpsv,DTPSV)
156+
#define F77_cgemv_base F77_GLOBAL(cgemv,CGEMV)
157+
#define F77_cgbmv_base F77_GLOBAL(cgbmv,CGBMV)
158+
#define F77_ctrmv_base F77_GLOBAL(ctrmv,CTRMV)
159+
#define F77_ctbmv_base F77_GLOBAL(ctbmv,CTBMV)
160+
#define F77_ctpmv_base F77_GLOBAL(ctpmv,CTPMV)
161+
#define F77_ctrsv_base F77_GLOBAL(ctrsv,CTRSV)
162+
#define F77_ctbsv_base F77_GLOBAL(ctbsv,CTBSV)
163+
#define F77_ctpsv_base F77_GLOBAL(ctpsv,CTPSV)
164+
#define F77_zgemv_base F77_GLOBAL(zgemv,ZGEMV)
165+
#define F77_zgbmv_base F77_GLOBAL(zgbmv,ZGBMV)
166+
#define F77_ztrmv_base F77_GLOBAL(ztrmv,ZTRMV)
167+
#define F77_ztbmv_base F77_GLOBAL(ztbmv,ZTBMV)
168+
#define F77_ztpmv_base F77_GLOBAL(ztpmv,ZTPMV)
169+
#define F77_ztrsv_base F77_GLOBAL(ztrsv,ZTRSV)
170+
#define F77_ztbsv_base F77_GLOBAL(ztbsv,ZTBSV)
171+
#define F77_ztpsv_base F77_GLOBAL(ztpsv,ZTPSV)
172172
/*
173173
* Level 3 BLAS
174174
*/
175-
#define F77_chemm_base F77_GLOBAL(chemm,CHEMM)
176-
#define F77_cherk_base F77_GLOBAL(cherk,CHERK)
177-
#define F77_cher2k_base F77_GLOBAL(cher2k,CHER2K)
178-
#define F77_zhemm_base F77_GLOBAL(zhemm,ZHEMM)
179-
#define F77_zherk_base F77_GLOBAL(zherk,ZHERK)
180-
#define F77_zher2k_base F77_GLOBAL(zher2k,ZHER2K)
181-
#define F77_sgemm_base F77_GLOBAL(sgemm,SGEMM)
182-
#define F77_ssymm_base F77_GLOBAL(ssymm,SSYMM)
183-
#define F77_ssyrk_base F77_GLOBAL(ssyrk,SSYRK)
184-
#define F77_ssyr2k_base F77_GLOBAL(ssyr2k,SSYR2K)
185-
#define F77_strmm_base F77_GLOBAL(strmm,STRMM)
186-
#define F77_strsm_base F77_GLOBAL(strsm,STRSM)
187-
#define F77_dgemm_base F77_GLOBAL(dgemm,DGEMM)
188-
#define F77_dsymm_base F77_GLOBAL(dsymm,DSYMM)
189-
#define F77_dsyrk_base F77_GLOBAL(dsyrk,DSYRK)
190-
#define F77_dsyr2k_base F77_GLOBAL(dsyr2k,DSYR2K)
191-
#define F77_dtrmm_base F77_GLOBAL(dtrmm,DTRMM)
192-
#define F77_dtrsm_base F77_GLOBAL(dtrsm,DTRSM)
193-
#define F77_cgemm_base F77_GLOBAL(cgemm,CGEMM)
194-
#define F77_csymm_base F77_GLOBAL(csymm,CSYMM)
195-
#define F77_csyrk_base F77_GLOBAL(csyrk,CSYRK)
196-
#define F77_csyr2k_base F77_GLOBAL(csyr2k,CSYR2K)
197-
#define F77_ctrmm_base F77_GLOBAL(ctrmm,CTRMM)
198-
#define F77_ctrsm_base F77_GLOBAL(ctrsm,CTRSM)
199-
#define F77_zgemm_base F77_GLOBAL(zgemm,ZGEMM)
200-
#define F77_zsymm_base F77_GLOBAL(zsymm,ZSYMM)
201-
#define F77_zsyrk_base F77_GLOBAL(zsyrk,ZSYRK)
202-
#define F77_zsyr2k_base F77_GLOBAL(zsyr2k,ZSYR2K)
203-
#define F77_ztrmm_base F77_GLOBAL(ztrmm,ZTRMM)
204-
#define F77_ztrsm_base F77_GLOBAL(ztrsm,ZTRSM)
175+
#define F77_chemm_base F77_GLOBAL(chemm,CHEMM)
176+
#define F77_cherk_base F77_GLOBAL(cherk,CHERK)
177+
#define F77_cher2k_base F77_GLOBAL(cher2k,CHER2K)
178+
#define F77_zhemm_base F77_GLOBAL(zhemm,ZHEMM)
179+
#define F77_zherk_base F77_GLOBAL(zherk,ZHERK)
180+
#define F77_zher2k_base F77_GLOBAL(zher2k,ZHER2K)
181+
#define F77_sgemm_base F77_GLOBAL(sgemm,SGEMM)
182+
#define F77_ssymm_base F77_GLOBAL(ssymm,SSYMM)
183+
#define F77_ssyrk_base F77_GLOBAL(ssyrk,SSYRK)
184+
#define F77_ssyr2k_base F77_GLOBAL(ssyr2k,SSYR2K)
185+
#define F77_strmm_base F77_GLOBAL(strmm,STRMM)
186+
#define F77_strsm_base F77_GLOBAL(strsm,STRSM)
187+
#define F77_dgemm_base F77_GLOBAL(dgemm,DGEMM)
188+
#define F77_dsymm_base F77_GLOBAL(dsymm,DSYMM)
189+
#define F77_dsyrk_base F77_GLOBAL(dsyrk,DSYRK)
190+
#define F77_dsyr2k_base F77_GLOBAL(dsyr2k,DSYR2K)
191+
#define F77_dtrmm_base F77_GLOBAL(dtrmm,DTRMM)
192+
#define F77_dtrsm_base F77_GLOBAL(dtrsm,DTRSM)
193+
#define F77_cgemm_base F77_GLOBAL(cgemm,CGEMM)
194+
#define F77_csymm_base F77_GLOBAL(csymm,CSYMM)
195+
#define F77_csyrk_base F77_GLOBAL(csyrk,CSYRK)
196+
#define F77_csyr2k_base F77_GLOBAL(csyr2k,CSYR2K)
197+
#define F77_ctrmm_base F77_GLOBAL(ctrmm,CTRMM)
198+
#define F77_ctrsm_base F77_GLOBAL(ctrsm,CTRSM)
199+
#define F77_zgemm_base F77_GLOBAL(zgemm,ZGEMM)
200+
#define F77_zsymm_base F77_GLOBAL(zsymm,ZSYMM)
201+
#define F77_zsyrk_base F77_GLOBAL(zsyrk,ZSYRK)
202+
#define F77_zsyr2k_base F77_GLOBAL(zsyr2k,ZSYR2K)
203+
#define F77_ztrmm_base F77_GLOBAL(ztrmm,ZTRMM)
204+
#define F77_ztrsm_base F77_GLOBAL(ztrsm,ZTRSM)
205205

206206
/*
207207
* Level 1 Fortran variadic definitions

0 commit comments

Comments
 (0)