Fix build error.

7 years ago · d7537326ea
parent 0f92cd617c
commit d7537326ea
1 changed files with 1 additions and 1 deletions
--- a/base/tools/psb_cd_renum_block.F90
+++ b/base/tools/psb_cd_renum_block.F90
@ -81,7 +81,7 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info)
  if (desc_in%is_ovl()) then
    write(0,*) 'Warning: descriptor with overlap, not going to clone into BLOCK'
  else
-    select type (desc_in%indxmap)
+    select type (idmapin => desc_in%indxmap)
      class is (psb_gen_block_map)
        call psb_erractionrestore(err_act)
        return