----------------------- G6 Drag function file --------------------

R Retardation fps.s.
V Velocity fps.

R=A*V^m

G6 Ballistic Constants

     V(feet/sec)        A                          m

        IF V2 > 3236 THEN A = 0.0455384883480781   : M = 1.15997674041274: RETURN
        IF V2 > 2065 THEN A = 7.167261849653769D-02: M = 1.10704436538885: RETURN
        IF V2 > 1311 THEN A = 1.66676386084348D-03 : M = 1.60085100195952: RETURN
        IF V2 > 1144 THEN A = 1.01482730119215D-07 : M = 2.9569674731838 : RETURN
        IF V2 > 1004 THEN A = 4.31542773103552D-18 : M = 6.34106317069757: RETURN
        IF V2 >  670 THEN A = 2.04835650496866D-05 : M = 2.11688446325998: RETURN
        IF V2 >    0 THEN A = 7.50912466084823D-05 : M = 1.92031057847052: RETURN