From a5479895e85b43a2b4915b6e2cafcffdc8343e85 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 29 May 2018 15:16:06 +0100
Subject: [PATCH] Fix LD compilation.

---
 base/modules/serial/psb_c_base_mat_mod.f90  |  6 +++---
 base/modules/serial/psb_d_base_mat_mod.f90  |  6 +++---
 base/modules/serial/psb_ld_base_mat_mod.f90 | 12 ++++++------
 base/modules/serial/psb_s_base_mat_mod.f90  |  6 +++---
 base/modules/serial/psb_z_base_mat_mod.f90  |  6 +++---
 5 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/base/modules/serial/psb_c_base_mat_mod.f90 b/base/modules/serial/psb_c_base_mat_mod.f90
index a0c69db5..af18d45a 100644
--- a/base/modules/serial/psb_c_base_mat_mod.f90
+++ b/base/modules/serial/psb_c_base_mat_mod.f90
@@ -1905,9 +1905,9 @@ contains
     if (allocated(a%ja)) deallocate(a%ja)
     if (allocated(a%val)) deallocate(a%val)
     call a%set_null()
-    call a%set_nrows(izero)
-    call a%set_ncols(izero)
-    call a%set_nzeros(izero)
+    call a%set_nrows(0_psb_ipk_)
+    call a%set_ncols(0_psb_ipk_)
+    call a%set_nzeros(0_psb_ipk_)
     call a%set_sort_status(psb_unsorted_)
     
     return
diff --git a/base/modules/serial/psb_d_base_mat_mod.f90 b/base/modules/serial/psb_d_base_mat_mod.f90
index e1a6da3d..c2fcd6a4 100644
--- a/base/modules/serial/psb_d_base_mat_mod.f90
+++ b/base/modules/serial/psb_d_base_mat_mod.f90
@@ -1905,9 +1905,9 @@ contains
     if (allocated(a%ja)) deallocate(a%ja)
     if (allocated(a%val)) deallocate(a%val)
     call a%set_null()
-    call a%set_nrows(izero)
-    call a%set_ncols(izero)
-    call a%set_nzeros(izero)
+    call a%set_nrows(0_psb_ipk_)
+    call a%set_ncols(0_psb_ipk_)
+    call a%set_nzeros(0_psb_ipk_)
     call a%set_sort_status(psb_unsorted_)
     
     return
diff --git a/base/modules/serial/psb_ld_base_mat_mod.f90 b/base/modules/serial/psb_ld_base_mat_mod.f90
index d2d69bd3..d1a4f192 100644
--- a/base/modules/serial/psb_ld_base_mat_mod.f90
+++ b/base/modules/serial/psb_ld_base_mat_mod.f90
@@ -1229,7 +1229,7 @@ module psb_ld_base_mat_mod
   interface
     subroutine  psb_ld_coo_reallocate_nz(nz,a) 
       import 
-      integer(psb_ipk_), intent(in) :: nz
+      integer(psb_lpk_), intent(in) :: nz
       class(psb_ld_coo_sparse_mat), intent(inout) :: a
     end subroutine psb_ld_coo_reallocate_nz
   end interface
@@ -1280,7 +1280,7 @@ module psb_ld_base_mat_mod
       import 
       integer(psb_lpk_), intent(in) :: m,n
       class(psb_ld_coo_sparse_mat), intent(inout) :: a
-      integer(psb_ipk_), intent(in), optional :: nz
+      integer(psb_lpk_), intent(in), optional :: nz
     end subroutine psb_ld_coo_allocate_mnnz
   end interface
 
@@ -1334,7 +1334,7 @@ module psb_ld_base_mat_mod
     function  psb_ld_coo_get_nz_row(idx,a) result(res)
       import 
       class(psb_ld_coo_sparse_mat), intent(in) :: a
-      integer(psb_ipk_), intent(in)                  :: idx
+      integer(psb_lpk_), intent(in)                  :: idx
       integer(psb_lpk_) :: res
     end function psb_ld_coo_get_nz_row
   end interface
@@ -1905,9 +1905,9 @@ contains
     if (allocated(a%ja)) deallocate(a%ja)
     if (allocated(a%val)) deallocate(a%val)
     call a%set_null()
-    call a%set_nrows(izero)
-    call a%set_ncols(izero)
-    call a%set_nzeros(izero)
+    call a%set_nrows(0_psb_lpk_)
+    call a%set_ncols(0_psb_lpk_)
+    call a%set_nzeros(0_psb_lpk_)
     call a%set_sort_status(psb_unsorted_)
     
     return
diff --git a/base/modules/serial/psb_s_base_mat_mod.f90 b/base/modules/serial/psb_s_base_mat_mod.f90
index 63eb5d25..42389ec9 100644
--- a/base/modules/serial/psb_s_base_mat_mod.f90
+++ b/base/modules/serial/psb_s_base_mat_mod.f90
@@ -1905,9 +1905,9 @@ contains
     if (allocated(a%ja)) deallocate(a%ja)
     if (allocated(a%val)) deallocate(a%val)
     call a%set_null()
-    call a%set_nrows(izero)
-    call a%set_ncols(izero)
-    call a%set_nzeros(izero)
+    call a%set_nrows(0_psb_ipk_)
+    call a%set_ncols(0_psb_ipk_)
+    call a%set_nzeros(0_psb_ipk_)
     call a%set_sort_status(psb_unsorted_)
     
     return
diff --git a/base/modules/serial/psb_z_base_mat_mod.f90 b/base/modules/serial/psb_z_base_mat_mod.f90
index db934099..a9690616 100644
--- a/base/modules/serial/psb_z_base_mat_mod.f90
+++ b/base/modules/serial/psb_z_base_mat_mod.f90
@@ -1905,9 +1905,9 @@ contains
     if (allocated(a%ja)) deallocate(a%ja)
     if (allocated(a%val)) deallocate(a%val)
     call a%set_null()
-    call a%set_nrows(izero)
-    call a%set_ncols(izero)
-    call a%set_nzeros(izero)
+    call a%set_nrows(0_psb_ipk_)
+    call a%set_ncols(0_psb_ipk_)
+    call a%set_nzeros(0_psb_ipk_)
     call a%set_sort_status(psb_unsorted_)
     
     return