From 50bca41108bddb68befcc28d0dc2f2051fa437cb Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 25 Apr 2018 17:06:56 +0100
Subject: [PATCH] Fix glist_map_mod init.

---
 base/modules/desc/psb_glist_map_mod.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/base/modules/desc/psb_glist_map_mod.f90 b/base/modules/desc/psb_glist_map_mod.f90
index 154916d3..4dc60b51 100644
--- a/base/modules/desc/psb_glist_map_mod.f90
+++ b/base/modules/desc/psb_glist_map_mod.f90
@@ -101,7 +101,8 @@ contains
     integer(psb_ipk_), intent(out) :: info
     !  To be implemented
     integer(psb_mpk_) :: iam, np
-    integer(psb_ipk_) :: i, n, nl
+    integer(psb_ipk_) :: nl
+    integer(psb_lpk_) :: i, n
     
 
     info = 0