subroutine int_Bz_run1154(val,eval) implicit none integer i,n parameter(n=1101) double precision temp(n), norm(n) double precision val,eval,slop,y_int c write (*,*) 'Give z Position (mm)' c read (*,*) val data temp/-50.0, !z postion in mm -KG & -49.0, & -48.0, & -47.0, & -46.0, & -45.0, & -44.0, & -43.0, & -42.0, & -41.0, & -40.0, & -39.0, & -38.0, & -37.0, & -36.0, & -35.0, & -34.0, & -33.0, & -32.0, & -31.0, & -30.0, & -29.0, & -28.0, & -27.0, & -26.0, & -25.0, & -24.0, & -23.0, & -22.0, & -21.0, & -20.0, & -19.0, & -18.0, & -17.0, & -16.0, & -15.0, & -14.0, & -13.0, & -12.0, & -11.0, & -10.0, & -9.0, & -8.0, & -7.0, & -6.0, & -5.0, & -4.0, & -3.0, & -2.0, & -1.0, & 0.0, & 1.0, & 2.0, & 3.0, & 4.0, & 5.0, & 6.0, & 7.0, & 8.0, & 9.0, & 10.0, & 11.0, & 12.0, & 13.0, & 14.0, & 15.0, & 16.0, & 17.0, & 18.0, & 19.0, & 20.0, & 21.0, & 22.0, & 23.0, & 24.0, & 25.0, & 26.0, & 27.0, & 28.0, & 29.0, & 30.0, & 31.0, & 32.0, & 33.0, & 34.0, & 35.0, & 36.0, & 37.0, & 38.0, & 39.0, & 40.0, & 41.0, & 42.0, & 43.0, & 44.0, & 45.0, & 46.0, & 47.0, & 48.0, & 49.0, & 50.0, & 51.0, & 52.0, & 53.0, & 54.0, & 55.0, & 56.0, & 57.0, & 58.0, & 59.0, & 60.0, & 61.0, & 62.0, & 63.0, & 64.0, & 65.0, & 66.0, & 67.0, & 68.0, & 69.0, & 70.0, & 71.0, & 72.0, & 73.0, & 74.0, & 75.0, & 76.0, & 77.0, & 78.0, & 79.0, & 80.0, & 81.0, & 82.0, & 83.0, & 84.0, & 85.0, & 86.0, & 87.0, & 88.0, & 89.0, & 90.0, & 91.0, & 92.0, & 93.0, & 94.0, & 95.0, & 96.0, & 97.0, & 98.0, & 99.0, & 100.0, & 101.0, & 102.0, & 103.0, & 104.0, & 105.0, & 106.0, & 107.0, & 108.0, & 109.0, & 110.0, & 111.0, & 112.0, & 113.0, & 114.0, & 115.0, & 116.0, & 117.0, & 118.0, & 119.0, & 120.0, & 121.0, & 122.0, & 123.0, & 124.0, & 125.0, & 126.0, & 127.0, & 128.0, & 129.0, & 130.0, & 131.0, & 132.0, & 133.0, & 134.0, & 135.0, & 136.0, & 137.0, & 138.0, & 139.0, & 140.0, & 141.0, & 142.0, & 143.0, & 144.0, & 145.0, & 146.0, & 147.0, & 148.0, & 149.0, & 150.0, & 151.0, & 152.0, & 153.0, & 154.0, & 155.0, & 156.0, & 157.0, & 158.0, & 159.0, & 160.0, & 161.0, & 162.0, & 163.0, & 164.0, & 165.0, & 166.0, & 167.0, & 168.0, & 169.0, & 170.0, & 171.0, & 172.0, & 173.0, & 174.0, & 175.0, & 176.0, & 177.0, & 178.0, & 179.0, & 180.0, & 181.0, & 182.0, & 183.0, & 184.0, & 185.0, & 186.0, & 187.0, & 188.0, & 189.0, & 190.0, & 191.0, & 192.0, & 193.0, & 194.0, & 195.0, & 196.0, & 197.0, & 198.0, & 199.0, & 200.0, & 201.0, & 202.0, & 203.0, & 204.0, & 205.0, & 206.0, & 207.0, & 208.0, & 209.0, & 210.0, & 211.0, & 212.0, & 213.0, & 214.0, & 215.0, & 216.0, & 217.0, & 218.0, & 219.0, & 220.0, & 221.0, & 222.0, & 223.0, & 224.0, & 225.0, & 226.0, & 227.0, & 228.0, & 229.0, & 230.0, & 231.0, & 232.0, & 233.0, & 234.0, & 235.0, & 236.0, & 237.0, & 238.0, & 239.0, & 240.0, & 241.0, & 242.0, & 243.0, & 244.0, & 245.0, & 246.0, & 247.0, & 248.0, & 249.0, & 250.0, & 251.0, & 252.0, & 253.0, & 254.0, & 255.0, & 256.0, & 257.0, & 258.0, & 259.0, & 260.0, & 261.0, & 262.0, & 263.0, & 264.0, & 265.0, & 266.0, & 267.0, & 268.0, & 269.0, & 270.0, & 271.0, & 272.0, & 273.0, & 274.0, & 275.0, & 276.0, & 277.0, & 278.0, & 279.0, & 280.0, & 281.0, & 282.0, & 283.0, & 284.0, & 285.0, & 286.0, & 287.0, & 288.0, & 289.0, & 290.0, & 291.0, & 292.0, & 293.0, & 294.0, & 295.0, & 296.0, & 297.0, & 298.0, & 299.0, & 300.0, & 301.0, & 302.0, & 303.0, & 304.0, & 305.0, & 306.0, & 307.0, & 308.0, & 309.0, & 310.0, & 311.0, & 312.0, & 313.0, & 314.0, & 315.0, & 316.0, & 317.0, & 318.0, & 319.0, & 320.0, & 321.0, & 322.0, & 323.0, & 324.0, & 325.0, & 326.0, & 327.0, & 328.0, & 329.0, & 330.0, & 331.0, & 332.0, & 333.0, & 334.0, & 335.0, & 336.0, & 337.0, & 338.0, & 339.0, & 340.0, & 341.0, & 342.0, & 343.0, & 344.0, & 345.0, & 346.0, & 347.0, & 348.0, & 349.0, & 350.0, & 351.0, & 352.0, & 353.0, & 354.0, & 355.0, & 356.0, & 357.0, & 358.0, & 359.0, & 360.0, & 361.0, & 362.0, & 363.0, & 364.0, & 365.0, & 366.0, & 367.0, & 368.0, & 369.0, & 370.0, & 371.0, & 372.0, & 373.0, & 374.0, & 375.0, & 376.0, & 377.0, & 378.0, & 379.0, & 380.0, & 381.0, & 382.0, & 383.0, & 384.0, & 385.0, & 386.0, & 387.0, & 388.0, & 389.0, & 390.0, & 391.0, & 392.0, & 393.0, & 394.0, & 395.0, & 396.0, & 397.0, & 398.0, & 399.0, & 400.0, & 401.0, & 402.0, & 403.0, & 404.0, & 405.0, & 406.0, & 407.0, & 408.0, & 409.0, & 410.0, & 411.0, & 412.0, & 413.0, & 414.0, & 415.0, & 416.0, & 417.0, & 418.0, & 419.0, & 420.0, & 421.0, & 422.0, & 423.0, & 424.0, & 425.0, & 426.0, & 427.0, & 428.0, & 429.0, & 430.0, & 431.0, & 432.0, & 433.0, & 434.0, & 435.0, & 436.0, & 437.0, & 438.0, & 439.0, & 440.0, & 441.0, & 442.0, & 443.0, & 444.0, & 445.0, & 446.0, & 447.0, & 448.0, & 449.0, & 450.0, & 451.0, & 452.0, & 453.0, & 454.0, & 455.0, & 456.0, & 457.0, & 458.0, & 459.0, & 460.0, & 461.0, & 462.0, & 463.0, & 464.0, & 465.0, & 466.0, & 467.0, & 468.0, & 469.0, & 470.0, & 471.0, & 472.0, & 473.0, & 474.0, & 475.0, & 476.0, & 477.0, & 478.0, & 479.0, & 480.0, & 481.0, & 482.0, & 483.0, & 484.0, & 485.0, & 486.0, & 487.0, & 488.0, & 489.0, & 490.0, & 491.0, & 492.0, & 493.0, & 494.0, & 495.0, & 496.0, & 497.0, & 498.0, & 499.0, & 500.0, & 501.0, & 502.0, & 503.0, & 504.0, & 505.0, & 506.0, & 507.0, & 508.0, & 509.0, & 510.0, & 511.0, & 512.0, & 513.0, & 514.0, & 515.0, & 516.0, & 517.0, & 518.0, & 519.0, & 520.0, & 521.0, & 522.0, & 523.0, & 524.0, & 525.0, & 526.0, & 527.0, & 528.0, & 529.0, & 530.0, & 531.0, & 532.0, & 533.0, & 534.0, & 535.0, & 536.0, & 537.0, & 538.0, & 539.0, & 540.0, & 541.0, & 542.0, & 543.0, & 544.0, & 545.0, & 546.0, & 547.0, & 548.0, & 549.0, & 550.0, & 551.0, & 552.0, & 553.0, & 554.0, & 555.0, & 556.0, & 557.0, & 558.0, & 559.0, & 560.0, & 561.0, & 562.0, & 563.0, & 564.0, & 565.0, & 566.0, & 567.0, & 568.0, & 569.0, & 570.0, & 571.0, & 572.0, & 573.0, & 574.0, & 575.0, & 576.0, & 577.0, & 578.0, & 579.0, & 580.0, & 581.0, & 582.0, & 583.0, & 584.0, & 585.0, & 586.0, & 587.0, & 588.0, & 589.0, & 590.0, & 591.0, & 592.0, & 593.0, & 594.0, & 595.0, & 596.0, & 597.0, & 598.0, & 599.0, & 600.0, & 601.0, & 602.0, & 603.0, & 604.0, & 605.0, & 606.0, & 607.0, & 608.0, & 609.0, & 610.0, & 611.0, & 612.0, & 613.0, & 614.0, & 615.0, & 616.0, & 617.0, & 618.0, & 619.0, & 620.0, & 621.0, & 622.0, & 623.0, & 624.0, & 625.0, & 626.0, & 627.0, & 628.0, & 629.0, & 630.0, & 631.0, & 632.0, & 633.0, & 634.0, & 635.0, & 636.0, & 637.0, & 638.0, & 639.0, & 640.0, & 641.0, & 642.0, & 643.0, & 644.0, & 645.0, & 646.0, & 647.0, & 648.0, & 649.0, & 650.0, & 651.0, & 652.0, & 653.0, & 654.0, & 655.0, & 656.0, & 657.0, & 658.0, & 659.0, & 660.0, & 661.0, & 662.0, & 663.0, & 664.0, & 665.0, & 666.0, & 667.0, & 668.0, & 669.0, & 670.0, & 671.0, & 672.0, & 673.0, & 674.0, & 675.0, & 676.0, & 677.0, & 678.0, & 679.0, & 680.0, & 681.0, & 682.0, & 683.0, & 684.0, & 685.0, & 686.0, & 687.0, & 688.0, & 689.0, & 690.0, & 691.0, & 692.0, & 693.0, & 694.0, & 695.0, & 696.0, & 697.0, & 698.0, & 699.0, & 700.0, & 701.0, & 702.0, & 703.0, & 704.0, & 705.0, & 706.0, & 707.0, & 708.0, & 709.0, & 710.0, & 711.0, & 712.0, & 713.0, & 714.0, & 715.0, & 716.0, & 717.0, & 718.0, & 719.0, & 720.0, & 721.0, & 722.0, & 723.0, & 724.0, & 725.0, & 726.0, & 727.0, & 728.0, & 729.0, & 730.0, & 731.0, & 732.0, & 733.0, & 734.0, & 735.0, & 736.0, & 737.0, & 738.0, & 739.0, & 740.0, & 741.0, & 742.0, & 743.0, & 744.0, & 745.0, & 746.0, & 747.0, & 748.0, & 749.0, & 750.0, & 751.0, & 752.0, & 753.0, & 754.0, & 755.0, & 756.0, & 757.0, & 758.0, & 759.0, & 760.0, & 761.0, & 762.0, & 763.0, & 764.0, & 765.0, & 766.0, & 767.0, & 768.0, & 769.0, & 770.0, & 771.0, & 772.0, & 773.0, & 774.0, & 775.0, & 776.0, & 777.0, & 778.0, & 779.0, & 780.0, & 781.0, & 782.0, & 783.0, & 784.0, & 785.0, & 786.0, & 787.0, & 788.0, & 789.0, & 790.0, & 791.0, & 792.0, & 793.0, & 794.0, & 795.0, & 796.0, & 797.0, & 798.0, & 799.0, & 800.0, & 801.0, & 802.0, & 803.0, & 804.0, & 805.0, & 806.0, & 807.0, & 808.0, & 809.0, & 810.0, & 811.0, & 812.0, & 813.0, & 814.0, & 815.0, & 816.0, & 817.0, & 818.0, & 819.0, & 820.0, & 821.0, & 822.0, & 823.0, & 824.0, & 825.0, & 826.0, & 827.0, & 828.0, & 829.0, & 830.0, & 831.0, & 832.0, & 833.0, & 834.0, & 835.0, & 836.0, & 837.0, & 838.0, & 839.0, & 840.0, & 841.0, & 842.0, & 843.0, & 844.0, & 845.0, & 846.0, & 847.0, & 848.0, & 849.0, & 850.0, & 851.0, & 852.0, & 853.0, & 854.0, & 855.0, & 856.0, & 857.0, & 858.0, & 859.0, & 860.0, & 861.0, & 862.0, & 863.0, & 864.0, & 865.0, & 866.0, & 867.0, & 868.0, & 869.0, & 870.0, & 871.0, & 872.0, & 873.0, & 874.0, & 875.0, & 876.0, & 877.0, & 878.0, & 879.0, & 880.0, & 881.0, & 882.0, & 883.0, & 884.0, & 885.0, & 886.0, & 887.0, & 888.0, & 889.0, & 890.0, & 891.0, & 892.0, & 893.0, & 894.0, & 895.0, & 896.0, & 897.0, & 898.0, & 899.0, & 900.0, & 901.0, & 902.0, & 903.0, & 904.0, & 905.0, & 906.0, & 907.0, & 908.0, & 909.0, & 910.0, & 911.0, & 912.0, & 913.0, & 914.0, & 915.0, & 916.0, & 917.0, & 918.0, & 919.0, & 920.0, & 921.0, & 922.0, & 923.0, & 924.0, & 925.0, & 926.0, & 927.0, & 928.0, & 929.0, & 930.0, & 931.0, & 932.0, & 933.0, & 934.0, & 935.0, & 936.0, & 937.0, & 938.0, & 939.0, & 940.0, & 941.0, & 942.0, & 943.0, & 944.0, & 945.0, & 946.0, & 947.0, & 948.0, & 949.0, & 950.0, & 951.0, & 952.0, & 953.0, & 954.0, & 955.0, & 956.0, & 957.0, & 958.0, & 959.0, & 960.0, & 961.0, & 962.0, & 963.0, & 964.0, & 965.0, & 966.0, & 967.0, & 968.0, & 969.0, & 970.0, & 971.0, & 972.0, & 973.0, & 974.0, & 975.0, & 976.0, & 977.0, & 978.0, & 979.0, & 980.0, & 981.0, & 982.0, & 983.0, & 984.0, & 985.0, & 986.0, & 987.0, & 988.0, & 989.0, & 990.0, & 991.0, & 992.0, & 993.0, & 994.0, & 995.0, & 996.0, & 997.0, & 998.0, & 999.0, &1000.0, &1001.0, &1002.0, &1003.0, &1004.0, &1005.0, &1006.0, &1007.0, &1008.0, &1009.0, &1010.0, &1011.0, &1012.0, &1013.0, &1014.0, &1015.0, &1016.0, &1017.0, &1018.0, &1019.0, &1020.0, &1021.0, &1022.0, &1023.0, &1024.0, &1025.0, &1026.0, &1027.0, &1028.0, &1029.0, &1030.0, &1031.0, &1032.0, &1033.0, &1034.0, &1035.0, &1036.0, &1037.0, &1038.0, &1039.0, &1040.0, &1041.0, &1042.0, &1043.0, &1044.0, &1045.0, &1046.0, &1047.0, &1048.0, &1049.0, &1050.0/ ! (mm) data norm/0.0000,!integral Bz*dz for run 1154 -KG & -0.6590, & -1.3127, & -1.9612, & -2.6044, & -3.2424, & -3.8752, & -4.5028, & -5.1252, & -5.7425, & -6.3546, & -6.9617, & -7.5637, & -8.1607, & -8.7527, & -9.3396, & -9.9216, & -10.4987, & -11.0708, & -11.6380, & -12.2003, & -12.7578, & -13.3104, & -13.8582, & -14.4012, & -14.9395, & -15.4730, & -16.0018, & -16.5259, & -17.0453, & -17.5601, & -18.0702, & -18.5757, & -19.0767, & -19.5730, & -20.0649, & -20.5522, & -21.0350, & -21.5134, & -21.9873, & -22.4567, & -22.9218, & -23.3825, & -23.8388, & -24.2907, & -24.7384, & -25.1817, & -25.6208, & -26.0556, & -26.4862, & -26.9126, & -27.3347, & -27.7527, & -28.1666, & -28.5764, & -28.9820, & -29.3835, & -29.7810, & -30.1745, & -30.5639, & -30.9493, & -31.3308, & -31.7083, & -32.0819, & -32.4515, & -32.8173, & -33.1792, & -33.5372, & -33.8914, & -34.2418, & -34.5884, & -34.9312, & -35.2703, & -35.6057, & -35.9374, & -36.2653, & -36.5896, & -36.9103, & -37.2273, & -37.5407, & -37.8506, & -38.1569, & -38.4596, & -38.7588, & -39.0545, & -39.3467, & -39.6355, & -39.9208, & -40.2027, & -40.4812, & -40.7562, & -41.0280, & -41.2964, & -41.5614, & -41.8232, & -42.0816, & -42.3368, & -42.5887, & -42.8375, & -43.0830, & -43.3253, & -43.5644, & -43.8004, & -44.0332, & -44.2630, & -44.4896, & -44.7132, & -44.9337, & -45.1512, & -45.3656, & -45.5770, & -45.7855, & -45.9910, & -46.1936, & -46.3932, & -46.5899, & -46.7837, & -46.9747, & -47.1628, & -47.3481, & -47.5305, & -47.7102, & -47.8871, & -48.0612, & -48.2326, & -48.4012, & -48.5671, & -48.7304, & -48.8910, & -49.0489, & -49.2042, & -49.3568, & -49.5069, & -49.6544, & -49.7993, & -49.9417, & -50.0815, & -50.2189, & -50.3537, & -50.4861, & -50.6159, & -50.7434, & -50.8684, & -50.9910, & -51.1113, & -51.2291, & -51.3446, & -51.4578, & -51.5686, & -51.6771, & -51.7834, & -51.8873, & -51.9890, & -52.0885, & -52.1857, & -52.2808, & -52.3736, & -52.4643, & -52.5528, & -52.6392, & -52.7234, & -52.8056, & -52.8856, & -52.9636, & -53.0395, & -53.1134, & -53.1852, & -53.2551, & -53.3229, & -53.3888, & -53.4527, & -53.5146, & -53.5747, & -53.6328, & -53.6890, & -53.7433, & -53.7958, & -53.8464, & -53.8951, & -53.9421, & -53.9872, & -54.0306, & -54.0721, & -54.1120, & -54.1500, & -54.1864, & -54.2210, & -54.2539, & -54.2851, & -54.3147, & -54.3426, & -54.3689, & -54.3935, & -54.4166, & -54.4380, & -54.4579, & -54.4762, & -54.4929, & -54.5081, & -54.5218, & -54.5340, & -54.5447, & -54.5539, & -54.5616, & -54.5679, & -54.5728, & -54.5762, & -54.5783, & -54.5789, & -54.5781, & -54.5760, & -54.5726, & -54.5678, & -54.5616, & -54.5542, & -54.5455, & -54.5354, & -54.5242, & -54.5116, & -54.4978, & -54.4828, & -54.4666, & -54.4492, & -54.4305, & -54.4108, & -54.3898, & -54.3677, & -54.3445, & -54.3201, & -54.2946, & -54.2681, & -54.2404, & -54.2117, & -54.1819, & -54.1511, & -54.1193, & -54.0864, & -54.0525, & -54.0177, & -53.9818, & -53.9450, & -53.9073, & -53.8685, & -53.8289, & -53.7883, & -53.7469, & -53.7045, & -53.6613, & -53.6172, & -53.5722, & -53.5264, & -53.4797, & -53.4323, & -53.3840, & -53.3349, & -53.2851, & -53.2344, & -53.1830, & -53.1309, & -53.0780, & -53.0244, & -52.9701, & -52.9151, & -52.8593, & -52.8029, & -52.7459, & -52.6881, & -52.6298, & -52.5708, & -52.5111, & -52.4509, & -52.3900, & -52.3286, & -52.2666, & -52.2040, & -52.1408, & -52.0771, & -52.0129, & -51.9481, & -51.8829, & -51.8171, & -51.7508, & -51.6841, & -51.6168, & -51.5491, & -51.4810, & -51.4124, & -51.3434, & -51.2740, & -51.2041, & -51.1339, & -51.0632, & -50.9922, & -50.9208, & -50.8491, & -50.7770, & -50.7045, & -50.6318, & -50.5587, & -50.4853, & -50.4116, & -50.3376, & -50.2633, & -50.1887, & -50.1139, & -50.0389, & -49.9636, & -49.8880, & -49.8122, & -49.7362, & -49.6601, & -49.5837, & -49.5071, & -49.4303, & -49.3534, & -49.2763, & -49.1991, & -49.1217, & -49.0441, & -48.9665, & -48.8887, & -48.8108, & -48.7329, & -48.6548, & -48.5767, & -48.4984, & -48.4201, & -48.3418, & -48.2634, & -48.1850, & -48.1065, & -48.0280, & -47.9495, & -47.8710, & -47.7925, & -47.7139, & -47.6355, & -47.5570, & -47.4786, & -47.4002, & -47.3218, & -47.2435, & -47.1653, & -47.0871, & -47.0090, & -46.9310, & -46.8531, & -46.7753, & -46.6977, & -46.6201, & -46.5426, & -46.4653, & -46.3881, & -46.3111, & -46.2342, & -46.1574, & -46.0809, & -46.0045, & -45.9283, & -45.8523, & -45.7764, & -45.7008, & -45.6254, & -45.5502, & -45.4752, & -45.4004, & -45.3259, & -45.2516, & -45.1775, & -45.1038, & -45.0302, & -44.9570, & -44.8840, & -44.8113, & -44.7388, & -44.6667, & -44.5948, & -44.5233, & -44.4521, & -44.3812, & -44.3106, & -44.2403, & -44.1703, & -44.1007, & -44.0315, & -43.9626, & -43.8940, & -43.8258, & -43.7580, & -43.6906, & -43.6235, & -43.5568, & -43.4905, & -43.4246, & -43.3590, & -43.2939, & -43.2292, & -43.1649, & -43.1010, & -43.0376, & -42.9746, & -42.9120, & -42.8498, & -42.7881, & -42.7268, & -42.6660, & -42.6057, & -42.5458, & -42.4864, & -42.4274, & -42.3689, & -42.3109, & -42.2534, & -42.1964, & -42.1398, & -42.0838, & -42.0282, & -41.9732, & -41.9187, & -41.8647, & -41.8112, & -41.7582, & -41.7057, & -41.6538, & -41.6024, & -41.5516, & -41.5012, & -41.4515, & -41.4023, & -41.3536, & -41.3055, & -41.2579, & -41.2109, & -41.1645, & -41.1186, & -41.0733, & -41.0286, & -40.9844, & -40.9408, & -40.8979, & -40.8555, & -40.8136, & -40.7724, & -40.7318, & -40.6918, & -40.6524, & -40.6136, & -40.5753, & -40.5377, & -40.5007, & -40.4644, & -40.4286, & -40.3935, & -40.3589, & -40.3251, & -40.2918, & -40.2591, & -40.2271, & -40.1958, & -40.1650, & -40.1349, & -40.1054, & -40.0766, & -40.0484, & -40.0209, & -39.9940, & -39.9678, & -39.9422, & -39.9172, & -39.8929, & -39.8693, & -39.8463, & -39.8240, & -39.8024, & -39.7814, & -39.7610, & -39.7414, & -39.7224, & -39.7040, & -39.6863, & -39.6693, & -39.6530, & -39.6373, & -39.6224, & -39.6080, & -39.5944, & -39.5814, & -39.5691, & -39.5575, & -39.5466, & -39.5363, & -39.5267, & -39.5178, & -39.5096, & -39.5020, & -39.4951, & -39.4889, & -39.4834, & -39.4786, & -39.4744, & -39.4710, & -39.4682, & -39.4661, & -39.4646, & -39.4639, & -39.4638, & -39.4644, & -39.4657, & -39.4677, & -39.4704, & -39.4737, & -39.4777, & -39.4824, & -39.4878, & -39.4938, & -39.5006, & -39.5080, & -39.5161, & -39.5248, & -39.5343, & -39.5444, & -39.5551, & -39.5666, & -39.5787, & -39.5915, & -39.6050, & -39.6191, & -39.6339, & -39.6494, & -39.6655, & -39.6823, & -39.6998, & -39.7179, & -39.7367, & -39.7561, & -39.7762, & -39.7970, & -39.8184, & -39.8404, & -39.8631, & -39.8865, & -39.9105, & -39.9351, & -39.9604, & -39.9863, & -40.0129, & -40.0401, & -40.0679, & -40.0964, & -40.1255, & -40.1552, & -40.1856, & -40.2166, & -40.2482, & -40.2804, & -40.3132, & -40.3467, & -40.3808, & -40.4154, & -40.4507, & -40.4866, & -40.5231, & -40.5602, & -40.5978, & -40.6361, & -40.6750, & -40.7144, & -40.7544, & -40.7951, & -40.8362, & -40.8780, & -40.9203, & -40.9632, & -41.0067, & -41.0507, & -41.0953, & -41.1404, & -41.1861, & -41.2324, & -41.2791, & -41.3264, & -41.3743, & -41.4227, & -41.4716, & -41.5210, & -41.5710, & -41.6215, & -41.6725, & -41.7239, & -41.7759, & -41.8285, & -41.8814, & -41.9349, & -41.9889, & -42.0434, & -42.0983, & -42.1537, & -42.2096, & -42.2660, & -42.3228, & -42.3801, & -42.4378, & -42.4959, & -42.5546, & -42.6136, & -42.6731, & -42.7330, & -42.7933, & -42.8541, & -42.9153, & -42.9768, & -43.0388, & -43.1012, & -43.1639, & -43.2271, & -43.2906, & -43.3546, & -43.4188, & -43.4835, & -43.5485, & -43.6139, & -43.6796, & -43.7456, & -43.8120, & -43.8787, & -43.9458, & -44.0132, & -44.0809, & -44.1489, & -44.2172, & -44.2858, & -44.3546, & -44.4238, & -44.4933, & -44.5630, & -44.6330, & -44.7032, & -44.7737, & -44.8444, & -44.9154, & -44.9866, & -45.0581, & -45.1298, & -45.2016, & -45.2737, & -45.3460, & -45.4185, & -45.4911, & -45.5640, & -45.6370, & -45.7102, & -45.7835, & -45.8570, & -45.9307, & -46.0045, & -46.0784, & -46.1524, & -46.2265, & -46.3008, & -46.3751, & -46.4496, & -46.5241, & -46.5987, & -46.6734, & -46.7482, & -46.8230, & -46.8978, & -46.9727, & -47.0476, & -47.1226, & -47.1975, & -47.2725, & -47.3475, & -47.4224, & -47.4974, & -47.5723, & -47.6472, & -47.7220, & -47.7968, & -47.8715, & -47.9462, & -48.0208, & -48.0953, & -48.1698, & -48.2441, & -48.3183, & -48.3924, & -48.4664, & -48.5402, & -48.6139, & -48.6874, & -48.7608, & -48.8340, & -48.9070, & -48.9799, & -49.0525, & -49.1250, & -49.1972, & -49.2692, & -49.3409, & -49.4124, & -49.4837, & -49.5547, & -49.6254, & -49.6958, & -49.7660, & -49.8358, & -49.9054, & -49.9746, & -50.0435, & -50.1120, & -50.1802, & -50.2480, & -50.3155, & -50.3826, & -50.4493, & -50.5156, & -50.5814, & -50.6469, & -50.7119, & -50.7765, & -50.8407, & -50.9043, & -50.9675, & -51.0302, & -51.0924, & -51.1542, & -51.2154, & -51.2760, & -51.3362, & -51.3958, & -51.4548, & -51.5133, & -51.5711, & -51.6284, & -51.6851, & -51.7412, & -51.7966, & -51.8514, & -51.9056, & -51.9591, & -52.0120, & -52.0641, & -52.1156, & -52.1663, & -52.2164, & -52.2657, & -52.3143, & -52.3621, & -52.4092, & -52.4555, & -52.5010, & -52.5457, & -52.5896, & -52.6327, & -52.6749, & -52.7163, & -52.7569, & -52.7966, & -52.8353, & -52.8732, & -52.9102, & -52.9463, & -52.9815, & -53.0157, & -53.0489, & -53.0812, & -53.1125, & -53.1428, & -53.1721, & -53.2004, & -53.2276, & -53.2538, & -53.2790, & -53.3030, & -53.3260, & -53.3479, & -53.3687, & -53.3884, & -53.4069, & -53.4243, & -53.4405, & -53.4556, & -53.4694, & -53.4821, & -53.4935, & -53.5037, & -53.5127, & -53.5204, & -53.5268, & -53.5320, & -53.5359, & -53.5384, & -53.5397, & -53.5395, & -53.5381, & -53.5353, & -53.5311, & -53.5255, & -53.5184, & -53.5100, & -53.5001, & -53.4888, & -53.4760, & -53.4618, & -53.4460, & -53.4288, & -53.4100, & -53.3897, & -53.3678, & -53.3443, & -53.3193, & -53.2927, & -53.2645, & -53.2346, & -53.2031, & -53.1700, & -53.1352, & -53.0986, & -53.0604, & -53.0205, & -52.9789, & -52.9355, & -52.8903, & -52.8434, & -52.7947, & -52.7441, & -52.6918, & -52.6376, & -52.5816, & -52.5237, & -52.4639, & -52.4022, & -52.3386, & -52.2730, & -52.2055, & -52.1361, & -52.0647, & -51.9912, & -51.9158, & -51.8383, & -51.7588, & -51.6773, & -51.5936, & -51.5079, & -51.4201, & -51.3301, & -51.2380, & -51.1437, & -51.0473, & -50.9487, & -50.8478, & -50.7448, & -50.6395, & -50.5319, & -50.4221, & -50.3100, & -50.1956, & -50.0788, & -49.9597, & -49.8383, & -49.7145, & -49.5883, & -49.4597, & -49.3286, & -49.1951, & -49.0592, & -48.9207, & -48.7798, & -48.6364, & -48.4904, & -48.3419, & -48.1908, & -48.0371, & -47.8809, & -47.7220, & -47.5605, & -47.3963, & -47.2294, & -47.0599, & -46.8877, & -46.7127, & -46.5350, & -46.3545, & -46.1712, & -45.9852, & -45.7963, & -45.6046, & -45.4101, & -45.2126, & -45.0123, & -44.8091, & -44.6029, & -44.3938, & -44.1817, & -43.9667, & -43.7486, & -43.5276, & -43.3035, & -43.0763, & -42.8460, & -42.6127, & -42.3762, & -42.1366, & -41.8939, & -41.6480, & -41.3989, & -41.1466, & -40.8910, & -40.6322, & -40.3701, & -40.1048, & -39.8361, & -39.5641, & -39.2888, & -39.0101, & -38.7280, & -38.4425, & -38.1536, & -37.8612, & -37.5654, & -37.2661, & -36.9632, & -36.6569, & -36.3470, & -36.0336, & -35.7165, & -35.3959, & -35.0716, & -34.7437, & -34.4121, & -34.0768, & -33.7378, & -33.3951, & -33.0487, & -32.6984, & -32.3444, & -31.9866, & -31.6249, & -31.2594, & -30.8901, & -30.5168, & -30.1396, & -29.7585, & -29.3734, & -28.9843, & -28.5913, & -28.1942, & -27.7931, & -27.3879, & -26.9787, & -26.5653, & -26.1478, & -25.7262, & -25.3004, & -24.8704, & -24.4362, & -23.9977, & -23.5550, & -23.1081, & -22.6568, & -22.2012, & -21.7412, & -21.2769, & -20.8083, & -20.3352, & -19.8576, & -19.3757, & -18.8892, & -18.3983, & -17.9028, & -17.4028, & -16.8982, & -16.3890, & -15.8753, & -15.3569, & -14.8338, & -14.3061, & -13.7737, & -13.2365, & -12.6946, & -12.1480, & -11.5965, & -11.0403, & -10.4792, & -9.9132, & -9.3423, & -8.7666, & -8.1859, & -7.6003, & -7.0097, & -6.4141, & -5.8135, & -5.2078, & -4.5971, & -3.9813, & -3.3604, & -2.7343, & -2.1031, & -1.4666, & -0.8250, & -0.1782, & 0.4738, & 1.1312, & 1.7939, & 2.4620, & 3.1353, & 3.8141, & 4.4982, & 5.1878, & 5.8828, & 6.5833, & 7.2893, & 8.0008, & 8.7179, & 9.4405, & 10.1688, & 10.9026, & 11.6421, & 12.3872, & 13.1381, & 13.8946, & 14.6569, & 15.4250, & 16.1989, & 16.9785, & 17.7640, & 18.5554, & 19.3527, & 20.1559, & 20.9650, & 21.7801, & 22.6012, & 23.4283, & 24.2614, & 25.1007, & 25.9460, & 26.7974, & 27.6549, & 28.5187, & 29.3886, & 30.2648, & 31.1472, & 32.0358, & 32.9308, & 33.8321, & 34.7397, & 35.6537, & 36.5742, & 37.5010, & 38.4343, & 39.3741, & 40.3204, & 41.2732, & 42.2325, & 43.1985, & 44.1711, & 45.1503, & 46.1361, & 47.1287, & 48.1280, & 49.1340, & 50.1468, & 51.1664, & 52.1928, & 53.2260, & 54.2662, & 55.3132, & 56.3672, & 57.4281, & 58.4960, & 59.5709, & 60.6529, & 61.7419, & 62.8380, & 63.9413, & 65.0516, & 66.1692, & 67.2940, & 68.4260, & 69.5652, & 70.7117, & 71.8656, & 73.0268, & 74.1953, & 75.3713, & 76.5547, & 77.7455, & 78.9438, & 80.1496, & 81.3629, & 82.5839, & 83.8124, & 85.0485, & 86.2922, & 87.5437, & 88.8028, & 90.0697, & 91.3443, & 92.6268, & 93.9170/ * do i=1,n-1 if(val.lt.temp(1).or.val.gt.temp(n)) then write(*,*) val,temp(1),temp(n) write(*,*) 'z value is out of range ... intBz code' stop elseif(val.eq.temp(i)) then eval = norm(i) elseif(val.eq.temp(i+1)) then eval = norm(i+1) elseif(val.gt.temp(i).and.val.lt.temp(i+1)) then slop = (norm(i+1)-norm(i))/(temp(i+1)-temp(i)) y_int = norm(i) - slop*temp(i) eval = slop*val+y_int goto 100 !-KG else continue endif enddo c 100 eval = eval*1.236 !magnify intBz. Elog sim. post 11 -KG c write (*,*) 'Bz_INT = ', eval 100 return end