From 3f08263eb6b428a504cd6f589145babfc8002872 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sun, 2 Feb 2020 11:38:15 +0000
Subject: [PATCH] Pretty-printing fixes

---
 base/modules/desc/psb_hash_mod.F90 | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/base/modules/desc/psb_hash_mod.F90 b/base/modules/desc/psb_hash_mod.F90
index 76c02fc5..42911e3f 100644
--- a/base/modules/desc/psb_hash_mod.F90
+++ b/base/modules/desc/psb_hash_mod.F90
@@ -64,8 +64,11 @@ module psb_hash_mod
   end type psb_hash_type
 
 
-  integer(psb_ipk_), parameter  :: HashDuplicate = 123, HashOK=0, HashOutOfMemory=-512,&
-       & HashFreeEntry = -1, HashNotFound = -256
+  integer(psb_ipk_), parameter  :: HashOK=0
+  integer(psb_ipk_), parameter  :: HashDuplicate = 123
+  integer(psb_ipk_), parameter  :: HashOutOfMemory=-512
+  integer(psb_ipk_), parameter  :: HashFreeEntry = -1
+  integer(psb_ipk_), parameter  :: HashNotFound = -256
 
   interface psb_hashval
 #if defined(IPK4)     
@@ -391,7 +394,7 @@ contains
       hd = 1
     else 
       hd = hsize - hk 
-      hd = ior(hd,1)
+      hd = ior(hd,1_psb_ipk_)
     end if
     if (.not.allocated(hash%table)) then
       info = HashOutOfMemory
@@ -451,7 +454,7 @@ contains
       hd = 1
     else 
       hd = hsize - hk 
-      hd = ior(hd,1)
+      hd = ior(hd,1_psb_ipk_)
     end if
     if (.not.allocated(hash%table)) then
       info = HashOutOfMemory
@@ -515,7 +518,7 @@ contains
       hd = 1
     else 
       hd = hsize - hk 
-      hd = ior(hd,1)
+      hd = ior(hd,1_psb_ipk_)
     end if
     
     hash%nsrch = hash%nsrch + 1
@@ -555,7 +558,7 @@ contains
       hd = 1
     else 
       hd = hsize - hk 
-      hd = ior(hd,1)
+      hd = ior(hd,1_psb_ipk_)
     end if
     
     hash%nsrch = hash%nsrch + 1