12 	       float *a, int *lda, float *x, int *incx, float *beta,   in F77_sgemv()  argument
25            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_sgemv()
32 		  *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );  in F77_sgemv()
35 		  *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );  in F77_sgemv()
39 	     float *y, int *incy, float *a, int *lda ) {  in F77_sger()  argument
50          A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_sger()
56          a[ (*lda)*j+i ]=A[ LDA*i+j ];  in F77_sger()
60      cblas_sger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda );  in F77_sger()
64 	      int *n, float *a, int *lda, float *x, int *incx) {  in F77_strmv()  argument
80          A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_strmv()
85      cblas_strmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx);  in F77_strmv()
87      cblas_strmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx);  in F77_strmv()
92 	       int *n, float *a, int *lda, float *x, int *incx ) {  in F77_strsv()  argument
108            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_strsv()
113      cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );  in F77_strsv()
116 	      int *lda, float *x, int *incx, float *beta, float *y,  in F77_ssymv()  argument
129            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_ssymv()
135      cblas_ssymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx,  in F77_ssymv()
140 	     int *incx, float *a, int *lda) {  in F77_ssyr()  argument
152            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_ssyr()
156          a[ (*lda)*j+i ]=A[ LDA*i+j ];  in F77_ssyr()
160      cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);  in F77_ssyr()
164 	     int *incx, float *y, int *incy, float *a, int *lda) {  in F77_ssyr2()  argument
176            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_ssyr2()
180          a[ (*lda)*j+i ]=A[ LDA*i+j ];  in F77_ssyr2()
184      cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);  in F77_ssyr2()
188 	       float *alpha, float *a, int *lda, float *x, int *incx,   in F77_sgbmv()  argument
204            A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_sgbmv()
209         A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_sgbmv()
214            A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_sgbmv()
222 		  a, *lda, x, *incx, *beta, y, *incy );  in F77_sgbmv()
226 	      int *n, int *k, float *a, int *lda, float *x, int *incx) {  in F77_stbmv()  argument
245               A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_stbmv()
250            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_stbmv()
256           A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_stbmv()
261              A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_stbmv()
268      cblas_stbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);  in F77_stbmv()
272 	      int *n, int *k, float *a, int *lda, float *x, int *incx) {  in F77_stbsv()  argument
291            A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_stbsv()
296            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_stbsv()
302            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_stbsv()
307               A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_stbsv()
314      cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);  in F77_stbsv()
318 	      float *a, int *lda, float *x, int *incx, float *beta,   in F77_ssbmv()  argument
334         A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_ssbmv()
339            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_ssbmv()
345            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_ssbmv()
350               A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_ssbmv()
358      cblas_ssbmv(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx,  in F77_ssbmv()