static   int     k_40_max   = 65;
static   float   k_40_low   =     3500.0;
static   float   k_40_high  =    39000.0;
static float k_flux_40[NUM_MAG][65] = {
    {
        2.8734236E-05, 5.2318935E-05, 1.0095337E-04, 2.1060413E-04, 4.3182248E-04, 
        8.0675897E-04, 1.3892328E-03, 2.2577586E-03, 3.4792467E-03, 5.0755414E-03, 
        7.0193827E-03, 9.2689265E-03, 1.1777071E-02, 1.4539434E-02, 1.7529673E-02, 
        2.0804701E-02, 2.4458770E-02, 2.8174271E-02, 3.2295593E-02, 3.6887224E-02, 
        4.1946674E-02, 4.7429620E-02, 5.3349247E-02, 5.9646957E-02, 6.6259296E-02, 
        7.3226537E-02, 8.0519291E-02, 8.8238833E-02, 9.6190985E-02, 1.0439157E-01, 
        1.1284767E-01, 1.2156005E-01, 1.3050130E-01, 1.3966442E-01, 1.4903054E-01, 
        1.5860261E-01, 1.6835466E-01, 1.7827755E-01, 1.8835067E-01, 2.3013270E-01, 
        2.7441209E-01, 3.2160338E-01, 3.7228604E-01, 4.2703649E-01, 4.8631200E-01, 
        5.5050093E-01, 6.1995064E-01, 6.9510735E-01, 7.7595857E-01, 8.6227195E-01, 
        9.5352225E-01, 1.0502478E+00, 1.1539633E+00, 1.2667085E+00, 1.3899646E+00, 
        1.5213622E+00, 1.6561970E+00, 1.7907029E+00, 1.9172873E+00, 2.0349585E+00, 
        2.1427575E+00, 2.2416610E+00, 2.3334252E+00, 2.4212230E+00, 2.5073582E+00,     },
    {
        3.4615334E-04, 6.8292044E-04, 1.3296054E-03, 2.4017249E-03, 3.9789694E-03, 
        6.0992535E-03, 8.8089115E-03, 1.2207612E-02, 1.6410984E-02, 2.1516266E-02, 
        2.7573811E-02, 3.4706351E-02, 4.2989566E-02, 5.2546558E-02, 6.3485392E-02, 
        7.5997252E-02, 9.4780127E-02, 1.1086811E-01, 1.2913651E-01, 1.4967406E-01, 
        1.6951996E-01, 1.8817316E-01, 2.0615340E-01, 2.2378919E-01, 2.4109625E-01, 
        2.5815707E-01, 2.7504786E-01, 2.9173644E-01, 3.0833425E-01, 3.2486534E-01, 
        3.4133839E-01, 3.5784454E-01, 3.7434561E-01, 3.9093633E-01, 4.0749640E-01, 
        4.2424186E-01, 4.4097007E-01, 4.5781846E-01, 4.7473203E-01, 5.4324723E-01, 
        6.1372789E-01, 6.8686976E-01, 7.6325832E-01, 8.4365453E-01, 9.2844858E-01, 
        1.0180614E+00, 1.1127625E+00, 1.2126016E+00, 1.3178792E+00, 1.4284603E+00, 
        1.5448760E+00, 1.6679437E+00, 1.7997859E+00, 1.9423882E+00, 2.0961449E+00, 
        2.2576151E+00, 2.4212976E+00, 2.5827884E+00, 2.7339692E+00, 2.8748044E+00, 
        3.0043712E+00, 3.1243475E+00, 3.2367171E+00, 3.3447317E+00, 3.4511747E+00,     },
    {
        9.2440378E-04, 1.7568831E-03, 3.1230769E-03, 5.0649100E-03, 7.5714000E-03, 
        1.0664973E-02, 1.4306683E-02, 1.8437249E-02, 2.3054499E-02, 2.8194084E-02, 
        3.3885229E-02, 4.0216099E-02, 4.7260812E-02, 5.5104234E-02, 6.3850534E-02, 
        7.3507034E-02, 8.7464330E-02, 9.8972849E-02, 1.1100131E-01, 1.2307723E-01, 
        1.3477095E-01, 1.4600776E-01, 1.5660893E-01, 1.6683037E-01, 1.7683405E-01, 
        1.8670852E-01, 1.9654389E-01, 2.0637724E-01, 2.1620101E-01, 2.2609788E-01, 
        2.3604244E-01, 2.4605022E-01, 2.5608096E-01, 2.6618350E-01, 2.7624693E-01, 
        2.8640274E-01, 2.9651781E-01, 3.0667447E-01, 3.1680934E-01, 3.5754519E-01, 
        3.9883128E-01, 4.4116462E-01, 4.8496102E-01, 5.3075656E-01, 5.7888093E-01, 
        6.2973023E-01, 6.8365428E-01, 7.4070605E-01, 8.0088012E-01, 8.6402577E-01, 
        9.2986164E-01, 9.9880765E-01, 1.0718789E+00, 1.1506596E+00, 1.2356780E+00, 
        1.3258492E+00, 1.4178836E+00, 1.5095848E+00, 1.5956860E+00, 1.6755751E+00, 
        1.7484929E+00, 1.8150467E+00, 1.8765873E+00, 1.9356534E+00, 1.9936709E+00,     },
    {
        2.9995854E-03, 5.2754109E-03, 8.5983968E-03, 1.2759894E-02, 1.7554832E-02, 
        2.3078564E-02, 2.9368364E-02, 3.6360074E-02, 4.3971324E-02, 5.2162984E-02, 
        6.0967239E-02, 7.0435018E-02, 8.0613843E-02, 9.1543933E-02, 1.0332931E-01, 
        1.1588727E-01, 1.3242975E-01, 1.4628910E-01, 1.6020940E-01, 1.7355350E-01, 
        1.8657285E-01, 1.9952900E-01, 2.1201105E-01, 2.2412482E-01, 2.3612352E-01, 
        2.4808564E-01, 2.6011564E-01, 2.7231399E-01, 2.8453714E-01, 2.9688744E-01, 
        3.0937344E-01, 3.2193284E-01, 3.3454424E-01, 3.4725214E-01, 3.5992139E-01, 
        3.7258629E-01, 3.8526889E-01, 3.9789604E-01, 4.1053494E-01, 4.6079604E-01, 
        5.1117394E-01, 5.6236389E-01, 6.1499424E-01, 6.6968148E-01, 7.2684163E-01, 
        7.8707688E-01, 8.5082718E-01, 9.1833813E-01, 9.8963498E-01, 1.0643495E+00, 
        1.1420531E+00, 1.2226957E+00, 1.3078562E+00, 1.3991067E+00, 1.4985337E+00, 
        1.6045185E+00, 1.7141872E+00, 1.8252625E+00, 1.9307750E+00, 2.0297375E+00, 
        2.1199130E+00, 2.2021512E+00, 2.2775029E+00, 2.3485502E+00, 2.4183917E+00,     },
    {
        1.6523460E-02, 2.3061851E-02, 3.1452038E-02, 4.1445034E-02, 5.2660390E-02, 
        6.5002503E-02, 7.8383047E-02, 9.2649180E-02, 1.0751625E-01, 1.2279903E-01, 
        1.3847369E-01, 1.5448837E-01, 1.7084657E-01, 1.8756588E-01, 2.0468235E-01, 
        2.2204267E-01, 2.3983523E-01, 2.5685037E-01, 2.7348337E-01, 2.8925807E-01, 
        3.0493097E-01, 3.2073241E-01, 3.3639092E-01, 3.5186205E-01, 3.6738407E-01, 
        3.8311508E-01, 3.9898950E-01, 4.1527830E-01, 4.3155818E-01, 4.4810678E-01, 
        4.6463176E-01, 4.8136699E-01, 4.9814694E-01, 5.1490894E-01, 5.3162259E-01, 
        5.4832356E-01, 5.6500306E-01, 5.8151386E-01, 5.9793658E-01, 6.6281330E-01, 
        7.2685136E-01, 7.9110104E-01, 8.5632927E-01, 9.2355692E-01, 9.9354155E-01, 
        1.0667987E+00, 1.1440857E+00, 1.2260430E+00, 1.3129549E+00, 1.4045288E+00, 
        1.4996147E+00, 1.5974433E+00, 1.6991087E+00, 1.8070897E+00, 1.9247219E+00, 
        2.0517574E+00, 2.1853087E+00, 2.3225020E+00, 2.4560445E+00, 2.5844702E+00, 
        2.7043601E+00, 2.8130898E+00, 2.9111545E+00, 3.0023772E+00, 3.0908097E+00,     },
    {
        2.7840732E-02, 3.5481967E-02, 4.4460781E-02, 5.3621882E-02, 6.3107828E-02, 
        7.2864469E-02, 8.2771131E-02, 9.2671068E-02, 1.0249514E-01, 1.1224772E-01, 
        1.2208368E-01, 1.3200265E-01, 1.4202908E-01, 1.5208859E-01, 1.6224836E-01, 
        1.7244119E-01, 1.8425438E-01, 1.9381224E-01, 2.0298182E-01, 2.1142803E-01, 
        2.1973145E-01, 2.2806944E-01, 2.3622090E-01, 2.4423695E-01, 2.5219765E-01, 
        2.6019666E-01, 2.6826391E-01, 2.7653644E-01, 2.8480932E-01, 2.9320921E-01, 
        3.0167051E-01, 3.1021038E-01, 3.1878043E-01, 3.2737160E-01, 3.3591815E-01, 
        3.4446952E-01, 3.5298346E-01, 3.6142007E-01, 3.6974096E-01, 4.0259464E-01, 
        4.3471468E-01, 4.6666614E-01, 4.9897627E-01, 5.3210667E-01, 5.6628860E-01, 
        6.0195184E-01, 6.3942900E-01, 6.7907949E-01, 7.2118973E-01, 7.6560367E-01, 
        8.1166274E-01, 8.5883975E-01, 9.0746385E-01, 9.5883385E-01, 1.0146507E+00, 
        1.0752895E+00, 1.1395024E+00, 1.2060072E+00, 1.2715319E+00, 1.3353985E+00, 
        1.3956397E+00, 1.4502750E+00, 1.4990592E+00, 1.5437441E+00, 1.5865208E+00,     },
    {
        2.9453482E-02, 3.8531464E-02, 4.6103397E-02, 5.1092967E-02, 5.5221387E-02, 
        5.9272094E-02, 6.3155834E-02, 6.7045500E-02, 7.0777536E-02, 7.4311509E-02, 
        7.7964552E-02, 8.1608820E-02, 8.5219485E-02, 8.8813815E-02, 9.2413138E-02, 
        9.5988138E-02, 1.0003837E-01, 1.0300177E-01, 1.0598295E-01, 1.0887204E-01, 
        1.1185534E-01, 1.1494702E-01, 1.1817263E-01, 1.2142636E-01, 1.2473484E-01, 
        1.2813220E-01, 1.3163286E-01, 1.3525468E-01, 1.3891075E-01, 1.4262423E-01, 
        1.4639159E-01, 1.5020015E-01, 1.5402682E-01, 1.5785859E-01, 1.6168223E-01, 
        1.6549632E-01, 1.6928975E-01, 1.7304706E-01, 1.7677472E-01, 1.9137107E-01, 
        2.0558515E-01, 2.1964006E-01, 2.3377232E-01, 2.4820200E-01, 2.6308106E-01, 
        2.7850392E-01, 2.9458738E-01, 3.1162135E-01, 3.2970850E-01, 3.4882446E-01, 
        3.6877444E-01, 3.8912403E-01, 4.0994633E-01, 4.3177583E-01, 4.5547887E-01, 
        4.8136799E-01, 5.0913639E-01, 5.3812342E-01, 5.6686757E-01, 5.9527145E-01, 
        6.2256804E-01, 6.4757920E-01, 6.6980122E-01, 6.8978216E-01, 7.0866756E-01,     },
    {
        5.2309202E-02, 6.4240254E-02, 7.4413019E-02, 8.1500683E-02, 8.7571697E-02, 
        9.3514735E-02, 9.9406834E-02, 1.0522996E-01, 1.1105342E-01, 1.1706765E-01, 
        1.2260831E-01, 1.2807878E-01, 1.3305502E-01, 1.3850144E-01, 1.4391548E-01, 
        1.4925991E-01, 1.5361869E-01, 1.5818181E-01, 1.6286012E-01, 1.6722830E-01, 
        1.7166376E-01, 1.7612443E-01, 1.8061420E-01, 1.8511518E-01, 1.8964313E-01, 
        1.9425390E-01, 1.9895832E-01, 2.0378247E-01, 2.0870387E-01, 2.1371923E-01, 
        2.1883555E-01, 2.2401567E-01, 2.2926399E-01, 2.3452792E-01, 2.3981666E-01, 
        2.4509854E-01, 2.5035010E-01, 2.5554502E-01, 2.6072443E-01, 2.8089952E-01, 
        3.0044817E-01, 3.1968304E-01, 3.3894767E-01, 3.5853350E-01, 3.7864384E-01, 
        3.9946668E-01, 4.2113290E-01, 4.4392971E-01, 4.6814156E-01, 4.9377574E-01, 
        5.2051197E-01, 5.4787303E-01, 5.7570512E-01, 6.0470667E-01, 6.3638376E-01, 
        6.7102894E-01, 7.0845686E-01, 7.4778612E-01, 7.8680983E-01, 8.2565734E-01, 
        8.6343791E-01, 8.9839024E-01, 9.2947346E-01, 9.5723172E-01, 9.8305195E-01,     },
    {
        3.3532329E-04, 6.2137073E-04, 1.2700382E-03, 2.9668031E-03, 6.8165928E-03, 
        1.3632080E-02, 2.4294047E-02, 3.9997712E-02, 6.1551390E-02, 8.8997482E-02, 
        1.2175198E-01, 1.5913103E-01, 2.0014927E-01, 2.4448824E-01, 2.9178938E-01, 
        3.4213566E-01, 3.8169805E-01, 4.3222122E-01, 4.8716257E-01, 5.4779770E-01, 
        6.1703872E-01, 6.9502346E-01, 7.8120423E-01, 8.7468595E-01, 9.7663622E-01, 
        1.0882390E+00, 1.2102437E+00, 1.3440740E+00, 1.4884052E+00, 1.6442408E+00, 
        1.8112077E+00, 1.9889723E+00, 2.1770417E+00, 2.3739228E+00, 2.5785520E+00, 
        2.7907078E+00, 3.0090592E+00, 3.2327458E+00, 3.4614507E+00, 4.4207414E+00, 
        5.4489023E+00, 6.5540792E+00, 7.7502509E+00, 9.0531434E+00, 1.0475339E+01, 
        1.2029996E+01, 1.3730507E+01, 1.5585730E+01, 1.7598903E+01, 1.9753512E+01, 
        2.2038468E+01, 2.4456549E+01, 2.7053479E+01, 2.9882957E+01, 3.2990930E+01, 
        3.6319652E+01, 3.9746281E+01, 4.3174437E+01, 4.6400620E+01, 4.9393198E+01, 
        5.2125732E+01, 5.4625155E+01, 5.6941605E+01, 5.9156283E+01, 6.1325704E+01,     },
    {
        2.1093030E-03, 3.8607562E-03, 7.3689960E-03, 1.3936027E-02, 2.5198210E-02, 
        4.2106359E-02, 6.5485030E-02, 9.6918220E-02, 1.3767854E-01, 1.8862779E-01, 
        2.5020929E-01, 3.2375433E-01, 4.1028774E-01, 5.1160832E-01, 6.2864050E-01, 
        7.6442752E-01, 9.6965639E-01, 1.1491009E+00, 1.3588347E+00, 1.6041456E+00, 
        1.8422008E+00, 2.0660754E+00, 2.2831510E+00, 2.4971512E+00, 2.7063807E+00, 
        2.9118307E+00, 3.1142778E+00, 3.3135284E+00, 3.5111119E+00, 3.7069981E+00, 
        3.9016128E+00, 4.0964536E+00, 4.2911888E+00, 4.4867490E+00, 4.6816906E+00, 
        4.8790628E+00, 5.0762449E+00, 5.2749934E+00, 5.4747827E+00, 6.2852016E+00, 
        7.1218708E+00, 7.9930124E+00, 8.9050225E+00, 9.8671715E+00, 1.0882410E+01, 
        1.1957605E+01, 1.3092352E+01, 1.4293057E+01, 1.5555899E+01, 1.6891600E+01, 
        1.8298411E+01, 1.9796945E+01, 2.1407945E+01, 2.3152842E+01, 2.5032988E+01, 
        2.7006942E+01, 2.9003768E+01, 3.0968540E+01, 3.2811087E+01, 3.4524513E+01, 
        3.6106133E+01, 3.7574596E+01, 3.8950002E+01, 4.0271492E+01, 4.1570197E+01,     },
    {
        4.1615785E-03, 8.7751898E-03, 1.7729227E-02, 3.1540692E-02, 4.9996756E-02, 
        7.3201580E-02, 1.0154530E-01, 1.3552488E-01, 1.7571094E-01, 2.2274879E-01, 
        2.7684565E-01, 3.3925915E-01, 4.1124250E-01, 4.9434321E-01, 5.9028701E-01, 
        7.0002198E-01, 8.6937288E-01, 1.0097415E+00, 1.1666879E+00, 1.3383436E+00, 
        1.4995910E+00, 1.6466577E+00, 1.7845927E+00, 1.9170263E+00, 2.0463533E+00, 
        2.1733846E+00, 2.2992971E+00, 2.4232156E+00, 2.5475480E+00, 2.6721080E+00, 
        2.7967383E+00, 2.9220469E+00, 3.0475192E+00, 3.1738364E+00, 3.3000044E+00, 
        3.4275771E+00, 3.5547420E+00, 3.6827828E+00, 3.8109682E+00, 4.3289513E+00, 
        4.8579052E+00, 5.4042117E+00, 5.9717309E+00, 6.5668135E+00, 7.1932535E+00, 
        7.8545631E+00, 8.5550979E+00, 9.2905284E+00, 1.0066250E+01, 1.0876651E+01, 
        1.1727852E+01, 1.2623295E+01, 1.3580250E+01, 1.4608447E+01, 1.5715687E+01, 
        1.6877244E+01, 1.8053923E+01, 1.9217082E+01, 2.0305061E+01, 2.1318432E+01, 
        2.2252085E+01, 2.3117203E+01, 2.3929777E+01, 2.4714290E+01, 2.5489310E+01,     },
    {
        5.7915180E-03, 1.1145346E-02, 2.0214964E-02, 3.3181279E-02, 4.9458617E-02, 
        6.9055248E-02, 9.2100598E-02, 1.1850952E-01, 1.4826274E-01, 1.8156394E-01, 
        2.1852085E-01, 2.5968366E-01, 3.0557973E-01, 3.5676670E-01, 4.1395131E-01, 
        4.7718860E-01, 5.6913978E-01, 6.4480058E-01, 7.2384619E-01, 8.0311402E-01, 
        8.7996249E-01, 9.5384837E-01, 1.0236367E+00, 1.0908598E+00, 1.1565929E+00, 
        1.2214697E+00, 1.2859642E+00, 1.3504067E+00, 1.4148186E+00, 1.4796233E+00, 
        1.5446750E+00, 1.6102082E+00, 1.6758189E+00, 1.7419728E+00, 1.8078514E+00, 
        1.8743487E+00, 1.9405759E+00, 2.0070543E+00, 2.0735016E+00, 2.3402692E+00, 
        2.6107610E+00, 2.8880832E+00, 3.1750321E+00, 3.4752452E+00, 3.7907278E+00, 
        4.1243137E+00, 4.4779609E+00, 4.8520753E+00, 5.2460877E+00, 5.6589747E+00, 
        6.0891604E+00, 6.5400926E+00, 7.0179741E+00, 7.5315023E+00, 8.0864163E+00, 
        8.6751395E+00, 9.2741361E+00, 9.8707120E+00, 1.0430195E+01, 1.0948083E+01, 
        1.1421251E+01, 1.1852739E+01, 1.2252852E+01, 1.2636685E+01, 1.3015215E+01,     },
};

static float k_temp_40[65] = {        3500.0,
        3750.0,
        4000.0,
        4250.0,
        4500.0,
        4750.0,
        5000.0,
        5250.0,
        5500.0,
        5750.0,
        6000.0,
        6250.0,
        6500.0,
        6750.0,
        7000.0,
        7250.0,
        7500.0,
        7750.0,
        8000.0,
        8250.0,
        8500.0,
        8750.0,
        9000.0,
        9250.0,
        9500.0,
        9750.0,
       10000.0,
       10250.0,
       10500.0,
       10750.0,
       11000.0,
       11250.0,
       11500.0,
       11750.0,
       12000.0,
       12250.0,
       12500.0,
       12750.0,
       13000.0,
       14000.0,
       15000.0,
       16000.0,
       17000.0,
       18000.0,
       19000.0,
       20000.0,
       21000.0,
       22000.0,
       23000.0,
       24000.0,
       25000.0,
       26000.0,
       27000.0,
       28000.0,
       29000.0,
       30000.0,
       31000.0,
       32000.0,
       33000.0,
       34000.0,
       35000.0,
       36000.0,
       37000.0,
       38000.0,
       39000.0,
};