program write_text
c This program test a fortran trick to convert numeircal value to text.
      real x
      character*80 string
      
      x = 123.4567

      write (*,*) 'Test 1:'
      write (string,'(F8.3)') x
      write (*,*) string

      write (*,*) 'Test 2:'
      write (string,'(F8.4)') x
      write (*,*) string

      write (*,*) 'Test 3:'
      write (string,'(F9.5)') x
      write (*,*) string

      end