Lines Matching refs:LDA
12 float *a, int *lda, float *x, int *incx, float *beta,
16 int i,j,LDA;
21 LDA = *n+1;
22 A = ( float* )malloc( (*m)*LDA*sizeof( float ) );
25 A[ LDA*i+j ]=a[ (*lda)*j+i ];
27 *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
32 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
35 *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
39 float *y, int *incy, float *a, int *lda ) {
42 int i,j,LDA;
45 LDA = *n+1;
46 A = ( float* )malloc( (*m)*LDA*sizeof( float ) );
50 A[ LDA*i+j ]=a[ (*lda)*j+i ];
53 cblas_sger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA );
56 a[ (*lda)*j+i ]=A[ LDA*i+j ];
60 cblas_sger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda );
64 int *n, float *a, int *lda, float *x, int *incx) {
66 int i,j,LDA;
76 LDA = *n+1;
77 A = ( float* )malloc( (*n)*LDA*sizeof( float ) );
80 A[ LDA*i+j ]=a[ (*lda)*j+i ];
81 cblas_strmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx);
85 cblas_strmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx);
87 cblas_strmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx);
92 int *n, float *a, int *lda, float *x, int *incx ) {
94 int i,j,LDA;
104 LDA = *n+1;
105 A = ( float* )malloc( (*n)*LDA*sizeof( float ) );
108 A[ LDA*i+j ]=a[ (*lda)*j+i ];
109 cblas_strsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx );
113 cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
116 int *lda, float *x, int *incx, float *beta, float *y,
119 int i,j,LDA;
125 LDA = *n+1;
126 A = ( float* )malloc( (*n)*LDA*sizeof( float ) );
129 A[ LDA*i+j ]=a[ (*lda)*j+i ];
130 cblas_ssymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx,
135 cblas_ssymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx,
140 int *incx, float *a, int *lda) {
142 int i,j,LDA;
148 LDA = *n+1;
149 A = ( float* )malloc( (*n)*LDA*sizeof( float ) );
152 A[ LDA*i+j ]=a[ (*lda)*j+i ];
153 cblas_ssyr(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA);
156 a[ (*lda)*j+i ]=A[ LDA*i+j ];
160 cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
164 int *incx, float *y, int *incy, float *a, int *lda) {
166 int i,j,LDA;
172 LDA = *n+1;
173 A = ( float* )malloc( (*n)*LDA*sizeof( float ) );
176 A[ LDA*i+j ]=a[ (*lda)*j+i ];
177 cblas_ssyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA);
180 a[ (*lda)*j+i ]=A[ LDA*i+j ];
184 cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);
188 float *alpha, float *a, int *lda, float *x, int *incx,
192 int i,irow,j,jcol,LDA;
198 LDA = *ku+*kl+2;
199 A = ( float* )malloc( (*n+*kl)*LDA*sizeof( float ) );
204 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];
209 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
214 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
217 A, LDA, x, *incx, *beta, y, *incy );
222 a, *lda, x, *incx, *beta, y, *incy );
226 int *n, int *k, float *a, int *lda, float *x, int *incx) {
228 int irow, jcol, i, j, LDA;
238 LDA = *k+1;
239 A = ( float* )malloc( (*n+*k)*LDA*sizeof( float ) );
245 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];
250 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
256 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
261 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
264 cblas_stbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx);
268 cblas_stbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);
272 int *n, int *k, float *a, int *lda, float *x, int *incx) {
274 int irow, jcol, i, j, LDA;
284 LDA = *k+1;
285 A = ( float* )malloc( (*n+*k)*LDA*sizeof( float ) );
291 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];
296 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
302 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
307 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
310 cblas_stbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx);
314 cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);
318 float *a, int *lda, float *x, int *incx, float *beta,
321 int i,j,irow,jcol,LDA;
327 LDA = *k+1;
328 A = ( float* )malloc( (*n+*k)*LDA*sizeof( float ) );
334 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];
339 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
345 A[ LDA*j+irow ]=a[ (*lda)*j+i ];
350 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
353 cblas_ssbmv(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx,
358 cblas_ssbmv(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx,
365 int i,j,k,LDA;
371 LDA = *n;
372 A = ( float* )malloc( LDA*LDA*sizeof( float ) );
373 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
377 A[ LDA*i+j ]=ap[ k ];
380 AP[ k ]=A[ LDA*i+j ];
385 A[ LDA*i+j ]=ap[ k ];
388 AP[ k ]=A[ LDA*i+j ];
402 int i, j, k, LDA;
412 LDA = *n;
413 A = ( float* )malloc( LDA*LDA*sizeof( float ) );
414 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
418 A[ LDA*i+j ]=ap[ k ];
421 AP[ k ]=A[ LDA*i+j ];
426 A[ LDA*i+j ]=ap[ k ];
429 AP[ k ]=A[ LDA*i+j ];
441 int i, j, k, LDA;
451 LDA = *n;
452 A = ( float* )malloc( LDA*LDA*sizeof( float ) );
453 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
457 A[ LDA*i+j ]=ap[ k ];
460 AP[ k ]=A[ LDA*i+j ];
466 A[ LDA*i+j ]=ap[ k ];
469 AP[ k ]=A[ LDA*i+j ];
481 int i,j,k,LDA;
487 LDA = *n;
488 A = ( float* )malloc( LDA*LDA*sizeof( float ) );
489 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
493 A[ LDA*i+j ]=ap[ k ];
496 AP[ k ]=A[ LDA*i+j ];
501 A[ LDA*i+j ]=ap[ k ];
504 AP[ k ]=A[ LDA*i+j ];
510 A[ LDA*i+j ]=AP[ k ];
513 ap[ k ]=A[ LDA*i+j ];
518 A[ LDA*i+j ]=AP[ k ];
521 ap[ k ]=A[ LDA*i+j ];
532 int i,j,k,LDA;
538 LDA = *n;
539 A = ( float* )malloc( LDA*LDA*sizeof( float ) );
540 AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
544 A[ LDA*i+j ]=ap[ k ];
547 AP[ k ]=A[ LDA*i+j ];
552 A[ LDA*i+j ]=ap[ k ];
555 AP[ k ]=A[ LDA*i+j ];
561 A[ LDA*i+j ]=AP[ k ];
564 ap[ k ]=A[ LDA*i+j ];
569 A[ LDA*i+j ]=AP[ k ];
572 ap[ k ]=A[ LDA*i+j ];