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

Fix zeroing of tx in as_apply_vect.

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 3cd6ede9f1
commit 7d4264176a
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/smoother/mld_c_as_smoother_apply_vect.f90
Unescape Escape View File

@ -127,7 +127,7 @@ subroutine mld_c_as_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.)
call tx%zero()
! !
! Unroll the first iteration and fold it inside SELECT CASE ! Unroll the first iteration and fold it inside SELECT CASE
! this will save one SPMM when INIT=Z, and will be ! this will save one SPMM when INIT=Z, and will be

2
mlprec/impl/smoother/mld_d_as_smoother_apply_vect.f90
Unescape Escape View File

@ -127,7 +127,7 @@ subroutine mld_d_as_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.)
call tx%zero()
! !
! Unroll the first iteration and fold it inside SELECT CASE ! Unroll the first iteration and fold it inside SELECT CASE
! this will save one SPMM when INIT=Z, and will be ! this will save one SPMM when INIT=Z, and will be

2
mlprec/impl/smoother/mld_s_as_smoother_apply_vect.f90
Unescape Escape View File

@ -127,7 +127,7 @@ subroutine mld_s_as_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.)
call tx%zero()
! !
! Unroll the first iteration and fold it inside SELECT CASE ! Unroll the first iteration and fold it inside SELECT CASE
! this will save one SPMM when INIT=Z, and will be ! this will save one SPMM when INIT=Z, and will be

2
mlprec/impl/smoother/mld_z_as_smoother_apply_vect.f90
Unescape Escape View File

@ -127,7 +127,7 @@ subroutine mld_z_as_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(tx,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ty,sm%desc_data,info,mold=x%v,scratch=.true.)
call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.) call psb_geasb(ww,sm%desc_data,info,mold=x%v,scratch=.true.)
call tx%zero()
! !
! Unroll the first iteration and fold it inside SELECT CASE ! Unroll the first iteration and fold it inside SELECT CASE
! this will save one SPMM when INIT=Z, and will be ! this will save one SPMM when INIT=Z, and will be

Write Preview
Loading…
Cancel
Save