Fixed wrong USE rename statement.

18 years ago · 6093d6a685
parent 217e6b2a52
commit 6093d6a685
1 changed files with 1 additions and 1 deletions
--- a/base/internals/psi_idx_ins_cnv.f90
+++ b/base/internals/psi_idx_ins_cnv.f90
@ -400,7 +400,7 @@ end subroutine psi_idx_ins_cnv2
 !!$ 
 !!$  
 subroutine psi_idx_ins_cnvs(idxin,idxout,desc,info,mask)
-  use psi_mod, psb_protect_name => psi_idx_cnvs
+  use psi_mod, psb_protect_name => psi_idx_ins_cnvs
  use psb_descriptor_type
  integer, intent(in)  :: idxin
  integer, intent(out) :: idxout