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/modules/psb_check_mod.f90
+3 -3
View File
@@ -78,7 +78,7 @@ contains
! locals
integer :: err_act, int_err(5)
character(len=20) :: name, ch_err
character(len=20) :: name
if(psb_get_errstatus() /= 0) return
info=0
@@ -203,7 +203,7 @@ contains
! locals
integer :: err_act, int_err(5)
character(len=20) :: name, ch_err
character(len=20) :: name
if(psb_get_errstatus() /= 0) return
info=0
@@ -327,7 +327,7 @@ contains
! locals
integer :: err_act, int_err(5)
character(len=20) :: name, ch_err
character(len=20) :: name
if(psb_get_errstatus() /= 0) return
info=0
base/modules/psb_desc_type.f90
+5 -4
View File
@@ -320,7 +320,7 @@ contains
implicit none
integer, intent(in) :: ictxt,m
!locals
integer :: np,me, isz, err_act,idx,gidx,lidx
integer :: np,me
call psb_info(ictxt, me, np)
!
@@ -335,7 +335,8 @@ contains
subroutine psb_nullify_desc(desc)
type(psb_desc_type), intent(inout) :: desc
! We have nothing left to do here.
! Perhaps we should delete this subroutine?
end subroutine psb_nullify_desc
logical function psb_is_ok_desc(desc)
@@ -488,9 +489,9 @@ contains
type(psb_desc_type), intent(inout) :: desc
integer :: info
!locals
integer :: np,me,ictxt, isz, err_act,idx,gidx,lidx
integer :: np,me,ictxt, err_act,idx,gidx,lidx
logical, parameter :: debug=.false.,debugprt=.false.
character(len=20) :: name, char_err
character(len=20) :: name
if (debug) write(0,*) me,'Entered CDCPY'
if (psb_get_errstatus() /= 0) return
info = 0
base/modules/psb_realloc_mod.F90
+6 -6
View File
@@ -634,7 +634,7 @@ Contains
integer, optional, intent(in) :: lb
! ...Local Variables
Integer,allocatable :: tmp(:)
Integer :: dim, err_act, err,i,lb_, lbi, ub_
Integer :: dim, err_act, err,lb_, lbi, ub_
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -712,7 +712,7 @@ Contains
! ...Local Variables
Real(kind(1.d0)),allocatable :: tmp(:)
Integer :: dim,err_act,err,m, lb_, lbi,ub_
Integer :: dim,err_act,err, lb_, lbi,ub_
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -787,7 +787,7 @@ Contains
! ...Local Variables
complex(kind(1.d0)),allocatable :: tmp(:)
Integer :: dim,err_act,err,i,lb_,ub_,lbi
Integer :: dim,err_act,err,lb_,ub_,lbi
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -862,7 +862,7 @@ Contains
! ...Local Variables
Real(kind(1.d0)),allocatable :: tmp(:,:)
Integer :: dim,err_act,err,i, m, dim2,lb1_, lb2_, ub1_, ub2_,&
Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,&
& lbi1, lbi2
character(len=20) :: name
@@ -955,7 +955,7 @@ Contains
! ...Local Variables
complex(kind(1.d0)),allocatable :: tmp(:,:)
Integer :: dim,err_act,err,i, m, dim2,lb1_, lb2_, ub1_, ub2_,&
Integer :: dim,err_act,err,dim2,lb1_, lb2_, ub1_, ub2_,&
& lbi1, lbi2
character(len=20) :: name
@@ -1047,7 +1047,7 @@ Contains
! ...Local Variables
integer,allocatable :: tmp(:,:)
Integer :: dim,err_act,err,i, m, dim2,lb1_, lb2_, ub1_, ub2_,&
Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,&
& lbi1, lbi2
character(len=20) :: name
base/modules/psb_sort_mod.f90
+23 -31
View File
@@ -28,6 +28,18 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
!
! The merge-sort and quicksort routines are implemented in the
! serial/aux directory
! References:
! D. Knuth
! The Art of Computer Programming, vol. 3
! Addison-Wesley
!
! Aho, Hopcroft, Ullman
! Data Structures and Algorithms
! Addison-Wesley
!
module psb_sort_mod
@@ -292,7 +304,7 @@ contains
integer, intent(out) :: nout
integer, optional, intent(in) :: dir
integer :: dir_, flag_, n, err_act
integer :: dir_, n, err_act
character(len=20) :: name
@@ -958,8 +970,7 @@ contains
integer, intent(in) :: key
type(psb_int_heap), intent(inout) :: heap
integer, intent(out) :: info
integer :: i, i2
integer :: temp
info = 0
if (heap%last < 0) then
write(0,*) 'Invalid last in heap ',heap%last
@@ -986,10 +997,6 @@ contains
type(psb_int_heap), intent(inout) :: heap
integer, intent(out) :: key,info
integer :: i, i2, last,j
integer :: temp
info = 0
call psi_int_heap_get_first(key,heap%last,heap%keys,heap%dir,info)
@@ -1070,8 +1077,7 @@ contains
integer, intent(in) :: index
type(psb_double_idx_heap), intent(inout) :: heap
integer, intent(out) :: info
integer :: i, i2, itemp
real(kind(1.d0)) :: temp
info = 0
if (heap%last < 0) then
write(0,*) 'Invalid last in heap ',heap%last
@@ -1101,10 +1107,6 @@ contains
integer, intent(out) :: index,info
real(kind(1.d0)), intent(out) :: key
integer :: i, i2, last,j,itemp
real(kind(1.d0)) :: temp
info = 0
call psi_double_idx_heap_get_first(key,index,&
@@ -1184,8 +1186,7 @@ contains
integer, intent(in) :: index
type(psb_int_idx_heap), intent(inout) :: heap
integer, intent(out) :: info
integer :: i, i2, itemp
integer :: temp
info = 0
if (heap%last < 0) then
write(0,*) 'Invalid last in heap ',heap%last
@@ -1215,10 +1216,6 @@ contains
integer, intent(out) :: index,info
integer, intent(out) :: key
integer :: i, i2, last,j,itemp
integer :: temp
info = 0
call psi_int_idx_heap_get_first(key,index,&
@@ -1301,8 +1298,7 @@ contains
integer, intent(in) :: index
type(psb_dcomplex_idx_heap), intent(inout) :: heap
integer, intent(out) :: info
integer :: i, i2, itemp
complex(kind(1.d0)) :: temp
info = 0
if (heap%last < 0) then
write(0,*) 'Invalid last in heap ',heap%last
@@ -1331,12 +1327,8 @@ contains
integer, intent(out) :: index,info
complex(kind(1.d0)), intent(out) :: key
integer :: i, i2, last,j,itemp
complex(kind(1.d0)) :: temp
info = 0
call psi_dcomplex_idx_heap_get_first(key,index,&
& heap%last,heap%keys,heap%idxs,heap%dir,info)
@@ -1463,7 +1455,7 @@ contains
integer, intent(inout) :: heap(:)
integer, intent(out) :: info
integer :: i, i2,j
integer :: i, j
integer :: temp
@@ -1693,7 +1685,7 @@ contains
real(kind(1.d0)), intent(inout) :: heap(:)
integer, intent(out) :: info
integer :: i, i2,j
integer :: i, j
real(kind(1.d0)) :: temp
@@ -1923,7 +1915,7 @@ contains
complex(kind(1.d0)), intent(inout) :: heap(:)
integer, intent(out) :: info
integer :: i, i2,j
integer :: i, j
complex(kind(1.d0)) :: temp
@@ -2169,7 +2161,7 @@ contains
integer, intent(in) :: dir
integer, intent(out) :: key
integer :: i, i2, j,itemp
integer :: i, j,itemp
integer :: temp
info = 0
@@ -2426,7 +2418,7 @@ contains
integer, intent(in) :: dir
real(kind(1.d0)), intent(out) :: key
integer :: i, i2, j,itemp
integer :: i, j,itemp
real(kind(1.d0)) :: temp
info = 0
@@ -2684,7 +2676,7 @@ contains
integer, intent(in) :: dir
complex(kind(1.d0)), intent(out) :: key
integer :: i, i2, j, itemp
integer :: i, j, itemp
complex(kind(1.d0)) :: temp
info = 0
base/modules/psb_spmat_type.f90
+4 -7
View File
@@ -696,10 +696,9 @@ contains
!....Parameters...
Type(psb_dspmat_type), intent(inout) :: A
Integer, intent(out) :: info
Integer :: i1, i2, ia
!locals
Integer :: nza
Integer :: i1, i2, ia
logical, parameter :: debug=.false.
info = 0
@@ -717,10 +716,8 @@ contains
!....Parameters...
Type(psb_zspmat_type), intent(inout) :: A
Integer, intent(out) :: info
Integer :: i1, i2, ia
!locals
Integer :: nza
Integer :: i1, i2, ia
logical, parameter :: debug=.false.
info = 0
@@ -1395,7 +1392,7 @@ contains
integer, intent(out) :: ires, info
integer, intent(in), optional :: iaux
integer :: i,j,k,ip,jp,nr,irw,nz, err_act, row, ipx, pia, pja, rb,idx, nc
integer :: j,ip,jp,nr,irw,nz, err_act, row, ipx, pia, pja, rb,idx, nc
integer, pointer :: ia1(:), ia2(:), ia3(:), ja(:)
character(len=20) :: name, ch_err
@@ -1555,7 +1552,7 @@ contains
integer, intent(out) :: ires, info
integer, intent(in), optional :: iaux
integer :: i,j,k,ip,jp,nr,irw,nz, err_act, row, ipx, pia, pja, rb,idx, nc
integer :: j,ip,jp,nr,irw,nz, err_act, row, ipx, pia, pja, rb,idx, nc
integer, pointer :: ia1(:), ia2(:), ia3(:), ja(:)
character(len=20) :: name, ch_err
base/modules/psb_tools_mod.f90
+1 -1
View File
@@ -583,7 +583,7 @@ contains
integer, intent(out) :: info
end subroutine psb_cdrep
end interface
character(len=20) :: name, char_err
character(len=20) :: name
integer :: err_act, n_, flag_, i, me, np, nlp
integer, allocatable :: itmpsz(:)
base/modules/psi_mod.f90
+5 -6
View File
@@ -310,10 +310,9 @@ contains
integer, intent(out) :: info
! ....local scalars....
integer :: i,np,me,proc, max_index
integer :: np,me
integer :: ictxt, err_act,nxch,nsnd,nrcv
! ...local array...
integer :: int_err(5)
integer, allocatable :: idx_out(:)
! ...parameters
@@ -416,8 +415,8 @@ contains
subroutine psi_inner_cnv1(n,x,hashsize,hashmask,hashv,glb_lc)
integer, intent(in) :: n, hashsize,hashmask,hashv(0:),glb_lc(:,:)
subroutine psi_inner_cnv1(n,x,hashmask,hashv,glb_lc)
integer, intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:)
integer, intent(inout) :: x(:)
integer :: i, ih, key, idx,nh,tmp,lb,ub,lm
@@ -462,8 +461,8 @@ contains
end subroutine psi_inner_cnv1
subroutine psi_inner_cnv2(n,x,y,hashsize,hashmask,hashv,glb_lc)
integer, intent(in) :: n, hashsize,hashmask,hashv(0:),glb_lc(:,:)
subroutine psi_inner_cnv2(n,x,y,hashmask,hashv,glb_lc)
integer, intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:)
integer, intent(in) :: x(:)
integer, intent(out) :: y(:)