Fixed wrong USE rename statement.

This commit is contained in:
Salvatore Filippone
2007-02-21 15:06:53 +00:00
parent 217e6b2a52
commit 6093d6a685
+1 -1
View File
@@ -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