0.15d0, 1.00d0, 20.0d0, 100

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