|
|
@ -263,13 +263,16 @@ int T_spsvCSRGDevice(T_Cmat *Matrix, TYPE alpha, void *deviceX,
|
|
|
|
vY=y->v_;
|
|
|
|
vY=y->v_;
|
|
|
|
CHECK_CUSPARSE( cusparseCreateDnVec(&vecY, cMat->m, vY, CUSPARSE_BASE_TYPE) );
|
|
|
|
CHECK_CUSPARSE( cusparseCreateDnVec(&vecY, cMat->m, vY, CUSPARSE_BASE_TYPE) );
|
|
|
|
CHECK_CUSPARSE( cusparseCreateDnVec(&vecX, cMat->n, vX, CUSPARSE_BASE_TYPE) );
|
|
|
|
CHECK_CUSPARSE( cusparseCreateDnVec(&vecX, cMat->n, vX, CUSPARSE_BASE_TYPE) );
|
|
|
|
|
|
|
|
if (T_CSRGIsNullMvDescr(cMat)) {
|
|
|
|
|
|
|
|
cMat->spmvDescr = (cusparseSpMatDescr_t *) malloc(sizeof(cusparseSpMatDescr_t *));
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
T_CSRGCreateSpMVDescr(cMat);
|
|
|
|
// fprintf(stderr,"Entry to SpSVDevice: %d %p\n",
|
|
|
|
// fprintf(stderr,"Entry to SpSVDevice: %d %p\n",
|
|
|
|
// T_CSRGIsNullSvDescr(cMat),cMat->spsvDescr);
|
|
|
|
// T_CSRGIsNullSvDescr(cMat),cMat->spsvDescr);
|
|
|
|
if (T_CSRGIsNullSvDescr(cMat)) {
|
|
|
|
if (T_CSRGIsNullSvDescr(cMat)) {
|
|
|
|
cMat->spsvDescr=(cusparseSpSVDescr_t *) malloc(sizeof(cusparseSpSVDescr_t *));
|
|
|
|
cMat->spsvDescr=(cusparseSpSVDescr_t *) malloc(sizeof(cusparseSpSVDescr_t *));
|
|
|
|
cMat->svbsize=0;
|
|
|
|
cMat->svbsize=0;
|
|
|
|
CHECK_CUSPARSE( cusparseSpSV_createDescr(cMat->spsvDescr) );
|
|
|
|
CHECK_CUSPARSE( cusparseSpSV_createDescr(cMat->spsvDescr) );
|
|
|
|
}
|
|
|
|
|
|
|
|
//fprintf(stderr,"Entry to SpSVDevice: %d %p %d\n",
|
|
|
|
//fprintf(stderr,"Entry to SpSVDevice: %d %p %d\n",
|
|
|
|
// T_CSRGIsNullSvDescr(cMat),cMat->spsvDescr,cMat->svbsize);
|
|
|
|
// T_CSRGIsNullSvDescr(cMat),cMat->spsvDescr,cMat->svbsize);
|
|
|
|
CHECK_CUSPARSE(cusparseSpSV_bufferSize(*my_handle,CUSPARSE_OPERATION_NON_TRANSPOSE,
|
|
|
|
CHECK_CUSPARSE(cusparseSpSV_bufferSize(*my_handle,CUSPARSE_OPERATION_NON_TRANSPOSE,
|
|
|
@ -298,7 +301,7 @@ int T_spsvCSRGDevice(T_Cmat *Matrix, TYPE alpha, void *deviceX,
|
|
|
|
if (T_CSRGIsNullSvBuffer(cMat)) {
|
|
|
|
if (T_CSRGIsNullSvBuffer(cMat)) {
|
|
|
|
fprintf(stderr,"SpSV_SOLVE NULL spsv-buffer\n");
|
|
|
|
fprintf(stderr,"SpSV_SOLVE NULL spsv-buffer\n");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
T_CSRGCreateSpMVDescr(cMat);
|
|
|
|
}
|
|
|
|
CHECK_CUSPARSE(cusparseSpSV_solve(*my_handle,CUSPARSE_OPERATION_NON_TRANSPOSE,
|
|
|
|
CHECK_CUSPARSE(cusparseSpSV_solve(*my_handle,CUSPARSE_OPERATION_NON_TRANSPOSE,
|
|
|
|
&alpha,*(cMat->spmvDescr),vecX,vecY,
|
|
|
|
&alpha,*(cMat->spmvDescr),vecX,vecY,
|
|
|
|
CUSPARSE_BASE_TYPE,
|
|
|
|
CUSPARSE_BASE_TYPE,
|
|
|
|