static int DTPUMatOuterProduct(void* AA, double alpha, double x[], int n){ dtpumat* A=(dtpumat*) AA; ffinteger ione=1,N=n; double *v=A->val; char UPLO=A->UPLO; dspr(&UPLO,&N,&alpha,x,&ione,v); return 0; }
static int DTPUMatOuterProduct(void* AA, double alpha, double x[], int n){ //printf("File %s line %d DTPUMatOuterProduct with address %d\n",__FILE__, __LINE__,&DTPUMatOuterProduct); dtpumat* A=(dtpumat*) AA; ffinteger ione=1,N=n; double *v=A->val; char UPLO=A->UPLO; dspr(&UPLO,&N,&alpha,x,&ione,v); return 0; }