From 6ae77cb3ac3a7b88efd3b065abc3b7adeaa40a38 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 16 Jan 2020 09:49:09 +0000
Subject: [PATCH] Fixed interface of extract_dep_list.

---
 base/modules/psi_i_mod.f90 | 1 -
 1 file changed, 1 deletion(-)

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