fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update WRITE format string

Browse Source
This commit is contained in:
sfilippone
2025-09-19 10:29:30 +02:00
parent 2539b6c715
commit 13d4bc39d5
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
linsolve/psb_base_linsolve_conv_mod.f90
+3 -3
View File
@@ -76,7 +76,7 @@ contains
character(len=*), intent(in) :: methdname
integer(psb_ipk_), intent(in) :: me, itx, itrace
real(psb_dpk_), intent(in) :: errnum, errden, eps
character(len=*), parameter :: fmt='(a18,1x,i4,3(2x,es15.9))'
character(len=*), parameter :: fmt='(a18,1x,i4,3(2x,es18.9))'
integer(psb_ipk_), parameter :: outlen=18
character(len=len(methdname)) :: mname
character(len=outlen) :: outname
@@ -102,8 +102,8 @@ contains
real(psb_dpk_), optional, intent(out) :: err
integer(psb_ipk_), optional, intent(out) :: iter
character(len=*), parameter :: fmt='(a,2x,es15.9,1x,a,1x,i4,1x,a)'
character(len=*), parameter :: fmt1='(a,3(2x,es15.9))'
character(len=*), parameter :: fmt='(a,2x,es18.9,1x,a,1x,i4,1x,a)'
character(len=*), parameter :: fmt1='(a,3(2x,es18.9))'
if (errden == dzero) then
if (errnum > eps) then