Commit dc235187 authored by Matthias Redies's avatar Matthias Redies

remove output warings

parent fad0bfaa
...@@ -507,7 +507,7 @@ CONTAINS ...@@ -507,7 +507,7 @@ CONTAINS
END IF END IF
990 FORMAT(2(f8.4,1x),i3,1x,i3) 990 FORMAT(2(f8.4,1x),i3,1x,i3)
1000 FORMAT(e10.4) 1001 FORMAT(e12.4)
1010 FORMAT(2(2e20.8,1x)) 1010 FORMAT(2(2e20.8,1x))
! !
! ------------------------------------------------------------ ! ------------------------------------------------------------
......
...@@ -54,7 +54,7 @@ contains ...@@ -54,7 +54,7 @@ contains
if(num >= 1e-1 .and. num <= 1e4) then if(num >= 1e-1 .and. num <= 1e4) then
write (ret_str,"(F10.5)") num write (ret_str,"(F10.5)") num
else else
write (ret_str,"(ES10.4)") num write (ret_str,"(ES12.4)") num
endif endif
ret_str = strip(ret_str) ret_str = strip(ret_str)
end function float2str end function float2str
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment