----------------------- G7 Drag function file --------------------

R Retardation fps.s.
V Velocity fps.

R=A*V^m

G7 Ballistic Constants

     V(feet/sec)        A                          m

        IF V2 > 4200 THEN A = 1.29081656775919D-09: M = 3.24121295355962: RETURN
        IF V2 > 3000 THEN A = 0.0171422231434847  : M = 1.27907168025204: RETURN
        IF V2 > 1470 THEN A = 2.33355948302505D-03: M = 1.52693913274526: RETURN
        IF V2 > 1260 THEN A = 7.97592111627665D-04: M = 1.67688974440324: RETURN
        IF V2 > 1110 THEN A = 5.71086414289273D-12: M = 4.3212826264889 : RETURN
        IF V2 >  960 THEN A = 3.02865108244904D-17: M = 5.99074203776707: RETURN
        IF V2 >  670 THEN A = 7.52285155782535D-06: M = 2.1738019851075 : RETURN
        IF V2 >  540 THEN A = 1.31766281225189D-05: M = 2.08774690257991: RETURN
        IF V2 >    0 THEN A = 1.34504843776525D-05: M = 2.08702306738884: RETURN