364   float *A,*AP;  in F77_sspmv()  local
373      AP  = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );  in F77_sspmv()
380               AP[ k ]=A[ LDA*i+j ];  in F77_sspmv()
388               AP[ k ]=A[ LDA*i+j ];  in F77_sspmv()
390      cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,   in F77_sspmv()
392      free(A); free(AP);  in F77_sspmv()
401   float *A, *AP;  in F77_stpmv()  local
414      AP  = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );  in F77_stpmv()
421               AP[ k ]=A[ LDA*i+j ];  in F77_stpmv()
429               AP[ k ]=A[ LDA*i+j ];  in F77_stpmv()
431      cblas_stpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_stpmv()
432      free(A); free(AP);  in F77_stpmv()
440   float *A, *AP;  in F77_stpsv()  local
453      AP  = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );  in F77_stpsv()
460               AP[ k ]=A[ LDA*i+j ];  in F77_stpsv()
469               AP[ k ]=A[ LDA*i+j ];  in F77_stpsv()
471      cblas_stpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_stpsv()
472      free(A); free(AP);  in F77_stpsv()
480   float *A, *AP;  in F77_sspr()  local
489      AP  = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );  in F77_sspr()
496               AP[ k ]=A[ LDA*i+j ];  in F77_sspr()
504               AP[ k ]=A[ LDA*i+j ];  in F77_sspr()
506      cblas_sspr( CblasRowMajor, uplo, *n, *alpha, x, *incx, AP );  in F77_sspr()
510               A[ LDA*i+j ]=AP[ k ];  in F77_sspr()
518               A[ LDA*i+j ]=AP[ k ];  in F77_sspr()
523      free(A); free(AP);  in F77_sspr()
531   float *A, *AP;  in F77_sspr2()  local
540      AP  = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );  in F77_sspr2()
547               AP[ k ]=A[ LDA*i+j ];  in F77_sspr2()
555               AP[ k ]=A[ LDA*i+j ];  in F77_sspr2()
557      cblas_sspr2( CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, AP );  in F77_sspr2()
561               A[ LDA*i+j ]=AP[ k ];  in F77_sspr2()
569               A[ LDA*i+j ]=AP[ k ];  in F77_sspr2()
575      free(AP);  in F77_sspr2()