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

Fixed dump smoother.

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

10
mlprec/impl/level/mld_c_base_onelev_dump.f90
Unescape Escape View File

@ -120,13 +120,13 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if end if
end if end if
if (allocated(lv%sm)) & if (allocated(lv%sm)) then
& call lv%sm%dump(icontxt,level,info,smoother=smoother, & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix) & solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, & call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_) & solver=solver,prefix=trim(prefix_)//"_sm2a")
end if end if
end subroutine mld_c_base_onelev_dump end subroutine mld_c_base_onelev_dump

10
mlprec/impl/level/mld_d_base_onelev_dump.f90
Unescape Escape View File

@ -120,13 +120,13 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if end if
end if end if
if (allocated(lv%sm)) & if (allocated(lv%sm)) then
& call lv%sm%dump(icontxt,level,info,smoother=smoother, & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix) & solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, & call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_) & solver=solver,prefix=trim(prefix_)//"_sm2a")
end if end if
end subroutine mld_d_base_onelev_dump end subroutine mld_d_base_onelev_dump

10
mlprec/impl/level/mld_s_base_onelev_dump.f90
Unescape Escape View File

@ -120,13 +120,13 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if end if
end if end if
if (allocated(lv%sm)) & if (allocated(lv%sm)) then
& call lv%sm%dump(icontxt,level,info,smoother=smoother, & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix) & solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, & call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_) & solver=solver,prefix=trim(prefix_)//"_sm2a")
end if end if
end subroutine mld_s_base_onelev_dump end subroutine mld_s_base_onelev_dump

10
mlprec/impl/level/mld_z_base_onelev_dump.f90
Unescape Escape View File

@ -120,13 +120,13 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if end if
end if end if
if (allocated(lv%sm)) & if (allocated(lv%sm)) then
& call lv%sm%dump(icontxt,level,info,smoother=smoother, & call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix) & solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, & call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_) & solver=solver,prefix=trim(prefix_)//"_sm2a")
end if end if
end subroutine mld_z_base_onelev_dump end subroutine mld_z_base_onelev_dump

Write Preview
Loading…
Cancel
Save