subroutine int_Bz_run1449(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 1449 -KG & 0.6813, & 1.3680, & 2.0610, & 2.7603, & 3.4650, & 4.1760, & 4.8933, & 5.6160, & 6.3450, & 7.0803, & 7.8219, & 8.5707, & 9.3258, & 10.0872, & 10.8558, & 11.6307, & 12.4119, & 13.2003, & 13.9959, & 14.7987, & 15.6087, & 16.4259, & 17.2503, & 18.0819, & 18.9207, & 19.7667, & 20.6199, & 21.4812, & 22.3506, & 23.2272, & 24.1119, & 25.0047, & 25.9056, & 26.8146, & 27.7317, & 28.6569, & 29.5902, & 30.5325, & 31.4838, & 32.4432, & 33.4107, & 34.3872, & 35.3727, & 36.3672, & 37.3716, & 38.3859, & 39.4092, & 40.4415, & 41.4837, & 42.5358, & 43.5969, & 44.6679, & 45.7497, & 46.8414, & 47.9430, & 49.0554, & 50.1786, & 51.3126, & 52.4574, & 53.6130, & 54.7794, & 55.9566, & 57.1446, & 58.3443, & 59.5557, & 60.7779, & 62.0118, & 63.2583, & 64.5165, & 65.7864, & 67.0689, & 68.3640, & 69.6717, & 70.9920, & 72.3249, & 73.6704, & 75.0294, & 76.4019, & 77.7879, & 79.1874, & 80.6004, & 82.0278, & 83.4687, & 84.9231, & 86.3919, & 87.8751, & 89.3736, & 90.8874, & 92.4156, & 93.9591, & 95.5179, & 97.0920, & 98.6823, & 100.2890, & 101.9120, & 103.5500, & 105.2060, & 106.8770, & 108.5650, & 110.2710, & 111.9930, & 113.7330, & 115.4900, & 117.2650, & 119.0570, & 120.8680, & 122.6980, & 124.5470, & 126.4130, & 128.2990, & 130.2040, & 132.1290, & 134.0740, & 136.0390, & 138.0230, & 140.0270, & 142.0520, & 144.0980, & 146.1650, & 148.2530, & 150.3620, & 152.4930, & 154.6460, & 156.8210, & 159.0190, & 161.2400, & 163.4830, & 165.7500, & 168.0410, & 170.3550, & 172.6920, & 175.0540, & 177.4400, & 179.8500, & 182.2850, & 184.7460, & 187.2320, & 189.7430, & 192.2810, & 194.8460, & 197.4370, & 200.0550, & 202.7000, & 205.3720, & 208.0710, & 210.7980, & 213.5540, & 216.3380, & 219.1520, & 221.9940, & 224.8650, & 227.7660, & 230.6960, & 233.6560, & 236.6470, & 239.6680, & 242.7210, & 245.8050, & 248.9210, & 252.0680, & 255.2470, & 258.4590, & 261.7050, & 264.9830, & 268.2940, & 271.6390, & 275.0180, & 278.4300, & 281.8780, & 285.3600, & 288.8780, & 292.4300, & 296.0170, & 299.6410, & 303.3000, & 306.9960, & 310.7300, & 314.5000, & 318.3080, & 322.1520, & 326.0340, & 329.9540, & 333.9140, & 337.9110, & 341.9480, & 346.0230, & 350.1380, & 354.2920, & 358.4860, & 362.7200, & 366.9940, & 371.3090, & 375.6640, & 380.0600, & 384.4970, & 388.9750, & 393.4940, & 398.0550, & 402.6580, & 407.3030, & 411.9900, & 416.7200, & 421.4920, & 426.3070, & 431.1650, & 436.0650, & 441.0080, & 445.9940, & 451.0230, & 456.0970, & 461.2140, & 466.3750, & 471.5780, & 476.8260, & 482.1180, & 487.4540, & 492.8320, & 498.2540, & 503.7210, & 509.2320, & 514.7870, & 520.3850, & 526.0270, & 531.7130, & 537.4420, & 543.2150, & 549.0320, & 554.8920, & 560.7960, & 566.7440, & 572.7340, & 578.7680, & 584.8440, & 590.9630, & 597.1250, & 603.3290, & 609.5750, & 615.8630, & 622.1930, & 628.5640, & 634.9760, & 641.4300, & 647.9250, & 654.4610, & 661.0370, & 667.6540, & 674.3110, & 681.0070, & 687.7420, & 694.5170, & 701.3300, & 708.1810, & 715.0710, & 721.9980, & 728.9620, & 735.9630, & 743.0010, & 750.0750, & 757.1840, & 764.3290, & 771.5080, & 778.7210, & 785.9690, & 793.2500, & 800.5640, & 807.9120, & 815.2920, & 822.7040, & 830.1470, & 837.6210, & 845.1260, & 852.6610, & 860.2250, & 867.8200, & 875.4420, & 883.0920, & 890.7700, & 898.4750, & 906.2060, & 913.9650, & 921.7500, & 929.5600, & 937.3960, & 945.2560, & 953.1400, & 961.0480, & 968.9790, & 976.9320, & 984.9080, & 992.9050, & 1000.9200, & 1008.9600, & 1017.0200, & 1025.1100, & 1033.2100, & 1041.3200, & 1049.4600, & 1057.6200, & 1065.7900, & 1073.9800, & 1082.1900, & 1090.4200, & 1098.6600, & 1106.9200, & 1115.1900, & 1123.4800, & 1131.7800, & 1140.0900, & 1148.4200, & 1156.7700, & 1165.1200, & 1173.4900, & 1181.8800, & 1190.2700, & 1198.6700, & 1207.0900, & 1215.5200, & 1223.9600, & 1232.4000, & 1240.8600, & 1249.3300, & 1257.8000, & 1266.2900, & 1274.7800, & 1283.2800, & 1291.7900, & 1300.3000, & 1308.8300, & 1317.3500, & 1325.8900, & 1334.4300, & 1342.9700, & 1351.5300, & 1360.0800, & 1368.6400, & 1377.2000, & 1385.7700, & 1394.3400, & 1402.9100, & 1411.4900, & 1420.0600, & 1428.6400, & 1437.2200, & 1445.8000, & 1454.3800, & 1462.9600, & 1471.5400, & 1480.1200, & 1488.7000, & 1497.2800, & 1505.8600, & 1514.4300, & 1520.0000, & 1531.5700, & 1540.1300, & 1548.6900, & 1557.2400, & 1565.7900, & 1574.3300, & 1582.8700, & 1591.4000, & 1599.9200, & 1608.4400, & 1616.9500, & 1625.4500, & 1633.9400, & 1642.4200, & 1650.8900, & 1659.3600, & 1667.8100, & 1676.2500, & 1684.6800, & 1693.0900, & 1701.4900, & 1709.8900, & 1718.2600, & 1726.6300, & 1734.9700, & 1743.3100, & 1751.6200, & 1759.9200, & 1768.2100, & 1776.4800, & 1784.7300, & 1792.9600, & 1801.1700, & 1809.3700, & 1817.5400, & 1825.6900, & 1833.8300, & 1841.9400, & 1850.0300, & 1858.1000, & 1866.1400, & 1874.1700, & 1882.1600, & 1890.1400, & 1898.0900, & 1906.0100, & 1913.9100, & 1921.7800, & 1929.6300, & 1937.4500, & 1945.2400, & 1950.0000, & 1960.7300, & 1968.4400, & 1976.1100, & 1983.7600, & 1991.3800, & 1998.9600, & 2006.5100, & 2014.0300, & 2021.5100, & 2028.9700, & 2036.3900, & 2043.7700, & 2051.1200, & 2058.4400, & 2065.7200, & 2072.9600, & 2080.1700, & 2087.3400, & 2094.4700, & 2101.5600, & 2108.6200, & 2115.6300, & 2122.6100, & 2129.5400, & 2136.4400, & 2143.2900, & 2150.1000, & 2156.8700, & 2163.5900, & 2170.2700, & 2176.9100, & 2183.5000, & 2190.0500, & 2196.5500, & 2200.0000, & 2209.4100, & 2215.7700, & 2222.0800, & 2228.3400, & 2234.5500, & 2240.7100, & 2246.8200, & 2252.8800, & 2258.8900, & 2264.8400, & 2270.7400, & 2276.5900, & 2282.3800, & 2288.1100, & 2293.7900, & 2299.4200, & 2304.9800, & 2310.4900, & 2315.9400, & 2321.3300, & 2326.6500, & 2331.9200, & 2337.1300, & 2342.2700, & 2347.3500, & 2352.3700, & 2357.3200, & 2362.2000, & 2367.0200, & 2371.7800, & 2376.4600, & 2381.0800, & 2385.6300, & 2390.1100, & 2394.5200, & 2398.8500, & 2403.1200, & 2407.3100, & 2411.4300, & 2415.4800, & 2419.4500, & 2423.3500, & 2427.1700, & 2430.9200, & 2434.5900, & 2438.1700, & 2441.6800, & 2445.1200, & 2448.4700, & 2451.7400, & 2454.9300, & 2458.0400, & 2461.0600, & 2460.0000, & 2466.8600, & 2469.6400, & 2472.3300, & 2474.9300, & 2477.4500, & 2479.8900, & 2482.2300, & 2484.4900, & 2486.6600, & 2488.7500, & 2490.7400, & 2492.6500, & 2494.4600, & 2496.1900, & 2497.8300, & 2499.3700, & 2500.8300, & 2502.1900, & 2503.4600, & 2504.6400, & 2505.7300, & 2506.7300, & 2507.6300, & 2508.4400, & 2509.1600, & 2509.7900, & 2510.3200, & 2510.7600, & 2511.1100, & 2511.3600, & 2511.5200, & 2511.5800, & 2511.5500, & 2511.4300, & 2511.2100, & 2510.9100, & 2510.5000, & 2510.0100, & 2509.4200, & 2508.7400, & 2507.9700, & 2507.1000, & 2506.1400, & 2505.0900, & 2503.9400, & 2502.7100, & 2501.3800, & 2499.9600, & 2498.4500, & 2496.8500, & 2495.1600, & 2493.3800, & 2491.5100, & 2489.5500, & 2487.5100, & 2485.3700, & 2483.1500, & 2480.8300, & 2478.4400, & 2475.9500, & 2473.3800, & 2470.7200, & 2467.9800, & 2465.1600, & 2462.2500, & 2459.2600, & 2456.1800, & 2453.0300, & 2449.7900, & 2446.4700, & 2443.0700, & 2439.5900, & 2436.0300, & 2432.4000, & 2428.6800, & 2424.8900, & 2421.0300, & 2417.0800, & 2413.0700, & 2408.9800, & 2404.8100, & 2400.5800, & 2396.2700, & 2391.8900, & 2387.4400, & 2382.9200, & 2378.3300, & 2373.6700, & 2368.9400, & 2364.1500, & 2359.2900, & 2354.3600, & 2349.3700, & 2344.3200, & 2339.2000, & 2334.0200, & 2328.7800, & 2323.4700, & 2318.1100, & 2312.6900, & 2307.2000, & 2301.6600, & 2296.0600, & 2290.4000, & 2284.6900, & 2278.9200, & 2273.1000, & 2267.2200, & 2261.2900, & 2255.3000, & 2249.2600, & 2243.1700, & 2237.0300, & 2230.8400, & 2224.6000, & 2218.3100, & 2211.9700, & 2205.5800, & 2199.1500, & 2192.6700, & 2186.1400, & 2179.5600, & 2172.9400, & 2166.2800, & 2159.5700, & 2152.8200, & 2146.0300, & 2139.2000, & 2132.3200, & 2125.4000, & 2118.4400, & 2111.4400, & 2104.4000, & 2097.3200, & 2090.2100, & 2083.0500, & 2075.8600, & 2068.6300, & 2061.3700, & 2054.0700, & 2046.7300, & 2039.3600, & 2031.9500, & 2024.5100, & 2017.0400, & 2009.5300, & 2001.9900, & 1994.4200, & 1986.8200, & 1979.1900, & 1971.5200, & 1963.8300, & 1956.1100, & 1948.3600, & 1940.5800, & 1932.7700, & 1924.9400, & 1917.0800, & 1909.1900, & 1901.2700, & 1893.3300, & 1885.3700, & 1877.3800, & 1869.3700, & 1861.3300, & 1853.2700, & 1845.1900, & 1837.0800, & 1828.9600, & 1820.8100, & 1812.6500, & 1804.4600, & 1796.2600, & 1788.0300, & 1779.7900, & 1771.5300, & 1763.2500, & 1754.9600, & 1746.6500, & 1738.3200, & 1729.9800, & 1721.6200, & 1713.2500, & 1704.8600, & 1696.4600, & 1688.0500, & 1679.6300, & 1671.1900, & 1662.7400, & 1654.2900, & 1645.8200, & 1637.3400, & 1628.8500, & 1620.3500, & 1611.8500, & 1603.3300, & 1594.8100, & 1586.2800, & 1577.7500, & 1569.2100, & 1560.6600, & 1552.1100, & 1543.5500, & 1534.9900, & 1526.4300, & 1517.8600, & 1509.2900, & 1500.7100, & 1492.1400, & 1483.5600, & 1474.9800, & 1466.4000, & 1457.8200, & 1449.2400, & 1440.6600, & 1432.0800, & 1423.5000, & 1414.9200, & 1406.3400, & 1397.7700, & 1389.2000, & 1380.6300, & 1372.0600, & 1363.5000, & 1354.9500, & 1346.3900, & 1337.8500, & 1329.3000, & 1320.7700, & 1312.2400, & 1303.7100, & 1295.1900, & 1286.6800, & 1278.1800, & 1269.6800, & 1261.2000, & 1252.7200, & 1244.2500, & 1235.7900, & 1227.3400, & 1218.8900, & 1210.4600, & 1202.0400, & 1193.6300, & 1185.2300, & 1176.8500, & 1168.4700, & 1160.1100, & 1151.7600, & 1143.4200, & 1135.1000, & 1126.7900, & 1118.5000, & 1110.2200, & 1101.9600, & 1093.7100, & 1085.4800, & 1077.2600, & 1069.0700, & 1060.8800, & 1052.7200, & 1044.5800, & 1036.4500, & 1028.3400, & 1020.2500, & 1012.1800, & 1004.1400, & 996.1100, & 988.1040, & 980.1190, & 972.1570, & 964.2170, & 956.2990, & 948.4060, & 940.5360, & 932.6910, & 924.8700, & 917.0740, & 909.3040, & 901.5610, & 893.8460, & 886.1570, & 878.4950, & 870.8620, & 863.2570, & 855.6800, & 848.1340, & 840.6170, & 833.1300, & 825.6740, & 818.2500, & 810.8580, & 803.4970, & 796.1700, & 788.8750, & 781.6140, & 774.3860, & 767.1920, & 760.0340, & 752.9100, & 745.8220, & 738.7690, & 731.7540, & 724.7750, & 717.8340, & 710.9300, & 704.0640, & 697.2350, & 690.4460, & 683.6950, & 676.9830, & 670.3100, & 663.6770, & 657.0850, & 650.5330, & 644.0210, & 637.5500, & 631.1200, & 624.7300, & 618.3840, & 612.0790, & 605.8160, & 599.5950, & 593.4170, & 587.2810, & 581.1880, & 575.1380, & 569.1310, & 563.1680, & 557.2480, & 551.3710, & 545.5370, & 539.7460, & 533.9990, & 528.2950, & 522.6360, & 517.0200, & 511.4480, & 505.9210, & 500.4360, & 494.9950, & 489.5990, & 484.2460, & 478.9370, & 473.6720, & 468.4500, & 463.2720, & 458.1390, & 453.0480, & 448.0010, & 442.9970, & 438.0360, & 433.1190, & 428.2440, & 423.4120, & 418.6220, & 413.8760, & 409.1710, & 404.5090, & 399.8900, & 395.3110, & 390.7750, & 386.2790, & 381.8250, & 377.4120, & 373.0410, & 368.7100, & 364.4200, & 360.1700, & 355.9600, & 351.7890, & 347.6580, & 343.5670, & 339.5150, & 335.5020, & 331.5280, & 327.5920, & 323.6940, & 319.8340, & 316.0120, & 312.2270, & 308.4790, & 304.7690, & 301.0950, & 297.4570, & 293.8550, & 290.2890, & 286.7570, & 283.2610, & 279.7990, & 276.3730, & 272.9810, & 269.6230, & 266.2980, & 263.0070, & 259.7490, & 256.5230, & 253.3300, & 250.1690, & 247.0410, & 243.9440, & 240.8790, & 237.8450, & 234.8410, & 231.8690, & 228.9270, & 226.0140, & 223.1320, & 220.2790, & 217.4540, & 214.6590, & 211.8920, & 209.1540, & 206.4430, & 203.7600, & 201.1040, & 198.4750, & 195.8730, & 193.2980, & 190.7500, & 188.2290, & 185.7320, & 183.2610, & 180.8140, & 178.3930, & 175.9980, & 173.6260, & 171.2790, & 168.9560, & 166.6570, & 164.3800, & 162.1280, & 159.8980, & 157.6920, & 155.5070, & 153.3460, & 151.2050, & 149.0870, & 146.9900, & 144.9140, & 142.8610, & 140.8270, & 138.8140, & 136.8220, & 134.8500, & 132.8980, & 130.9650, & 129.0530, & 127.1590, & 125.2840, & 123.4290, & 121.5920, & 119.7740, & 117.9740, & 116.1920, & 114.4280, & 112.6810, & 110.9510, & 109.2390, & 107.5450, & 105.8660, & 104.2050, & 102.5600, & 100.9320, & 99.3204, & 97.7238, & 96.1425, & 94.5774, & 93.0276, & 91.4931, & 89.9739, & 88.4691, & 86.9787, & 85.5027, & 84.0411, & 82.5939, & 81.1611, & 79.7427, & 78.3378, & 76.9464, & 75.5685, & 74.2041, & 72.8532, & 71.5149, & 70.1892, & 68.8761, & 67.5756, & 66.2877, & 65.0124, & 63.7497, & 62.4987, & 61.2594, & 60.0318, & 58.8159, & 57.6117, & 56.4192, & 55.2384, & 54.0684, & 52.9092, & 51.7608, & 50.6232, & 49.4964, & 48.3804, & 47.2743, & 46.1781, & 45.0927, & 44.0172, & 42.9516, & 41.8959, & 40.8501, & 39.8142, & 38.7873, & 37.7694, & 36.7614, & 35.7633, & 34.7742, & 33.7941, & 32.8230, & 31.8600, & 30.9051, & 29.9592, & 29.0223, & 28.0935, & 27.1728, & 26.2611, & 25.3575, & 24.4620, & 23.5746, & 22.6944, & 21.8223, & 20.9583, & 20.1015, & 19.2519, & 18.4104, & 17.5770, & 16.7508, & 15.9318, & 15.1200, & 14.3154, & 13.5180, & 12.7269, & 11.9421, & 11.1645, & 10.3941, & 9.6300, & 8.8722, & 8.1216, & 7.3773, & 6.6393, & 5.9076, & 5.1822, & 4.4631, & 3.7494, & 3.0420, & 2.3409, & 1.6452, & 0.9558, & 0.2727, & -0.4050, & -1.0773, & -1.7442, & -2.4057, & -3.0618, & -3.7125, & -4.3578, & -4.9977, & -5.6322, & -6.2613, & -6.8850, & -7.5033, & -8.1162, & -8.7237, & -9.3267, & -9.9252, & -10.5183, & -11.1069, & -11.6910, & -12.2697, & -12.8439, & -13.4136, & -13.9788, & -14.5395, & -15.0957, & -15.6474, & -16.1946, & -16.7373, & -17.2755, & -17.8101, & -18.3402, & -18.8658, & -19.3878, & -19.9053, & -20.4183, & -20.9277, & -21.4335, & -21.9348, & -22.4316, & -22.9248, & -23.4144, & -23.9004, & -24.3828, & -24.8616, & -25.3368, & -25.8084, & -26.2764, & -26.7408/ * 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