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

Merge branch 'PolySmooth' into mboxomp

Browse Source
This commit is contained in:
sfilippone
2024-06-11 09:57:53 +02:00
parent 818ead5878 5d20407b15
commit 41d91120d4
4 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/level/amg_c_base_onelev_memory_use.f90
+1 -2
View File
@@ -98,8 +98,7 @@ subroutine amg_c_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
prefix_ = ""
end if
write(iout_,*) trim(prefix_)
if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_)
if (global_) then
allocate(sz(6))
amgprec/impl/level/amg_d_base_onelev_memory_use.f90
+1 -1
View File
@@ -98,7 +98,7 @@ subroutine amg_d_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
prefix_ = ""
end if
if (me == 0) write(iout_,*) trim(prefix_)
if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_)
if (global_) then
allocate(sz(6))
amgprec/impl/level/amg_s_base_onelev_memory_use.f90
+1 -2
View File
@@ -98,8 +98,7 @@ subroutine amg_s_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
prefix_ = ""
end if
write(iout_,*) trim(prefix_)
if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_)
if (global_) then
allocate(sz(6))
amgprec/impl/level/amg_z_base_onelev_memory_use.f90
+1 -2
View File
@@ -98,8 +98,7 @@ subroutine amg_z_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
prefix_ = ""
end if
write(iout_,*) trim(prefix_)
if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_)
if (global_) then
allocate(sz(6))