Lines Matching refs:my_id
1 subroutine hbread3(filename, mapopt, my_id, nprocs, nrow, split, argument
8 integer ierr, iou, mapopt, mpicom, msglvl, my_id, nmax,
80 if (my_id.eq.iroot) then
191 print *, 'HBREAD3: PE', my_id, ' failed MPI_BCAST. IERR=', ierr
197 nrow = split(my_id+2) - split(my_id+1)
202 if (my_id.eq.iroot) then
207 print *, 'HBREAD3 failed to allocate IA array on PE', my_id
215 if (my_id.eq.iroot) then
229 if (msglvl.gt.10)print *, 'PE', my_id, ' sending ', nelm,
237 else if (my_id.eq.ipe) then
238 if (msglvl.gt.10)print *, 'PE', my_id, ' waiting for ',
255 if (my_id.eq.iroot .and. j.le.nrow) then
269 if (my_id.eq.iroot) then
273 & my_id
279 if (my_id.eq.iroot) then
293 print *, 'HBREAD3 failed to allocate JA/A array on PE', my_id
301 if (my_id.eq.iroot) then
315 if (msglvl.gt.10)print *, 'PE', my_id, ' sending ', nelm,
322 else if (my_id.eq.ipe) then
323 if (msglvl.gt.10)print *, 'PE', my_id, ' waiting for ', nnz,
329 print *, 'HBREAD3: PE ', my_id, ' received ', nelm,
340 if (my_id.eq.iroot .and. j.lt.nnz) then
348 if (my_id.eq.iroot) then
362 if (msglvl.gt.10)print *, 'PE', my_id, ' sending ', nelm,
369 else if (my_id.eq.ipe) then
370 if (msglvl.gt.10)print *, 'PE', my_id, ' waiting for ', nnz,
376 print *, 'HBREAD3: PE ', my_id, ' received ', nelm,
387 if (my_id.eq.iroot) then