source: PSPA/madxPSPA/src/photoni.inc @ 457

Last change on this file since 457 was 430, checked in by touze, 11 years ago

import madx-5.01.00
File size: 5.9 KB
Line 
1! table of parameters ak(1:nmax) and bk(1:nmax),
2! calculated from the table in the file <lookup.dat.ref>
3integer, parameter :: nmax=100
4Real(dp), Dimension(1:nmax), Parameter :: ak =(/ &
5     0.3334579206D+00, 0.3334579206D+00, 0.3334579206D+00, 0.3334371561D+00, 0.3334163915D+00, &
6     0.3333956270D+00, 0.3333956270D+00, 0.3333748624D+00, 0.3333956270D+00, 0.3333540979D+00, &
7     0.3333748624D+00, 0.3333540979D+00, 0.3333540979D+00, 0.3333540979D+00, 0.3333540979D+00, &
8     0.3333540979D+00, 0.3333333333D+00, 0.3333540979D+00, 0.3333333333D+00, 0.3333540979D+00, &
9     0.3333333333D+00, 0.3333333333D+00, 0.3333540979D+00, 0.3333333333D+00, 0.3333333333D+00, &
10     0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, &
11     0.3333333333D+00, 0.3333540979D+00, 0.3333229511D+00, 0.3333354098D+00, 0.3333333333D+00, &
12     0.3333333333D+00, 0.3333374862D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, &
13     0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, &
14     0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, &
15     0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333333333D+00, &
16     0.3333312569D+00, 0.3333333333D+00, 0.3333333333D+00, 0.3333312569D+00, 0.3333312569D+00, &
17     0.3333312569D+00, 0.3333291804D+00, 0.3333291804D+00, 0.3333271040D+00, 0.3333250275D+00, &
18     0.3333208746D+00, 0.3333187981D+00, 0.3333104923D+00, 0.3333021865D+00, 0.3332897278D+00, &
19     0.3332751926D+00, 0.3332502751D+00, 0.3332212048D+00, 0.3331796757D+00, 0.3331201502D+00, &
20     0.3330384767D+00, 0.3329263481D+00, 0.3327747669D+00, 0.3325602015D+00, 0.3322681119D+00, &
21     0.3318652796D+00, 0.3313067132D+00, 0.3305363483D+00, 0.3294711269D+00, 0.3279968438D+00, &
22     0.3259577649D+00, 0.3231234037D+00, 0.3191885214D+00, 0.3137031500D+00, 0.3060372931D+00, &
23     0.2953032663D+00, 0.2802605951D+00, 0.2592474927D+00, 0.2302507237D+00, 0.1914202953D+00, &
24     0.1426241409D+00, 0.8841713906D-01, 0.4027442834D-01, 0.1105114662D-01, 0.1351964970D-02 &
25     /), bk= (/ &
26     0.2135441238D+00, 0.2135441238D+00, 0.2135441238D+00, 0.2126178810D+00, 0.2117016381D+00, &
27     0.2107953953D+00, 0.2107953953D+00, 0.2099091524D+00, 0.2107853953D+00, 0.2090529095D+00, &
28     0.2099091524D+00, 0.2090629095D+00, 0.2090629095D+00, 0.2090629095D+00, 0.2090629095D+00, &
29     0.2090629095D+00, 0.2082666667D+00, 0.2090529095D+00, 0.2082766667D+00, 0.2090429095D+00, &
30     0.2082866667D+00, 0.2082866667D+00, 0.2090229095D+00, 0.2082966667D+00, 0.2082966667D+00, &
31     0.2082966667D+00, 0.2082966667D+00, 0.2082966667D+00, 0.2082966667D+00, 0.2082966667D+00, &
32     0.2082966667D+00, 0.2089429095D+00, 0.2079885452D+00, 0.2083642910D+00, 0.2083026667D+00, &
33     0.2083026667D+00, 0.2084219152D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, &
34     0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, &
35     0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, &
36     0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, 0.2083046667D+00, &
37     0.2082640424D+00, 0.2083036667D+00, 0.2083036667D+00, 0.2082660424D+00, 0.2082660424D+00, &
38     0.2082660424D+00, 0.2082314181D+00, 0.2082314181D+00, 0.2081987938D+00, 0.2081671695D+00, &
39     0.2081059209D+00, 0.2080762967D+00, 0.2079617995D+00, 0.2078513024D+00, 0.2076915567D+00, &
40     0.2075121867D+00, 0.2072166952D+00, 0.2068859552D+00, 0.2064334695D+00, 0.2058135687D+00, &
41     0.2050023511D+00, 0.2039426395D+00, 0.2025830664D+00, 0.2007619036D+00, 0.1984234078D+00, &
42     0.1953922963D+00, 0.1914583633D+00, 0.1864037531D+00, 0.1799274943D+00, 0.1716742511D+00, &
43     0.1612412020D+00, 0.1481040513D+00, 0.1317610289D+00, 0.1116199520D+00, 0.8716441218D-01, &
44     0.5809022700D-01, 0.2459004792D-01, -.1208664133D-01, -.4873362780D-01, -.7910834994D-01, &
45     -.9377892352D-01, -.8397071946D-01, -.5207473895D-01, -.1863979787D-01, -.2871741272D-02 &
46     /), sll= (/ &
47     -.1498217000D+02, -.1482158000D+02, -.1466099000D+02, -.1450041000D+02, -.1433984000D+02, &
48     -.1417928000D+02, -.1401872000D+02, -.1385817000D+02, -.1369761000D+02, -.1353707000D+02, &
49     -.1337652000D+02, -.1321598000D+02, -.1305544000D+02, -.1289490000D+02, -.1273436000D+02, &
50     -.1257382000D+02, -.1241329000D+02, -.1225275000D+02, -.1209222000D+02, -.1193168000D+02, &
51     -.1177115000D+02, -.1161062000D+02, -.1145008000D+02, -.1128955000D+02, -.1112902000D+02, &
52     -.1096849000D+02, -.1080796000D+02, -.1064743000D+02, -.1048690000D+02, -.1032637000D+02, &
53     -.1016584000D+02, -.1000530000D+02, -.9844775000D+01, -.9684244000D+01, -.9523714000D+01, &
54     -.9363184000D+01, -.9202652000D+01, -.9042122000D+01, -.8881592000D+01, -.8721062000D+01, &
55     -.8560532000D+01, -.8400002000D+01, -.8239472000D+01, -.8078942000D+01, -.7918412000D+01, &
56     -.7757882000D+01, -.7597352000D+01, -.7436822000D+01, -.7276292000D+01, -.7115762000D+01, &
57     -.6955232000D+01, -.6794702000D+01, -.6634172000D+01, -.6473642000D+01, -.6313112000D+01, &
58     -.6152583000D+01, -.5992053000D+01, -.5831523000D+01, -.5670994000D+01, -.5510465000D+01, &
59     -.5349936000D+01, -.5189408000D+01, -.5028880000D+01, -.4868353000D+01, -.4707827000D+01, &
60     -.4547303000D+01, -.4386780000D+01, -.4226261000D+01, -.4065746000D+01, -.3905237000D+01, &
61     -.3744735000D+01, -.3584245000D+01, -.3423769000D+01, -.3263313000D+01, -.3102886000D+01, &
62     -.2942498000D+01, -.2782164000D+01, -.2621903000D+01, -.2461745000D+01, -.2301728000D+01, &
63     -.2141905000D+01, -.1982351000D+01, -.1823168000D+01, -.1664498000D+01, -.1506538000D+01, &
64     -.1349560000D+01, -.1193947000D+01, -.1040229000D+01, -.8891527000D+00, -.7417682000D+00, &
65     -.5995531000D+00, -.4645824000D+00, -.3397314000D+00, -.2288450000D+00, -.1366589000D+00, &
66     -.6797254000D-01, -.2539173000D-01, -.5995960000D-02, -.6738383000D-03, -.2274549000D-04 &
67     /)
Note: See TracBrowser for help on using the repository browser.