character*80 cht
      data cht /'fred'/
      integer title
      the=90.
      gam=90.
      phi=0.
      scale=0.71
      read(cht,20)title
      write(cht,10)the,gam,phi,scale
  10  format('theta',f5.0,'gama',f5.0,' phi',f5.0,'scale',f5.2)
      read(cht,20)title
  20  format(20a4)
      stop
      end