program satellite

C********************************************************************
C  Compute the speed of a satellite given the celestial body's constant
C	and the distance between celestial body and satellite.
C
C  Use speed = sqrt(C/D)
C********************************************************************

      real speed, distance, constant

      print *, 'Enter the celestial body constant: '
      read *, constant

      print *, 'Enter the distance between the celestial body and ',
     +         'satellite (in miles): '
      read *, distance

      print *, 'The speed of the satellite must be: ',
     +         sqrt(constant/distance), ' miles per hour'

      stop
      end