Fixed interface of extract_dep_list.

5 years ago · 6ae77cb3ac
parent e73e736188
commit 6ae77cb3ac
1 changed files with 0 additions and 1 deletions
--- a/base/modules/psi_i_mod.f90
+++ b/base/modules/psi_i_mod.f90
@ -101,7 +101,6 @@ module psi_i_mod
    subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
         & length_dl,dl_lda,mode,info)
      import 
-      implicit none 
      logical,  intent(in)           :: is_bld, is_upd
      integer(psb_ipk_), intent(in)  :: ictxt,mode
      integer(psb_ipk_), intent(out) :: dl_lda