Reuse GEN_BLOCK_MAP if already on input.

base/tools/psb_cd_renum_block.F90

@@ -81,6 +81,12 @@ 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)
+      class is (psb_gen_block_map)
+        call psb_erractionrestore(err_act)
+        return
+
+      class default
         !
         ! Ok, convert into a GEN BLOCK. 
         !
@@ -145,6 +151,7 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info)
         goto 9999
       endif
       call move_alloc(blck_map,desc_out%indxmap)
+    end select
   end if
 
   if (info /= psb_success_) then