From e036be577b1cfeaacbe9598ab394ab1c229ceb5a Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 30 Jun 2015 15:13:02 +0000
Subject: [PATCH] Summary: psblas3-submodules: No IMPORT in module subroutines

---
 base/modules/psb_error_mod.F90 | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90
index b9c90bdf9..a3f443d8e 100644
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@@ -68,11 +68,9 @@ module psb_error_mod
 
   interface psb_error_handler
     module subroutine psb_ser_error_handler(err_act)
-      import :: psb_ipk_
       integer(psb_ipk_), intent(inout) ::  err_act
     end subroutine psb_ser_error_handler
     module subroutine psb_par_error_handler(ictxt,err_act)
-      import :: psb_ipk_,psb_mpik_
       integer(psb_mpik_), intent(in) ::  ictxt
       integer(psb_ipk_), intent(in) ::  err_act
     end subroutine psb_par_error_handler
@@ -82,7 +80,6 @@ module psb_error_mod
     module subroutine psb_serror()
     end subroutine psb_serror
     module subroutine psb_perror(ictxt,abrt)
-      import :: psb_mpik_
       integer(psb_mpik_), intent(in) ::  ictxt
       logical, intent(in), optional  :: abrt
     end subroutine psb_perror
@@ -91,7 +88,6 @@ module psb_error_mod
 
   interface psb_error_print_stack
     module subroutine psb_par_error_print_stack(ictxt)
-      import :: psb_ipk_,psb_mpik_
       integer(psb_mpik_), intent(in) ::  ictxt
     end subroutine psb_par_error_print_stack
     module subroutine psb_ser_error_print_stack()
@@ -100,7 +96,6 @@ module psb_error_mod
 
   interface psb_errcomm
     module subroutine psb_errcomm(ictxt, err)
-      import :: psb_mpik_, psb_ipk_
       integer(psb_mpik_), intent(in)   :: ictxt
       integer(psb_ipk_), intent(inout):: err
     end subroutine psb_errcomm