Fix wrong subroutine name ref.

implement-ainv
Salvatore Filippone 4 years ago
parent 025a4b5512
commit e445819960

@ -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

Loading…
Cancel
Save