From 8cddedd02205cdee0ceaf711db9680f04e348294 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 2 Apr 2021 12:58:28 +0200 Subject: [PATCH] Fixed psi_protect_name --- base/internals/psi_desc_impl.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/internals/psi_desc_impl.f90 b/base/internals/psi_desc_impl.f90 index d9f7064a..a6859678 100644 --- a/base/internals/psi_desc_impl.f90 +++ b/base/internals/psi_desc_impl.f90 @@ -31,7 +31,7 @@ ! subroutine psi_i_renum_index(iperm,idx,info) - use psi_mod, psi_protect_name => psi_renum_index + use psi_mod, psi_protect_name => psi_i_renum_index use psb_serial_mod implicit none