示例#1
0
文件: dlpack.c 项目: BrechtBa/casadi
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;
}
示例#2
0
文件: dlpack.c 项目: weiwangudel/DSDP
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;
}