program test
          implicit none
          REAL:: age, y, z, feh
          OPEN(1,file='input.txt')
          read(1,*) age, y, z
          close(1)
          feh = z/0.017

          OPEN(2,file='result.txt',status='replace')
          WRITE(2,*) age, y, z, feh
          close(2)
      end program test