32               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zgemm()
41               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zgemm()
51               B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zgemm()
60               B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zgemm()
69            C[i*LDC+j].real=c[j*(*ldc)+i].real;  in F77_zgemm()
76            c[j*(*ldc)+i].real=C[i*LDC+j].real;  in F77_zgemm()
109               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zhemm()
118               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zhemm()
126            B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zhemm()
133            C[i*LDC+j].real=c[j*(*ldc)+i].real;  in F77_zhemm()
140            c[j*(*ldc)+i].real=C[i*LDC+j].real;  in F77_zhemm()
227               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zherk()
236               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zherk()
244            C[i*LDC+j].real=c[j*(*ldc)+i].real;  in F77_zherk()
251            c[j*(*ldc)+i].real=C[i*LDC+j].real;  in F77_zherk()
283               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zsyrk()
292               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zsyrk()
300            C[i*LDC+j].real=c[j*(*ldc)+i].real;  in F77_zsyrk()
307            c[j*(*ldc)+i].real=C[i*LDC+j].real;  in F77_zsyrk()
340               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zher2k()
342               B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zher2k()
353 	      A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zher2k()
355               B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zher2k()
363            C[i*LDC+j].real=c[j*(*ldc)+i].real;  in F77_zher2k()
370            c[j*(*ldc)+i].real=C[i*LDC+j].real;  in F77_zher2k()
404               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zsyr2k()
406               B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zsyr2k()
417 	      A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_zsyr2k()
419               B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_zsyr2k()
427            C[i*LDC+j].real=c[j*(*ldc)+i].real;  in F77_zsyr2k()
434            c[j*(*ldc)+i].real=C[i*LDC+j].real;  in F77_zsyr2k()
469               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_ztrmm()
478               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_ztrmm()
486            B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_ztrmm()
493            b[j*(*ldb)+i].real=B[i*LDB+j].real;  in F77_ztrmm()
528               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_ztrsm()
537               A[i*LDA+j].real=a[j*(*lda)+i].real;  in F77_ztrsm()
545            B[i*LDB+j].real=b[j*(*ldb)+i].real;  in F77_ztrsm()
552            b[j*(*ldb)+i].real=B[i*LDB+j].real;  in F77_ztrsm()