From 6c141954512723aad6070d3179d3dc08d7f20591 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 21 Apr 2018 08:09:01 +0100 Subject: [PATCH] Added log message. --- base/tools/psb_cspalloc.f90 | 3 ++- base/tools/psb_dspalloc.f90 | 3 ++- base/tools/psb_sspalloc.f90 | 3 ++- base/tools/psb_zspalloc.f90 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index cc9ea52e..be100ceb 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/base/tools/psb_cspalloc.f90 @@ -95,7 +95,8 @@ subroutine psb_cspalloc(a, desc_a, info, nnz) endif if (debug_level >= psb_debug_ext_) & - & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_ + & write(debug_unit,*) me,' ',trim(name), & + & ':allocating size:',loc_row,loc_col,nnz_ call a%free() !....allocate aspk, ia1, ia2..... call a%csall(loc_row,loc_col,info,nz=nnz_) diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index 41c3b7c2..e201e219 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/base/tools/psb_dspalloc.f90 @@ -95,7 +95,8 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) endif if (debug_level >= psb_debug_ext_) & - & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_ + & write(debug_unit,*) me,' ',trim(name), & + & ':allocating size:',loc_row,loc_col,nnz_ call a%free() !....allocate aspk, ia1, ia2..... call a%csall(loc_row,loc_col,info,nz=nnz_) diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index a72f268f..98092ea0 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/base/tools/psb_sspalloc.f90 @@ -95,7 +95,8 @@ subroutine psb_sspalloc(a, desc_a, info, nnz) endif if (debug_level >= psb_debug_ext_) & - & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_ + & write(debug_unit,*) me,' ',trim(name), & + & ':allocating size:',loc_row,loc_col,nnz_ call a%free() !....allocate aspk, ia1, ia2..... call a%csall(loc_row,loc_col,info,nz=nnz_) diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index c4685a87..777e24ed 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -95,7 +95,8 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) endif if (debug_level >= psb_debug_ext_) & - & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_ + & write(debug_unit,*) me,' ',trim(name), & + & ':allocating size:',loc_row,loc_col,nnz_ call a%free() !....allocate aspk, ia1, ia2..... call a%csall(loc_row,loc_col,info,nz=nnz_)