, . , Fortran E ( ). E , - , , , .
Fortran .
program test_format
real :: num1, num2, num3
open (unit=16, file="numbers_3.txt", status='old', access='sequential', form='formatted', action='read' )
read (16, 1010 ) num1
read (16, 1010 ) num2
read (16, 1010 ) num3
1010 format (E9.5)
write (*, *) num1, num2, num3
stop
end program test_format
:
3.1473E3
0.31473E4
3147.3
gfortran Intel ifort. :
3147.300 3147.300 3147.300
Fortran E , . , E-!
/P.S. FORTRAN 77 g77 - . E- - , FORTRAN IV, , .