FUNCTION EFFG(Z)
      DATA G/1.35/
      DATA RPLANT/2575./
      EFFG = G * (RPLANT/(RPLANT + Z ) )**2
      RETURN
      END