Fixes for IPK8

base/modules/desc/psb_hash_map_mod.F90

@@ -118,7 +118,7 @@ module psb_hash_map_mod
   end interface hash_inner_cnv
   private :: hash_inner_cnv
   interface hash_srch 
-#if defined(PSB_LPK8)
+#if defined(PSB_IPK4) && defined(PSB_LPK8)
     module procedure  hash_srch_ipk, hash_srch_lpk
 #else
     module procedure hash_srch_ipk
@@ -1502,8 +1502,8 @@ contains
     end if
   end function hash_srch_ipk
 
-#if defined(PSB_LPK8) 
-  function hash_srch_lpk(key,idx,nh,glb_lc) result(res)i
+#if defined(PSB_IPK4) && defined(PSB_LPK8) 
+  function hash_srch_lpk(key,idx,nh,glb_lc) result(res)
     integer(psb_lpk_), intent(in) :: key
     integer(psb_lpk_), intent(in) :: glb_lc(:)
     integer(psb_lpk_), intent(in) :: idx

base/modules/psb_error_mod.F90

@@ -100,18 +100,18 @@ module psb_error_mod
   end interface
 
   interface psb_errcomm
-#if defined(PSB_IPK8)
-    subroutine psb_errcomm_m(ctxt, err)
-      import :: psb_ipk_, psb_mpk_, psb_ctxt_type
-      type(pxb_ctxt_type), intent(in)  :: ctxt
-      integer(psb_ipk_), intent(inout) :: err
-    end subroutine psb_errcomm_m
-#endif    
     subroutine psb_errcomm_i(ctxt, err)
       import :: psb_ipk_, psb_ctxt_type
       type(psb_ctxt_type), intent(in)  :: ctxt
       integer(psb_ipk_), intent(inout) :: err
     end subroutine psb_errcomm_i
+#if defined(PSB_IPK8)
+    subroutine psb_errcomm_m(ctxt, err)
+      import :: psb_ipk_, psb_mpk_, psb_ctxt_type
+      type(psb_ctxt_type), intent(in)  :: ctxt
+      integer(psb_mpk_), intent(inout) :: err
+    end subroutine psb_errcomm_m
+#endif    
   end interface psb_errcomm
 
   interface psb_errpop