Lines Matching refs:j
16 int i,j,LDA; in F77_dgemv() local
24 for( j=0; j<*n; j++ ) in F77_dgemv()
25 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dgemv()
42 int i,j,LDA; in F77_dger() local
49 for( j=0; j<*n; j++ ) in F77_dger()
50 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dger()
55 for( j=0; j<*n; j++ ) in F77_dger()
56 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_dger()
66 int i,j,LDA; in F77_dtrmv() local
79 for( j=0; j<*n; j++ ) in F77_dtrmv()
80 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dtrmv()
94 int i,j,LDA; in F77_dtrsv() local
107 for( j=0; j<*n; j++ ) in F77_dtrsv()
108 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dtrsv()
119 int i,j,LDA; in F77_dsymv() local
128 for( j=0; j<*n; j++ ) in F77_dsymv()
129 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dsymv()
142 int i,j,LDA; in F77_dsyr() local
151 for( j=0; j<*n; j++ ) in F77_dsyr()
152 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dsyr()
155 for( j=0; j<*n; j++ ) in F77_dsyr()
156 a[ (*lda)*j+i ]=A[ LDA*i+j ]; in F77_dsyr()
166 int i,j,LDA; in F77_dsyr2() local
175 for( j=0; j<*n; j++ ) in F77_dsyr2()
176 A[ LDA*i+j ]=a[ (*lda)*j+i ]; in F77_dsyr2()
179 for( j=0; j<*n; j++ ) 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
203 for( j=jcol; j<*n; j++ ) in F77_dgbmv()
204 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dgbmv()
208 for( j=0; j<*n; j++ ) in F77_dgbmv()
209 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dgbmv()
213 for( j=jcol; j<(*n+*kl); j++ ) in F77_dgbmv()
214 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dgbmv()
228 int irow, jcol, i, j, LDA; in F77_dtbmv() local
244 for( j=jcol; j<*n; j++ ) in F77_dtbmv()
245 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dtbmv()
249 for( j=0; j<*n; j++ ) in F77_dtbmv()
250 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbmv()
255 for( j=0; j<*n; j++ ) in F77_dtbmv()
256 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbmv()
260 for( j=jcol; j<(*n+*k); j++ ) in F77_dtbmv()
261 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dtbmv()
274 int irow, jcol, i, j, LDA; in F77_dtbsv() local
290 for( j=jcol; j<*n; j++ ) in F77_dtbsv()
291 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dtbsv()
295 for( j=0; j<*n; j++ ) in F77_dtbsv()
296 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbsv()
301 for( j=0; j<*n; j++ ) in F77_dtbsv()
302 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dtbsv()
306 for( j=jcol; j<(*n+*k); j++ ) in F77_dtbsv()
307 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dtbsv()
321 int i,j,irow,jcol,LDA; in F77_dsbmv() local
333 for( j=jcol; j<*n; j++ ) in F77_dsbmv()
334 A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ]; in F77_dsbmv()
338 for( j=0; j<*n; j++ ) in F77_dsbmv()
339 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dsbmv()
344 for( j=0; j<*n; j++ ) in F77_dsbmv()
345 A[ LDA*j+irow ]=a[ (*lda)*j+i ]; in F77_dsbmv()
349 for( j=jcol; j<(*n+*k); j++ ) in F77_dsbmv()
350 A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; in F77_dsbmv()
365 int i,j,k,LDA; in F77_dspmv() local
375 for( j=0, k=0; j<*n; j++ ) in F77_dspmv()
376 for( i=0; i<j+1; i++, k++ ) in F77_dspmv()
377 A[ LDA*i+j ]=ap[ k ]; in F77_dspmv()
379 for( j=i; j<*n; j++, k++ ) in F77_dspmv()
380 AP[ k ]=A[ LDA*i+j ]; in F77_dspmv()
383 for( j=0, k=0; j<*n; j++ ) in F77_dspmv()
384 for( i=j; i<*n; i++, k++ ) in F77_dspmv()
385 A[ LDA*i+j ]=ap[ k ]; in F77_dspmv()
387 for( j=0; j<i+1; j++, k++ ) in F77_dspmv()
388 AP[ k ]=A[ LDA*i+j ]; in F77_dspmv()
403 int i, j, k, LDA; in F77_dtpmv() local
417 for( j=0, k=0; j<*n; j++ ) in F77_dtpmv()
418 for( i=0; i<j+1; i++, k++ ) in F77_dtpmv()
419 A[ LDA*i+j ]=ap[ k ]; in F77_dtpmv()
421 for( j=i; j<*n; j++, k++ ) in F77_dtpmv()
422 AP[ k ]=A[ LDA*i+j ]; in F77_dtpmv()
425 for( j=0, k=0; j<*n; j++ ) in F77_dtpmv()
426 for( i=j; i<*n; i++, k++ ) in F77_dtpmv()
427 A[ LDA*i+j ]=ap[ k ]; in F77_dtpmv()
429 for( j=0; j<i+1; j++, k++ ) in F77_dtpmv()
430 AP[ k ]=A[ LDA*i+j ]; in F77_dtpmv()
443 int i, j, k, LDA; in F77_dtpsv() local
457 for( j=0, k=0; j<*n; j++ ) in F77_dtpsv()
458 for( i=0; i<j+1; i++, k++ ) in F77_dtpsv()
459 A[ LDA*i+j ]=ap[ k ]; in F77_dtpsv()
461 for( j=i; j<*n; j++, k++ ) in F77_dtpsv()
462 AP[ k ]=A[ LDA*i+j ]; in F77_dtpsv()
466 for( j=0, k=0; j<*n; j++ ) in F77_dtpsv()
467 for( i=j; i<*n; i++, k++ ) in F77_dtpsv()
468 A[ LDA*i+j ]=ap[ k ]; in F77_dtpsv()
470 for( j=0; j<i+1; j++, k++ ) in F77_dtpsv()
471 AP[ k ]=A[ LDA*i+j ]; in F77_dtpsv()
484 int i,j,k,LDA; in F77_dspr() local
494 for( j=0, k=0; j<*n; j++ ) in F77_dspr()
495 for( i=0; i<j+1; i++, k++ ) in F77_dspr()
496 A[ LDA*i+j ]=ap[ k ]; in F77_dspr()
498 for( j=i; j<*n; j++, k++ ) in F77_dspr()
499 AP[ k ]=A[ LDA*i+j ]; in F77_dspr()
502 for( j=0, k=0; j<*n; j++ ) in F77_dspr()
503 for( i=j; i<*n; i++, k++ ) in F77_dspr()
504 A[ LDA*i+j ]=ap[ k ]; in F77_dspr()
506 for( j=0; j<i+1; j++, k++ ) in F77_dspr()
507 AP[ k ]=A[ LDA*i+j ]; in F77_dspr()
512 for( j=i; j<*n; j++, k++ ) in F77_dspr()
513 A[ LDA*i+j ]=AP[ k ]; in F77_dspr()
514 for( j=0, k=0; j<*n; j++ ) in F77_dspr()
515 for( i=0; i<j+1; i++, k++ ) in F77_dspr()
516 ap[ k ]=A[ LDA*i+j ]; in F77_dspr()
520 for( j=0; j<i+1; j++, k++ ) in F77_dspr()
521 A[ LDA*i+j ]=AP[ k ]; in F77_dspr()
522 for( j=0, k=0; j<*n; j++ ) in F77_dspr()
523 for( i=j; i<*n; i++, k++ ) in F77_dspr()
524 ap[ k ]=A[ LDA*i+j ]; in F77_dspr()
536 int i,j,k,LDA; in F77_dspr2() local
546 for( j=0, k=0; j<*n; j++ ) in F77_dspr2()
547 for( i=0; i<j+1; i++, k++ ) in F77_dspr2()
548 A[ LDA*i+j ]=ap[ k ]; in F77_dspr2()
550 for( j=i; j<*n; j++, k++ ) in F77_dspr2()
551 AP[ k ]=A[ LDA*i+j ]; in F77_dspr2()
554 for( j=0, k=0; j<*n; j++ ) in F77_dspr2()
555 for( i=j; i<*n; i++, k++ ) in F77_dspr2()
556 A[ LDA*i+j ]=ap[ k ]; in F77_dspr2()
558 for( j=0; j<i+1; j++, k++ ) in F77_dspr2()
559 AP[ k ]=A[ LDA*i+j ]; in F77_dspr2()
564 for( j=i; j<*n; j++, k++ ) in F77_dspr2()
565 A[ LDA*i+j ]=AP[ k ]; in F77_dspr2()
566 for( j=0, k=0; j<*n; j++ ) in F77_dspr2()
567 for( i=0; i<j+1; i++, k++ ) in F77_dspr2()
568 ap[ k ]=A[ LDA*i+j ]; in F77_dspr2()
572 for( j=0; j<i+1; j++, k++ ) in F77_dspr2()
573 A[ LDA*i+j ]=AP[ k ]; in F77_dspr2()
574 for( j=0, k=0; j<*n; j++ ) in F77_dspr2()
575 for( i=j; i<*n; i++, k++ ) in F77_dspr2()
576 ap[ k ]=A[ LDA*i+j ]; in F77_dspr2()