Fix glist_map_mod init.

8 years ago · 50bca41108
parent f915066b81
commit 50bca41108
1 changed files with 2 additions and 1 deletions
--- 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