Fix wrong subroutine name ref.

4 years ago · e445819960
parent 025a4b5512
commit e445819960
1 changed files with 3 additions and 3 deletions
--- 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