fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix wrong subroutine name ref.

Browse Source
implement-ainv
Salvatore Filippone 4 years ago
parent 025a4b5512
commit e445819960
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File

6
base/internals/psi_bld_glb_dep_list.F90
Unescape Escape View File

@ -29,8 +29,8 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_i_bld_glb_csr_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,info) 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_csr_dep_list use psi_mod, psb_protect_name => psi_i_bld_glb_dep_list
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #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 return
end subroutine psi_i_bld_glb_csr_dep_list end subroutine psi_i_bld_glb_dep_list

Write Preview
Loading…
Cancel
Save