Lines Matching +full:- +full:j
17 int i,j,LDA; in F77_cgemv() local
25 for( j=0; j<*n; j++ ){ in F77_cgemv()
26 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cgemv()
27 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cgemv()
47 int i,j,irow,jcol,LDA; in F77_cgbmv() local
55 irow=*ku+*kl-i; in F77_cgbmv()
56 jcol=(*ku)-i; in F77_cgbmv()
57 for( j=jcol; j<*n; j++ ){ in F77_cgbmv()
58 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_cgbmv()
59 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_cgbmv()
63 irow=*ku+*kl-i; in F77_cgbmv()
64 for( j=0; j<*n; j++ ){ in F77_cgbmv()
65 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_cgbmv()
66 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_cgbmv()
69 irow=*ku+*kl-i; in F77_cgbmv()
70 jcol=i-(*ku); in F77_cgbmv()
71 for( j=jcol; j<(*n+*kl); j++ ){ in F77_cgbmv()
72 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_cgbmv()
73 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_cgbmv()
93 int i,j,LDA; in F77_cgeru() local
99 for( j=0; j<*n; j++ ){ in F77_cgeru()
100 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cgeru()
101 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cgeru()
105 for( j=0; j<*n; j++ ){ in F77_cgeru()
106 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cgeru()
107 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_cgeru()
121 int i,j,LDA; in F77_cgerc() local
127 for( j=0; j<*n; j++ ){ in F77_cgerc()
128 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cgerc()
129 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cgerc()
133 for( j=0; j<*n; j++ ){ in F77_cgerc()
134 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cgerc()
135 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_cgerc()
150 int i,j,LDA; in F77_chemv() local
159 for( j=0; j<*n; j++ ){ in F77_chemv()
160 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_chemv()
161 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_chemv()
181 int i,irow,j,jcol,LDA; in F77_chbmv() local
196 irow=*k-i; in F77_chbmv()
197 jcol=(*k)-i; in F77_chbmv()
198 for( j=jcol; j<*n; j++ ) { in F77_chbmv()
199 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_chbmv()
200 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_chbmv()
204 irow=*k-i; in F77_chbmv()
205 for( j=0; j<*n; j++ ) { in F77_chbmv()
206 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_chbmv()
207 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_chbmv()
212 irow=*k-i; in F77_chbmv()
213 for( j=0; j<*n; j++ ) { in F77_chbmv()
214 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_chbmv()
215 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_chbmv()
218 irow=*k-i; in F77_chbmv()
220 for( j=jcol; j<(*n+*k); j++ ) { in F77_chbmv()
221 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_chbmv()
222 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_chbmv()
244 int i,j,k,LDA; in F77_chpmv() local
258 for( j=0, k=0; j<*n; j++ ) in F77_chpmv()
259 for( i=0; i<j+1; i++, k++ ) { in F77_chpmv()
260 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpmv()
261 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpmv()
264 for( j=i; j<*n; j++, k++ ) { in F77_chpmv()
265 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpmv()
266 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpmv()
270 for( j=0, k=0; j<*n; j++ ) in F77_chpmv()
271 for( i=j; i<*n; i++, k++ ) { in F77_chpmv()
272 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpmv()
273 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpmv()
276 for( j=0; j<i+1; j++, k++ ) { in F77_chpmv()
277 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpmv()
278 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpmv()
299 int irow, jcol, i, j, LDA; in F77_ctbmv() local
317 irow=*k-i; in F77_ctbmv()
318 jcol=(*k)-i; in F77_ctbmv()
319 for( j=jcol; j<*n; j++ ) { in F77_ctbmv()
320 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbmv()
321 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbmv()
325 irow=*k-i; in F77_ctbmv()
326 for( j=0; j<*n; j++ ) { in F77_ctbmv()
327 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbmv()
328 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbmv()
333 irow=*k-i; in F77_ctbmv()
334 for( j=0; j<*n; j++ ) { in F77_ctbmv()
335 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbmv()
336 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbmv()
339 irow=*k-i; in F77_ctbmv()
341 for( j=jcol; j<(*n+*k); j++ ) { in F77_ctbmv()
342 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ctbmv()
343 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_ctbmv()
363 int irow, jcol, i, j, LDA; in F77_ctbsv() local
381 irow=*k-i; in F77_ctbsv()
382 jcol=(*k)-i; in F77_ctbsv()
383 for( j=jcol; j<*n; j++ ) { in F77_ctbsv()
384 A[ LDA*(j-jcol)+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbsv()
385 A[ LDA*(j-jcol)+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbsv()
389 irow=*k-i; in F77_ctbsv()
390 for( j=0; j<*n; j++ ) { in F77_ctbsv()
391 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbsv()
392 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbsv()
397 irow=*k-i; in F77_ctbsv()
398 for( j=0; j<*n; j++ ) { in F77_ctbsv()
399 A[ LDA*j+irow ].real=a[ (*lda)*j+i ].real; in F77_ctbsv()
400 A[ LDA*j+irow ].imag=a[ (*lda)*j+i ].imag; in F77_ctbsv()
403 irow=*k-i; in F77_ctbsv()
405 for( j=jcol; j<(*n+*k); j++ ) { in F77_ctbsv()
406 A[ LDA*j+irow ].real=a[ (*lda)*(j-jcol)+i ].real; in F77_ctbsv()
407 A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; in F77_ctbsv()
425 int i, j, k, LDA; in F77_ctpmv() local
443 for( j=0, k=0; j<*n; j++ ) in F77_ctpmv()
444 for( i=0; i<j+1; i++, k++ ) { in F77_ctpmv()
445 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpmv()
446 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpmv()
449 for( j=i; j<*n; j++, k++ ) { in F77_ctpmv()
450 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpmv()
451 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpmv()
455 for( j=0, k=0; j<*n; j++ ) in F77_ctpmv()
456 for( i=j; i<*n; i++, k++ ) { in F77_ctpmv()
457 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpmv()
458 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpmv()
461 for( j=0; j<i+1; j++, k++ ) { in F77_ctpmv()
462 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpmv()
463 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpmv()
480 int i, j, k, LDA; in F77_ctpsv() local
498 for( j=0, k=0; j<*n; j++ ) in F77_ctpsv()
499 for( i=0; i<j+1; i++, k++ ) { in F77_ctpsv()
500 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpsv()
501 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpsv()
504 for( j=i; j<*n; j++, k++ ) { in F77_ctpsv()
505 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpsv()
506 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpsv()
510 for( j=0, k=0; j<*n; j++ ) in F77_ctpsv()
511 for( i=j; i<*n; i++, k++ ) { in F77_ctpsv()
512 A[ LDA*i+j ].real=ap[ k ].real; in F77_ctpsv()
513 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_ctpsv()
516 for( j=0; j<i+1; j++, k++ ) { in F77_ctpsv()
517 AP[ k ].real=A[ LDA*i+j ].real; in F77_ctpsv()
518 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_ctpsv()
536 int i,j,LDA; in F77_ctrmv() local
549 for( j=0; j<*n; j++ ) { in F77_ctrmv()
550 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_ctrmv()
551 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_ctrmv()
565 int i,j,LDA; in F77_ctrsv() local
578 for( j=0; j<*n; j++ ) { in F77_ctrsv()
579 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_ctrsv()
580 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_ctrsv()
594 int i,j,k,LDA; in F77_chpr() local
608 for( j=0, k=0; j<*n; j++ ) in F77_chpr()
609 for( i=0; i<j+1; i++, k++ ){ in F77_chpr()
610 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr()
611 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr()
614 for( j=i; j<*n; j++, k++ ){ in F77_chpr()
615 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
616 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
620 for( j=0, k=0; j<*n; j++ ) in F77_chpr()
621 for( i=j; i<*n; i++, k++ ){ in F77_chpr()
622 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr()
623 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr()
626 for( j=0; j<i+1; j++, k++ ){ in F77_chpr()
627 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
628 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
634 for( j=i; j<*n; j++, k++ ){ in F77_chpr()
635 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr()
636 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr()
638 for( j=0, k=0; j<*n; j++ ) in F77_chpr()
639 for( i=0; i<j+1; i++, k++ ){ in F77_chpr()
640 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
641 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
646 for( j=0; j<i+1; j++, k++ ){ in F77_chpr()
647 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr()
648 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr()
650 for( j=0, k=0; j<*n; j++ ) in F77_chpr()
651 for( i=j; i<*n; i++, k++ ){ in F77_chpr()
652 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr()
653 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr()
670 int i,j,k,LDA; in F77_chpr2() local
685 for( j=0, k=0; j<*n; j++ ) in F77_chpr2()
686 for( i=0; i<j+1; i++, k++ ) { in F77_chpr2()
687 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr2()
688 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr2()
691 for( j=i; j<*n; j++, k++ ) { in F77_chpr2()
692 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
693 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
697 for( j=0, k=0; j<*n; j++ ) in F77_chpr2()
698 for( i=j; i<*n; i++, k++ ) { in F77_chpr2()
699 A[ LDA*i+j ].real=ap[ k ].real; in F77_chpr2()
700 A[ LDA*i+j ].imag=ap[ k ].imag; in F77_chpr2()
703 for( j=0; j<i+1; j++, k++ ) { in F77_chpr2()
704 AP[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
705 AP[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
711 for( j=i; j<*n; j++, k++ ) { in F77_chpr2()
712 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr2()
713 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr2()
715 for( j=0, k=0; j<*n; j++ ) in F77_chpr2()
716 for( i=0; i<j+1; i++, k++ ) { in F77_chpr2()
717 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
718 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
723 for( j=0; j<i+1; j++, k++ ) { in F77_chpr2()
724 A[ LDA*i+j ].real=AP[ k ].real; in F77_chpr2()
725 A[ LDA*i+j ].imag=AP[ k ].imag; in F77_chpr2()
727 for( j=0, k=0; j<*n; j++ ) in F77_chpr2()
728 for( i=j; i<*n; i++, k++ ) { in F77_chpr2()
729 ap[ k ].real=A[ LDA*i+j ].real; in F77_chpr2()
730 ap[ k ].imag=A[ LDA*i+j ].imag; in F77_chpr2()
746 int i,j,LDA; in F77_cher() local
756 for( j=0; j<*n; j++ ) { in F77_cher()
757 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cher()
758 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cher()
763 for( j=0; j<*n; j++ ) { in F77_cher()
764 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cher()
765 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_cher()
780 int i,j,LDA; in F77_cher2() local
790 for( j=0; j<*n; j++ ) { in F77_cher2()
791 A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; in F77_cher2()
792 A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; in F77_cher2()
797 for( j=0; j<*n; j++ ) { in F77_cher2()
798 a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; in F77_cher2()
799 a[ (*lda)*j+i ].imag=A[ LDA*i+j ].imag; in F77_cher2()