fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'repackage' of github.com:sfilippone/amg4psblas into repackage

Browse Source
repackage
sfilippone 1 week ago
parent 161b93da64 8d4af1ba9f
commit 1aef82023c
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
amgprec/impl/level/amg_c_base_onelev_descr.f90
Unescape Escape 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

2
amgprec/impl/level/amg_d_base_onelev_descr.f90
Unescape Escape 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

2
amgprec/impl/level/amg_s_base_onelev_descr.f90
Unescape Escape 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

2
amgprec/impl/level/amg_z_base_onelev_descr.f90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save