From b76530c6ecfcb6ebf7b869fa2bcc59734518ba2c Mon Sep 17 00:00:00 2001 From: sfilippone Date: Sun, 22 Apr 2018 21:18:03 +0100 Subject: [PATCH] Fix LPK for accumulator. --- base/modules/desc/psb_hash_map_mod.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/modules/desc/psb_hash_map_mod.f90 b/base/modules/desc/psb_hash_map_mod.f90 index df775c49..961eca2d 100644 --- a/base/modules/desc/psb_hash_map_mod.f90 +++ b/base/modules/desc/psb_hash_map_mod.f90 @@ -809,8 +809,8 @@ contains integer(psb_ipk_), intent(out) :: info ! To be implemented integer(psb_mpk_) :: iam, np - integer(psb_ipk_) :: i, nlu, nl, nrt,int_err(5) - integer(psb_lpk_) :: m + integer(psb_ipk_) :: i, nlu, nl, int_err(5) + integer(psb_lpk_) :: m, nrt integer(psb_lpk_), allocatable :: vlu(:) integer(psb_lpk_), allocatable :: ix(:) character(len=20), parameter :: name='hash_map_init_vl'