----------------------- G1 Drag function file --------------------

R Retardation fps.s.
V Velocity fps.

R=A*V^m

G1 Ballistic Constants

     V(feet/sec)        A                          m

  IF V2 > 4230 THEN A = 1.477404177730177D-04: M = 1.9565: RETURN
  IF V2 > 3680 THEN A = 1.920339268755614D-04: M = 1.925 : RETURN
  IF V2 > 3450 THEN A = 2.894751026819746D-04: M = 1.875 : RETURN
  IF V2 > 3295 THEN A = 4.349905111115636D-04: M = 1.825 : RETURN
  IF V2 > 3130 THEN A = 6.520421871892662D-04: M = 1.775 : RETURN
  IF V2 > 2960 THEN A = 9.748073694078696D-04: M = 1.725 : RETURN
  IF V2 > 2830 THEN A = 1.453721560187286D-03: M = 1.675 : RETURN
  IF V2 > 2680 THEN A = 2.162887202930376D-03: M = 1.625 : RETURN
  IF V2 > 2460 THEN A = 3.209559783129881D-03: M = 1.575 : RETURN
  IF V2 > 2225 THEN A = 3.904368218691249D-03: M = 1.55  : RETURN
  IF V2 > 2015 THEN A = 3.222942271262336D-03: M = 1.575 : RETURN
  IF V2 > 1890 THEN A = 2.203329542297809D-03: M = 1.625 : RETURN
  IF V2 > 1810 THEN A = 1.511001028891904D-03: M = 1.675 : RETURN
  IF V2 > 1730 THEN A = 8.609957592468259D-04: M = 1.75  : RETURN
  IF V2 > 1595 THEN A = 4.086146797305117D-04: M = 1.85  : RETURN
  IF V2 > 1520 THEN A = 1.954473210037398D-04: M = 1.95  : RETURN
  IF V2 > 1420 THEN A = 5.431896266462351D-05: M = 2.125 : RETURN
  IF V2 > 1360 THEN A = 8.847742581674416D-06: M = 2.375 : RETURN
  IF V2 > 1315 THEN A = 1.456922328720298D-06: M = 2.625 : RETURN
  IF V2 > 1280 THEN A = 2.419485191895565D-07: M = 2.875 : RETURN
  IF V2 > 1220 THEN A = 1.657956321067612D-08: M = 3.25  : RETURN
  IF V2 > 1185 THEN A = 4.745469537157371D-10: M = 3.75  : RETURN
  IF V2 > 1150 THEN A = 1.379746590025088D-11: M = 4.25  : RETURN
  IF V2 > 1100 THEN A = 4.070157961147882D-13: M = 4.75  : RETURN
  IF V2 > 1060 THEN A = 2.938236954847331D-14: M = 5.125 : RETURN
  IF V2 > 1025 THEN A = 1.228597370774746D-14: M = 5.25  : RETURN
  IF V2 >  980 THEN A = 2.916938264100495D-14: M = 5.125 : RETURN
  IF V2 >  945 THEN A = 3.855099424807451D-13: M = 4.75  : RETURN
  IF V2 >  905 THEN A = 1.185097045689854D-11: M = 4.25  : RETURN
  IF V2 >  860 THEN A = 3.566129470974951D-10: M = 3.75  : RETURN
  IF V2 >  810 THEN A = 1.045513263966272D-08: M = 3.25  : RETURN
  IF V2 >  780 THEN A = 1.291159200846216D-07: M = 2.875 : RETURN
  IF V2 >  750 THEN A = 6.824429329105383D-07: M = 2.625 : RETURN
  IF V2 >  700 THEN A = 3.569169672385163D-06: M = 2.375 : RETURN
  IF V2 >  640 THEN A = 1.839015095899579D-05: M = 2.125 : RETURN
  IF V2 >  600 THEN A = 5.71117468873424D-05 : M = 1.950 : RETURN
  IF V2 >  550 THEN A = 9.226557091973427D-05: M = 1.875 : RETURN
  IF V2 >  250 THEN A = 9.337991957131389D-05: M = 1.875 : RETURN
  IF V2 >  100 THEN A = 7.225247327590413D-05: M = 1.925 : RETURN
  IF V2 >   65 THEN A = 5.792684957074546D-05: M = 1.975 : RETURN
  IF V2 >    0 THEN A = 5.206214107320588D-05: M = 2.000 : RETURN
----------------------------------------------------------------------