15 #define F77_isamax F77_FUNC( isamax , ISAMAX )
16 #define F77_idamax F77_FUNC( idamax , IDAMAX )
17 #define F77_icamax F77_FUNC( icamax , ICAMAX )
18 #define F77_izamax F77_FUNC( izamax , IZAMAX )
19 #define F77_sasum F77_FUNC( sasum , SASUM )
20 #define F77_dasum F77_FUNC( dasum , DASUM )
21 #define F77_scasum F77_FUNC( scasum , SCASUM )
22 #define F77_dzasum F77_FUNC( dzasum , DZASUM )
23 #define F77_saxpy F77_FUNC( saxpy , SAXPY )
24 #define F77_daxpy F77_FUNC( daxpy , DAXPY )
25 #define F77_caxpy F77_FUNC( caxpy , CAXPY )
26 #define F77_zaxpy F77_FUNC( zaxpy , ZAXPY )
27 #define F77_scopy F77_FUNC( scopy , SCOPY )
28 #define F77_dcopy F77_FUNC( dcopy , DCOPY )
29 #define F77_ccopy F77_FUNC( ccopy , CCOPY )
30 #define F77_zcopy F77_FUNC( zcopy , ZCOPY )
31 #define F77_sdot F77_FUNC( sdot , SDOT )
32 #define F77_ddot F77_FUNC( ddot , DDOT )
33 #define F77_cdotu F77_FUNC( cdotu , CDOTU )
34 #define F77_cdotc F77_FUNC( cdotc , CDOTC )
35 #define F77_zdotu F77_FUNC( zdotu , ZDOTU )
36 #define F77_zdotc F77_FUNC( zdotc , ZDOTC )
37 #define F77_snrm2 F77_FUNC( snrm2 , SNRM2 )
38 #define F77_dnrm2 F77_FUNC( dnrm2 , DNRM2 )
39 #define F77_scnrm2 F77_FUNC( scnrm2 , SCNRM2 )
40 #define F77_dznrm2 F77_FUNC( dznrm2 , DZNRM2 )
41 #define F77_sscal F77_FUNC( sscal , SSCAL )
42 #define F77_dscal F77_FUNC( dscal , DSCAL )
43 #define F77_cscal F77_FUNC( cscal , CSCAL )
44 #define F77_csscal F77_FUNC( csscal , CSSCAL )
45 #define F77_zscal F77_FUNC( zscal , ZSCAL )
46 #define F77_zdscal F77_FUNC( zdscal , ZDSCAL )
47 #define F77_sswap F77_FUNC( sswap , SSWAP )
48 #define F77_dswap F77_FUNC( dswap , DSWAP )
49 #define F77_cswap F77_FUNC( cswap , CSWAP )
50 #define F77_zswap F77_FUNC( zswap , ZSWAP )
54 #define F77_sgemv F77_FUNC( sgemv , SGEMV )
55 #define F77_dgemv F77_FUNC( dgemv , DGEMV )
56 #define F77_cgemv F77_FUNC( cgemv , CGEMV )
57 #define F77_zgemv F77_FUNC( zgemv , ZGEMV )
58 #define F77_sger F77_FUNC( sger , SGER )
59 #define F77_dger F77_FUNC( dger , DGER )
60 #define F77_cgerc F77_FUNC( cgerc , CGERC )
61 #define F77_cgeru F77_FUNC( cgeru , CGERU )
62 #define F77_zgerc F77_FUNC( zgerc , ZGERC )
63 #define F77_zgeru F77_FUNC( zgeru , ZGERU )
64 #define F77_chemv F77_FUNC( chemv , CHEMV )
65 #define F77_zhemv F77_FUNC( zhemv , ZHEMV )
66 #define F77_cher F77_FUNC( cher , CHER )
67 #define F77_zher F77_FUNC( zher , ZHER )
68 #define F77_cher2 F77_FUNC( cher2 , CHER2 )
69 #define F77_zher2 F77_FUNC( zher2 , ZHER2 )
70 #define F77_ssymv F77_FUNC( ssymv , SSYMV )
71 #define F77_dsymv F77_FUNC( dsymv , DSYMV )
72 #define F77_ssyr F77_FUNC( ssyr , SSYR )
73 #define F77_dsyr F77_FUNC( dsyr , DSYR )
74 #define F77_ssyr2 F77_FUNC( ssyr2 , SSYR2 )
75 #define F77_dsyr2 F77_FUNC( dsyr2 , DSYR2 )
76 #define F77_strmv F77_FUNC( strmv , STRMV )
77 #define F77_dtrmv F77_FUNC( dtrmv , DTRMV )
78 #define F77_ctrmv F77_FUNC( ctrmv , CTRMV )
79 #define F77_ztrmv F77_FUNC( ztrmv , ZTRMV )
80 #define F77_strsv F77_FUNC( strsv , STRSV )
81 #define F77_dtrsv F77_FUNC( dtrsv , DTRSV )
82 #define F77_ctrsv F77_FUNC( ctrsv , CTRSV )
83 #define F77_ztrsv F77_FUNC( ztrsv , ZTRSV )
87 #define F77_sgemm F77_FUNC( sgemm , SGEMM )
88 #define F77_dgemm F77_FUNC( dgemm , DGEMM )
89 #define F77_cgemm F77_FUNC( cgemm , CGEMM )
90 #define F77_zgemm F77_FUNC( zgemm , ZGEMM )
91 #define F77_chemm F77_FUNC( chemm , CHEMM )
92 #define F77_zhemm F77_FUNC( zhemm , ZHEMM )
93 #define F77_cherk F77_FUNC( cherk , CHERK )
94 #define F77_zherk F77_FUNC( zherk , ZHERK )
95 #define F77_cher2k F77_FUNC( cher2k , CHER2K )
96 #define F77_zher2k F77_FUNC( zher2k , ZHER2K )
97 #define F77_ssymm F77_FUNC( ssymm , SSYMM )
98 #define F77_dsymm F77_FUNC( dsymm , DSYMM )
99 #define F77_csymm F77_FUNC( csymm , CSYMM )
100 #define F77_zsymm F77_FUNC( zsymm , ZSYMM )
101 #define F77_ssyrk F77_FUNC( ssyrk , SSYRK )
102 #define F77_dsyrk F77_FUNC( dsyrk , DSYRK )
103 #define F77_csyrk F77_FUNC( csyrk , CSYRK )
104 #define F77_zsyrk F77_FUNC( zsyrk , ZSYRK )
105 #define F77_ssyr2k F77_FUNC( ssyr2k , SSYR2K )
106 #define F77_dsyr2k F77_FUNC( dsyr2k , DSYR2K )
107 #define F77_csyr2k F77_FUNC( csyr2k , CSYR2K )
108 #define F77_zsyr2k F77_FUNC( zsyr2k , ZSYR2K )
109 #define F77_strmm F77_FUNC( strmm , STRMM )
110 #define F77_dtrmm F77_FUNC( dtrmm , DTRMM )
111 #define F77_ctrmm F77_FUNC( ctrmm , CTRMM )
112 #define F77_ztrmm F77_FUNC( ztrmm , ZTRMM )
113 #define F77_strsm F77_FUNC( strsm , STRSM )
114 #define F77_dtrsm F77_FUNC( dtrsm , DTRSM )
115 #define F77_ctrsm F77_FUNC( ctrsm , CTRSM )
116 #define F77_ztrsm F77_FUNC( ztrsm , ZTRSM )
134 void F77_saxpy (
int* n,
float* alpha,
float* x,
int* incx,
float* y,
int* incy );
135 void F77_daxpy (
int* n,
double* alpha,
double* x,
int* incx,
double* y,
int* incy );
139 void F77_scopy (
int* n,
float* x,
int* incx,
float* y,
int* incy );
140 void F77_dcopy (
int* n,
double* x,
int* incx,
double* y,
int* incy );
144 float F77_sdot (
int* n,
float* x,
int* incx,
float* y,
int* incy );
145 double F77_ddot (
int* n,
double* x,
int* incx,
double* y,
int* incy );
156 void F77_sscal (
int* n,
float* alpha,
float* y,
int* incy );
157 void F77_dscal (
int* n,
double* alpha,
double* y,
int* incy );
163 void F77_sswap (
int* n,
float* x,
int* incx,
float* y,
int* incy );
164 void F77_dswap (
int* n,
double* x,
int* incx,
double* y,
int* incy );
171 void F77_sgemv (
char* transa,
int* m,
int* n,
float* alpha,
float* a,
int* lda,
float* x,
int* incx,
float* beta,
float* y,
int* incy );
172 void F77_dgemv (
char* transa,
int* m,
int* n,
double* alpha,
double* a,
int* lda,
double* x,
int* incx,
double* beta,
double* y,
int* incy );
173 void F77_cgemv (
char* transa,
int* m,
int* n,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* x,
int* incx,
scomplex* beta,
scomplex* y,
int* incy );
174 void F77_zgemv (
char* transa,
int* m,
int* n,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* x,
int* incx,
dcomplex* beta,
dcomplex* y,
int* incy );
176 void F77_sger (
int* m,
int* n,
float* alpha,
float* x,
int* incx,
float* y,
int* incy,
float* a,
int* lda );
177 void F77_dger (
int* m,
int* n,
double* alpha,
double* x,
int* incx,
double* y,
int* incy,
double* a,
int* lda );
192 void F77_ssymv (
char* uplo,
int* n,
float* alpha,
float* a,
int* lda,
float* x,
int* incx,
float* beta,
float* y,
int* incy );
193 void F77_dsymv (
char* uplo,
int* n,
double* alpha,
double* a,
int* lda,
double* x,
int* incx,
double* beta,
double* y,
int* incy );
195 void F77_ssyr (
char* uplo,
int* n,
float* alpha,
float* x,
int* incx,
float* a,
int* lda );
196 void F77_dsyr (
char* uplo,
int* n,
double* alpha,
double* x,
int* incx,
double* a,
int* lda );
198 void F77_ssyr2 (
char* uplo,
int* n,
float* alpha,
float* x,
int* incx,
float* y,
int* incy,
float* a,
int* lda );
199 void F77_dsyr2 (
char* uplo,
int* n,
double* alpha,
double* x,
int* incx,
double* y,
int* incy,
double* a,
int* lda );
201 void F77_strmv (
char* uplo,
char* transa,
char* diag,
int* n,
float* a,
int* lda,
float* y,
int* incy );
202 void F77_dtrmv (
char* uplo,
char* transa,
char* diag,
int* n,
double* a,
int* lda,
double* y,
int* incy );
206 void F77_strsv (
char* uplo,
char* transa,
char* diag,
int* n,
float* a,
int* lda,
float* y,
int* incy );
207 void F77_dtrsv (
char* uplo,
char* transa,
char* diag,
int* n,
double* a,
int* lda,
double* y,
int* incy );
214 void F77_sgemm (
char* transa,
char* transb,
int* m,
int* n,
int* k,
float* alpha,
float* a,
int* lda,
float* b,
int* ldb,
float* beta,
float* c,
int* ldc );
215 void F77_dgemm (
char* transa,
char* transb,
int* m,
int* n,
int* k,
double* alpha,
double* a,
int* lda,
double* b,
int* ldb,
double* beta,
double* c,
int* ldc );
216 void F77_cgemm (
char* transa,
char* transb,
int* m,
int* n,
int* k,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb,
scomplex* beta,
scomplex* c,
int* ldc );
217 void F77_zgemm (
char* transa,
char* transb,
int* m,
int* n,
int* k,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb,
dcomplex* beta,
dcomplex* c,
int* ldc );
219 void F77_chemm (
char* side,
char* uplo,
int* m,
int* n,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb,
scomplex* beta,
scomplex* c,
int* ldc );
220 void F77_zhemm (
char* side,
char* uplo,
int* m,
int* n,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb,
dcomplex* beta,
dcomplex* c,
int* ldc );
225 void F77_cher2k (
char* uplo,
char* transa,
int* n,
int* k,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb,
float* beta,
scomplex* c,
int* ldc );
226 void F77_zher2k (
char* uplo,
char* transa,
int* n,
int* k,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb,
double* beta,
dcomplex* c,
int* ldc );
228 void F77_ssymm (
char* side,
char* uplo,
int* m,
int* n,
float* alpha,
float* a,
int* lda,
float* b,
int* ldb,
float* beta,
float* c,
int* ldc );
229 void F77_dsymm (
char* side,
char* uplo,
int* m,
int* n,
double* alpha,
double* a,
int* lda,
double* b,
int* ldb,
double* beta,
double* c,
int* ldc );
230 void F77_csymm (
char* side,
char* uplo,
int* m,
int* n,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb,
scomplex* beta,
scomplex* c,
int* ldc );
231 void F77_zsymm (
char* side,
char* uplo,
int* m,
int* n,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb,
dcomplex* beta,
dcomplex* c,
int* ldc );
233 void F77_ssyrk (
char* uplo,
char* transa,
int* n,
int* k,
float* alpha,
float* a,
int* lda,
float* beta,
float* c,
int* ldc );
234 void F77_dsyrk (
char* uplo,
char* transa,
int* n,
int* k,
double* alpha,
double* a,
int* lda,
double* beta,
double* c,
int* ldc );
238 void F77_ssyr2k (
char* uplo,
char* transa,
int* n,
int* k,
float* alpha,
float* a,
int* lda,
float* b,
int* ldb,
float* beta,
float* c,
int* ldc );
239 void F77_dsyr2k (
char* uplo,
char* transa,
int* n,
int* k,
double* alpha,
double* a,
int* lda,
double* b,
int* ldb,
double* beta,
double* c,
int* ldc );
240 void F77_csyr2k (
char* uplo,
char* transa,
int* n,
int* k,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb,
scomplex* beta,
scomplex* c,
int* ldc );
241 void F77_zsyr2k (
char* uplo,
char* transa,
int* n,
int* k,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb,
dcomplex* beta,
dcomplex* c,
int* ldc );
243 void F77_strmm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
float* alpha,
float* a,
int* lda,
float* b,
int* ldb );
244 void F77_dtrmm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
double* alpha,
double* a,
int* lda,
double* b,
int* ldb );
245 void F77_ctrmm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb );
246 void F77_ztrmm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb );
248 void F77_strsm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
float* alpha,
float* a,
int* lda,
float* b,
int* ldb );
249 void F77_dtrsm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
double* alpha,
double* a,
int* lda,
double* b,
int* ldb );
250 void F77_ctrsm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
scomplex* alpha,
scomplex* a,
int* lda,
scomplex* b,
int* ldb );
251 void F77_ztrsm (
char* side,
char* uplo,
char* transa,
char* diag,
int* m,
int* n,
dcomplex* alpha,
dcomplex* a,
int* lda,
dcomplex* b,
int* ldb );
void F77_caxpy(int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_cswap(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_zgemm(char *transa, char *transb, int *m, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_ztrmv(char *uplo, char *transa, char *diag, int *n, dcomplex *a, int *lda, dcomplex *y, int *incy)
void F77_sger(int *m, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda)
void F77_dcopy(int *n, double *x, int *incx, double *y, int *incy)
void F77_ssyr2k(char *uplo, char *transa, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc)
void F77_scopy(int *n, float *x, int *incx, float *y, int *incy)
void F77_dscal(int *n, double *alpha, double *y, int *incy)
void F77_dsymm(char *side, char *uplo, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc)
void F77_ctrsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb)
void F77_zher2(char *uplo, int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy, dcomplex *a, int *lda)
float F77_scnrm2(int *n, scomplex *x, int *incx)
int F77_idamax(int *n, double *x, int *incx)
void F77_strmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb)
void F77_zcopy(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_dsyrk(char *uplo, char *transa, int *n, int *k, double *alpha, double *a, int *lda, double *beta, double *c, int *ldc)
void F77_zgeru(int *m, int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy, dcomplex *a, int *lda)
void F77_dtrsv(char *uplo, char *transa, char *diag, int *n, double *a, int *lda, double *y, int *incy)
void F77_dger(int *m, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda)
void F77_cgeru(int *m, int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy, scomplex *a, int *lda)
void F77_cgemv(char *transa, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *x, int *incx, scomplex *beta, scomplex *y, int *incy)
int F77_isamax(int *n, float *x, int *incx)
void F77_cgerc(int *m, int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy, scomplex *a, int *lda)
void F77_saxpy(int *n, float *alpha, float *x, int *incx, float *y, int *incy)
void F77_csyrk(char *uplo, char *transa, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *beta, scomplex *c, int *ldc)
void F77_dtrsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb)
void F77_zher2k(char *uplo, char *transa, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, double *beta, dcomplex *c, int *ldc)
void F77_csscal(int *n, float *alpha, scomplex *y, int *incy)
void F77_ccopy(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_ztrsv(char *uplo, char *transa, char *diag, int *n, dcomplex *a, int *lda, dcomplex *y, int *incy)
void F77_zsyrk(char *uplo, char *transa, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *beta, dcomplex *c, int *ldc)
void F77_csyr2k(char *uplo, char *transa, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
double F77_ddot(int *n, double *x, int *incx, double *y, int *incy)
void F77_ctrmv(char *uplo, char *transa, char *diag, int *n, scomplex *a, int *lda, scomplex *y, int *incy)
void F77_ctrsv(char *uplo, char *transa, char *diag, int *n, scomplex *a, int *lda, scomplex *y, int *incy)
void F77_ssyrk(char *uplo, char *transa, int *n, int *k, float *alpha, float *a, int *lda, float *beta, float *c, int *ldc)
double F77_dznrm2(int *n, dcomplex *x, int *incx)
void F77_dgemm(char *transa, char *transb, int *m, int *n, int *k, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc)
void F77_dswap(int *n, double *x, int *incx, double *y, int *incy)
float F77_sdot(int *n, float *x, int *incx, float *y, int *incy)
void F77_ssymv(char *uplo, int *n, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy)
float F77_sasum(int *n, float *x, int *incx)
void F77_sscal(int *n, float *alpha, float *y, int *incy)
void F77_ztrmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb)
void F77_cherk(char *uplo, char *transa, int *n, int *k, float *alpha, scomplex *a, int *lda, float *beta, scomplex *c, int *ldc)
void F77_zaxpy(int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy)
int F77_izamax(int *n, dcomplex *x, int *incx)
double F77_dnrm2(int *n, double *x, int *incx)
void F77_cher(char *uplo, int *n, float *alpha, scomplex *x, int *incx, scomplex *a, int *lda)
double F77_dasum(int *n, double *x, int *incx)
scomplex F77_cdotu(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
void F77_zscal(int *n, dcomplex *alpha, dcomplex *y, int *incy)
void F77_zher(char *uplo, int *n, double *alpha, dcomplex *x, int *incx, dcomplex *a, int *lda)
void F77_strsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb)
void F77_zhemv(char *uplo, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *x, int *incx, dcomplex *beta, dcomplex *y, int *incy)
void F77_zgemv(char *transa, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *x, int *incx, dcomplex *beta, dcomplex *y, int *incy)
void F77_daxpy(int *n, double *alpha, double *x, int *incx, double *y, int *incy)
void F77_zsymm(char *side, char *uplo, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_zgerc(int *m, int *n, dcomplex *alpha, dcomplex *x, int *incx, dcomplex *y, int *incy, dcomplex *a, int *lda)
void F77_cgemm(char *transa, char *transb, int *m, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
dcomplex F77_zdotc(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_csymm(char *side, char *uplo, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
void F77_cher2k(char *uplo, char *transa, int *n, int *k, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, float *beta, scomplex *c, int *ldc)
void F77_zsyr2k(char *uplo, char *transa, int *n, int *k, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_strsv(char *uplo, char *transa, char *diag, int *n, float *a, int *lda, float *y, int *incy)
void F77_dsyr(char *uplo, int *n, double *alpha, double *x, int *incx, double *a, int *lda)
void F77_dtrmv(char *uplo, char *transa, char *diag, int *n, double *a, int *lda, double *y, int *incy)
void F77_ssyr2(char *uplo, int *n, float *alpha, float *x, int *incx, float *y, int *incy, float *a, int *lda)
float F77_snrm2(int *n, float *x, int *incx)
void F77_zherk(char *uplo, char *transa, int *n, int *k, double *alpha, dcomplex *a, int *lda, double *beta, dcomplex *c, int *ldc)
double F77_dzasum(int *n, dcomplex *x, int *incx)
void F77_ssyr(char *uplo, int *n, float *alpha, float *x, int *incx, float *a, int *lda)
void F77_sgemv(char *transa, int *m, int *n, float *alpha, float *a, int *lda, float *x, int *incx, float *beta, float *y, int *incy)
void F77_dsyr2(char *uplo, int *n, double *alpha, double *x, int *incx, double *y, int *incy, double *a, int *lda)
void F77_cher2(char *uplo, int *n, scomplex *alpha, scomplex *x, int *incx, scomplex *y, int *incy, scomplex *a, int *lda)
scomplex F77_cdotc(int *n, scomplex *x, int *incx, scomplex *y, int *incy)
dcomplex F77_zdotu(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_dtrmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, double *alpha, double *a, int *lda, double *b, int *ldb)
void F77_sswap(int *n, float *x, int *incx, float *y, int *incy)
void F77_strmv(char *uplo, char *transa, char *diag, int *n, float *a, int *lda, float *y, int *incy)
void F77_cscal(int *n, scomplex *alpha, scomplex *y, int *incy)
void F77_chemm(char *side, char *uplo, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb, scomplex *beta, scomplex *c, int *ldc)
void F77_ztrsm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb)
void F77_zswap(int *n, dcomplex *x, int *incx, dcomplex *y, int *incy)
void F77_dsymv(char *uplo, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy)
void F77_zhemm(char *side, char *uplo, int *m, int *n, dcomplex *alpha, dcomplex *a, int *lda, dcomplex *b, int *ldb, dcomplex *beta, dcomplex *c, int *ldc)
void F77_sgemm(char *transa, char *transb, int *m, int *n, int *k, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc)
void F77_dsyr2k(char *uplo, char *transa, int *n, int *k, double *alpha, double *a, int *lda, double *b, int *ldb, double *beta, double *c, int *ldc)
int F77_icamax(int *n, scomplex *x, int *incx)
void F77_ctrmm(char *side, char *uplo, char *transa, char *diag, int *m, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *b, int *ldb)
void F77_dgemv(char *transa, int *m, int *n, double *alpha, double *a, int *lda, double *x, int *incx, double *beta, double *y, int *incy)
float F77_scasum(int *n, scomplex *x, int *incx)
void F77_chemv(char *uplo, int *n, scomplex *alpha, scomplex *a, int *lda, scomplex *x, int *incx, scomplex *beta, scomplex *y, int *incy)
void F77_ssymm(char *side, char *uplo, int *m, int *n, float *alpha, float *a, int *lda, float *b, int *ldb, float *beta, float *c, int *ldc)
void F77_zdscal(int *n, double *alpha, dcomplex *y, int *incy)
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133