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

mld2p4-2:

Browse Source 
mlprec/impl/smoother/mld_c_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90
 mlprec/impl/smoother/mld_d_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90
 mlprec/impl/smoother/mld_s_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90
 mlprec/impl/smoother/mld_z_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90

Improve readability
stopcriterion
Salvatore Filippone 9 years ago
parent 0daf3db1f1
commit f951725fe3
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

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

@ -125,7 +125,7 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$ goto 9999
!!$ endif
!!$
!!$ else if (sweeps >= 1) then
!!$ else if (sweeps >= 0) then
!
!
! Apply multiple sweeps of a block-Jacobi solver
@ -197,7 +197,7 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$
!!$ endif
if (n_col <= size(work)) then
if (n_col <= size(work)) then
if ((4*n_col+n_col) <= size(work)) then
else
deallocate(aux)

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

@ -125,7 +125,7 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$ goto 9999
!!$ endif
!!$
!!$ else if (sweeps >= 1) then
!!$ else if (sweeps >= 0) then
!
!
! Apply multiple sweeps of a block-Jacobi solver
@ -197,7 +197,7 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$
!!$ endif
if (n_col <= size(work)) then
if (n_col <= size(work)) then
if ((4*n_col+n_col) <= size(work)) then
else
deallocate(aux)

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

@ -125,7 +125,7 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$ goto 9999
!!$ endif
!!$
!!$ else if (sweeps >= 1) then
!!$ else if (sweeps >= 0) then
!
!
! Apply multiple sweeps of a block-Jacobi solver
@ -197,7 +197,7 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$
!!$ endif
if (n_col <= size(work)) then
if (n_col <= size(work)) then
if ((4*n_col+n_col) <= size(work)) then
else
deallocate(aux)

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

@ -125,7 +125,7 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$ goto 9999
!!$ endif
!!$
!!$ else if (sweeps >= 1) then
!!$ else if (sweeps >= 0) then
!
!
! Apply multiple sweeps of a block-Jacobi solver
@ -197,7 +197,7 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
!!$
!!$ endif
if (n_col <= size(work)) then
if (n_col <= size(work)) then
if ((4*n_col+n_col) <= size(work)) then
else
deallocate(aux)

Write Preview
Loading…
Cancel
Save