From af14080a34b89f30c033dd520c1353ff109a7b96 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sun, 2 Feb 2020 11:37:53 +0000
Subject: [PATCH] Initial fixes for IPK==LPK

---
 base/modules/tools/{psb_c_tools_mod.f90 => psb_c_tools_mod.F90} | 0
 .../tools/{psb_cd_tools_mod.f90 => psb_cd_tools_mod.F90}        | 2 ++
 base/modules/tools/{psb_d_tools_mod.f90 => psb_d_tools_mod.F90} | 0
 base/modules/tools/{psb_i_tools_mod.f90 => psb_i_tools_mod.F90} | 0
 base/modules/tools/{psb_l_tools_mod.f90 => psb_l_tools_mod.F90} | 0
 base/modules/tools/{psb_s_tools_mod.f90 => psb_s_tools_mod.F90} | 0
 base/modules/tools/{psb_z_tools_mod.f90 => psb_z_tools_mod.F90} | 0
 7 files changed, 2 insertions(+)
 rename base/modules/tools/{psb_c_tools_mod.f90 => psb_c_tools_mod.F90} (100%)
 rename base/modules/tools/{psb_cd_tools_mod.f90 => psb_cd_tools_mod.F90} (99%)
 rename base/modules/tools/{psb_d_tools_mod.f90 => psb_d_tools_mod.F90} (100%)
 rename base/modules/tools/{psb_i_tools_mod.f90 => psb_i_tools_mod.F90} (100%)
 rename base/modules/tools/{psb_l_tools_mod.f90 => psb_l_tools_mod.F90} (100%)
 rename base/modules/tools/{psb_s_tools_mod.f90 => psb_s_tools_mod.F90} (100%)
 rename base/modules/tools/{psb_z_tools_mod.f90 => psb_z_tools_mod.F90} (100%)

diff --git a/base/modules/tools/psb_c_tools_mod.f90 b/base/modules/tools/psb_c_tools_mod.F90
similarity index 100%
rename from base/modules/tools/psb_c_tools_mod.f90
rename to base/modules/tools/psb_c_tools_mod.F90
diff --git a/base/modules/tools/psb_cd_tools_mod.f90 b/base/modules/tools/psb_cd_tools_mod.F90
similarity index 99%
rename from base/modules/tools/psb_cd_tools_mod.f90
rename to base/modules/tools/psb_cd_tools_mod.F90
index 62d22ed3..09715318 100644
--- a/base/modules/tools/psb_cd_tools_mod.f90
+++ b/base/modules/tools/psb_cd_tools_mod.F90
@@ -122,6 +122,7 @@ module psb_cd_tools_mod
       logical, optional, target, intent(in)      :: mask(:)
       integer(psb_ipk_), intent(in), optional    :: lidx(:)
     end subroutine psb_cdinsc
+#if defined(IPK4) && defined(LPK8) 
     subroutine psb_lcdinsrc(nz,ia,ja,desc_a,info,ila,jla)
       import :: psb_ipk_, psb_lpk_, psb_desc_type
       type(psb_desc_type), intent(inout) :: desc_a
@@ -140,6 +141,7 @@ module psb_cd_tools_mod
       logical, optional, target, intent(in)      :: mask(:)
       integer(psb_ipk_), intent(in), optional    :: lidx(:)
     end subroutine psb_lcdinsc
+#endif
   end interface
 
   interface psb_cdbldext
diff --git a/base/modules/tools/psb_d_tools_mod.f90 b/base/modules/tools/psb_d_tools_mod.F90
similarity index 100%
rename from base/modules/tools/psb_d_tools_mod.f90
rename to base/modules/tools/psb_d_tools_mod.F90
diff --git a/base/modules/tools/psb_i_tools_mod.f90 b/base/modules/tools/psb_i_tools_mod.F90
similarity index 100%
rename from base/modules/tools/psb_i_tools_mod.f90
rename to base/modules/tools/psb_i_tools_mod.F90
diff --git a/base/modules/tools/psb_l_tools_mod.f90 b/base/modules/tools/psb_l_tools_mod.F90
similarity index 100%
rename from base/modules/tools/psb_l_tools_mod.f90
rename to base/modules/tools/psb_l_tools_mod.F90
diff --git a/base/modules/tools/psb_s_tools_mod.f90 b/base/modules/tools/psb_s_tools_mod.F90
similarity index 100%
rename from base/modules/tools/psb_s_tools_mod.f90
rename to base/modules/tools/psb_s_tools_mod.F90
diff --git a/base/modules/tools/psb_z_tools_mod.f90 b/base/modules/tools/psb_z_tools_mod.F90
similarity index 100%
rename from base/modules/tools/psb_z_tools_mod.f90
rename to base/modules/tools/psb_z_tools_mod.F90