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 'repackage' of github.com:sfilippone/amg4psblas into repackage

Browse Source
This commit is contained in:
sfilippone
2025-02-09 16:32:40 +01:00
parent 161b93da64 8d4af1ba9f
commit 1aef82023c
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/level/amg_c_base_onelev_descr.f90
+1 -1
View File
@@ -129,7 +129,7 @@ subroutine amg_c_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
& ' avg:', & & ' avg:', &
& lv%linmap%nagavg & lv%linmap%nagavg
end if end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),& write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', & & ' Aggregation ratio: ', &
& lv%szratio & lv%szratio
end if end if
amgprec/impl/level/amg_d_base_onelev_descr.f90
+1 -1
View File
@@ -129,7 +129,7 @@ subroutine amg_d_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
& ' avg:', & & ' avg:', &
& lv%linmap%nagavg & lv%linmap%nagavg
end if end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),& write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', & & ' Aggregation ratio: ', &
& lv%szratio & lv%szratio
end if end if
amgprec/impl/level/amg_s_base_onelev_descr.f90
+1 -1
View File
@@ -129,7 +129,7 @@ subroutine amg_s_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
& ' avg:', & & ' avg:', &
& lv%linmap%nagavg & lv%linmap%nagavg
end if end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),& write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', & & ' Aggregation ratio: ', &
& lv%szratio & lv%szratio
end if end if
amgprec/impl/level/amg_z_base_onelev_descr.f90
+1 -1
View File
@@ -129,7 +129,7 @@ subroutine amg_z_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
& ' avg:', & & ' avg:', &
& lv%linmap%nagavg & lv%linmap%nagavg
end if end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),& write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', & & ' Aggregation ratio: ', &
& lv%szratio & lv%szratio
end if end if