----------------------- G5 Drag function file --------------------

R Retardation fps.s.
V Velocity fps.

R=A*V^m

G5 Ballistic Constants

     V(feet/sec)        A                          m

	IF V2 > 1730 THEN A = 7.24854775171929D-03: M = 1.41538574492812: RETURN
        IF V2 > 1228 THEN A = 3.50563361516117D-05: M = 2.13077307854948: RETURN
        IF V2 > 1116 THEN A = 1.84029481181151D-13: M = 4.81927320350395: RETURN
        IF V2 > 1004 THEN A = 1.34713064017409D-22: M = 7.8100555281422 : RETURN
        IF V2 >  837 THEN A = 1.03965974081168D-07: M = 2.84204791809926: RETURN
        IF V2 >  335 THEN A = 1.09301593869823D-04: M = 1.81096361579504: RETURN
        IF V2 >    0 THEN A = 3.51963178524273D-05: M = 2.00477856801111: RETURN