0.035d0, 0.40d0, 20.0d0, 100

      Baseball
      write(*,800) "# a, m, h, nmax = ?"
      read(*,*) a, m, h0, nmax
