12 	       double *a, int *lda, double *x, int *incx, double *beta,   in F77_dgemv()  argument
25            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dgemv()
32 		  *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );  in F77_dgemv()
35 		  *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );  in F77_dgemv()
39 	     double *y, int *incy, double *a, int *lda ) {  in F77_dger()  argument
50          A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dger()
56          a[ (*lda)*j+i ]=A[ LDA*i+j ];  in F77_dger()
60      cblas_dger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda );  in F77_dger()
64 	      int *n, double *a, int *lda, double *x, int *incx) {  in F77_dtrmv()  argument
80          A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dtrmv()
85      cblas_dtrmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx);  in F77_dtrmv()
87      cblas_dtrmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx);  in F77_dtrmv()
92 	       int *n, double *a, int *lda, double *x, int *incx ) {  in F77_dtrsv()  argument
108            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dtrsv()
113      cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );  in F77_dtrsv()
116 	      int *lda, double *x, int *incx, double *beta, double *y,  in F77_dsymv()  argument
129            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dsymv()
135      cblas_dsymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx,  in F77_dsymv()
140 	     int *incx, double *a, int *lda) {  in F77_dsyr()  argument
152            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dsyr()
156          a[ (*lda)*j+i ]=A[ LDA*i+j ];  in F77_dsyr()
160      cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);  in F77_dsyr()
164 	     int *incx, double *y, int *incy, double *a, int *lda) {  in F77_dsyr2()  argument
176            A[ LDA*i+j ]=a[ (*lda)*j+i ];  in F77_dsyr2()
180          a[ (*lda)*j+i ]=A[ LDA*i+j ];  in F77_dsyr2()
184      cblas_dsyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);  in F77_dsyr2()
188 	       double *alpha, double *a, int *lda, double *x, int *incx,   in F77_dgbmv()  argument
204            A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_dgbmv()
209         A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dgbmv()
214            A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_dgbmv()
222 		  a, *lda, x, *incx, *beta, y, *incy );  in F77_dgbmv()
226 	      int *n, int *k, double *a, int *lda, double *x, int *incx) {  in F77_dtbmv()  argument
245               A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_dtbmv()
250            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dtbmv()
256           A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dtbmv()
261              A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_dtbmv()
268      cblas_dtbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);  in F77_dtbmv()
272 	      int *n, int *k, double *a, int *lda, double *x, int *incx) {  in F77_dtbsv()  argument
291            A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_dtbsv()
296            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dtbsv()
302            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dtbsv()
307               A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_dtbsv()
314      cblas_dtbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);  in F77_dtbsv()
318 	      double *a, int *lda, double *x, int *incx, double *beta,   in F77_dsbmv()  argument
334         A[ LDA*(j-jcol)+irow ]=a[ (*lda)*j+i ];  in F77_dsbmv()
339            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dsbmv()
345            A[ LDA*j+irow ]=a[ (*lda)*j+i ];  in F77_dsbmv()
350               A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];  in F77_dsbmv()
358      cblas_dsbmv(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx,  in F77_dsbmv()