PROGRAM printline

   CHARACTER(LEN=80), PARAMETER :: first_name = 'The FIRST name'
   CHARACTER(LEN=80), PARAMETER :: last_name = 'The last name'
   DOUBLE PRECISION, PARAMETER :: cash = 128.73, debt = 0.895371E+12

   WRITE(*, 1000)
   WRITE(*, 2000)
   WRITE(unit=*, fmt=3000) last_name, first_name, cash, debt

1000 FORMAT(' LAST NAME   FIRST       CASH               DEBT')
2000 FORMAT('==========  ======  =========  =================')
3000 FORMAT(A10, 2X, A6, 2X, F9.2, 2X, ES17.9E3)
! width: 10 (mant digits) + 3 (exp digits) + 1 (exp sign) + 1 (man sign)
!        + 1 (E) + 1 (.) = 17

END PROGRAM printline