Added log message.

8 years ago · 6c14195451
parent e72e25f5e7
commit 6c14195451
4 changed files with 8 additions and 4 deletions
--- 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_)
--- 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_)
--- 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_)
--- 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_)