      program zp
      write(6,"(f12.4)") 5.e-7*exp(17.)
      end program zp
