From 6093d6a6855890a9b76d75725376dc9d67b521c7 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 21 Feb 2007 15:06:53 +0000 Subject: [PATCH] Fixed wrong USE rename statement. --- base/internals/psi_idx_ins_cnv.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/internals/psi_idx_ins_cnv.f90 b/base/internals/psi_idx_ins_cnv.f90 index d774b114..4e751248 100644 --- 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