C     GOTRAN PROGRAM FOR ORBITAL VELOCITY CALCULATION
      PROGRAM ORBITAL
      IMPLICIT REAL*8 (A-H,O-Z)

C     CONSTANTS
      PARAMETER (G = 6.674D-11)
      PARAMETER (MEARTH = 5.972D24)

C     INPUT PARAMETERS
      RALT = 400000.0D0
      REARTH = 6371000.0D0

C     COMPUTE ORBITAL RADIUS
      R = REARTH + RALT

C     COMPUTE ORBITAL VELOCITY
      V = DSQRT(G * MEARTH / R)

C     OUTPUT RESULTS
      WRITE(6,100) RALT/1000.0D0
      WRITE(6,110) V/1000.0D0

  100 FORMAT(' ALTITUDE: ', F10.2, ' KM')
  110 FORMAT(' ORBITAL VELOCITY: ', F10.4, ' KM/S')

      STOP
      END
