Lines Matching defs:AP
362 void F77_dspmv(int *order, char *uplow, int *n, double *alpha, double *ap,
364 double *A,*AP;
373 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );
377 A[ LDA*i+j ]=ap[ k ];
380 AP[ k ]=A[ LDA*i+j ];
385 A[ LDA*i+j ]=ap[ k ];
388 AP[ k ]=A[ LDA*i+j ];
390 cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
393 free(AP);
396 cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
401 int *n, double *ap, double *x, int *incx) {
402 double *A, *AP;
415 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );
419 A[ LDA*i+j ]=ap[ k ];
422 AP[ k ]=A[ LDA*i+j ];
427 A[ LDA*i+j ]=ap[ k ];
430 AP[ k ]=A[ LDA*i+j ];
432 cblas_dtpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );
434 free(AP);
437 cblas_dtpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
441 int *n, double *ap, double *x, int *incx) {
442 double *A, *AP;
455 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );
459 A[ LDA*i+j ]=ap[ k ];
462 AP[ k ]=A[ LDA*i+j ];
468 A[ LDA*i+j ]=ap[ k ];
471 AP[ k ]=A[ LDA*i+j ];
473 cblas_dtpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );
475 free(AP);
478 cblas_dtpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
482 int *incx, double *ap ){
483 double *A, *AP;
492 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );
496 A[ LDA*i+j ]=ap[ k ];
499 AP[ k ]=A[ LDA*i+j ];
504 A[ LDA*i+j ]=ap[ k ];
507 AP[ k ]=A[ LDA*i+j ];
509 cblas_dspr( CblasRowMajor, uplo, *n, *alpha, x, *incx, AP );
513 A[ LDA*i+j ]=AP[ k ];
516 ap[ k ]=A[ LDA*i+j ];
521 A[ LDA*i+j ]=AP[ k ];
524 ap[ k ]=A[ LDA*i+j ];
527 free(AP);
530 cblas_dspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
534 int *incx, double *y, int *incy, double *ap ){
535 double *A, *AP;
544 AP = ( double* )malloc( (((LDA+1)*LDA)/2)*sizeof( double ) );
548 A[ LDA*i+j ]=ap[ k ];
551 AP[ k ]=A[ LDA*i+j ];
556 A[ LDA*i+j ]=ap[ k ];
559 AP[ k ]=A[ LDA*i+j ];
561 cblas_dspr2( CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, AP );
565 A[ LDA*i+j ]=AP[ k ];
568 ap[ k ]=A[ LDA*i+j ];
573 A[ LDA*i+j ]=AP[ k ];
576 ap[ k ]=A[ LDA*i+j ];
579 free(AP);
582 cblas_dspr2( CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, ap );
