diff --git a/base/modules/psi_i_mod.f90 b/base/modules/psi_i_mod.f90
index 2913abf2..d2038a14 100644
--- 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