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_bld.f90
 mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_z_jac_smoother_bld.f90

Space formatting in select type.
stopcriterion
Salvatore Filippone 10 years ago
parent 5f132cb863
commit ca30dacd90
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

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

@ -75,7 +75,7 @@ subroutine mld_c_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
type is (mld_c_diag_solver_type) type is (mld_c_diag_solver_type)
call a%clip_diag(sm%nd,info) call a%clip_diag(sm%nd,info)
class default class default
call a%csclip(sm%nd,info,& call a%csclip(sm%nd,info,&
& jmin=nrow_a+1,rscale=.false.,cscale=.false.) & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
end select end select

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

@ -75,7 +75,7 @@ subroutine mld_d_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
type is (mld_d_diag_solver_type) type is (mld_d_diag_solver_type)
call a%clip_diag(sm%nd,info) call a%clip_diag(sm%nd,info)
class default class default
call a%csclip(sm%nd,info,& call a%csclip(sm%nd,info,&
& jmin=nrow_a+1,rscale=.false.,cscale=.false.) & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
end select end select

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

@ -75,7 +75,7 @@ subroutine mld_s_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
type is (mld_s_diag_solver_type) type is (mld_s_diag_solver_type)
call a%clip_diag(sm%nd,info) call a%clip_diag(sm%nd,info)
class default class default
call a%csclip(sm%nd,info,& call a%csclip(sm%nd,info,&
& jmin=nrow_a+1,rscale=.false.,cscale=.false.) & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
end select end select

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

@ -75,7 +75,7 @@ subroutine mld_z_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
type is (mld_z_diag_solver_type) type is (mld_z_diag_solver_type)
call a%clip_diag(sm%nd,info) call a%clip_diag(sm%nd,info)
class default class default
call a%csclip(sm%nd,info,& call a%csclip(sm%nd,info,&
& jmin=nrow_a+1,rscale=.false.,cscale=.false.) & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
end select end select

Write Preview
Loading…
Cancel
Save