From e445819960bac511d12188dab487bea805ed9656 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 20 Nov 2020 13:21:04 +0100
Subject: [PATCH] Fix wrong subroutine name ref.

---
 base/internals/psi_bld_glb_dep_list.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/base/internals/psi_bld_glb_dep_list.F90 b/base/internals/psi_bld_glb_dep_list.F90
index e415ffd2..f43e5f17 100644
--- a/base/internals/psi_bld_glb_dep_list.F90
+++ b/base/internals/psi_bld_glb_dep_list.F90
@@ -29,8 +29,8 @@
 !    POSSIBILITY OF SUCH DAMAGE.
 !   
 !    
-subroutine psi_i_bld_glb_csr_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,info)
-  use psi_mod, psb_protect_name => psi_i_bld_glb_csr_dep_list
+subroutine psi_i_bld_glb_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,info)
+  use psi_mod, psb_protect_name => psi_i_bld_glb_dep_list
 #ifdef MPI_MOD
   use mpi
 #endif
@@ -123,4 +123,4 @@ subroutine psi_i_bld_glb_csr_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,in
 
   return
 
-end subroutine psi_i_bld_glb_csr_dep_list
+end subroutine psi_i_bld_glb_dep_list