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

newG2L
Cirdans-Home 4 years ago
commit fdd1da6fa1

@ -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,8 +287,7 @@ 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);
} }

Loading…
Cancel
Save