program splat
      
C*******************************************************
C  Calculate the time it will take for an object to reach
C	the ground from a given height, h.  Give height at each
C	second.  Once that distance is met, print "SPLAT!"
C	dist = 0.5 * g * t * t
C*******************************************************

      real dist, g, t, initHeight
      
      g = 9.80665
      
      print *, 'How high are you dropping from (meters)?'
      read *, initHeight
      
      t = 1.0
      dist = 0.5 * g * t * t
      do while (dist .lt. initHeight) 
	 
	 if(t.eq.1) then
	    print *, 'After ',t,' second, object has dropped ',
     +            dist,' meters.'
         else
	    print *, 'After ',t,' seconds, object has dropped ',
     +            dist,' meters.'
	 end if
     
         t = t + 1
	 dist = 0.5 * g * t * t
      end do
      
      print *, 'SPLAT!!'
      
      stop
      end