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