fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cleanup of variables flagedd by -Wunused.

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-10 13:53:22 +00:00
parent fe04944807
commit dedbbbe971
18 changed files with 66 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_daggrmat_smth_asb.F90
+1 -4
View File
@@ -121,10 +121,7 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ac,desc_ac,p,info)
character(len=20) :: name
type(psb_dspmat_type), pointer :: am1,am2
type(psb_dspmat_type) :: am3,am4
logical :: ml_global_nmb
integer :: nz
integer, allocatable :: ia(:), ja(:)
real(kind(1.d0)), allocatable :: val(:)
logical :: ml_global_nmb
integer :: debug_level, debug_unit
integer, parameter :: ncmax=16
real(kind(1.d0)) :: omega, anorm, tmp, dg
mlprec/mld_das_bld.f90
+4 -5
View File
@@ -73,9 +73,8 @@ subroutine mld_das_bld(a,desc_a,p,upd,info)
! Local variables
integer :: ptype,novr
integer :: icomm
Integer :: np,me,nnzero,&
& ictxt, n_col,int_err(5),&
& tot_recv, n_row,nhalo, nrow_a,err_act, data_
Integer :: np,me,nnzero,ictxt, int_err(5),&
& tot_recv, n_row,n_col,nhalo, err_act, data_
type(psb_dspmat_type) :: blck
integer :: debug_level, debug_unit
character(len=20) :: name, ch_err
@@ -97,10 +96,10 @@ subroutine mld_das_bld(a,desc_a,p,upd,info)
tot_recv=0
nrow_a = psb_cd_get_local_rows(desc_a)
n_row = psb_cd_get_local_rows(desc_a)
n_col = psb_cd_get_local_cols(desc_a)
nnzero = psb_sp_get_nnzeros(a)
nhalo = n_col-nrow_a
nhalo = n_col-n_row
ptype = p%iprcparm(mld_prec_type_)
novr = p%iprcparm(mld_n_ovr_)
mlprec/mld_dbaseprec_aply.f90
+3 -3
View File
@@ -94,9 +94,9 @@ subroutine mld_dbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
integer, intent(out) :: info
! Local variables
integer :: n_row,n_col, int_err(5), nrow_d
real(kind(1.d0)), pointer :: ww(:), aux(:), tx(:),ty(:)
integer :: ictxt,np,me,isz, err_act
real(kind(1.d0)), pointer :: ww(:)
integer :: ictxt, np, me, err_act
integer :: n_row, int_err(5)
character(len=20) :: name, ch_err
character :: trans_
mlprec/mld_dbjac_bld.f90
+6 -8
View File
@@ -111,15 +111,13 @@ subroutine mld_dbjac_bld(a,p,upd,info,blck)
type(psb_dspmat_type), intent(in), target, optional :: blck
! Local Variables
integer :: i, k, m
integer :: int_err(5)
character :: trans, unitd
type(psb_dspmat_type), pointer :: blck_
type(psb_dspmat_type) :: atmp
integer :: debug_level, debug_unit
integer :: err_act, n_row, nrow_a,n_col
integer :: ictxt,np,me
character(len=20) :: name, ch_err
type(psb_dspmat_type) :: atmp
integer :: ictxt,np,me,err_act
integer :: debug_level, debug_unit
integer :: k, m, int_err(5), n_row, nrow_a, n_col
character :: trans, unitd
character(len=20) :: name, ch_err
if(psb_get_errstatus().ne.0) return
info=0
mlprec/mld_diluk_fct.f90
+3 -6
View File
@@ -372,7 +372,7 @@ contains
! need to keep track of fill levels for the upper triangle, hence we
! do not have a lowlevs variable.
!
if (info == 0) call iluk_fact(fill_in,i,m,row,rowlevs,heap,&
if (info == 0) call iluk_fact(fill_in,i,row,rowlevs,heap,&
& d,uia1,uia2,uaspk,uplevs,nidx,idxs,info)
!
! Copy the row into laspk/d(i)/uaspk
@@ -589,9 +589,6 @@ contains
! i - integer, input.
! The local index of the row to which the factorization is
! applied.
! m - integer, input.
! The number of rows of the local matrix to which the row
! belongs.
! row - real(kind(1.d0)), dimension(:), input/output.
! In input it contains the row to which the elimination step
! has to be applied. In output it contains the row after the
@@ -639,7 +636,7 @@ contains
! Note: this argument is intent(inout) and not only intent(out)
! to retain its allocation, done by this routine.
!
subroutine iluk_fact(fill_in,i,m,row,rowlevs,heap,d,uia1,uia2,uaspk,uplevs,nidx,idxs,info)
subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uia1,uia2,uaspk,uplevs,nidx,idxs,info)
use psb_base_mod
@@ -647,7 +644,7 @@ contains
! Arguments
type(psb_int_heap), intent(inout) :: heap
integer, intent(in) :: i,m, fill_in
integer, intent(in) :: i, fill_in
integer, intent(inout) :: nidx,info
integer, intent(inout) :: rowlevs(:)
integer, allocatable, intent(inout) :: idxs(:)
mlprec/mld_dilut_fct.f90
+3 -8
View File
@@ -351,7 +351,7 @@ contains
!
! Do an elimination step on current row
!
if (info == 0) call ilut_fact(fill_in,thres,i,m,nrmi,row,heap,&
if (info == 0) call ilut_fact(thres,i,nrmi,row,heap,&
& d,uia1,uia2,uaspk,nidx,idxs,info)
!
! Copy the row into laspk/d(i)/uaspk
@@ -492,7 +492,6 @@ contains
real(kind(1.d0)) :: dmaxup
real(kind(1.d0)), external :: dnrm2
character(len=20), parameter :: name='mld_dilut_fctint'
character(len=20) :: ch_err
if (psb_get_errstatus() /= 0) return
info = 0
@@ -622,14 +621,10 @@ contains
!
!
! Arguments
! fill_in - integer, input.
! The fill-in parameter k in ILU(k,t).
! thres - integer, input.
! The threshold t, i.e. the drop tolerance, in ILU(k,t).
! i - integer, input.
! The local index of the row to which the factorization is applied.
! m - integer, input.
! The number of rows of the local matrix to which the row belongs.
! nrmi - real(kind(1.d0)), input.
! The 2-norm of the row to which the elimination step has to be
! applied.
@@ -671,7 +666,7 @@ contains
! Note: this argument is intent(inout) and not only intent(out)
! to retain its allocation, done by this routine.
!
subroutine ilut_fact(fill_in,thres,i,m,nrmi,row,heap,&
subroutine ilut_fact(thres,i,nrmi,row,heap,&
& d,uia1,uia2,uaspk,nidx,idxs,info)
use psb_base_mod
@@ -680,7 +675,7 @@ contains
! Arguments
type(psb_int_heap), intent(inout) :: heap
integer, intent(in) :: i,m,fill_in
integer, intent(in) :: i
integer, intent(inout) :: nidx,info
real(kind(1.d0)), intent(in) :: thres,nrmi
integer, allocatable, intent(inout) :: idxs(:)
mlprec/mld_dmlprec_aply.f90
+4 -6
View File
@@ -180,12 +180,10 @@ subroutine mld_dmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
integer, intent(out) :: info
! Local variables
integer :: n_row,n_col
integer :: ictxt,np,me,i, nr2l,nc2l,err_act
integer :: debug_level, debug_unit
integer :: ismth, nlev, ilev, icm
character(len=20) :: name
character :: trans_
integer :: ictxt, np, me, err_act
integer :: debug_level, debug_unit
character(len=20) :: name
character :: trans_
name='mld_dmlprec_aply'
info = 0
mlprec/mld_dmlprec_bld.f90
+4 -5
View File
@@ -69,11 +69,10 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info)
integer, intent(out) :: info
! Local variables
type(psb_desc_type) :: desc_ac
integer :: err_act
character(len=20) :: name, ch_err
type(psb_dspmat_type) :: ac
integer :: ictxt, np, me
type(psb_desc_type) :: desc_ac
type(psb_dspmat_type) :: ac
character(len=20) :: name
integer :: ictxt, np, me, err_act
name='psb_dmlprec_bld'
if (psb_get_errstatus().ne.0) return
mlprec/mld_dsp_renum.f90
+5 -5
View File
@@ -93,11 +93,11 @@ subroutine mld_dsp_renum(a,blck,p,atmp,info)
integer, intent(out) :: info
! Local variables
character(len=20) :: name, ch_err
integer nztota, nztotb, nztmp, nnr, mglob, i,k
integer ::ictxt,np,me, err_act
integer, allocatable :: itmp(:), itmp2(:)
real(kind(1.d0)) :: t3,t4
character(len=20) :: name, ch_err
integer :: nztota, nztotb, nztmp, nnr, i,k
integer, allocatable :: itmp(:), itmp2(:)
integer :: ictxt,np,me, err_act
real(kind(1.d0)) :: t3,t4
if (psb_get_errstatus().ne.0) return
info=0
mlprec/mld_zaggrmat_smth_asb.F90
+1 -4
View File
@@ -121,10 +121,7 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ac,desc_ac,p,info)
character(len=20) :: name
type(psb_zspmat_type), pointer :: am1,am2
type(psb_zspmat_type) :: am3,am4
logical :: ml_global_nmb
integer :: nz
integer, allocatable :: ia(:), ja(:)
complex(kind(1.d0)), allocatable :: val(:)
logical :: ml_global_nmb
integer :: debug_level, debug_unit
integer, parameter :: ncmax=16
real(kind(1.d0)) :: omega, anorm, tmp, dg
mlprec/mld_zas_bld.f90
+4 -5
View File
@@ -74,9 +74,8 @@ subroutine mld_zas_bld(a,desc_a,p,upd,info)
! Local variables
integer :: ptype,novr
integer :: icomm
Integer :: np,me,nnzero,&
& ictxt, n_col,int_err(5),&
& tot_recv, n_row,nhalo, nrow_a,err_act, data_
Integer :: np,me,nnzero,ictxt, int_err(5),&
& tot_recv, n_row,n_col,nhalo, err_act, data_
type(psb_zspmat_type) :: blck
integer :: debug_level, debug_unit
character(len=20) :: name, ch_err
@@ -98,10 +97,10 @@ subroutine mld_zas_bld(a,desc_a,p,upd,info)
tot_recv=0
nrow_a = psb_cd_get_local_rows(desc_a)
n_row = psb_cd_get_local_rows(desc_a)
n_col = psb_cd_get_local_cols(desc_a)
nnzero = psb_sp_get_nnzeros(a)
nhalo = n_col-nrow_a
nhalo = n_col-n_row
ptype = p%iprcparm(mld_prec_type_)
novr = p%iprcparm(mld_n_ovr_)
mlprec/mld_zbaseprec_aply.f90
+3 -3
View File
@@ -94,9 +94,9 @@ subroutine mld_zbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
integer, intent(out) :: info
! Local variables
integer :: n_row,n_col, int_err(5), nrow_d
complex(kind(1.d0)), pointer :: ww(:), aux(:), tx(:),ty(:)
integer :: ictxt,np,me,isz, err_act
complex(kind(1.d0)), pointer :: ww(:)
integer :: ictxt, np, me, err_act
integer :: n_row, int_err(5)
character(len=20) :: name, ch_err
character :: trans_
mlprec/mld_zbjac_bld.f90
+6 -8
View File
@@ -111,15 +111,13 @@ subroutine mld_zbjac_bld(a,p,upd,info,blck)
type(psb_zspmat_type), intent(in), target, optional :: blck
! Local Variables
integer :: i, k, m
integer :: int_err(5)
character :: trans, unitd
type(psb_zspmat_type), pointer :: blck_
type(psb_zspmat_type) :: atmp
integer :: debug_level, debug_unit
integer :: err_act, n_row, nrow_a,n_col
integer :: ictxt,np,me
character(len=20) :: name, ch_err
type(psb_zspmat_type) :: atmp
integer :: ictxt,np,me,err_act
integer :: debug_level, debug_unit
integer :: k, m, int_err(5), n_row, nrow_a, n_col
character :: trans, unitd
character(len=20) :: name, ch_err
if(psb_get_errstatus().ne.0) return
info=0
mlprec/mld_ziluk_fct.f90
+3 -6
View File
@@ -371,7 +371,7 @@ contains
! need to keep track of fill levels for the upper triangle, hence we
! do not have a lowlevs variable.
!
if (info == 0) call iluk_fact(fill_in,i,m,row,rowlevs,heap,&
if (info == 0) call iluk_fact(fill_in,i,row,rowlevs,heap,&
& d,uia1,uia2,uaspk,uplevs,nidx,idxs,info)
!
! Copy the row into laspk/d(i)/uaspk
@@ -588,9 +588,6 @@ contains
! i - integer, input.
! The local index of the row to which the factorization is
! applied.
! m - integer, input.
! The number of rows of the local matrix to which the row
! belongs.
! row - complex(kind(1.d0)), dimension(:), input/output.
! In input it contains the row to which the elimination step
! has to be applied. In output it contains the row after the
@@ -638,7 +635,7 @@ contains
! Note: this argument is intent(inout) and not only intent(out)
! to retain its allocation, done by this routine.
!
subroutine iluk_fact(fill_in,i,m,row,rowlevs,heap,d,uia1,uia2,uaspk,uplevs,nidx,idxs,info)
subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uia1,uia2,uaspk,uplevs,nidx,idxs,info)
use psb_base_mod
@@ -646,7 +643,7 @@ contains
! Arguments
type(psb_int_heap), intent(inout) :: heap
integer, intent(in) :: i,m, fill_in
integer, intent(in) :: i, fill_in
integer, intent(inout) :: nidx,info
integer, intent(inout) :: rowlevs(:)
integer, allocatable, intent(inout) :: idxs(:)
mlprec/mld_zilut_fct.f90
+3 -10
View File
@@ -286,7 +286,6 @@ contains
type(psb_int_heap) :: heap
type(psb_zspmat_type) :: trw
character(len=20), parameter :: name='mld_zilut_fctint'
character(len=20) :: ch_err
if (psb_get_errstatus() /= 0) return
info = 0
@@ -350,7 +349,7 @@ contains
!
! Do an elimination step on current row
!
if (info == 0) call ilut_fact(fill_in,thres,i,m,nrmi,row,heap,&
if (info == 0) call ilut_fact(thres,i,nrmi,row,heap,&
& d,uia1,uia2,uaspk,nidx,idxs,info)
!
! Copy the row into laspk/d(i)/uaspk
@@ -492,7 +491,6 @@ contains
real(kind(1.d0)) :: dmaxup
real(kind(1.d0)), external :: dznrm2
character(len=20), parameter :: name='mld_zilut_fctint'
character(len=20) :: ch_err
if (psb_get_errstatus() /= 0) return
info = 0
@@ -622,14 +620,10 @@ contains
!
!
! Arguments
! fill_in - integer, input.
! The fill-in parameter k in ILU(k,t).
! thres - integer, input.
! The threshold t, i.e. the drop tolerance, in ILU(k,t).
! i - integer, input.
! The local index of the row to which the factorization is applied.
! m - integer, input.
! The number of rows of the local matrix to which the row belongs.
! nrmi - real(kind(1.d0)), input.
! The 2-norm of the row to which the elimination step has to be
! applied.
@@ -671,8 +665,7 @@ contains
! Note: this argument is intent(inout) and not only intent(out)
! to retain its allocation, done by this routine.
!
subroutine ilut_fact(fill_in,thres,i,m,nrmi,row,heap,&
& d,uia1,uia2,uaspk,nidx,idxs,info)
subroutine ilut_fact(thres,i,nrmi,row,heap,d,uia1,uia2,uaspk,nidx,idxs,info)
use psb_base_mod
@@ -680,7 +673,7 @@ contains
! Arguments
type(psb_int_heap), intent(inout) :: heap
integer, intent(in) :: i,m,fill_in
integer, intent(in) :: i
integer, intent(inout) :: nidx,info
real(kind(1.d0)), intent(in) :: thres,nrmi
integer, allocatable, intent(inout) :: idxs(:)
mlprec/mld_zmlprec_aply.f90
+4 -6
View File
@@ -180,12 +180,10 @@ subroutine mld_zmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
integer, intent(out) :: info
! Local variables
integer :: n_row,n_col
integer :: ictxt,np,me,i, nr2l,nc2l,err_act
integer :: debug_level, debug_unit
integer :: ismth, nlev, ilev, icm
character(len=20) :: name
character :: trans_
integer :: ictxt, np, me, err_act
integer :: debug_level, debug_unit
character(len=20) :: name
character :: trans_
name = 'mld_zmlprec_aply'
info = 0
mlprec/mld_zmlprec_bld.f90
+4 -5
View File
@@ -69,11 +69,10 @@ subroutine mld_zmlprec_bld(a,desc_a,p,info)
integer, intent(out) :: info
! Local variables
type(psb_desc_type) :: desc_ac
integer :: err_act
character(len=20) :: name, ch_err
type(psb_zspmat_type) :: ac
integer :: ictxt, np, me
type(psb_desc_type) :: desc_ac
type(psb_zspmat_type) :: ac
character(len=20) :: name
integer :: ictxt, np, me, err_act
name='psb_zmlprec_bld'
if (psb_get_errstatus().ne.0) return
mlprec/mld_zsp_renum.f90
+5 -5
View File
@@ -93,11 +93,11 @@ subroutine mld_zsp_renum(a,blck,p,atmp,info)
integer, intent(out) :: info
! Local variables
character(len=20) :: name, ch_err
integer nztota, nztotb, nztmp, nnr, mglob, i,k
integer ::ictxt,np,me, err_act
integer, allocatable :: itmp(:), itmp2(:)
real(kind(1.d0)) :: t3,t4
character(len=20) :: name, ch_err
integer :: nztota, nztotb, nztmp, nnr, i,k
integer, allocatable :: itmp(:), itmp2(:)
integer :: ictxt,np,me, err_act
real(kind(1.d0)) :: t3,t4
if (psb_get_errstatus().ne.0) return
info=0