364   double *A,*AP;  in F77_dspmv()  local
373      AP  = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );  in F77_dspmv()
380               AP[ k ]=A[ LDA*i+j ];  in F77_dspmv()
388               AP[ k ]=A[ LDA*i+j ];  in F77_dspmv()
390      cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,   in F77_dspmv()
393      free(AP);  in F77_dspmv()
402   double *A, *AP;  in F77_dtpmv()  local
415      AP  = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );  in F77_dtpmv()
422               AP[ k ]=A[ LDA*i+j ];  in F77_dtpmv()
430               AP[ k ]=A[ LDA*i+j ];  in F77_dtpmv()
432      cblas_dtpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_dtpmv()
434      free(AP);  in F77_dtpmv()
442   double *A, *AP;  in F77_dtpsv()  local
455      AP  = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );  in F77_dtpsv()
462               AP[ k ]=A[ LDA*i+j ];  in F77_dtpsv()
471               AP[ k ]=A[ LDA*i+j ];  in F77_dtpsv()
473      cblas_dtpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_dtpsv()
475      free(AP);  in F77_dtpsv()
483   double *A, *AP;  in F77_dspr()  local
492      AP  = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );  in F77_dspr()
499               AP[ k ]=A[ LDA*i+j ];  in F77_dspr()
507               AP[ k ]=A[ LDA*i+j ];  in F77_dspr()
509      cblas_dspr( CblasRowMajor, uplo, *n, *alpha, x, *incx, AP );  in F77_dspr()
513               A[ LDA*i+j ]=AP[ k ];  in F77_dspr()
521               A[ LDA*i+j ]=AP[ k ];  in F77_dspr()
527      free(AP);  in F77_dspr()
535   double *A, *AP;  in F77_dspr2()  local
544      AP  = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );  in F77_dspr2()
551               AP[ k ]=A[ LDA*i+j ];  in F77_dspr2()
559               AP[ k ]=A[ LDA*i+j ];  in F77_dspr2()
561      cblas_dspr2( CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, AP );  in F77_dspr2()
565               A[ LDA*i+j ]=AP[ k ];  in F77_dspr2()
573               A[ LDA*i+j ]=AP[ k ];  in F77_dspr2()
579      free(AP);  in F77_dspr2()