fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added log message.

Browse Source
ILmat
Salvatore Filippone 8 years ago
parent e72e25f5e7
commit 6c14195451
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File

3
base/tools/psb_cspalloc.f90
Unescape Escape View File

@ -95,7 +95,8 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
endif endif
if (debug_level >= psb_debug_ext_) & 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() call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=nnz_) call a%csall(loc_row,loc_col,info,nz=nnz_)

3
base/tools/psb_dspalloc.f90
Unescape Escape View File

@ -95,7 +95,8 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
endif endif
if (debug_level >= psb_debug_ext_) & 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() call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=nnz_) call a%csall(loc_row,loc_col,info,nz=nnz_)

3
base/tools/psb_sspalloc.f90
Unescape Escape View File

@ -95,7 +95,8 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
endif endif
if (debug_level >= psb_debug_ext_) & 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() call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=nnz_) call a%csall(loc_row,loc_col,info,nz=nnz_)

3
base/tools/psb_zspalloc.f90
Unescape Escape View File

@ -95,7 +95,8 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
endif endif
if (debug_level >= psb_debug_ext_) & 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() call a%free()
!....allocate aspk, ia1, ia2..... !....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=nnz_) call a%csall(loc_row,loc_col,info,nz=nnz_)

Write Preview
Loading…
Cancel
Save