program test
      integer x,y z
      real f, g, h
      g=1.2
      h=2.3
      f=g*h*sin(g)
      open(unit=5,file='output.txt',status=new)
      write(5,*)f
      close(5)
      end