Fixed name of psi_i_renum_index subroutine

newG2L
Cirdans-Home 4 years ago
parent a2db4b8b5c
commit 297be776ca

@ -30,7 +30,7 @@
!
!
subroutine psi_renum_index(iperm,idx,info)
subroutine psi_i_renum_index(iperm,idx,info)
use psi_mod, psi_protect_name => psi_renum_index
use psb_serial_mod
implicit none
@ -58,7 +58,7 @@ subroutine psi_renum_index(iperm,idx,info)
k = idx(i)
enddo
end subroutine psi_renum_index
end subroutine psi_i_renum_index
subroutine psi_i_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info, mold)
@ -263,4 +263,3 @@ subroutine psi_i_bld_ovr_mst(me,ovrlap_elem,mst_idx,info)
return
end subroutine psi_i_bld_ovr_mst

Loading…
Cancel
Save