| /dports/benchmarks/hpl/hpl-2.3/src/blas/ |
| H A D | HPL_dgemv.c | 261 const F77_INTEGER F77M = M, F77N = N, local
265 #define F77N N macro
277 F77dgemv( &ctran, &F77M, &F77N, &alpha, A, &F77lda, X, &F77incx,
282 F77dgemv( ftran, &F77M, &F77N, &alpha, A, &F77lda, X, &F77incx,
287 F77dgemv( ftran, &F77M, &F77N, &alpha, A, &F77lda, X, &F77incx,
292 F77dgemv( &ftran, &F77M, &F77N, &alpha, A, &F77lda, X, &F77incx,
300 F77dgemv( &ctran, &F77N, &F77M, &alpha, A, &F77lda, X, &F77incx,
305 F77dgemv( ftran, &F77N, &F77M, &alpha, A, &F77lda, X, &F77incx,
310 F77dgemv( ftran, &F77N, &F77M, &alpha, A, &F77lda, X, &F77incx,
315 F77dgemv( &ftran, &F77N, &F77M, &alpha, A, &F77lda, X, &F77incx,
|
| H A D | HPL_dger.c | 175 const F77_INTEGER F77M = M, F77N = N, local
179 #define F77N N macro
186 { F77dger( &F77M, &F77N, &alpha, X, &F77incx, Y, &F77incy, A, &F77lda ); }
188 { F77dger( &F77N, &F77M, &alpha, Y, &F77incy, X, &F77incx, A, &F77lda ); }
|
| H A D | HPL_dgemm.c | 447 const F77_INTEGER F77M = M, F77N = N, F77K = K,
451 #define F77N N
470 F77dgemm( &ctransa, &ctransb, &F77M, &F77N, &F77K, &alpha, A, &F77lda,
475 F77dgemm( ftransa, ftransb, &F77M, &F77N, &F77K, &alpha, A, &F77lda,
481 F77dgemm( ftransa, ftransb, &F77M, &F77N, &F77K, &alpha, A, &F77lda,
487 F77dgemm( &ftransa, &ftransb, &F77M, &F77N, &F77K, &alpha, A, &F77lda,
494 F77dgemm( &ctransb, &ctransa, &F77N, &F77M, &F77K, &alpha, B, &F77ldb,
499 F77dgemm( ftransb, ftransa, &F77N, &F77M, &F77K, &alpha, B, &F77ldb,
505 F77dgemm( ftransb, ftransa, &F77N, &F77M, &F77K, &alpha, B, &F77ldb,
511 F77dgemm( &ftransb, &ftransa, &F77N, &F77M, &F77K, &alpha, B, &F77ldb,
|
| H A D | HPL_dswap.c | 144 const F77_INTEGER F77N = N, F77incx = INCX, F77incy = INCY; local
146 #define F77N N macro
150 F77dswap( &F77N, X, &F77incx, Y, &F77incy );
|
| H A D | HPL_daxpy.c | 162 const F77_INTEGER F77N = N, F77incx = INCX, F77incy = INCY;
164 #define F77N N
168 F77daxpy( &F77N, &alpha, X, &F77incx, Y, &F77incy );
|
| H A D | HPL_dcopy.c | 155 const F77_INTEGER F77N = N, F77incx = INCX, F77incy = INCY; local
157 #define F77N N macro
161 F77dcopy( &F77N, X, &F77incx, Y, &F77incy );
|
| H A D | HPL_dscal.c | 166 const F77_INTEGER F77N = N, F77incx = INCX; local
168 #define F77N N macro
172 F77dscal( &F77N, &alpha, X, &F77incx );
|
| H A D | HPL_idamax.c | 152 const F77_INTEGER F77N = N, F77incx = INCX; local
154 #define F77N N macro
159 if( N > 0 ) imax = F77idamax( &F77N, X, &F77incx ) - 1;
|
| H A D | HPL_dtrsv.c | 474 const F77_INTEGER F77N = N, F77lda = LDA, F77incx = INCX; local
476 #define F77N N macro
495 F77dtrsv( &cuplo, &ctran, &cdiag, &F77N, A, &F77lda, X, &F77incx,
501 F77dtrsv( fuplo, ftran, fdiag, &F77N, A, &F77lda, X, &F77incx );
506 F77dtrsv( fuplo, ftran, fdiag, &F77N, A, &F77lda, X, &F77incx );
511 F77dtrsv( &fuplo, &ftran, &fdiag, &F77N, A, &F77lda, X, &F77incx );
|
| H A D | HPL_dtrsm.c | 902 const F77_INTEGER F77M = M, F77N = N, local
906 #define F77N N macro
922 F77dtrsm( &cside, &cuplo, &ctran, &cdiag, &F77M, &F77N, &alpha,
928 F77dtrsm( fside, fuplo, ftran, fdiag, &F77M, &F77N, &alpha,
934 F77dtrsm( fside, fuplo, ftran, fdiag, &F77M, &F77N, &alpha,
940 F77dtrsm( &fside, &fuplo, &ftran, &fdiag, &F77M, &F77N, &alpha,
949 F77dtrsm( &cside, &cuplo, &ctran, &cdiag, &F77N, &F77M, &alpha,
955 F77dtrsm( fside, fuplo, ftran, fdiag, &F77N, &F77M, &alpha,
961 F77dtrsm( fside, fuplo, ftran, fdiag, &F77N, &F77M, &alpha,
967 F77dtrsm( &fside, &fuplo, &ftran, &fdiag, &F77N, &F77M, &alpha,
|