From e72e25f5e7b19ffeaa73375cd9b7cd89c9ef135e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 21 Apr 2018 08:06:50 +0100 Subject: [PATCH] Fixed missing declarat. --- base/tools/psb_cspalloc.f90 | 2 +- base/tools/psb_dspalloc.f90 | 2 +- base/tools/psb_sspalloc.f90 | 2 +- base/tools/psb_zspalloc.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index ddf11ef3..cc9ea52e 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/base/tools/psb_cspalloc.f90 @@ -53,7 +53,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz) !locals integer(psb_ipk_) :: ictxt, np, me, err_act - integer(psb_ipk_) :: loc_row,loc_col, nnz_ + integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype integer(psb_lpk_) :: m, n integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index 1a57e3f5..41c3b7c2 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/base/tools/psb_dspalloc.f90 @@ -53,7 +53,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) !locals integer(psb_ipk_) :: ictxt, np, me, err_act - integer(psb_ipk_) :: loc_row,loc_col, nnz_ + integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype integer(psb_lpk_) :: m, n integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index e2fe7b27..a72f268f 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/base/tools/psb_sspalloc.f90 @@ -53,7 +53,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz) !locals integer(psb_ipk_) :: ictxt, np, me, err_act - integer(psb_ipk_) :: loc_row,loc_col, nnz_ + integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype integer(psb_lpk_) :: m, n integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index acdcf8b9..c4685a87 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -53,7 +53,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) !locals integer(psb_ipk_) :: ictxt, np, me, err_act - integer(psb_ipk_) :: loc_row,loc_col, nnz_ + integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype integer(psb_lpk_) :: m, n integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name