fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Bunch of changes to take away most instances of unused variables.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-11-13 10:49:42 +00:00
parent c74f235783
commit f46a8b1131
159 changed files with 464 additions and 530 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_ialloc.f90
+4 -4
View File
@@ -56,10 +56,10 @@ subroutine psb_ialloc(x, desc_a, info, n)
!locals
integer :: np,me,err,n_col,n_row,i,j,err_act
integer :: np,me,n_col,n_row,i,j,err_act
integer :: ictxt,n_
integer :: int_err(5), exch(3)
character(len=20) :: name, ch_err
character(len=20) :: name
if(psb_get_errstatus() /= 0) return
info=0
@@ -204,10 +204,10 @@ subroutine psb_iallocv(x, desc_a, info,n)
!locals
integer :: np,me,n_col,n_row,err_act
integer :: ictxt, n_
integer :: ictxt
integer :: int_err(5)
logical, parameter :: debug=.false.
character(len=20) :: name, ch_err
character(len=20) :: name
if(psb_get_errstatus() /= 0) return
info=0