fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
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.
This commit is contained in:
Salvatore Filippone
2012-07-17 15:49:12 +00:00
parent d632c2ad03
commit bfd0d14a2a
12 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_as_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_c_base_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_c_onelev_impl.f90
+2 -1
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
mlprec/impl/mld_d_as_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_d_base_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_d_onelev_impl.f90
+2 -1
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
mlprec/impl/mld_s_as_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_s_base_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_s_onelev_impl.f90
+2 -1
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
mlprec/impl/mld_z_as_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_z_base_smoother_impl.f90
+1 -1
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
mlprec/impl/mld_z_onelev_impl.f90
+2 -1
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