fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'development' of github.com:sfilippone/psblas3 into development

Browse Source
newG2L
Cirdans-Home 4 years ago
parent a7ba9f7a7e a34cff2fdd
commit fdd1da6fa1
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File

3
cbind/test/pargen/ppdec.c
Unescape Escape View File

@ -276,8 +276,6 @@ int main(int argc, char *argv[])
psb_c_ibcast(*cctxt,1,&itrace,0); psb_c_ibcast(*cctxt,1,&itrace,0);
psb_c_ibcast(*cctxt,1,&irst,0); psb_c_ibcast(*cctxt,1,&irst,0);
fprintf(stderr,"%d Check on received: methd %s ptype %s afmt %s\n",
iam,methd,ptype,afmt);
fflush(stderr); fflush(stderr);
psb_c_barrier(*cctxt); psb_c_barrier(*cctxt);
@ -289,7 +287,6 @@ int main(int argc, char *argv[])
nb = (ng+np-1)/np; nb = (ng+np-1)/np;
nl = nb; nl = nb;
if ( (ng -iam*nb) < nl) nl = ng -iam*nb; if ( (ng -iam*nb) < nl) nl = ng -iam*nb;
fprintf(stderr,"%d: Input data %d %ld %d %d\n",iam,idim,ng,nb, nl);
if ((vl=malloc(nb*sizeof(psb_l_t)))==NULL) { if ((vl=malloc(nb*sizeof(psb_l_t)))==NULL) {
fprintf(stderr,"On %d: malloc failure\n",iam); fprintf(stderr,"On %d: malloc failure\n",iam);
psb_c_abort(*cctxt); psb_c_abort(*cctxt);

Write Preview
Loading…
Cancel
Save