19   int i,j,LDA, LDB, LDC;  in F77_dgemm()  local
27         LDA = *k+1;  in F77_dgemm()
28         A = (double *)malloc( (*m)*LDA*sizeof( double ) );  in F77_dgemm()
31               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dgemm()
34         LDA = *m+1;  in F77_dgemm()
35         A   = ( double* )malloc( LDA*(*k)*sizeof( double ) );  in F77_dgemm()
38               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dgemm()
60      cblas_dgemm( CblasRowMajor, transa, transb, *m, *n, *k, *alpha, A, LDA,  in F77_dgemm()
81   int i,j,LDA, LDB, LDC;  in F77_dsymm()  local
90         LDA = *m+1;  in F77_dsymm()
91         A   = ( double* )malloc( (*m)*LDA*sizeof( double ) );  in F77_dsymm()
94               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dsymm()
97         LDA = *n+1;  in F77_dsymm()
98         A   = ( double* )malloc( (*n)*LDA*sizeof( double ) );  in F77_dsymm()
101               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dsymm()
113      cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,   in F77_dsymm()
134   int i,j,LDA,LDC;  in F77_dsyrk()  local
144         LDA = *k+1;  in F77_dsyrk()
145         A   = ( double* )malloc( (*n)*LDA*sizeof( double ) );  in F77_dsyrk()
148               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dsyrk()
151         LDA = *n+1;  in F77_dsyrk()
152         A   = ( double* )malloc( (*k)*LDA*sizeof( double ) );  in F77_dsyrk()
155               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dsyrk()
162      cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,   in F77_dsyrk()
181   int i,j,LDA,LDB,LDC;  in F77_dsyr2k()  local
191         LDA = *k+1;  in F77_dsyr2k()
193         A   = ( double* )malloc( (*n)*LDA*sizeof( double ) );  in F77_dsyr2k()
197               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dsyr2k()
202         LDA = *n+1;  in F77_dsyr2k()
204         A   = ( double* )malloc( LDA*(*k)*sizeof( double ) );  in F77_dsyr2k()
208               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dsyr2k()
217      cblas_dsyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,   in F77_dsyr2k()
236   int i,j,LDA,LDB;  in F77_dtrmm()  local
250         LDA = *m+1;  in F77_dtrmm()
251         A   = ( double* )malloc( (*m)*LDA*sizeof( double ) );  in F77_dtrmm()
254               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dtrmm()
257         LDA = *n+1;  in F77_dtrmm()
258         A   = ( double* )malloc( (*n)*LDA*sizeof( double ) );  in F77_dtrmm()
261               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dtrmm()
269 		 A, LDA, B, LDB );  in F77_dtrmm()
287   int i,j,LDA,LDB;  in F77_dtrsm()  local
301         LDA = *m+1;  in F77_dtrsm()
302         A   = ( double* )malloc( (*m)*LDA*sizeof( double ) );  in F77_dtrsm()
305               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dtrsm()
308         LDA = *n+1;  in F77_dtrsm()
309         A   = ( double* )malloc( (*n)*LDA*sizeof( double ) );  in F77_dtrsm()
312               A[i*LDA+j]=a[j*(*lda)+i];  in F77_dtrsm()
320 		 A, LDA, B, LDB );  in F77_dtrsm()