Lines Matching refs:LDA
16 int i,j,LDA; in F77_dgemv() local
21 LDA = *n+1; in F77_dgemv()
22 A = ( double* )malloc( (*m)*LDA*sizeof( double ) ); in F77_dgemv()
25 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dgemv()
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); in F77_dgemv()
42 int i,j,LDA; in F77_dger() local
45 LDA = *n+1; in F77_dger()
46 A = ( double* )malloc( (*m)*LDA*sizeof( double ) ); in F77_dger()
50 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dger()
53 cblas_dger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA ); in F77_dger()
56 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_dger()
66 int i,j,LDA; in F77_dtrmv() local
76 LDA = *n+1; in F77_dtrmv()
77 A = ( double* )malloc( (*n)*LDA*sizeof( double ) ); in F77_dtrmv()
80 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dtrmv()
81 cblas_dtrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); in F77_dtrmv()
94 int i,j,LDA; in F77_dtrsv() local
104 LDA = *n+1; in F77_dtrsv()
105 A = ( double* )malloc( (*n)*LDA*sizeof( double ) ); in F77_dtrsv()
108 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dtrsv()
109 cblas_dtrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); in F77_dtrsv()
119 int i,j,LDA; in F77_dsymv() local
125 LDA = *n+1; in F77_dsymv()
126 A = ( double* )malloc( (*n)*LDA*sizeof( double ) ); in F77_dsymv()
129 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dsymv()
130 cblas_dsymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, in F77_dsymv()
142 int i,j,LDA; in F77_dsyr() local
148 LDA = *n+1; in F77_dsyr()
149 A = ( double* )malloc( (*n)*LDA*sizeof( double ) ); in F77_dsyr()
152 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dsyr()
153 cblas_dsyr(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA); in F77_dsyr()
156 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_dsyr()
166 int i,j,LDA; in F77_dsyr2() local
172 LDA = *n+1; in F77_dsyr2()
173 A = ( double* )malloc( (*n)*LDA*sizeof( double ) ); in F77_dsyr2()
176 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dsyr2()
177 cblas_dsyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); in F77_dsyr2()
180 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_dsyr2()
192 int i,irow,j,jcol,LDA; in F77_dgbmv() local
198 LDA = *ku+*kl+2; in F77_dgbmv()
199 A = ( double* )malloc( (*n+*kl)*LDA*sizeof( double ) ); in F77_dgbmv()
204 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dgbmv()
209 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dgbmv()
214 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dgbmv()
217 A, LDA, x, *incx, *beta, y, *incy ); in F77_dgbmv()
228 int irow, jcol, i, j, LDA; in F77_dtbmv() local
238 LDA = *k+1; in F77_dtbmv()
239 A = ( double* )malloc( (*n+*k)*LDA*sizeof( double ) ); in F77_dtbmv()
245 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dtbmv()
250 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbmv()
256 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbmv()
261 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dtbmv()
264 cblas_dtbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); in F77_dtbmv()
274 int irow, jcol, i, j, LDA; in F77_dtbsv() local
284 LDA = *k+1; in F77_dtbsv()
285 A = ( double* )malloc( (*n+*k)*LDA*sizeof( double ) ); in F77_dtbsv()
291 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dtbsv()
296 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbsv()
302 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbsv()
307 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dtbsv()
310 cblas_dtbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); in F77_dtbsv()
321 int i,j,irow,jcol,LDA; in F77_dsbmv() local
327 LDA = *k+1; in F77_dsbmv()
328 A = ( double* )malloc( (*n+*k)*LDA*sizeof( double ) ); in F77_dsbmv()
334 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dsbmv()
339 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dsbmv()
345 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dsbmv()
350 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dsbmv()
353 cblas_dsbmv(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx, in F77_dsbmv()
365 int i,j,k,LDA; in F77_dspmv() local
371 LDA = *n; in F77_dspmv()
372 A = ( double* )malloc( LDA*LDA*sizeof( double ) ); in F77_dspmv()
373 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) ); in F77_dspmv()
377 A[ LDA*i+j ]=ap[ k ]; in F77_dspmv()
380 AP[ k ]=A[ LDA*i+j ]; in F77_dspmv()
385 A[ LDA*i+j ]=ap[ k ]; in F77_dspmv()
388 AP[ k ]=A[ LDA*i+j ]; in F77_dspmv()
403 int i, j, k, LDA; in F77_dtpmv() local
413 LDA = *n; in F77_dtpmv()
414 A = ( double* )malloc( LDA*LDA*sizeof( double ) ); in F77_dtpmv()
415 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) ); in F77_dtpmv()
419 A[ LDA*i+j ]=ap[ k ]; in F77_dtpmv()
422 AP[ k ]=A[ LDA*i+j ]; in F77_dtpmv()
427 A[ LDA*i+j ]=ap[ k ]; in F77_dtpmv()
430 AP[ k ]=A[ LDA*i+j ]; in F77_dtpmv()
443 int i, j, k, LDA; in F77_dtpsv() local
453 LDA = *n; in F77_dtpsv()
454 A = ( double* )malloc( LDA*LDA*sizeof( double ) ); in F77_dtpsv()
455 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) ); in F77_dtpsv()
459 A[ LDA*i+j ]=ap[ k ]; in F77_dtpsv()
462 AP[ k ]=A[ LDA*i+j ]; in F77_dtpsv()
468 A[ LDA*i+j ]=ap[ k ]; in F77_dtpsv()
471 AP[ k ]=A[ LDA*i+j ]; in F77_dtpsv()
484 int i,j,k,LDA; in F77_dspr() local
490 LDA = *n; in F77_dspr()
491 A = ( double* )malloc( LDA*LDA*sizeof( double ) ); in F77_dspr()
492 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) ); in F77_dspr()
496 A[ LDA*i+j ]=ap[ k ]; in F77_dspr()
499 AP[ k ]=A[ LDA*i+j ]; in F77_dspr()
504 A[ LDA*i+j ]=ap[ k ]; in F77_dspr()
507 AP[ k ]=A[ LDA*i+j ]; in F77_dspr()
513 A[ LDA*i+j ]=AP[ k ]; in F77_dspr()
516 ap[ k ]=A[ LDA*i+j ]; in F77_dspr()
521 A[ LDA*i+j ]=AP[ k ]; in F77_dspr()
524 ap[ k ]=A[ LDA*i+j ]; in F77_dspr()
536 int i,j,k,LDA; in F77_dspr2() local
542 LDA = *n; in F77_dspr2()
543 A = ( double* )malloc( LDA*LDA*sizeof( double ) ); in F77_dspr2()
544 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) ); in F77_dspr2()
548 A[ LDA*i+j ]=ap[ k ]; in F77_dspr2()
551 AP[ k ]=A[ LDA*i+j ]; in F77_dspr2()
556 A[ LDA*i+j ]=ap[ k ]; in F77_dspr2()
559 AP[ k ]=A[ LDA*i+j ]; in F77_dspr2()
565 A[ LDA*i+j ]=AP[ k ]; in F77_dspr2()
568 ap[ k ]=A[ LDA*i+j ]; in F77_dspr2()
573 A[ LDA*i+j ]=AP[ k ]; in F77_dspr2()
576 ap[ k ]=A[ LDA*i+j ]; in F77_dspr2()