PROGRAM muoto
  IMPLICIT NONE
  REAL :: x
  CHARACTER(LEN=11) :: form1
  CHARACTER(LEN=*), PARAMETER :: form2 = '(F12.3,A)'
  x = 12.0
  form1 = '(F12.3,A)'
  WRITE (*, form1) x, ' hello '
  WRITE (*, form2) 2*x, ' hi '
   WRITE (*, '(F12.3,A)') 3*x, ' hi hi '
END PROGRAM muoto