17   int i,j,LDA, LDB, LDC;  in F77_sgemm()  local
25         LDA = *k+1;  in F77_sgemm()
26         A = (float *)malloc( (*m)*LDA*sizeof( float ) );  in F77_sgemm()
29               A[i*LDA+j]=a[j*(*lda)+i];  in F77_sgemm()
32         LDA = *m+1;  in F77_sgemm()
33         A   = ( float* )malloc( LDA*(*k)*sizeof( float ) );  in F77_sgemm()
36               A[i*LDA+j]=a[j*(*lda)+i];  in F77_sgemm()
57      cblas_sgemm( CblasRowMajor, transa, transb, *m, *n, *k, *alpha, A, LDA,  in F77_sgemm()
78   int i,j,LDA, LDB, LDC;  in F77_ssymm()  local
87         LDA = *m+1;  in F77_ssymm()
88         A   = ( float* )malloc( (*m)*LDA*sizeof( float ) );  in F77_ssymm()
91               A[i*LDA+j]=a[j*(*lda)+i];  in F77_ssymm()
94         LDA = *n+1;  in F77_ssymm()
95         A   = ( float* )malloc( (*n)*LDA*sizeof( float ) );  in F77_ssymm()
98               A[i*LDA+j]=a[j*(*lda)+i];  in F77_ssymm()
110      cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,   in F77_ssymm()
131   int i,j,LDA,LDC;  in F77_ssyrk()  local
141         LDA = *k+1;  in F77_ssyrk()
142         A   = ( float* )malloc( (*n)*LDA*sizeof( float ) );  in F77_ssyrk()
145               A[i*LDA+j]=a[j*(*lda)+i];  in F77_ssyrk()
148         LDA = *n+1;  in F77_ssyrk()
149         A   = ( float* )malloc( (*k)*LDA*sizeof( float ) );  in F77_ssyrk()
152               A[i*LDA+j]=a[j*(*lda)+i];  in F77_ssyrk()
159      cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,   in F77_ssyrk()
178   int i,j,LDA,LDB,LDC;  in F77_ssyr2k()  local
188         LDA = *k+1;  in F77_ssyr2k()
190         A   = ( float* )malloc( (*n)*LDA*sizeof( float ) );  in F77_ssyr2k()
194               A[i*LDA+j]=a[j*(*lda)+i];  in F77_ssyr2k()
199         LDA = *n+1;  in F77_ssyr2k()
201         A   = ( float* )malloc( LDA*(*k)*sizeof( float ) );  in F77_ssyr2k()
205               A[i*LDA+j]=a[j*(*lda)+i];  in F77_ssyr2k()
214      cblas_ssyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,   in F77_ssyr2k()
233   int i,j,LDA,LDB;  in F77_strmm()  local
247         LDA = *m+1;  in F77_strmm()
248         A   = ( float* )malloc( (*m)*LDA*sizeof( float ) );  in F77_strmm()
251               A[i*LDA+j]=a[j*(*lda)+i];  in F77_strmm()
254         LDA = *n+1;  in F77_strmm()
255         A   = ( float* )malloc( (*n)*LDA*sizeof( float ) );  in F77_strmm()
258               A[i*LDA+j]=a[j*(*lda)+i];  in F77_strmm()
266 		 A, LDA, B, LDB );  in F77_strmm()
284   int i,j,LDA,LDB;  in F77_strsm()  local
298         LDA = *m+1;  in F77_strsm()
299         A   = ( float* )malloc( (*m)*LDA*sizeof( float ) );  in F77_strsm()
302               A[i*LDA+j]=a[j*(*lda)+i];  in F77_strsm()
305         LDA = *n+1;  in F77_strsm()
306         A   = ( float* )malloc( (*n)*LDA*sizeof( float ) );  in F77_strsm()
309               A[i*LDA+j]=a[j*(*lda)+i];  in F77_strsm()
317 		 A, LDA, B, LDB );  in F77_strsm()