fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 19:32:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Pretty-printing fixes

Browse Source
This commit is contained in:
Salvatore Filippone
2020-02-02 11:38:15 +00:00
parent af14080a34
commit 3f08263eb6
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_hash_mod.F90
+9 -6
View File
@@ -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