Seemingly working version of D_REMAP. Minimal test of same.

2026-10-06 22:55:08 +00:00 · 2020-11-06 14:15:27 +01:00
parent 7c6ffcd4a2
commit 0adf2cbb3f
2 changed files with 95 additions and 18 deletions
@@ -697,7 +697,7 @@ program psb_d_pde3d
  if (iam == psb_root_) write(psb_out_unit,'(" ")')

  call psb_cd_renum_block(desc_a,desc_blk,info)
-  do rnp = 1, np/2+1
+  do rnp = 2, np/2+1
    if (iam == 0) write(0,*) 'Remapping from ',np,' to ',rnp
    flush(0)
    call psb_barrier(ictxt)