fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed dump smoother.

Browse Source
This commit is contained in:
Salvatore Filippone
2017-10-05 17:16:16 +01:00
parent 39b7d031c5
commit 3cd6ede9f1
4 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_dump.f90
+5 -5
View File
@@ -120,13 +120,13 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
if (allocated(lv%sm)) then
call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_)
& solver=solver,prefix=trim(prefix_)//"_sm2a")
end if
end subroutine mld_c_base_onelev_dump
mlprec/impl/level/mld_d_base_onelev_dump.f90
+5 -5
View File
@@ -120,13 +120,13 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
if (allocated(lv%sm)) then
call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_)
& solver=solver,prefix=trim(prefix_)//"_sm2a")
end if
end subroutine mld_d_base_onelev_dump
mlprec/impl/level/mld_s_base_onelev_dump.f90
+5 -5
View File
@@ -120,13 +120,13 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
if (allocated(lv%sm)) then
call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_)
& solver=solver,prefix=trim(prefix_)//"_sm2a")
end if
end subroutine mld_s_base_onelev_dump
mlprec/impl/level/mld_z_base_onelev_dump.f90
+5 -5
View File
@@ -120,13 +120,13 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,&
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
if (allocated(lv%sm)) then
call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=trim(prefix_)//"_sm")
end if
if (allocated(lv%sm2a)) then
prefix_=trim(prefix_)//"_sm2a"
call lv%sm2a%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix_)
& solver=solver,prefix=trim(prefix_)//"_sm2a")
end if
end subroutine mld_z_base_onelev_dump