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

Fix output formatting bug

Browse Source
repackage
Salvatore Filippone 4 days ago
parent cd87bdb0c1
commit 8d4af1ba9f
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:', &
& lv%linmap%nagavg
end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', &
& lv%szratio
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:', &
& lv%linmap%nagavg
end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', &
& lv%szratio
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:', &
& lv%linmap%nagavg
end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', &
& lv%szratio
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:', &
& lv%linmap%nagavg
end if
write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
& ' Aggregation ratio: ', &
& lv%szratio
end if

Write Preview
Loading…
Cancel
Save