Commit dc235187 authored by Matthias Redies's avatar Matthias Redies

remove output warings

parent fad0bfaa
......@@ -507,7 +507,7 @@ CONTAINS
END IF
990 FORMAT(2(f8.4,1x),i3,1x,i3)
1000 FORMAT(e10.4)
1001 FORMAT(e12.4)
1010 FORMAT(2(2e20.8,1x))
!
! ------------------------------------------------------------
......
......@@ -54,7 +54,7 @@ contains
if(num >= 1e-1 .and. num <= 1e4) then
write (ret_str,"(F10.5)") num
else
write (ret_str,"(ES10.4)") num
write (ret_str,"(ES12.4)") num
endif
ret_str = strip(ret_str)
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