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

Minor fixes for I8.

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 565b48ea90
commit 06a4ee5707
12 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/level/mld_c_base_onelev_mat_asb.f90
Unescape Escape View File

@ -103,7 +103,7 @@ subroutine mld_c_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
! Local variables ! Local variables
character(len=24) :: name character(len=24) :: name
integer(psb_mpk_) :: ictxt, np, me integer(psb_ipk_) :: ictxt, np, me
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
type(psb_lcspmat_type) :: lac, lac1, op_restr type(psb_lcspmat_type) :: lac, lac1, op_restr
type(psb_cspmat_type) :: ac, iop_restr, iop_prol type(psb_cspmat_type) :: ac, iop_restr, iop_prol

2
mlprec/impl/level/mld_d_base_onelev_mat_asb.f90
Unescape Escape View File

@ -103,7 +103,7 @@ subroutine mld_d_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
! Local variables ! Local variables
character(len=24) :: name character(len=24) :: name
integer(psb_mpk_) :: ictxt, np, me integer(psb_ipk_) :: ictxt, np, me
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
type(psb_ldspmat_type) :: lac, lac1, op_restr type(psb_ldspmat_type) :: lac, lac1, op_restr
type(psb_dspmat_type) :: ac, iop_restr, iop_prol type(psb_dspmat_type) :: ac, iop_restr, iop_prol

2
mlprec/impl/level/mld_s_base_onelev_mat_asb.f90
Unescape Escape View File

@ -103,7 +103,7 @@ subroutine mld_s_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
! Local variables ! Local variables
character(len=24) :: name character(len=24) :: name
integer(psb_mpk_) :: ictxt, np, me integer(psb_ipk_) :: ictxt, np, me
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
type(psb_lsspmat_type) :: lac, lac1, op_restr type(psb_lsspmat_type) :: lac, lac1, op_restr
type(psb_sspmat_type) :: ac, iop_restr, iop_prol type(psb_sspmat_type) :: ac, iop_restr, iop_prol

2
mlprec/impl/level/mld_z_base_onelev_mat_asb.f90
Unescape Escape View File

@ -103,7 +103,7 @@ subroutine mld_z_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
! Local variables ! Local variables
character(len=24) :: name character(len=24) :: name
integer(psb_mpk_) :: ictxt, np, me integer(psb_ipk_) :: ictxt, np, me
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
type(psb_lzspmat_type) :: lac, lac1, op_restr type(psb_lzspmat_type) :: lac, lac1, op_restr
type(psb_zspmat_type) :: ac, iop_restr, iop_prol type(psb_zspmat_type) :: ac, iop_restr, iop_prol

2
mlprec/impl/solver/mld_c_bwgs_solver_bld.f90
Unescape Escape View File

@ -78,7 +78,7 @@ subroutine mld_c_bwgs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=-1,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=-ione,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_c_gs_solver_bld.f90
Unescape Escape View File

@ -76,7 +76,7 @@ subroutine mld_c_gs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=0,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=izero,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_d_bwgs_solver_bld.f90
Unescape Escape View File

@ -78,7 +78,7 @@ subroutine mld_d_bwgs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=-1,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=-ione,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_d_gs_solver_bld.f90
Unescape Escape View File

@ -76,7 +76,7 @@ subroutine mld_d_gs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=0,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=izero,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_s_bwgs_solver_bld.f90
Unescape Escape View File

@ -78,7 +78,7 @@ subroutine mld_s_bwgs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=-1,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=-ione,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_s_gs_solver_bld.f90
Unescape Escape View File

@ -76,7 +76,7 @@ subroutine mld_s_gs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=0,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=izero,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_z_bwgs_solver_bld.f90
Unescape Escape View File

@ -78,7 +78,7 @@ subroutine mld_z_bwgs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=-1,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=-ione,jmax=nrow_a,u=sv%u)
else else

2
mlprec/impl/solver/mld_z_gs_solver_bld.f90
Unescape Escape View File

@ -76,7 +76,7 @@ subroutine mld_z_gs_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
! This cuts out the off-diagonal part, because it's supposed to ! This cuts out the off-diagonal part, because it's supposed to
! be handled by the outer Jacobi smoother. ! be handled by the outer Jacobi smoother.
! !
call a%tril(sv%l,info,diag=0,jmax=nrow_a,u=sv%u) call a%tril(sv%l,info,diag=izero,jmax=nrow_a,u=sv%u)
else else

Write Preview
Loading…
Cancel
Save