Lines Matching refs:j
20 int i,j,LDA, LDB, LDC; in F77_zgemm() local
31 for( j=0; j<*k; j++ ) { in F77_zgemm()
32 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zgemm()
33 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zgemm()
40 for( j=0; j<*m; j++ ) { in F77_zgemm()
41 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zgemm()
42 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zgemm()
50 for( j=0; j<*n; j++ ) { in F77_zgemm()
51 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zgemm()
52 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zgemm()
59 for( j=0; j<*k; j++ ) { in F77_zgemm()
60 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zgemm()
61 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zgemm()
67 for( j=0; j<*n; j++ ) in F77_zgemm()
69 C[i*LDC+j].real=c[j*(*ldc)+i].real; in F77_zgemm()
70 C[i*LDC+j].imag=c[j*(*ldc)+i].imag; in F77_zgemm()
74 for( j=0; j<*n; j++ ) in F77_zgemm()
76 c[j*(*ldc)+i].real=C[i*LDC+j].real; in F77_zgemm()
77 c[j*(*ldc)+i].imag=C[i*LDC+j].imag; in F77_zgemm()
96 int i,j,LDA, LDB, LDC; in F77_zhemm() local
108 for( j=0; j<*m; j++ ) { in F77_zhemm()
109 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zhemm()
110 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zhemm()
117 for( j=0; j<*n; j++ ) { in F77_zhemm()
118 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zhemm()
119 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zhemm()
125 for( j=0; j<*n; j++ ) { in F77_zhemm()
126 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zhemm()
127 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zhemm()
131 for( j=0; j<*n; j++ ) in F77_zhemm()
133 C[i*LDC+j].real=c[j*(*ldc)+i].real; in F77_zhemm()
134 C[i*LDC+j].imag=c[j*(*ldc)+i].imag; in F77_zhemm()
138 for( j=0; j<*n; j++ ) in F77_zhemm()
140 c[j*(*ldc)+i].real=C[i*LDC+j].real; in F77_zhemm()
141 c[j*(*ldc)+i].imag=C[i*LDC+j].imag; in F77_zhemm()
160 int i,j,LDA, LDB, LDC; in F77_zsymm() local
172 for( j=0; j<*m; j++ ) in F77_zsymm()
173 A[i*LDA+j]=a[j*(*lda)+i]; in F77_zsymm()
179 for( j=0; j<*n; j++ ) in F77_zsymm()
180 A[i*LDA+j]=a[j*(*lda)+i]; in F77_zsymm()
185 for( j=0; j<*n; j++ ) in F77_zsymm()
186 B[i*LDB+j]=b[j*(*ldb)+i]; in F77_zsymm()
189 for( j=0; j<*n; j++ ) in F77_zsymm()
191 C[i*LDC+j]=c[j*(*ldc)+i]; in F77_zsymm()
194 for( j=0; j<*n; j++ ) in F77_zsymm()
196 c[j*(*ldc)+i]=C[i*LDC+j]; in F77_zsymm()
213 int i,j,LDA,LDC; in F77_zherk() local
226 for( j=0; j<*k; j++ ) { in F77_zherk()
227 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zherk()
228 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zherk()
235 for( j=0; j<*n; j++ ) { in F77_zherk()
236 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zherk()
237 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zherk()
243 for( j=0; j<*n; j++ ) { in F77_zherk()
244 C[i*LDC+j].real=c[j*(*ldc)+i].real; in F77_zherk()
245 C[i*LDC+j].imag=c[j*(*ldc)+i].imag; in F77_zherk()
249 for( j=0; j<*n; j++ ) in F77_zherk()
251 c[j*(*ldc)+i].real=C[i*LDC+j].real; in F77_zherk()
252 c[j*(*ldc)+i].imag=C[i*LDC+j].imag; in F77_zherk()
269 int i,j,LDA,LDC; in F77_zsyrk() local
282 for( j=0; j<*k; j++ ) { in F77_zsyrk()
283 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zsyrk()
284 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zsyrk()
291 for( j=0; j<*n; j++ ) { in F77_zsyrk()
292 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zsyrk()
293 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zsyrk()
299 for( j=0; j<*n; j++ ) { in F77_zsyrk()
300 C[i*LDC+j].real=c[j*(*ldc)+i].real; in F77_zsyrk()
301 C[i*LDC+j].imag=c[j*(*ldc)+i].imag; in F77_zsyrk()
305 for( j=0; j<*n; j++ ) in F77_zsyrk()
307 c[j*(*ldc)+i].real=C[i*LDC+j].real; in F77_zsyrk()
308 c[j*(*ldc)+i].imag=C[i*LDC+j].imag; in F77_zsyrk()
324 int i,j,LDA,LDB,LDC; in F77_zher2k() local
339 for( j=0; j<*k; j++ ) { in F77_zher2k()
340 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zher2k()
341 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zher2k()
342 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zher2k()
343 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zher2k()
352 for( j=0; j<*n; j++ ){ in F77_zher2k()
353 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zher2k()
354 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zher2k()
355 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zher2k()
356 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zher2k()
362 for( j=0; j<*n; j++ ) { in F77_zher2k()
363 C[i*LDC+j].real=c[j*(*ldc)+i].real; in F77_zher2k()
364 C[i*LDC+j].imag=c[j*(*ldc)+i].imag; in F77_zher2k()
368 for( j=0; j<*n; j++ ) in F77_zher2k()
370 c[j*(*ldc)+i].real=C[i*LDC+j].real; in F77_zher2k()
371 c[j*(*ldc)+i].imag=C[i*LDC+j].imag; in F77_zher2k()
388 int i,j,LDA,LDB,LDC; in F77_zsyr2k() local
403 for( j=0; j<*k; j++ ) { in F77_zsyr2k()
404 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zsyr2k()
405 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zsyr2k()
406 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zsyr2k()
407 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zsyr2k()
416 for( j=0; j<*n; j++ ){ in F77_zsyr2k()
417 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_zsyr2k()
418 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_zsyr2k()
419 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_zsyr2k()
420 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_zsyr2k()
426 for( j=0; j<*n; j++ ) { in F77_zsyr2k()
427 C[i*LDC+j].real=c[j*(*ldc)+i].real; in F77_zsyr2k()
428 C[i*LDC+j].imag=c[j*(*ldc)+i].imag; in F77_zsyr2k()
432 for( j=0; j<*n; j++ ) in F77_zsyr2k()
434 c[j*(*ldc)+i].real=C[i*LDC+j].real; in F77_zsyr2k()
435 c[j*(*ldc)+i].imag=C[i*LDC+j].imag; in F77_zsyr2k()
451 int i,j,LDA,LDB; in F77_ztrmm() local
468 for( j=0; j<*m; j++ ) { in F77_ztrmm()
469 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ztrmm()
470 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ztrmm()
477 for( j=0; j<*n; j++ ) { in F77_ztrmm()
478 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ztrmm()
479 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ztrmm()
485 for( j=0; j<*n; j++ ) { in F77_ztrmm()
486 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_ztrmm()
487 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_ztrmm()
491 for( j=0; j<*n; j++ ) in F77_ztrmm()
493 b[j*(*ldb)+i].real=B[i*LDB+j].real; in F77_ztrmm()
494 b[j*(*ldb)+i].imag=B[i*LDB+j].imag; in F77_ztrmm()
510 int i,j,LDA,LDB; in F77_ztrsm() local
527 for( j=0; j<*m; j++ ) { in F77_ztrsm()
528 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ztrsm()
529 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ztrsm()
536 for( j=0; j<*n; j++ ) { in F77_ztrsm()
537 A[i*LDA+j].real=a[j*(*lda)+i].real; in F77_ztrsm()
538 A[i*LDA+j].imag=a[j*(*lda)+i].imag; in F77_ztrsm()
544 for( j=0; j<*n; j++ ) { in F77_ztrsm()
545 B[i*LDB+j].real=b[j*(*ldb)+i].real; in F77_ztrsm()
546 B[i*LDB+j].imag=b[j*(*ldb)+i].imag; in F77_ztrsm()
550 for( j=0; j<*n; j++ ) in F77_ztrsm()
552 b[j*(*ldb)+i].real=B[i*LDB+j].real; in F77_ztrsm()
553 b[j*(*ldb)+i].imag=B[i*LDB+j].imag; in F77_ztrsm()