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