!
! File: ~/numerical/test_format.f90
!
! Quick and dirty .f90 prog to look at differences among
! new edit descriptors "EN", "ES", ...
!
! C.G. (12-98)
!
PROGRAM test_format

  IMPLICIT NONE
  REAL, DIMENSION(4) :: x = (/ 1.234, -0.5, 0.00678, 98765.4 /)

  PRINT '( 4E14.3 / 4EN14.3 / 4ES14.3 / 4G14.3 )', x, x, x, x

END PROGRAM test_format
!
! Sample output:
!
!   0.123E+01    -0.500E+00     0.678E-02     0.988E+05
!   1.234E+00  -500.000E-03     6.780E-03    98.765E+03
!   1.234E+00    -5.000E-01     6.780E-03     9.877E+04
!    1.23        -0.500         0.678E-02     0.988E+05
!