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