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/mld_c_as_smoother_impl.f90
 mlprec/impl/mld_c_base_smoother_impl.f90
 mlprec/impl/mld_c_onelev_impl.f90
 mlprec/impl/mld_d_as_smoother_impl.f90
 mlprec/impl/mld_d_base_smoother_impl.f90
 mlprec/impl/mld_d_onelev_impl.f90
 mlprec/impl/mld_s_as_smoother_impl.f90
 mlprec/impl/mld_s_base_smoother_impl.f90
 mlprec/impl/mld_s_onelev_impl.f90
 mlprec/impl/mld_z_as_smoother_impl.f90
 mlprec/impl/mld_z_base_smoother_impl.f90
 mlprec/impl/mld_z_onelev_impl.f90

Propagate properly prefix in dump.
stopcriterion
Salvatore Filippone 12 years ago
parent d632c2ad03
commit bfd0d14a2a
12 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/mld_c_as_smoother_impl.f90
Unescape Escape View File

@ -1338,7 +1338,7 @@ subroutine mld_c_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver
end if
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_c_as_smoother_dmp

2
mlprec/impl/mld_c_base_smoother_impl.f90
Unescape Escape View File

@ -475,7 +475,7 @@ subroutine mld_c_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_c_base_smoother_dmp

3
mlprec/impl/mld_c_onelev_impl.f90
Unescape Escape View File

@ -453,7 +453,8 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother,solver=solver)
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
end subroutine mld_c_base_onelev_dump

2
mlprec/impl/mld_d_as_smoother_impl.f90
Unescape Escape View File

@ -1338,7 +1338,7 @@ subroutine mld_d_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver
end if
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_d_as_smoother_dmp

2
mlprec/impl/mld_d_base_smoother_impl.f90
Unescape Escape View File

@ -475,7 +475,7 @@ subroutine mld_d_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_d_base_smoother_dmp

3
mlprec/impl/mld_d_onelev_impl.f90
Unescape Escape View File

@ -453,7 +453,8 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother,solver=solver)
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
end subroutine mld_d_base_onelev_dump

2
mlprec/impl/mld_s_as_smoother_impl.f90
Unescape Escape View File

@ -1338,7 +1338,7 @@ subroutine mld_s_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver
end if
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_s_as_smoother_dmp

2
mlprec/impl/mld_s_base_smoother_impl.f90
Unescape Escape View File

@ -475,7 +475,7 @@ subroutine mld_s_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_s_base_smoother_dmp

3
mlprec/impl/mld_s_onelev_impl.f90
Unescape Escape View File

@ -453,7 +453,8 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother,solver=solver)
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
end subroutine mld_s_base_onelev_dump

2
mlprec/impl/mld_z_as_smoother_impl.f90
Unescape Escape View File

@ -1338,7 +1338,7 @@ subroutine mld_z_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver
end if
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_z_as_smoother_dmp

2
mlprec/impl/mld_z_base_smoother_impl.f90
Unescape Escape View File

@ -475,7 +475,7 @@ subroutine mld_z_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
! At base level do nothing for the smoother
if (allocated(sm%sv)) &
& call sm%sv%dump(ictxt,level,info,solver=solver)
& call sm%sv%dump(ictxt,level,info,solver=solver,prefix=prefix)
end subroutine mld_z_base_smoother_dmp

3
mlprec/impl/mld_z_onelev_impl.f90
Unescape Escape View File

@ -453,7 +453,8 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
end if
end if
if (allocated(lv%sm)) &
& call lv%sm%dump(icontxt,level,info,smoother=smoother,solver=solver)
& call lv%sm%dump(icontxt,level,info,smoother=smoother, &
& solver=solver,prefix=prefix)
end subroutine mld_z_base_onelev_dump

Write Preview
Loading…
Cancel
Save