Lines Matching refs:LDA
16 int i,j,LDA; in F77_sgemv() local
21 LDA = *n+1; in F77_sgemv()
22 A = ( float* )malloc( (*m)*LDA*sizeof( float ) ); in F77_sgemv()
25 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_sgemv()
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); in F77_sgemv()
42 int i,j,LDA; in F77_sger() local
45 LDA = *n+1; in F77_sger()
46 A = ( float* )malloc( (*m)*LDA*sizeof( float ) ); in F77_sger()
50 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_sger()
53 cblas_sger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA ); in F77_sger()
56 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_sger()
66 int i,j,LDA; in F77_strmv() local
76 LDA = *n+1; in F77_strmv()
77 A = ( float* )malloc( (*n)*LDA*sizeof( float ) ); in F77_strmv()
80 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_strmv()
81 cblas_strmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_strmv()
94 int i,j,LDA; in F77_strsv() local
104 LDA = *n+1; in F77_strsv()
105 A = ( float* )malloc( (*n)*LDA*sizeof( float ) ); in F77_strsv()
108 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_strsv()
109 cblas_strsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_strsv()
119 int i,j,LDA; in F77_ssymv() local
125 LDA = *n+1; in F77_ssymv()
126 A = ( float* )malloc( (*n)*LDA*sizeof( float ) ); in F77_ssymv()
129 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_ssymv()
130 cblas_ssymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, in F77_ssymv()
142 int i,j,LDA; in F77_ssyr() local
148 LDA = *n+1; in F77_ssyr()
149 A = ( float* )malloc( (*n)*LDA*sizeof( float ) ); in F77_ssyr()
152 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_ssyr()
153 cblas_ssyr(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA); in F77_ssyr()
156 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_ssyr()
166 int i,j,LDA; in F77_ssyr2() local
172 LDA = *n+1; in F77_ssyr2()
173 A = ( float* )malloc( (*n)*LDA*sizeof( float ) ); in F77_ssyr2()
176 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_ssyr2()
177 cblas_ssyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); in F77_ssyr2()
180 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_ssyr2()
192 int i,irow,j,jcol,LDA; in F77_sgbmv() local
198 LDA = *ku+*kl+2; in F77_sgbmv()
199 A = ( float* )malloc( (*n+*kl)*LDA*sizeof( float ) ); in F77_sgbmv()
204 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_sgbmv()
209 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_sgbmv()
214 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_sgbmv()
217 A, LDA, x, *incx, *beta, y, *incy ); in F77_sgbmv()
228 int irow, jcol, i, j, LDA; in F77_stbmv() local
238 LDA = *k+1; in F77_stbmv()
239 A = ( float* )malloc( (*n+*k)*LDA*sizeof( float ) ); in F77_stbmv()
245 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_stbmv()
250 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbmv()
256 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbmv()
261 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_stbmv()
264 cblas_stbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); in F77_stbmv()
274 int irow, jcol, i, j, LDA; in F77_stbsv() local
284 LDA = *k+1; in F77_stbsv()
285 A = ( float* )malloc( (*n+*k)*LDA*sizeof( float ) ); in F77_stbsv()
291 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_stbsv()
296 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbsv()
302 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_stbsv()
307 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_stbsv()
310 cblas_stbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); in F77_stbsv()
321 int i,j,irow,jcol,LDA; in F77_ssbmv() local
327 LDA = *k+1; in F77_ssbmv()
328 A = ( float* )malloc( (*n+*k)*LDA*sizeof( float ) ); in F77_ssbmv()
334 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_ssbmv()
339 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_ssbmv()
345 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_ssbmv()
350 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_ssbmv()
353 cblas_ssbmv(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx, in F77_ssbmv()
365 int i,j,k,LDA; in F77_sspmv() local
371 LDA = *n; in F77_sspmv()
372 A = ( float* )malloc( LDA*LDA*sizeof( float ) ); in F77_sspmv()
373 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) ); in F77_sspmv()
377 A[ LDA*i+j ]=ap[ k ]; in F77_sspmv()
380 AP[ k ]=A[ LDA*i+j ]; in F77_sspmv()
385 A[ LDA*i+j ]=ap[ k ]; in F77_sspmv()
388 AP[ k ]=A[ LDA*i+j ]; in F77_sspmv()
402 int i, j, k, LDA; in F77_stpmv() local
412 LDA = *n; in F77_stpmv()
413 A = ( float* )malloc( LDA*LDA*sizeof( float ) ); in F77_stpmv()
414 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) ); in F77_stpmv()
418 A[ LDA*i+j ]=ap[ k ]; in F77_stpmv()
421 AP[ k ]=A[ LDA*i+j ]; in F77_stpmv()
426 A[ LDA*i+j ]=ap[ k ]; in F77_stpmv()
429 AP[ k ]=A[ LDA*i+j ]; in F77_stpmv()
441 int i, j, k, LDA; in F77_stpsv() local
451 LDA = *n; in F77_stpsv()
452 A = ( float* )malloc( LDA*LDA*sizeof( float ) ); in F77_stpsv()
453 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) ); in F77_stpsv()
457 A[ LDA*i+j ]=ap[ k ]; in F77_stpsv()
460 AP[ k ]=A[ LDA*i+j ]; in F77_stpsv()
466 A[ LDA*i+j ]=ap[ k ]; in F77_stpsv()
469 AP[ k ]=A[ LDA*i+j ]; in F77_stpsv()
481 int i,j,k,LDA; in F77_sspr() local
487 LDA = *n; in F77_sspr()
488 A = ( float* )malloc( LDA*LDA*sizeof( float ) ); in F77_sspr()
489 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) ); in F77_sspr()
493 A[ LDA*i+j ]=ap[ k ]; in F77_sspr()
496 AP[ k ]=A[ LDA*i+j ]; in F77_sspr()
501 A[ LDA*i+j ]=ap[ k ]; in F77_sspr()
504 AP[ k ]=A[ LDA*i+j ]; in F77_sspr()
510 A[ LDA*i+j ]=AP[ k ]; in F77_sspr()
513 ap[ k ]=A[ LDA*i+j ]; in F77_sspr()
518 A[ LDA*i+j ]=AP[ k ]; in F77_sspr()
521 ap[ k ]=A[ LDA*i+j ]; in F77_sspr()
532 int i,j,k,LDA; in F77_sspr2() local
538 LDA = *n; in F77_sspr2()
539 A = ( float* )malloc( LDA*LDA*sizeof( float ) ); in F77_sspr2()
540 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) ); in F77_sspr2()
544 A[ LDA*i+j ]=ap[ k ]; in F77_sspr2()
547 AP[ k ]=A[ LDA*i+j ]; in F77_sspr2()
552 A[ LDA*i+j ]=ap[ k ]; in F77_sspr2()
555 AP[ k ]=A[ LDA*i+j ]; in F77_sspr2()
561 A[ LDA*i+j ]=AP[ k ]; in F77_sspr2()
564 ap[ k ]=A[ LDA*i+j ]; in F77_sspr2()
569 A[ LDA*i+j ]=AP[ k ]; in F77_sspr2()
572 ap[ k ]=A[ LDA*i+j ]; in F77_sspr2()