fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed debug print

Browse Source
This commit is contained in:
Cirdans-Home
2020-10-13 11:40:44 +02:00
parent 98d65428c1
commit 460eb44d46
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_dbase.c
+9 -10
View File
@@ -4,27 +4,26 @@
psb_c_dvector* psb_c_new_dvector()
{
psb_c_dvector* temp;
temp=(psb_c_dvector *) malloc(sizeof(psb_c_dvector));
temp->dvector=NULL;
return(temp);
}
psb_d_t* psb_c_dvect_get_cpy(psb_c_dvector *xh)
{
{
psb_d_t *temp=NULL;
psb_i_t vsize=0;
if ((vsize=psb_c_dvect_get_nrows(xh))<0)
psb_i_t vsize=0;
if ((vsize=psb_c_dvect_get_nrows(xh))<0)
return(temp);
if (vsize==0)
if (vsize==0)
vsize=1;
if ((temp=(psb_d_t *)malloc(vsize*sizeof(psb_d_t)))!=NULL)
psb_c_dvect_f_get_cpy(temp,xh);
fprintf(stderr,"dvect_get_cpy: %lf\n",temp[0]);
return(temp);
}
@@ -33,7 +32,7 @@ psb_d_t* psb_c_dvect_get_cpy(psb_c_dvector *xh)
psb_c_dspmat* psb_c_new_dspmat()
{
psb_c_dspmat* temp;
temp=(psb_c_dspmat *) malloc(sizeof(psb_c_dspmat));
temp->dspmat=NULL;
return(temp);