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

Changed selection criterion between Jacobi/BJAC application

Browse Source
stopcriterion
Cirdans-Home 5 years ago
parent e680f2092f
commit e0491f1f17
4 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File

8
mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90
Unescape Escape View File

@ -39,6 +39,7 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
& sweeps,work,wv,info,init,initu) & sweeps,work,wv,info,init,initu)
use psb_base_mod use psb_base_mod
use mld_c_diag_solver
use psb_base_krylov_conv_mod, only : log_conv use psb_base_krylov_conv_mod, only : log_conv
use mld_c_jac_smoother, mld_protect_name => mld_c_jac_smoother_apply_vect use mld_c_jac_smoother, mld_protect_name => mld_c_jac_smoother_apply_vect
implicit none implicit none
@ -124,7 +125,8 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
endif endif
else if (sweeps >= 0) then else if (sweeps >= 0) then
if (associated(sm%pa)) then select type (smsv => sm%sv)
class is (mld_c_diag_solver_type)
! !
! This means we are dealing with a pure Jacobi smoother/solver. ! This means we are dealing with a pure Jacobi smoother/solver.
! !
@ -200,7 +202,7 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end associate end associate
else class default
! !
! !
! Apply multiple sweeps of a block-Jacobi solver ! Apply multiple sweeps of a block-Jacobi solver
@ -289,7 +291,7 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end if end if
end associate end associate
end if end select
else else

8
mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90
Unescape Escape View File

@ -39,6 +39,7 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
& sweeps,work,wv,info,init,initu) & sweeps,work,wv,info,init,initu)
use psb_base_mod use psb_base_mod
use mld_d_diag_solver
use psb_base_krylov_conv_mod, only : log_conv use psb_base_krylov_conv_mod, only : log_conv
use mld_d_jac_smoother, mld_protect_name => mld_d_jac_smoother_apply_vect use mld_d_jac_smoother, mld_protect_name => mld_d_jac_smoother_apply_vect
implicit none implicit none
@ -124,7 +125,8 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
endif endif
else if (sweeps >= 0) then else if (sweeps >= 0) then
if (associated(sm%pa)) then select type (smsv => sm%sv)
class is (mld_d_diag_solver_type)
! !
! This means we are dealing with a pure Jacobi smoother/solver. ! This means we are dealing with a pure Jacobi smoother/solver.
! !
@ -200,7 +202,7 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end associate end associate
else class default
! !
! !
! Apply multiple sweeps of a block-Jacobi solver ! Apply multiple sweeps of a block-Jacobi solver
@ -289,7 +291,7 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end if end if
end associate end associate
end if end select
else else

8
mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90
Unescape Escape View File

@ -39,6 +39,7 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
& sweeps,work,wv,info,init,initu) & sweeps,work,wv,info,init,initu)
use psb_base_mod use psb_base_mod
use mld_s_diag_solver
use psb_base_krylov_conv_mod, only : log_conv use psb_base_krylov_conv_mod, only : log_conv
use mld_s_jac_smoother, mld_protect_name => mld_s_jac_smoother_apply_vect use mld_s_jac_smoother, mld_protect_name => mld_s_jac_smoother_apply_vect
implicit none implicit none
@ -124,7 +125,8 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
endif endif
else if (sweeps >= 0) then else if (sweeps >= 0) then
if (associated(sm%pa)) then select type (smsv => sm%sv)
class is (mld_s_diag_solver_type)
! !
! This means we are dealing with a pure Jacobi smoother/solver. ! This means we are dealing with a pure Jacobi smoother/solver.
! !
@ -200,7 +202,7 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end associate end associate
else class default
! !
! !
! Apply multiple sweeps of a block-Jacobi solver ! Apply multiple sweeps of a block-Jacobi solver
@ -289,7 +291,7 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end if end if
end associate end associate
end if end select
else else

8
mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90
Unescape Escape View File

@ -39,6 +39,7 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
& sweeps,work,wv,info,init,initu) & sweeps,work,wv,info,init,initu)
use psb_base_mod use psb_base_mod
use mld_z_diag_solver
use psb_base_krylov_conv_mod, only : log_conv use psb_base_krylov_conv_mod, only : log_conv
use mld_z_jac_smoother, mld_protect_name => mld_z_jac_smoother_apply_vect use mld_z_jac_smoother, mld_protect_name => mld_z_jac_smoother_apply_vect
implicit none implicit none
@ -124,7 +125,8 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
endif endif
else if (sweeps >= 0) then else if (sweeps >= 0) then
if (associated(sm%pa)) then select type (smsv => sm%sv)
class is (mld_z_diag_solver_type)
! !
! This means we are dealing with a pure Jacobi smoother/solver. ! This means we are dealing with a pure Jacobi smoother/solver.
! !
@ -200,7 +202,7 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end associate end associate
else class default
! !
! !
! Apply multiple sweeps of a block-Jacobi solver ! Apply multiple sweeps of a block-Jacobi solver
@ -289,7 +291,7 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
end if end if
end associate end associate
end if end select
else else

Write Preview
Loading…
Cancel
Save