Reuse GEN_BLOCK_MAP if already on input.

new-parstruct
Salvatore Filippone 6 years ago
parent 0b28b0fc4b
commit 0f92cd617c

@ -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

Loading…
Cancel
Save