?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Merge branch 'master' of git@git.gromacs.org:gromacs
[gromacs/rigid-bodies.git] / src / kernel / slater_S_integrals.c
blob88f1fed2ffe717475cc8273a576ad0370debdcc7
1 /* slater_S_integrals.c (c) 2008 Paul J. van Maaren and David van der Spoel */
2 #include <stdio.h>
3 #include <math.h>
4 #include "slater_S_integrals.h"
5
6 #define Power(x, y) (pow((double)(x), (double)(y)))
7 #define Pi 3.14159265358979323846264
8 #define E 2.71828182845904523536029
9
10 static double Slater_1S_1S(double rij,double xij,double xii)
11 {
12 double S;
13
14 if (xii == xij) {
15 S = (-24.0 + 24.0*Power(E,2.0*rij*xii) - 33.0*rij*xii - 18.0*Power(rij,2.0)*Power(xii,2.0) -
16 4.0*Power(rij,3.0)*Power(xii,3.0))/(24.*Power(E,2.0*rij*xii)*rij)
17 ;
18 }
19 else {
20 S = (Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),3.0) +
21 Power(E,2.0*rij*xij)*Power(xij,4.0)*
22 (-3.0*Power(xii,2.0) - rij*Power(xii,3.0) + Power(xij,2.0) +
23 rij*xii*Power(xij,2.0)) -
24 Power(E,2.0*rij*xii)*Power(xii,4.0)*
25 (Power(xii,2.0)*(1.0 + rij*xij) - Power(xij,2.0)*(3.0 + rij*xij)))/
26 (Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),3.0))
27 ;
28 }
29 return S;
30 }
31
32 static double Slater_1S_2S(double rij,double xij,double xii)
33 {
34 double S;
35
36 if (xii == xij) {
37 S = (-240.0 + 240.0*Power(E,2.0*rij*xii) - 375.0*rij*xii -
38 270.0*Power(rij,2.0)*Power(xii,2.0) - 115.0*Power(rij,3.0)*Power(xii,3.0) -
39 30.0*Power(rij,4.0)*Power(xii,4.0) - 4.0*Power(rij,5.0)*Power(xii,5.0))/
40 (240.*Power(E,2.0*rij*xii)*rij)
41 ;
42 }
43 else {
44 S = (6.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),5.0) +
45 6.0*Power(E,2.0*rij*xij)*Power(xij,6.0)*
46 (-4.0*Power(xii,4.0) - rij*Power(xii,5.0) - 5.0*Power(xii,2.0)*Power(xij,2.0) +
47 Power(xij,4.0) + rij*xii*Power(xij,4.0)) -
48 Power(E,2.0*rij*xii)*Power(xii,4.0)*
49 (Power(xii,6.0)*(6.0 + 9.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
50 2.0*Power(rij,3.0)*Power(xij,3.0)) -
51 3.0*Power(xii,4.0)*Power(xij,2.0)*
52 (10.0 + 15.0*rij*xij + 10.0*Power(rij,2.0)*Power(xij,2.0) +
53 2.0*Power(rij,3.0)*Power(xij,3.0)) +
54 3.0*Power(xii,2.0)*Power(xij,4.0)*
55 (20.0 + 33.0*rij*xij + 14.0*Power(rij,2.0)*Power(xij,2.0) +
56 2.0*Power(rij,3.0)*Power(xij,3.0)) -
57 Power(xij,6.0)*(84.0 + 63.0*rij*xij + 18.0*Power(rij,2.0)*Power(xij,2.0) +
58 2.0*Power(rij,3.0)*Power(xij,3.0))))/
59 (6.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),5.0))
60 ;
61 }
62 return S;
63 }
64
65 static double Slater_1S_3S(double rij,double xij,double xii)
66 {
67 double S;
68
69 if (xii == xij) {
70 S = (-120960.0 + 120960.0*Power(E,2.0*rij*xii) - 203175.0*rij*xii -
71 164430.0*Power(rij,2.0)*Power(xii,2.0) - 84420.0*Power(rij,3.0)*Power(xii,3.0) -
72 30240.0*Power(rij,4.0)*Power(xii,4.0) - 7728.0*Power(rij,5.0)*Power(xii,5.0) -
73 1344.0*Power(rij,6.0)*Power(xii,6.0) - 128.0*Power(rij,7.0)*Power(xii,7.0))/
74 (120960.*Power(E,2.0*rij*xii)*rij)
75 ;
76 }
77 else {
78 S = (45.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) +
79 15.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
80 (-15.0*Power(xii,6.0) - 3.0*rij*Power(xii,7.0) -
81 63.0*Power(xii,4.0)*Power(xij,2.0) - 7.0*rij*Power(xii,5.0)*Power(xij,2.0) -
82 21.0*Power(xii,2.0)*Power(xij,4.0) + 7.0*rij*Power(xii,3.0)*Power(xij,4.0) +
83 3.0*Power(xij,6.0) + 3.0*rij*xii*Power(xij,6.0)) +
84 Power(E,2.0*rij*xii)*Power(xii,4.0)*
85 (-10.0*Power(xii,2.0)*Power(xij,8.0)*
86 (135.0 + 333.0*rij*xij + 228.0*Power(rij,2.0)*Power(xij,2.0) +
87 75.0*Power(rij,3.0)*Power(xij,3.0) + 13.0*Power(rij,4.0)*Power(xij,4.0) +
88 Power(rij,5.0)*Power(xij,5.0)) +
89 2.0*Power(xij,10.0)*(945.0 + 945.0*rij*xij + 420.0*Power(rij,2.0)*Power(xij,2.0) +
90 105.0*Power(rij,3.0)*Power(xij,3.0) + 15.0*Power(rij,4.0)*Power(xij,4.0) +
91 Power(rij,5.0)*Power(xij,5.0)) -
92 Power(xii,10.0)*(45.0 + 75.0*rij*xij + 60.0*Power(rij,2.0)*Power(xij,2.0) +
93 30.0*Power(rij,3.0)*Power(xij,3.0) + 10.0*Power(rij,4.0)*Power(xij,4.0) +
94 2.0*Power(rij,5.0)*Power(xij,5.0)) +
95 5.0*Power(xii,8.0)*Power(xij,2.0)*
96 (63.0 + 105.0*rij*xij + 84.0*Power(rij,2.0)*Power(xij,2.0) +
97 42.0*Power(rij,3.0)*Power(xij,3.0) + 14.0*Power(rij,4.0)*Power(xij,4.0) +
98 2.0*Power(rij,5.0)*Power(xij,5.0)) -
99 5.0*Power(xii,6.0)*Power(xij,4.0)*
100 (189.0 + 315.0*rij*xij + 252.0*Power(rij,2.0)*Power(xij,2.0) +
101 132.0*Power(rij,3.0)*Power(xij,3.0) + 36.0*Power(rij,4.0)*Power(xij,4.0) +
102 4.0*Power(rij,5.0)*Power(xij,5.0)) +
103 5.0*Power(xii,4.0)*Power(xij,6.0)*
104 (315.0 + 513.0*rij*xij + 468.0*Power(rij,2.0)*Power(xij,2.0) +
105 204.0*Power(rij,3.0)*Power(xij,3.0) + 44.0*Power(rij,4.0)*Power(xij,4.0) +
106 4.0*Power(rij,5.0)*Power(xij,5.0))))/
107 (45.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),7.0))
108 ;
109 }
110 return S;
111 }
112
113 static double Slater_1S_4S(double rij,double xij,double xii)
114 {
115 double S;
116
117 if (xii == xij) {
118 S = (-2903040.0 + 2903040.0*Power(E,2.0*rij*xii) - 5088825.0*rij*xii -
119 4371570.0*Power(rij,2.0)*Power(xii,2.0) - 2439990.0*Power(rij,3.0)*Power(xii,3.0) -
120 986580.0*Power(rij,4.0)*Power(xii,4.0) - 303912.0*Power(rij,5.0)*Power(xii,5.0) -
121 72576.0*Power(rij,6.0)*Power(xii,6.0) - 13248.0*Power(rij,7.0)*Power(xii,7.0) -
122 1728.0*Power(rij,8.0)*Power(xii,8.0) - 128.0*Power(rij,9.0)*Power(xii,9.0))/
123 (2.90304e6*Power(E,2.0*rij*xii)*rij)
124 ;
125 }
126 else {
127 S = (1260.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
128 1260.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
129 (-6.0*Power(xii,8.0) - rij*Power(xii,9.0) - 51.0*Power(xii,6.0)*Power(xij,2.0) -
130 6.0*rij*Power(xii,7.0)*Power(xij,2.0) - 63.0*Power(xii,4.0)*Power(xij,4.0) -
131 9.0*Power(xii,2.0)*Power(xij,6.0) + 6.0*rij*Power(xii,3.0)*Power(xij,6.0) +
132 Power(xij,8.0) + rij*xii*Power(xij,8.0)) +
133 Power(E,2.0*rij*xii)*Power(xii,4.0)*
134 (-42.0*Power(xii,10.0)*Power(xij,4.0)*
135 (1080.0 + 1890.0*rij*xij + 1620.0*Power(rij,2.0)*Power(xij,2.0) +
136 900.0*Power(rij,3.0)*Power(xij,3.0) + 360.0*Power(rij,4.0)*Power(xij,4.0) +
137 111.0*Power(rij,5.0)*Power(xij,5.0) + 22.0*Power(rij,6.0)*Power(xij,6.0) +
138 2.0*Power(rij,7.0)*Power(xij,7.0)) +
139 70.0*Power(xii,8.0)*Power(xij,6.0)*
140 (1512.0 + 2646.0*rij*xij + 2268.0*Power(rij,2.0)*Power(xij,2.0) +
141 1248.0*Power(rij,3.0)*Power(xij,3.0) + 528.0*Power(rij,4.0)*Power(xij,4.0) +
142 153.0*Power(rij,5.0)*Power(xij,5.0) + 26.0*Power(rij,6.0)*Power(xij,6.0) +
143 2.0*Power(rij,7.0)*Power(xij,7.0)) -
144 14.0*Power(xii,2.0)*Power(xij,12.0)*
145 (2970.0 + 16335.0*rij*xij + 15390.0*Power(rij,2.0)*Power(xij,2.0) +
146 7110.0*Power(rij,3.0)*Power(xij,3.0) + 1980.0*Power(rij,4.0)*Power(xij,4.0) +
147 351.0*Power(rij,5.0)*Power(xij,5.0) + 38.0*Power(rij,6.0)*Power(xij,6.0) +
148 2.0*Power(rij,7.0)*Power(xij,7.0)) +
149 2.0*Power(xij,14.0)*(62370.0 + 72765.0*rij*xij +
150 39690.0*Power(rij,2.0)*Power(xij,2.0) +
151 13230.0*Power(rij,3.0)*Power(xij,3.0) +
152 2940.0*Power(rij,4.0)*Power(xij,4.0) + 441.0*Power(rij,5.0)*Power(xij,5.0) +
153 42.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,7.0)*Power(xij,7.0)) -
154 Power(xii,14.0)*(1260.0 + 2205.0*rij*xij +
155 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
156 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
157 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
158 7.0*Power(xii,12.0)*Power(xij,2.0)*
159 (1620.0 + 2835.0*rij*xij + 2430.0*Power(rij,2.0)*Power(xij,2.0) +
160 1350.0*Power(rij,3.0)*Power(xij,3.0) + 540.0*Power(rij,4.0)*Power(xij,4.0) +
161 162.0*Power(rij,5.0)*Power(xij,5.0) + 36.0*Power(rij,6.0)*Power(xij,6.0) +
162 4.0*Power(rij,7.0)*Power(xij,7.0)) -
163 35.0*Power(xii,6.0)*Power(xij,8.0)*
164 (4536.0 + 7983.0*rij*xij + 6534.0*Power(rij,2.0)*Power(xij,2.0) +
165 4014.0*Power(rij,3.0)*Power(xij,3.0) + 1644.0*Power(rij,4.0)*Power(xij,4.0) +
166 414.0*Power(rij,5.0)*Power(xij,5.0) + 60.0*Power(rij,6.0)*Power(xij,6.0) +
167 4.0*Power(rij,7.0)*Power(xij,7.0)) +
168 21.0*Power(xii,4.0)*Power(xij,10.0)*
169 (7920.0 + 11385.0*rij*xij + 12330.0*Power(rij,2.0)*Power(xij,2.0) +
170 7410.0*Power(rij,3.0)*Power(xij,3.0) + 2580.0*Power(rij,4.0)*Power(xij,4.0) +
171 546.0*Power(rij,5.0)*Power(xij,5.0) + 68.0*Power(rij,6.0)*Power(xij,6.0) +
172 4.0*Power(rij,7.0)*Power(xij,7.0))))/
173 (1260.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),9.0))
174 ;
175 }
176 return S;
177 }
178
179 static double Slater_1S_5S(double rij,double xij,double xii)
180 {
181 double S;
182
183 if (xii == xij) {
184 S = (-1596672000.0 + 1596672000.0*Power(E,2.0*rij*xii) - 2875101075.0*rij*xii -
185 2556858150.0*Power(rij,2.0)*Power(xii,2.0) -
186 1492929900.0*Power(rij,3.0)*Power(xii,3.0) -
187 641163600.0*Power(rij,4.0)*Power(xii,4.0) -
188 214719120.0*Power(rij,5.0)*Power(xii,5.0) -
189 57879360.0*Power(rij,6.0)*Power(xii,6.0) -
190 12735360.0*Power(rij,7.0)*Power(xii,7.0) - 2280960.0*Power(rij,8.0)*Power(xii,8.0) -
191 323840.0*Power(rij,9.0)*Power(xii,9.0) - 33792.0*Power(rij,10.0)*Power(xii,10.0) -
192 2048.0*Power(rij,11.0)*Power(xii,11.0))/(1.596672e9*Power(E,2.0*rij*xii)*rij)
193 ;
194 }
195 else {
196 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
197 2835.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
198 (-35.0*Power(xii,10.0) - 5.0*rij*Power(xii,11.0) -
199 495.0*Power(xii,8.0)*Power(xij,2.0) - 55.0*rij*Power(xii,9.0)*Power(xij,2.0) -
200 1254.0*Power(xii,6.0)*Power(xij,4.0) - 66.0*rij*Power(xii,7.0)*Power(xij,4.0) -
201 726.0*Power(xii,4.0)*Power(xij,6.0) + 66.0*rij*Power(xii,5.0)*Power(xij,6.0) -
202 55.0*Power(xii,2.0)*Power(xij,8.0) + 55.0*rij*Power(xii,3.0)*Power(xij,8.0) +
203 5.0*Power(xij,10.0) + 5.0*rij*xii*Power(xij,10.0)) +
204 Power(E,2.0*rij*xii)*Power(xii,4.0)*
205 (-(Power(xii,18.0)*(14175.0 + 25515.0*rij*xij +
206 22680.0*Power(rij,2.0)*Power(xij,2.0) +
207 13230.0*Power(rij,3.0)*Power(xij,3.0) +
208 5670.0*Power(rij,4.0)*Power(xij,4.0) +
209 1890.0*Power(rij,5.0)*Power(xij,5.0) +
210 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
211 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0))) +
212 9.0*Power(xii,16.0)*Power(xij,2.0)*
213 (17325.0 + 31185.0*rij*xij + 27720.0*Power(rij,2.0)*Power(xij,2.0) +
214 16170.0*Power(rij,3.0)*Power(xij,3.0) +
215 6930.0*Power(rij,4.0)*Power(xij,4.0) + 2310.0*Power(rij,5.0)*Power(xij,5.0) +
216 616.0*Power(rij,6.0)*Power(xij,6.0) + 132.0*Power(rij,7.0)*Power(xij,7.0) +
217 22.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
218 126.0*Power(xii,10.0)*Power(xij,8.0)*
219 (37125.0 + 66825.0*rij*xij + 59400.0*Power(rij,2.0)*Power(xij,2.0) +
220 34725.0*Power(rij,3.0)*Power(xij,3.0) +
221 14625.0*Power(rij,4.0)*Power(xij,4.0) +
222 5043.0*Power(rij,5.0)*Power(xij,5.0) + 1396.0*Power(rij,6.0)*Power(xij,6.0) +
223 276.0*Power(rij,7.0)*Power(xij,7.0) + 34.0*Power(rij,8.0)*Power(xij,8.0) +
224 2.0*Power(rij,9.0)*Power(xij,9.0)) +
225 126.0*Power(xii,8.0)*Power(xij,10.0)*
226 (51975.0 + 93420.0*rij*xij + 84240.0*Power(rij,2.0)*Power(xij,2.0) +
227 46815.0*Power(rij,3.0)*Power(xij,3.0) +
228 20835.0*Power(rij,4.0)*Power(xij,4.0) +
229 7485.0*Power(rij,5.0)*Power(xij,5.0) + 1964.0*Power(rij,6.0)*Power(xij,6.0) +
230 348.0*Power(rij,7.0)*Power(xij,7.0) + 38.0*Power(rij,8.0)*Power(xij,8.0) +
231 2.0*Power(rij,9.0)*Power(xij,9.0)) -
232 9.0*Power(xii,2.0)*Power(xij,16.0)*
233 (-135135.0 + 405405.0*rij*xij + 582120.0*Power(rij,2.0)*Power(xij,2.0) +
234 346500.0*Power(rij,3.0)*Power(xij,3.0) +
235 124740.0*Power(rij,4.0)*Power(xij,4.0) +
236 30492.0*Power(rij,5.0)*Power(xij,5.0) +
237 5264.0*Power(rij,6.0)*Power(xij,6.0) + 636.0*Power(rij,7.0)*Power(xij,7.0) +
238 50.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) +
239 Power(xij,18.0)*(2837835.0 + 3648645.0*rij*xij +
240 2245320.0*Power(rij,2.0)*Power(xij,2.0) +
241 873180.0*Power(rij,3.0)*Power(xij,3.0) +
242 238140.0*Power(rij,4.0)*Power(xij,4.0) +
243 47628.0*Power(rij,5.0)*Power(xij,5.0) +
244 7056.0*Power(rij,6.0)*Power(xij,6.0) + 756.0*Power(rij,7.0)*Power(xij,7.0) +
245 54.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
246 9.0*Power(xii,14.0)*Power(xij,4.0)*
247 (86625.0 + 155925.0*rij*xij + 138600.0*Power(rij,2.0)*Power(xij,2.0) +
248 80850.0*Power(rij,3.0)*Power(xij,3.0) +
249 34650.0*Power(rij,4.0)*Power(xij,4.0) +
250 11550.0*Power(rij,5.0)*Power(xij,5.0) +
251 3080.0*Power(rij,6.0)*Power(xij,6.0) + 672.0*Power(rij,7.0)*Power(xij,7.0) +
252 104.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0)) +
253 21.0*Power(xii,12.0)*Power(xij,6.0)*
254 (111375.0 + 200475.0*rij*xij + 178200.0*Power(rij,2.0)*Power(xij,2.0) +
255 103950.0*Power(rij,3.0)*Power(xij,3.0) +
256 44550.0*Power(rij,4.0)*Power(xij,4.0) +
257 14778.0*Power(rij,5.0)*Power(xij,5.0) +
258 4056.0*Power(rij,6.0)*Power(xij,6.0) + 864.0*Power(rij,7.0)*Power(xij,7.0) +
259 120.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0)) -
260 21.0*Power(xii,6.0)*Power(xij,12.0)*
261 (307125.0 + 594945.0*rij*xij + 456840.0*Power(rij,2.0)*Power(xij,2.0) +
262 281790.0*Power(rij,3.0)*Power(xij,3.0) +
263 137430.0*Power(rij,4.0)*Power(xij,4.0) +
264 47250.0*Power(rij,5.0)*Power(xij,5.0) +
265 11064.0*Power(rij,6.0)*Power(xij,6.0) +
266 1728.0*Power(rij,7.0)*Power(xij,7.0) + 168.0*Power(rij,8.0)*Power(xij,8.0) +
267 8.0*Power(rij,9.0)*Power(xij,9.0)) +
268 9.0*Power(xii,4.0)*Power(xij,14.0)*
269 (675675.0 + 675675.0*rij*xij + 748440.0*Power(rij,2.0)*Power(xij,2.0) +
270 561330.0*Power(rij,3.0)*Power(xij,3.0) +
271 256410.0*Power(rij,4.0)*Power(xij,4.0) +
272 76230.0*Power(rij,5.0)*Power(xij,5.0) +
273 15400.0*Power(rij,6.0)*Power(xij,6.0) + 2112.0*Power(rij,7.0)*Power(xij,7.0) +
274 184.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0))))/
275 (14175.*Power(E,2.0*rij*(xii + xij))*rij*
276 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
277 ;
278 }
279 return S;
280 }
281
282 static double Slater_1S_6S(double rij,double xij,double xii)
283 {
284 double S;
285
286 if (xii == xij) {
287 S = (-74724249600.0 + 74724249600.0*Power(E,2.0*rij*xii) - 137006619750.0*rij*xii -
288 124564740300.0*Power(rij,2.0)*Power(xii,2.0) -
289 74754654975.0*Power(rij,3.0)*Power(xii,3.0) -
290 33239155950.0*Power(rij,4.0)*Power(xii,4.0) -
291 11644853220.0*Power(rij,5.0)*Power(xii,5.0) -
292 3334050720.0*Power(rij,6.0)*Power(xii,6.0) -
293 797528160.0*Power(rij,7.0)*Power(xii,7.0) -
294 161235360.0*Power(rij,8.0)*Power(xii,8.0) -
295 27593280.0*Power(rij,9.0)*Power(xii,9.0) -
296 3953664.0*Power(rij,10.0)*Power(xii,10.0) -
297 459264.0*Power(rij,11.0)*Power(xii,11.0) - 39936.0*Power(rij,12.0)*Power(xii,12.0) -
298 2048.0*Power(rij,13.0)*Power(xii,13.0))/(7.47242496e10*Power(E,2.0*rij*xii)*rij)
299 ;
300 }
301 else {
302 S = (935550.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
303 311850.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
304 (-24.0*Power(xii,12.0) - 3.0*rij*Power(xii,13.0) -
305 507.0*Power(xii,10.0)*Power(xij,2.0) - 52.0*rij*Power(xii,11.0)*Power(xij,2.0) -
306 2145.0*Power(xii,8.0)*Power(xij,4.0) - 143.0*rij*Power(xii,9.0)*Power(xij,4.0) -
307 2574.0*Power(xii,6.0)*Power(xij,6.0) - 858.0*Power(xii,4.0)*Power(xij,8.0) +
308 143.0*rij*Power(xii,5.0)*Power(xij,8.0) - 39.0*Power(xii,2.0)*Power(xij,10.0) +
309 52.0*rij*Power(xii,3.0)*Power(xij,10.0) + 3.0*Power(xij,12.0) +
310 3.0*rij*xii*Power(xij,12.0)) +
311 Power(E,2.0*rij*xii)*Power(xii,4.0)*
312 (-110.0*Power(xii,18.0)*Power(xij,4.0)*
313 (663390.0 + 1216215.0*rij*xij + 1105650.0*Power(rij,2.0)*Power(xij,2.0) +
314 663390.0*Power(rij,3.0)*Power(xij,3.0) +
315 294840.0*Power(rij,4.0)*Power(xij,4.0) +
316 103194.0*Power(rij,5.0)*Power(xij,5.0) +
317 29484.0*Power(rij,6.0)*Power(xij,6.0) +
318 7020.0*Power(rij,7.0)*Power(xij,7.0) + 1404.0*Power(rij,8.0)*Power(xij,8.0) +
319 237.0*Power(rij,9.0)*Power(xij,9.0) + 30.0*Power(rij,10.0)*Power(xij,10.0) +
320 2.0*Power(rij,11.0)*Power(xij,11.0)) +
321 330.0*Power(xii,16.0)*Power(xij,6.0)*
322 (810810.0 + 1486485.0*rij*xij + 1351350.0*Power(rij,2.0)*Power(xij,2.0) +
323 810810.0*Power(rij,3.0)*Power(xij,3.0) +
324 360360.0*Power(rij,4.0)*Power(xij,4.0) +
325 126126.0*Power(rij,5.0)*Power(xij,5.0) +
326 36036.0*Power(rij,6.0)*Power(xij,6.0) +
327 8556.0*Power(rij,7.0)*Power(xij,7.0) + 1740.0*Power(rij,8.0)*Power(xij,8.0) +
328 291.0*Power(rij,9.0)*Power(xij,9.0) + 34.0*Power(rij,10.0)*Power(xij,10.0) +
329 2.0*Power(rij,11.0)*Power(xij,11.0)) -
330 330.0*Power(xii,6.0)*Power(xij,16.0)*
331 (3169530.0 + 7960680.0*rij*xij + 5798520.0*Power(rij,2.0)*Power(xij,2.0) +
332 3144960.0*Power(rij,3.0)*Power(xij,3.0) +
333 1572480.0*Power(rij,4.0)*Power(xij,4.0) +
334 638001.0*Power(rij,5.0)*Power(xij,5.0) +
335 191646.0*Power(rij,6.0)*Power(xij,6.0) +
336 41886.0*Power(rij,7.0)*Power(xij,7.0) +
337 6630.0*Power(rij,8.0)*Power(xij,8.0) + 741.0*Power(rij,9.0)*Power(xij,9.0) +
338 54.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
339 110.0*Power(xii,4.0)*Power(xij,18.0)*
340 (12162150.0 + 8108100.0*rij*xij + 6486480.0*Power(rij,2.0)*Power(xij,2.0) +
341 5675670.0*Power(rij,3.0)*Power(xij,3.0) +
342 3243240.0*Power(rij,4.0)*Power(xij,4.0) +
343 1216215.0*Power(rij,5.0)*Power(xij,5.0) +
344 319410.0*Power(rij,6.0)*Power(xij,6.0) +
345 61074.0*Power(rij,7.0)*Power(xij,7.0) +
346 8586.0*Power(rij,8.0)*Power(xij,8.0) + 867.0*Power(rij,9.0)*Power(xij,9.0) +
347 58.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) -
348 Power(xii,22.0)*(935550.0 + 1715175.0*rij*xij +
349 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
350 935550.0*Power(rij,3.0)*Power(xij,3.0) +
351 415800.0*Power(rij,4.0)*Power(xij,4.0) +
352 145530.0*Power(rij,5.0)*Power(xij,5.0) +
353 41580.0*Power(rij,6.0)*Power(xij,6.0) +
354 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
355 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
356 4.0*Power(rij,11.0)*Power(xij,11.0)) +
357 11.0*Power(xii,20.0)*Power(xij,2.0)*
358 (1105650.0 + 2027025.0*rij*xij + 1842750.0*Power(rij,2.0)*Power(xij,2.0) +
359 1105650.0*Power(rij,3.0)*Power(xij,3.0) +
360 491400.0*Power(rij,4.0)*Power(xij,4.0) +
361 171990.0*Power(rij,5.0)*Power(xij,5.0) +
362 49140.0*Power(rij,6.0)*Power(xij,6.0) +
363 11700.0*Power(rij,7.0)*Power(xij,7.0) +
364 2340.0*Power(rij,8.0)*Power(xij,8.0) + 390.0*Power(rij,9.0)*Power(xij,9.0) +
365 52.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
366 11.0*Power(xii,2.0)*Power(xij,20.0)*
367 (-48648600.0 + 2027025.0*rij*xij + 44594550.0*Power(rij,2.0)*Power(xij,2.0) +
368 36486450.0*Power(rij,3.0)*Power(xij,3.0) +
369 16216200.0*Power(rij,4.0)*Power(xij,4.0) +
370 4864860.0*Power(rij,5.0)*Power(xij,5.0) +
371 1065960.0*Power(rij,6.0)*Power(xij,6.0) +
372 176040.0*Power(rij,7.0)*Power(xij,7.0) +
373 21960.0*Power(rij,8.0)*Power(xij,8.0) +
374 2010.0*Power(rij,9.0)*Power(xij,9.0) +
375 124.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) +
376 Power(xij,22.0)*(340540200.0 + 468242775.0*rij*xij +
377 312161850.0*Power(rij,2.0)*Power(xij,2.0) +
378 133783650.0*Power(rij,3.0)*Power(xij,3.0) +
379 41164200.0*Power(rij,4.0)*Power(xij,4.0) +
380 9604980.0*Power(rij,5.0)*Power(xij,5.0) +
381 1746360.0*Power(rij,6.0)*Power(xij,6.0) +
382 249480.0*Power(rij,7.0)*Power(xij,7.0) +
383 27720.0*Power(rij,8.0)*Power(xij,8.0) +
384 2310.0*Power(rij,9.0)*Power(xij,9.0) +
385 132.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
386 165.0*Power(xii,14.0)*Power(xij,8.0)*
387 (4054050.0 + 7432425.0*rij*xij + 6756750.0*Power(rij,2.0)*Power(xij,2.0) +
388 4054050.0*Power(rij,3.0)*Power(xij,3.0) +
389 1801800.0*Power(rij,4.0)*Power(xij,4.0) +
390 631260.0*Power(rij,5.0)*Power(xij,5.0) +
391 178920.0*Power(rij,6.0)*Power(xij,6.0) +
392 43176.0*Power(rij,7.0)*Power(xij,7.0) +
393 8904.0*Power(rij,8.0)*Power(xij,8.0) + 1428.0*Power(rij,9.0)*Power(xij,9.0) +
394 152.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
395 231.0*Power(xii,12.0)*Power(xij,10.0)*
396 (5212350.0 + 9555975.0*rij*xij + 8687250.0*Power(rij,2.0)*Power(xij,2.0) +
397 5209650.0*Power(rij,3.0)*Power(xij,3.0) +
398 2327400.0*Power(rij,4.0)*Power(xij,4.0) +
399 801540.0*Power(rij,5.0)*Power(xij,5.0) +
400 230040.0*Power(rij,6.0)*Power(xij,6.0) +
401 57240.0*Power(rij,7.0)*Power(xij,7.0) +
402 11640.0*Power(rij,8.0)*Power(xij,8.0) +
403 1740.0*Power(rij,9.0)*Power(xij,9.0) +
404 168.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) -
405 231.0*Power(xii,10.0)*Power(xij,12.0)*
406 (6949800.0 + 12746025.0*rij*xij + 11535750.0*Power(rij,2.0)*Power(xij,2.0) +
407 7056450.0*Power(rij,3.0)*Power(xij,3.0) +
408 3040200.0*Power(rij,4.0)*Power(xij,4.0) +
409 1051920.0*Power(rij,5.0)*Power(xij,5.0) +
410 316800.0*Power(rij,6.0)*Power(xij,6.0) +
411 79680.0*Power(rij,7.0)*Power(xij,7.0) +
412 15360.0*Power(rij,8.0)*Power(xij,8.0) +
413 2100.0*Power(rij,9.0)*Power(xij,9.0) +
414 184.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
415 165.0*Power(xii,8.0)*Power(xij,14.0)*
416 (9775080.0 + 17424855.0*rij*xij + 17019450.0*Power(rij,2.0)*Power(xij,2.0) +
417 9519930.0*Power(rij,3.0)*Power(xij,3.0) +
418 4059720.0*Power(rij,4.0)*Power(xij,4.0) +
419 1519056.0*Power(rij,5.0)*Power(xij,5.0) +
420 475776.0*Power(rij,6.0)*Power(xij,6.0) +
421 114720.0*Power(rij,7.0)*Power(xij,7.0) +
422 20256.0*Power(rij,8.0)*Power(xij,8.0) + 2508.0*Power(rij,9.0)*Power(xij,9.0) +
423 200.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0))))/
424 (935550.*Power(E,2.0*rij*(xii + xij))*rij*
425 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
426 ;
427 }
428 return S;
429 }
430
431 static double Slater_2S_2S(double rij,double xij,double xii)
432 {
433 double S;
434
435 if (xii == xij) {
436 S = (-80640.0 + 80640.0*Power(E,2.0*rij*xii) - 131985.0*rij*xii -
437 102690.0*Power(rij,2.0)*Power(xii,2.0) - 49980.0*Power(rij,3.0)*Power(xii,3.0) -
438 16800.0*Power(rij,4.0)*Power(xii,4.0) - 4032.0*Power(rij,5.0)*Power(xii,5.0) -
439 672.0*Power(rij,6.0)*Power(xii,6.0) - 64.0*Power(rij,7.0)*Power(xii,7.0))/
440 (80640.*Power(E,2.0*rij*xii)*rij)
441 ;
442 }
443 else {
444 S = (6.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) -
445 Power(E,2.0*rij*xii)*Power(xii,6.0)*
446 (21.0*Power(xii,4.0)*Power(xij,4.0)*
447 (6.0 + 11.0*rij*xij + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
448 2.0*Power(xij,8.0)*(90.0 + 54.0*rij*xij + 12.0*Power(rij,2.0)*Power(xij,2.0) +
449 Power(rij,3.0)*Power(xij,3.0)) +
450 Power(xii,8.0)*(6.0 + 9.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
451 2.0*Power(rij,3.0)*Power(xij,3.0)) +
452 Power(xii,2.0)*Power(xij,6.0)*
453 (-390.0 - 69.0*rij*xij + 18.0*Power(rij,2.0)*Power(xij,2.0) +
454 4.0*Power(rij,3.0)*Power(xij,3.0)) -
455 Power(xii,6.0)*Power(xij,2.0)*
456 (42.0 + 63.0*rij*xij + 42.0*Power(rij,2.0)*Power(xij,2.0) +
457 4.0*Power(rij,3.0)*Power(xij,3.0))) +
458 Power(E,2.0*rij*xij)*Power(xij,6.0)*
459 (-24.0*Power(rij,2.0)*Power(xii,10.0) - 2.0*Power(rij,3.0)*Power(xii,11.0) -
460 69.0*rij*Power(xii,7.0)*Power(xij,2.0) + 6.0*Power(xij,8.0) +
461 9.0*rij*xii*Power(xij,8.0) +
462 4.0*rij*Power(xii,9.0)*(-27.0 + Power(rij,2.0)*Power(xij,2.0)) +
463 18.0*Power(xii,8.0)*(-10.0 + Power(rij,2.0)*Power(xij,2.0)) +
464 6.0*Power(xii,2.0)*Power(xij,6.0)*(-7.0 + Power(rij,2.0)*Power(xij,2.0)) -
465 42.0*Power(xii,4.0)*Power(xij,4.0)*(-3.0 + Power(rij,2.0)*Power(xij,2.0)) +
466 rij*Power(xii,3.0)*Power(xij,6.0)*(-63.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
467 6.0*Power(xii,6.0)*Power(xij,2.0)*(-65.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) +
468 Power(xii,5.0)*(231.0*rij*Power(xij,4.0) - 4.0*Power(rij,3.0)*Power(xij,6.0))))/
469 (6.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),7.0))
470 ;
471 }
472 return S;
473 }
474
475 static double Slater_2S_3S(double rij,double xij,double xii)
476 {
477 double S;
478
479 if (xii == xij) {
480 S = (-4354560.0 + 4354560.0*Power(E,2.0*rij*xii) - 7430535.0*rij*xii -
481 6151950.0*Power(rij,2.0)*Power(xii,2.0) - 3275370.0*Power(rij,3.0)*Power(xii,3.0) -
482 1251180.0*Power(rij,4.0)*Power(xii,4.0) - 361368.0*Power(rij,5.0)*Power(xii,5.0) -
483 80640.0*Power(rij,6.0)*Power(xii,6.0) - 13824.0*Power(rij,7.0)*Power(xii,7.0) -
484 1728.0*Power(rij,8.0)*Power(xii,8.0) - 128.0*Power(rij,9.0)*Power(xii,9.0))/
485 (4.35456e6*Power(E,2.0*rij*xii)*rij)
486 ;
487 }
488 else {
489 S = (90.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
490 5.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
491 (-90.0*Power(rij,2.0)*Power(xii,12.0) - 6.0*Power(rij,3.0)*Power(xii,13.0) +
492 18.0*Power(xij,10.0) + 27.0*rij*xii*Power(xij,10.0) +
493 18.0*Power(xii,2.0)*Power(xij,8.0)*(-9.0 + Power(rij,2.0)*Power(xij,2.0)) -
494 162.0*Power(xii,4.0)*Power(xij,6.0)*(-4.0 + Power(rij,2.0)*Power(xij,2.0)) -
495 198.0*Power(xii,10.0)*(5.0 + Power(rij,2.0)*Power(xij,2.0)) -
496 108.0*Power(xii,6.0)*Power(xij,4.0)*(36.0 + Power(rij,2.0)*Power(xij,2.0)) +
497 2.0*rij*Power(xii,5.0)*Power(xij,6.0)*(675.0 + Power(rij,2.0)*Power(xij,2.0)) -
498 18.0*rij*Power(xii,7.0)*Power(xij,4.0)*
499 (-81.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
500 3.0*rij*Power(xii,3.0)*Power(xij,8.0)*
501 (-81.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
502 rij*Power(xii,11.0)*(495.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
503 9.0*rij*Power(xii,9.0)*Power(xij,2.0)*
504 (-233.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
505 6.0*Power(xii,8.0)*Power(xij,2.0)*(-1063.0 + 90.0*Power(rij,2.0)*Power(xij,2.0))) -
506 2.0*Power(E,2.0*rij*xii)*Power(xii,6.0)*
507 (-90.0*Power(xii,6.0)*Power(xij,6.0)*
508 (42.0 + 65.0*rij*xij + 76.0*Power(rij,2.0)*Power(xij,2.0) +
509 22.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) -
510 2.0*Power(xij,12.0)*(2970.0 + 2475.0*rij*xij +
511 900.0*Power(rij,2.0)*Power(xij,2.0) + 180.0*Power(rij,3.0)*Power(xij,3.0) +
512 20.0*Power(rij,4.0)*Power(xij,4.0) + Power(rij,5.0)*Power(xij,5.0)) +
513 10.0*Power(xii,8.0)*Power(xij,4.0)*
514 (162.0 + 270.0*rij*xij + 216.0*Power(rij,2.0)*Power(xij,2.0) +
515 122.0*Power(rij,3.0)*Power(xij,3.0) + 22.0*Power(rij,4.0)*Power(xij,4.0) +
516 Power(rij,5.0)*Power(xij,5.0)) -
517 5.0*Power(xii,4.0)*Power(xij,8.0)*
518 (-639.0 - 3555.0*rij*xij - 1452.0*Power(rij,2.0)*Power(xij,2.0) -
519 174.0*Power(rij,3.0)*Power(xij,3.0) + 6.0*Power(rij,4.0)*Power(xij,4.0) +
520 2.0*Power(rij,5.0)*Power(xij,5.0)) +
521 Power(xii,12.0)*(45.0 + 75.0*rij*xij + 60.0*Power(rij,2.0)*Power(xij,2.0) +
522 30.0*Power(rij,3.0)*Power(xij,3.0) + 10.0*Power(rij,4.0)*Power(xij,4.0) +
523 2.0*Power(rij,5.0)*Power(xij,5.0)) -
524 Power(xii,10.0)*Power(xij,2.0)*
525 (405.0 + 675.0*rij*xij + 540.0*Power(rij,2.0)*Power(xij,2.0) +
526 270.0*Power(rij,3.0)*Power(xij,3.0) + 90.0*Power(rij,4.0)*Power(xij,4.0) +
527 8.0*Power(rij,5.0)*Power(xij,5.0)) +
528 Power(xii,2.0)*Power(xij,10.0)*
529 (-21615.0 - 9075.0*rij*xij - 300.0*Power(rij,2.0)*Power(xij,2.0) +
530 490.0*Power(rij,3.0)*Power(xij,3.0) + 110.0*Power(rij,4.0)*Power(xij,4.0) +
531 8.0*Power(rij,5.0)*Power(xij,5.0))))/
532 (90.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),9.0))
533 ;
534 }
535 return S;
536 }
537
538 static double Slater_2S_4S(double rij,double xij,double xii)
539 {
540 double S;
541
542 if (xii == xij) {
543 S = (-638668800.0 + 638668800.0*Power(E,2.0*rij*xii) - 1125310725.0*rij*xii -
544 973283850.0*Power(rij,2.0)*Power(xii,2.0) -
545 549063900.0*Power(rij,3.0)*Power(xii,3.0) -
546 226195200.0*Power(rij,4.0)*Power(xii,4.0) -
547 72099720.0*Power(rij,5.0)*Power(xii,5.0) -
548 18350640.0*Power(rij,6.0)*Power(xii,6.0) - 3785760.0*Power(rij,7.0)*Power(xii,7.0) -
549 633600.0*Power(rij,8.0)*Power(xii,8.0) - 84480.0*Power(rij,9.0)*Power(xii,9.0) -
550 8448.0*Power(rij,10.0)*Power(xii,10.0) - 512.0*Power(rij,11.0)*Power(xii,11.0))/
551 (6.386688e8*Power(E,2.0*rij*xii)*rij)
552 ;
553 }
554 else {
555 S = (1260.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
556 210.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
557 (-36.0*Power(rij,2.0)*Power(xii,14.0) - 2.0*Power(rij,3.0)*Power(xii,15.0) -
558 1287.0*rij*Power(xii,9.0)*Power(xij,4.0) + 6.0*Power(xij,12.0) +
559 9.0*rij*xii*Power(xij,12.0) -
560 22.0*rij*Power(xii,7.0)*Power(xij,6.0)*
561 (-135.0 + Power(rij,2.0)*Power(xij,2.0)) +
562 6.0*Power(xii,2.0)*Power(xij,10.0)*(-11.0 + Power(rij,2.0)*Power(xij,2.0)) -
563 66.0*Power(xii,4.0)*Power(xij,8.0)*(-5.0 + Power(rij,2.0)*Power(xij,2.0)) +
564 8.0*rij*Power(xii,5.0)*Power(xij,8.0)*(99.0 + Power(rij,2.0)*Power(xij,2.0)) +
565 rij*Power(xii,3.0)*Power(xij,10.0)*(-99.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
566 132.0*Power(xii,6.0)*Power(xij,6.0)*(27.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
567 78.0*Power(xii,12.0)*(7.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) -
568 2.0*rij*Power(xii,13.0)*(117.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
569 66.0*Power(xii,8.0)*Power(xij,4.0)*(-191.0 + 6.0*Power(rij,2.0)*Power(xij,2.0)) +
570 rij*Power(xii,11.0)*Power(xij,2.0)*
571 (-2151.0 + 22.0*Power(rij,2.0)*Power(xij,2.0)) +
572 6.0*Power(xii,10.0)*Power(xij,2.0)*(-1099.0 + 33.0*Power(rij,2.0)*Power(xij,2.0))) \
573 + Power(E,2.0*rij*xii)*Power(xii,6.0)*
574 (-385.0*Power(xii,8.0)*Power(xij,8.0)*
575 (1080.0 + 1935.0*rij*xij + 1350.0*Power(rij,2.0)*Power(xij,2.0) +
576 1170.0*Power(rij,3.0)*Power(xij,3.0) + 420.0*Power(rij,4.0)*Power(xij,4.0) +
577 66.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
578 7.0*Power(xii,6.0)*Power(xij,10.0)*
579 (99540.0 + 58095.0*rij*xij + 190710.0*Power(rij,2.0)*Power(xij,2.0) +
580 100950.0*Power(rij,3.0)*Power(xij,3.0) +
581 21660.0*Power(rij,4.0)*Power(xij,4.0) +
582 1938.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0) -
583 8.0*Power(rij,7.0)*Power(xij,7.0)) +
584 4.0*Power(xij,16.0)*(135135.0 + 135135.0*rij*xij +
585 62370.0*Power(rij,2.0)*Power(xij,2.0) +
586 17325.0*Power(rij,3.0)*Power(xij,3.0) +
587 3150.0*Power(rij,4.0)*Power(xij,4.0) + 378.0*Power(rij,5.0)*Power(xij,5.0) +
588 28.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,7.0)*Power(xij,7.0)) -
589 Power(xii,16.0)*(1260.0 + 2205.0*rij*xij +
590 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
591 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
592 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
593 7.0*Power(xii,4.0)*Power(xij,12.0)*
594 (114660.0 - 343395.0*rij*xij - 242910.0*Power(rij,2.0)*Power(xij,2.0) -
595 61950.0*Power(rij,3.0)*Power(xij,3.0) -
596 6060.0*Power(rij,4.0)*Power(xij,4.0) + 282.0*Power(rij,5.0)*Power(xij,5.0) +
597 116.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) -
598 7.0*Power(xii,12.0)*Power(xij,4.0)*
599 (9900.0 + 17325.0*rij*xij + 14850.0*Power(rij,2.0)*Power(xij,2.0) +
600 8250.0*Power(rij,3.0)*Power(xij,3.0) + 3300.0*Power(rij,4.0)*Power(xij,4.0) +
601 1074.0*Power(rij,5.0)*Power(xij,5.0) + 164.0*Power(rij,6.0)*Power(xij,6.0) +
602 8.0*Power(rij,7.0)*Power(xij,7.0)) +
603 7.0*Power(xii,10.0)*Power(xij,6.0)*
604 (29700.0 + 51975.0*rij*xij + 44550.0*Power(rij,2.0)*Power(xij,2.0) +
605 23850.0*Power(rij,3.0)*Power(xij,3.0) +
606 11700.0*Power(rij,4.0)*Power(xij,4.0) +
607 2814.0*Power(rij,5.0)*Power(xij,5.0) + 284.0*Power(rij,6.0)*Power(xij,6.0) +
608 8.0*Power(rij,7.0)*Power(xij,7.0)) +
609 Power(xii,14.0)*Power(xij,2.0)*
610 (13860.0 + 24255.0*rij*xij + 20790.0*Power(rij,2.0)*Power(xij,2.0) +
611 11550.0*Power(rij,3.0)*Power(xij,3.0) +
612 4620.0*Power(rij,4.0)*Power(xij,4.0) + 1386.0*Power(rij,5.0)*Power(xij,5.0) +
613 308.0*Power(rij,6.0)*Power(xij,6.0) + 24.0*Power(rij,7.0)*Power(xij,7.0)) -
614 Power(xii,2.0)*Power(xij,14.0)*
615 (-3063060.0 - 1936935.0*rij*xij - 408870.0*Power(rij,2.0)*Power(xij,2.0) +
616 11550.0*Power(rij,3.0)*Power(xij,3.0) +
617 23100.0*Power(rij,4.0)*Power(xij,4.0) + 5082.0*Power(rij,5.0)*Power(xij,5.0) +
618 532.0*Power(rij,6.0)*Power(xij,6.0) + 24.0*Power(rij,7.0)*Power(xij,7.0))))/
619 (1260.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),11.0))
620 ;
621 }
622 return S;
623 }
624
625 static double Slater_2S_5S(double rij,double xij,double xii)
626 {
627 double S;
628
629 if (xii == xij) {
630 S = (-124540416000.0 + 124540416000.0*Power(E,2.0*rij*xii) - 224622748350.0*rij*xii -
631 200164664700.0*Power(rij,2.0)*Power(xii,2.0) -
632 117249207075.0*Power(rij,3.0)*Power(xii,3.0) -
633 50639138550.0*Power(rij,4.0)*Power(xii,4.0) -
634 17132415300.0*Power(rij,5.0)*Power(xii,5.0) -
635 4704860160.0*Power(rij,6.0)*Power(xii,6.0) -
636 1071195840.0*Power(rij,7.0)*Power(xii,7.0) -
637 204478560.0*Power(rij,8.0)*Power(xii,8.0) -
638 32809920.0*Power(rij,9.0)*Power(xii,9.0) -
639 4392960.0*Power(rij,10.0)*Power(xii,10.0) -
640 479232.0*Power(rij,11.0)*Power(xii,11.0) - 39936.0*Power(rij,12.0)*Power(xii,12.0) -
641 2048.0*Power(rij,13.0)*Power(xii,13.0))/(1.24540416e11*Power(E,2.0*rij*xii)*rij)
642 ;
643 }
644 else {
645 S = (28350.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
646 945.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
647 (-210.0*Power(rij,2.0)*Power(xii,16.0) - 10.0*Power(rij,3.0)*Power(xii,17.0) +
648 30.0*Power(xij,14.0) + 45.0*rij*xii*Power(xij,14.0) +
649 39.0*rij*Power(xii,7.0)*Power(xij,8.0)*
650 (1309.0 - 2.0*Power(rij,2.0)*Power(xij,2.0)) +
651 858.0*Power(xii,8.0)*Power(xij,6.0)*(-305.0 + Power(rij,2.0)*Power(xij,2.0)) +
652 30.0*Power(xii,2.0)*Power(xij,12.0)*(-13.0 + Power(rij,2.0)*Power(xij,2.0)) -
653 390.0*Power(xii,4.0)*Power(xij,10.0)*(-6.0 + Power(rij,2.0)*Power(xij,2.0)) -
654 143.0*rij*Power(xii,9.0)*Power(xij,6.0)*
655 (-153.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
656 5.0*rij*Power(xii,3.0)*Power(xij,12.0)*
657 (-117.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
658 45.0*rij*Power(xii,15.0)*(35.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
659 138.0*Power(xii,12.0)*Power(xij,2.0)*
660 (580.0 + 13.0*Power(rij,2.0)*Power(xij,2.0)) -
661 150.0*Power(xii,14.0)*(28.0 + 17.0*Power(rij,2.0)*Power(xij,2.0)) +
662 13.0*rij*Power(xii,11.0)*Power(xij,4.0)*
663 (-4071.0 + 22.0*Power(rij,2.0)*Power(xij,2.0)) +
664 3.0*rij*Power(xii,13.0)*Power(xij,2.0)*
665 (-8135.0 + 26.0*Power(rij,2.0)*Power(xij,2.0)) +
666 3.0*rij*Power(xii,5.0)*Power(xij,10.0)*
667 (2171.0 + 30.0*Power(rij,2.0)*Power(xij,2.0)) +
668 234.0*Power(xii,10.0)*Power(xij,4.0)*
669 (-1235.0 + 33.0*Power(rij,2.0)*Power(xij,2.0)) -
670 78.0*Power(xii,6.0)*Power(xij,8.0)*(550.0 + 47.0*Power(rij,2.0)*Power(xij,2.0))) -
671 2.0*Power(E,2.0*rij*xii)*Power(xii,6.0)*
672 (-819.0*Power(xii,10.0)*Power(xij,10.0)*
673 (22275.0 + 39780.0*rij*xij + 38160.0*Power(rij,2.0)*Power(xij,2.0) +
674 16560.0*Power(rij,3.0)*Power(xij,3.0) +
675 9840.0*Power(rij,4.0)*Power(xij,4.0) + 3900.0*Power(rij,5.0)*Power(xij,5.0) +
676 816.0*Power(rij,6.0)*Power(xij,6.0) + 88.0*Power(rij,7.0)*Power(xij,7.0) +
677 4.0*Power(rij,8.0)*Power(xij,8.0)) +
678 Power(xii,20.0)*(14175.0 + 25515.0*rij*xij +
679 22680.0*Power(rij,2.0)*Power(xij,2.0) +
680 13230.0*Power(rij,3.0)*Power(xij,3.0) +
681 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
682 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
683 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
684 Power(xij,20.0)*(16216200.0 + 18243225.0*rij*xij +
685 9729720.0*Power(rij,2.0)*Power(xij,2.0) +
686 3243240.0*Power(rij,3.0)*Power(xij,3.0) +
687 748440.0*Power(rij,4.0)*Power(xij,4.0) +
688 124740.0*Power(rij,5.0)*Power(xij,5.0) +
689 15120.0*Power(rij,6.0)*Power(xij,6.0) +
690 1296.0*Power(rij,7.0)*Power(xij,7.0) + 72.0*Power(rij,8.0)*Power(xij,8.0) +
691 2.0*Power(rij,9.0)*Power(xij,9.0)) +
692 18.0*Power(xii,16.0)*Power(xij,4.0)*
693 (61425.0 + 110565.0*rij*xij + 98280.0*Power(rij,2.0)*Power(xij,2.0) +
694 57330.0*Power(rij,3.0)*Power(xij,3.0) +
695 24570.0*Power(rij,4.0)*Power(xij,4.0) +
696 8190.0*Power(rij,5.0)*Power(xij,5.0) + 2184.0*Power(rij,6.0)*Power(xij,6.0) +
697 496.0*Power(rij,7.0)*Power(xij,7.0) + 64.0*Power(rij,8.0)*Power(xij,8.0) +
698 3.0*Power(rij,9.0)*Power(xij,9.0)) -
699 18.0*Power(xii,4.0)*Power(xij,16.0)*
700 (6572475.0 - 3161340.0*rij*xij - 4782960.0*Power(rij,2.0)*Power(xij,2.0) -
701 1912365.0*Power(rij,3.0)*Power(xij,3.0) -
702 378105.0*Power(rij,4.0)*Power(xij,4.0) -
703 34125.0*Power(rij,5.0)*Power(xij,5.0) +
704 1092.0*Power(rij,6.0)*Power(xij,6.0) + 650.0*Power(rij,7.0)*Power(xij,7.0) +
705 71.0*Power(rij,8.0)*Power(xij,8.0) + 3.0*Power(rij,9.0)*Power(xij,9.0)) -
706 21.0*Power(xii,8.0)*Power(xij,12.0)*
707 (-1063800.0 - 2775735.0*rij*xij - 862920.0*Power(rij,2.0)*Power(xij,2.0) -
708 1132020.0*Power(rij,3.0)*Power(xij,3.0) -
709 698580.0*Power(rij,4.0)*Power(xij,4.0) -
710 196920.0*Power(rij,5.0)*Power(xij,5.0) -
711 28992.0*Power(rij,6.0)*Power(xij,6.0) -
712 2064.0*Power(rij,7.0)*Power(xij,7.0) - 24.0*Power(rij,8.0)*Power(xij,8.0) +
713 4.0*Power(rij,9.0)*Power(xij,9.0)) +
714 21.0*Power(xii,12.0)*Power(xij,8.0)*
715 (482625.0 + 868725.0*rij*xij + 772200.0*Power(rij,2.0)*Power(xij,2.0) +
716 455400.0*Power(rij,3.0)*Power(xij,3.0) +
717 178200.0*Power(rij,4.0)*Power(xij,4.0) +
718 72180.0*Power(rij,5.0)*Power(xij,5.0) +
719 19920.0*Power(rij,6.0)*Power(xij,6.0) +
720 2952.0*Power(rij,7.0)*Power(xij,7.0) + 204.0*Power(rij,8.0)*Power(xij,8.0) +
721 4.0*Power(rij,9.0)*Power(xij,9.0)) +
722 6.0*Power(xii,6.0)*Power(xij,14.0)*
723 (-10357200.0 + 5071815.0*rij*xij - 6463800.0*Power(rij,2.0)*Power(xij,2.0) -
724 7151130.0*Power(rij,3.0)*Power(xij,3.0) -
725 2572290.0*Power(rij,4.0)*Power(xij,4.0) -
726 468720.0*Power(rij,5.0)*Power(xij,5.0) -
727 42672.0*Power(rij,6.0)*Power(xij,6.0) - 648.0*Power(rij,7.0)*Power(xij,7.0) +
728 228.0*Power(rij,8.0)*Power(xij,8.0) + 16.0*Power(rij,9.0)*Power(xij,9.0)) -
729 Power(xii,18.0)*Power(xij,2.0)*
730 (184275.0 + 331695.0*rij*xij + 294840.0*Power(rij,2.0)*Power(xij,2.0) +
731 171990.0*Power(rij,3.0)*Power(xij,3.0) +
732 73710.0*Power(rij,4.0)*Power(xij,4.0) +
733 24570.0*Power(rij,5.0)*Power(xij,5.0) +
734 6552.0*Power(rij,6.0)*Power(xij,6.0) + 1404.0*Power(rij,7.0)*Power(xij,7.0) +
735 234.0*Power(rij,8.0)*Power(xij,8.0) + 16.0*Power(rij,9.0)*Power(xij,9.0)) +
736 Power(xii,2.0)*Power(xij,18.0)*
737 (-133783650.0 - 107432325.0*rij*xij -
738 35675640.0*Power(rij,2.0)*Power(xij,2.0) -
739 5135130.0*Power(rij,3.0)*Power(xij,3.0) +
740 270270.0*Power(rij,4.0)*Power(xij,4.0) +
741 270270.0*Power(rij,5.0)*Power(xij,5.0) +
742 57960.0*Power(rij,6.0)*Power(xij,6.0) +
743 6948.0*Power(rij,7.0)*Power(xij,7.0) + 486.0*Power(rij,8.0)*Power(xij,8.0) +
744 16.0*Power(rij,9.0)*Power(xij,9.0)) -
745 6.0*Power(xii,14.0)*Power(xij,6.0)*
746 (675675.0 + 1216215.0*rij*xij + 1081080.0*Power(rij,2.0)*Power(xij,2.0) +
747 630630.0*Power(rij,3.0)*Power(xij,3.0) +
748 270270.0*Power(rij,4.0)*Power(xij,4.0) +
749 88200.0*Power(rij,5.0)*Power(xij,5.0) +
750 26544.0*Power(rij,6.0)*Power(xij,6.0) + 5160.0*Power(rij,7.0)*Power(xij,7.0) +
751 492.0*Power(rij,8.0)*Power(xij,8.0) + 16.0*Power(rij,9.0)*Power(xij,9.0))))/
752 (28350.*Power(E,2.0*rij*(xii + xij))*rij*
753 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
754 ;
755 }
756 return S;
757 }
758
759 static double Slater_2S_6S(double rij,double xij,double xii)
760 {
761 double S;
762
763 if (xii == xij) {
764 S = (-125536739328000.0 + 125536739328000.0*Power(E,2.0*rij*xii) -
765 230286692010375.0*rij*xii - 209499905364750.0*Power(rij,2.0)*Power(xii,2.0) -
766 125847482260500.0*Power(rij,3.0)*Power(xii,3.0) -
767 56052916920000.0*Power(rij,4.0)*Power(xii,4.0) -
768 19698207328800.0*Power(rij,5.0)*Power(xii,5.0) -
769 5671583517600.0*Power(rij,6.0)*Power(xii,6.0) -
770 1370593224000.0*Power(rij,7.0)*Power(xii,7.0) -
771 282291609600.0*Power(rij,8.0)*Power(xii,8.0) -
772 49989139200.0*Power(rij,9.0)*Power(xii,9.0) -
773 7633866240.0*Power(rij,10.0)*Power(xii,10.0) -
774 1002193920.0*Power(rij,11.0)*Power(xii,11.0) -
775 111820800.0*Power(rij,12.0)*Power(xii,12.0) -
776 10321920.0*Power(rij,13.0)*Power(xii,13.0) -
777 737280.0*Power(rij,14.0)*Power(xii,14.0) - 32768.0*Power(rij,15.0)*Power(xii,15.0))/
778 (1.25536739328e14*Power(E,2.0*rij*xii)*rij)
779 ;
780 }
781 else {
782 S = (935550.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
783 51975.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
784 (-144.0*Power(rij,2.0)*Power(xii,18.0) - 6.0*Power(rij,3.0)*Power(xii,19.0) -
785 63999.0*rij*Power(xii,11.0)*Power(xij,6.0) + 18.0*Power(xij,16.0) +
786 27.0*rij*xii*Power(xij,16.0) +
787 18.0*Power(xii,2.0)*Power(xij,14.0)*(-15.0 + Power(rij,2.0)*Power(xij,2.0)) -
788 270.0*Power(xii,4.0)*Power(xij,12.0)*(-7.0 + Power(rij,2.0)*Power(xij,2.0)) +
789 3.0*rij*Power(xii,3.0)*Power(xij,14.0)*
790 (-135.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
791 918.0*Power(xii,16.0)*(4.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) -
792 117.0*rij*Power(xii,9.0)*Power(xij,8.0)*
793 (-1045.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
794 4.0*rij*Power(xii,17.0)*(306.0 + 23.0*Power(rij,2.0)*Power(xij,2.0)) -
795 3.0*rij*Power(xii,15.0)*Power(xij,2.0)*
796 (9441.0 + 28.0*Power(rij,2.0)*Power(xij,2.0)) +
797 3.0*rij*Power(xii,7.0)*Power(xij,10.0)*
798 (27261.0 + 28.0*Power(rij,2.0)*Power(xij,2.0)) +
799 9.0*rij*Power(xii,13.0)*Power(xij,4.0)*
800 (-12915.0 + 52.0*Power(rij,2.0)*Power(xij,2.0)) +
801 234.0*Power(xii,10.0)*Power(xij,6.0)*
802 (-4209.0 + 55.0*Power(rij,2.0)*Power(xij,2.0)) -
803 78.0*Power(xii,8.0)*Power(xij,8.0)*(6655.0 + 69.0*Power(rij,2.0)*Power(xij,2.0)) -
804 90.0*Power(xii,14.0)*Power(xij,2.0)*
805 (1117.0 + 77.0*Power(rij,2.0)*Power(xij,2.0)) +
806 rij*Power(xii,5.0)*Power(xij,12.0)*
807 (6111.0 + 92.0*Power(rij,2.0)*Power(xij,2.0)) -
808 18.0*Power(xii,6.0)*Power(xij,10.0)*
809 (3107.0 + 259.0*Power(rij,2.0)*Power(xij,2.0)) +
810 18.0*Power(xii,12.0)*Power(xij,4.0)*
811 (-31885.0 + 403.0*Power(rij,2.0)*Power(xij,2.0))) +
812 Power(E,2.0*rij*xii)*Power(xii,6.0)*
813 (-3465.0*Power(xii,12.0)*Power(xij,12.0)*
814 (1351350.0 + 2483775.0*rij*xij + 2189250.0*Power(rij,2.0)*Power(xij,2.0) +
815 1499400.0*Power(rij,3.0)*Power(xij,3.0) +
816 512400.0*Power(rij,4.0)*Power(xij,4.0) +
817 191940.0*Power(rij,5.0)*Power(xij,5.0) +
818 73080.0*Power(rij,6.0)*Power(xij,6.0) +
819 18200.0*Power(rij,7.0)*Power(xij,7.0) +
820 2680.0*Power(rij,8.0)*Power(xij,8.0) + 220.0*Power(rij,9.0)*Power(xij,9.0) +
821 8.0*Power(rij,10.0)*Power(xij,10.0)) +
822 330.0*Power(xii,8.0)*Power(xij,16.0)*
823 (-2409750.0 - 79762725.0*rij*xij - 9440550.0*Power(rij,2.0)*Power(xij,2.0) -
824 6036975.0*Power(rij,3.0)*Power(xij,3.0) -
825 10098900.0*Power(rij,4.0)*Power(xij,4.0) -
826 4800285.0*Power(rij,5.0)*Power(xij,5.0) -
827 1163190.0*Power(rij,6.0)*Power(xij,6.0) -
828 164670.0*Power(rij,7.0)*Power(xij,7.0) -
829 13110.0*Power(rij,8.0)*Power(xij,8.0) - 365.0*Power(rij,9.0)*Power(xij,9.0) +
830 26.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
831 2.0*Power(xij,24.0)*(1240539300.0 + 1516214700.0*rij*xij +
832 891891000.0*Power(rij,2.0)*Power(xij,2.0) +
833 334459125.0*Power(rij,3.0)*Power(xij,3.0) +
834 89189100.0*Power(rij,4.0)*Power(xij,4.0) +
835 17837820.0*Power(rij,5.0)*Power(xij,5.0) +
836 2744280.0*Power(rij,6.0)*Power(xij,6.0) +
837 326700.0*Power(rij,7.0)*Power(xij,7.0) +
838 29700.0*Power(rij,8.0)*Power(xij,8.0) +
839 1980.0*Power(rij,9.0)*Power(xij,9.0) + 88.0*Power(rij,10.0)*Power(xij,10.0) +
840 2.0*Power(rij,11.0)*Power(xij,11.0)) -
841 Power(xii,24.0)*(935550.0 + 1715175.0*rij*xij +
842 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
843 935550.0*Power(rij,3.0)*Power(xij,3.0) +
844 415800.0*Power(rij,4.0)*Power(xij,4.0) +
845 145530.0*Power(rij,5.0)*Power(xij,5.0) +
846 41580.0*Power(rij,6.0)*Power(xij,6.0) +
847 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
848 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
849 4.0*Power(rij,11.0)*Power(xij,11.0)) -
850 110.0*Power(xii,6.0)*Power(xij,18.0)*
851 (-313749450.0 + 140006475.0*rij*xij +
852 40682250.0*Power(rij,2.0)*Power(xij,2.0) -
853 63603225.0*Power(rij,3.0)*Power(xij,3.0) -
854 41107500.0*Power(rij,4.0)*Power(xij,4.0) -
855 11688705.0*Power(rij,5.0)*Power(xij,5.0) -
856 1918350.0*Power(rij,6.0)*Power(xij,6.0) -
857 179550.0*Power(rij,7.0)*Power(xij,7.0) -
858 5670.0*Power(rij,8.0)*Power(xij,8.0) + 735.0*Power(rij,9.0)*Power(xij,9.0) +
859 98.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
860 10.0*Power(xii,2.0)*Power(xij,22.0)*
861 (-2825672850.0 - 2653375725.0*rij*xij -
862 1114863750.0*Power(rij,2.0)*Power(xij,2.0) -
863 260134875.0*Power(rij,3.0)*Power(xij,3.0) -
864 29729700.0*Power(rij,4.0)*Power(xij,4.0) +
865 1486485.0*Power(rij,5.0)*Power(xij,5.0) +
866 1295910.0*Power(rij,6.0)*Power(xij,6.0) +
867 272250.0*Power(rij,7.0)*Power(xij,7.0) +
868 34650.0*Power(rij,8.0)*Power(xij,8.0) +
869 2915.0*Power(rij,9.0)*Power(xij,9.0) +
870 154.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
871 165.0*Power(xii,16.0)*Power(xij,8.0)*
872 (7739550.0 + 14189175.0*rij*xij + 12899250.0*Power(rij,2.0)*Power(xij,2.0) +
873 7739550.0*Power(rij,3.0)*Power(xij,3.0) +
874 3439800.0*Power(rij,4.0)*Power(xij,4.0) +
875 1210860.0*Power(rij,5.0)*Power(xij,5.0) +
876 330120.0*Power(rij,6.0)*Power(xij,6.0) +
877 86400.0*Power(rij,7.0)*Power(xij,7.0) +
878 18480.0*Power(rij,8.0)*Power(xij,8.0) +
879 2460.0*Power(rij,9.0)*Power(xij,9.0) +
880 168.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) +
881 5.0*Power(xii,22.0)*Power(xij,2.0)*
882 (2806650.0 + 5145525.0*rij*xij + 4677750.0*Power(rij,2.0)*Power(xij,2.0) +
883 2806650.0*Power(rij,3.0)*Power(xij,3.0) +
884 1247400.0*Power(rij,4.0)*Power(xij,4.0) +
885 436590.0*Power(rij,5.0)*Power(xij,5.0) +
886 124740.0*Power(rij,6.0)*Power(xij,6.0) +
887 29700.0*Power(rij,7.0)*Power(xij,7.0) +
888 5940.0*Power(rij,8.0)*Power(xij,8.0) + 990.0*Power(rij,9.0)*Power(xij,9.0) +
889 132.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
890 55.0*Power(xii,18.0)*Power(xij,6.0)*
891 (7739550.0 + 14189175.0*rij*xij + 12899250.0*Power(rij,2.0)*Power(xij,2.0) +
892 7739550.0*Power(rij,3.0)*Power(xij,3.0) +
893 3439800.0*Power(rij,4.0)*Power(xij,4.0) +
894 1203930.0*Power(rij,5.0)*Power(xij,5.0) +
895 343980.0*Power(rij,6.0)*Power(xij,6.0) +
896 80820.0*Power(rij,7.0)*Power(xij,7.0) +
897 17460.0*Power(rij,8.0)*Power(xij,8.0) +
898 2790.0*Power(rij,9.0)*Power(xij,9.0) +
899 244.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
900 22.0*Power(xii,4.0)*Power(xij,20.0)*
901 (2199137850.0 + 366522975.0*rij*xij -
902 665232750.0*Power(rij,2.0)*Power(xij,2.0) -
903 422542575.0*Power(rij,3.0)*Power(xij,3.0) -
904 123095700.0*Power(rij,4.0)*Power(xij,4.0) -
905 20724795.0*Power(rij,5.0)*Power(xij,5.0) -
906 1838970.0*Power(rij,6.0)*Power(xij,6.0) +
907 12150.0*Power(rij,7.0)*Power(xij,7.0) +
908 26910.0*Power(rij,8.0)*Power(xij,8.0) +
909 3735.0*Power(rij,9.0)*Power(xij,9.0) +
910 258.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) -
911 33.0*Power(xii,10.0)*Power(xij,14.0)*
912 (-188215650.0 - 280764225.0*rij*xij -
913 416886750.0*Power(rij,2.0)*Power(xij,2.0) -
914 131922000.0*Power(rij,3.0)*Power(xij,3.0) -
915 59043600.0*Power(rij,4.0)*Power(xij,4.0) -
916 34671420.0*Power(rij,5.0)*Power(xij,5.0) -
917 11740680.0*Power(rij,6.0)*Power(xij,6.0) -
918 2266200.0*Power(rij,7.0)*Power(xij,7.0) -
919 255000.0*Power(rij,8.0)*Power(xij,8.0) -
920 15060.0*Power(rij,9.0)*Power(xij,9.0) -
921 216.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)) \
922 - 11.0*Power(xii,20.0)*Power(xij,4.0)*
923 (8930250.0 + 16372125.0*rij*xij + 14883750.0*Power(rij,2.0)*Power(xij,2.0) +
924 8930250.0*Power(rij,3.0)*Power(xij,3.0) +
925 3969000.0*Power(rij,4.0)*Power(xij,4.0) +
926 1389150.0*Power(rij,5.0)*Power(xij,5.0) +
927 396900.0*Power(rij,6.0)*Power(xij,6.0) +
928 94500.0*Power(rij,7.0)*Power(xij,7.0) +
929 18900.0*Power(rij,8.0)*Power(xij,8.0) +
930 3290.0*Power(rij,9.0)*Power(xij,9.0) +
931 364.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)) \
932 + 33.0*Power(xii,14.0)*Power(xij,10.0)*
933 (85135050.0 + 156080925.0*rij*xij +
934 141891750.0*Power(rij,2.0)*Power(xij,2.0) +
935 84848400.0*Power(rij,3.0)*Power(xij,3.0) +
936 38984400.0*Power(rij,4.0)*Power(xij,4.0) +
937 12157740.0*Power(rij,5.0)*Power(xij,5.0) +
938 3814440.0*Power(rij,6.0)*Power(xij,6.0) +
939 1072200.0*Power(rij,7.0)*Power(xij,7.0) +
940 198120.0*Power(rij,8.0)*Power(xij,8.0) +
941 21020.0*Power(rij,9.0)*Power(xij,9.0) +
942 1096.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)))\
943 )/(935550.*Power(E,2.0*rij*(xii + xij))*rij*
944 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
945 ;
946 }
947 return S;
948 }
949
950 double Slater_2S_1S(double rij,double xii,double xij)
951 {
952 return Slater_1S_2S(rij,xij,xii);
953 }
954
955 static double Slater_3S_3S(double rij,double xij,double xii)
956 {
957 double S;
958
959 if (xii == xij) {
960 S = (-1437004800.0 + 1437004800.0*Power(E,2.0*rij*xii) - 2503064025.0*rij*xii -
961 2132118450.0*Power(rij,2.0)*Power(xii,2.0) -
962 1180664100.0*Power(rij,3.0)*Power(xii,3.0) -
963 476506800.0*Power(rij,4.0)*Power(xii,4.0) -
964 148856400.0*Power(rij,5.0)*Power(xii,5.0) -
965 37255680.0*Power(rij,6.0)*Power(xii,6.0) - 7603200.0*Power(rij,7.0)*Power(xii,7.0) -
966 1267200.0*Power(rij,8.0)*Power(xii,8.0) - 168960.0*Power(rij,9.0)*Power(xii,9.0) -
967 16896.0*Power(rij,10.0)*Power(xii,10.0) - 1024.0*Power(rij,11.0)*Power(xii,11.0))/
968 (1.4370048e9*Power(E,2.0*rij*xii)*rij)
969 ;
970 }
971 else {
972 S = (135.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
973 Power(E,2.0*rij*xij)*Power(xij,8.0)*
974 (-150.0*Power(rij,4.0)*Power(xii,18.0) - 6.0*Power(rij,5.0)*Power(xii,19.0) +
975 135.0*Power(xij,14.0) + 225.0*rij*xii*Power(xij,14.0) +
976 10.0*Power(rij,3.0)*Power(xii,17.0)*(-165.0 + Power(rij,2.0)*Power(xij,2.0)) -
977 30.0*Power(rij,2.0)*Power(xii,16.0)*(330.0 + Power(rij,2.0)*Power(xij,2.0)) +
978 45.0*rij*Power(xii,3.0)*Power(xij,12.0)*
979 (-55.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
980 45.0*Power(xii,2.0)*Power(xij,12.0)*(-33.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
981 rij*Power(xii,9.0)*Power(xij,6.0)*
982 (234135.0 - 4950.0*Power(rij,2.0)*Power(xij,2.0) -
983 34.0*Power(rij,4.0)*Power(xij,4.0)) -
984 5.0*rij*Power(xii,7.0)*Power(xij,8.0)*
985 (6237.0 - 1242.0*Power(rij,2.0)*Power(xij,2.0) +
986 2.0*Power(rij,4.0)*Power(xij,4.0)) +
987 3.0*rij*Power(xii,5.0)*Power(xij,10.0)*
988 (4125.0 - 330.0*Power(rij,2.0)*Power(xij,2.0) +
989 2.0*Power(rij,4.0)*Power(xij,4.0)) +
990 15.0*Power(xii,4.0)*Power(xij,10.0)*
991 (495.0 - 132.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
992 - 165.0*Power(xii,6.0)*Power(xij,8.0)*
993 (135.0 - 60.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
994 - 5.0*rij*Power(xii,13.0)*Power(xij,2.0)*
995 (43875.0 - 3438.0*Power(rij,2.0)*Power(xij,2.0) +
996 22.0*Power(rij,4.0)*Power(xij,4.0)) +
997 5.0*rij*Power(xii,11.0)*Power(xij,4.0)*
998 (7695.0 - 2442.0*Power(rij,2.0)*Power(xij,2.0) +
999 22.0*Power(rij,4.0)*Power(xij,4.0)) +
1000 15.0*Power(xii,8.0)*Power(xij,6.0)*
1001 (-33.0 - 3564.0*Power(rij,2.0)*Power(xij,2.0) +
1002 26.0*Power(rij,4.0)*Power(xij,4.0)) +
1003 rij*Power(xii,15.0)*(-32175.0 - 3690.0*Power(rij,2.0)*Power(xij,2.0) +
1004 34.0*Power(rij,4.0)*Power(xij,4.0)) +
1005 15.0*Power(xii,10.0)*Power(xij,4.0)*
1006 (-32277.0 + 1364.0*Power(rij,2.0)*Power(xij,2.0) +
1007 66.0*Power(rij,4.0)*Power(xij,4.0)) +
1008 15.0*Power(xii,14.0)*(-3003.0 - 2932.0*Power(rij,2.0)*Power(xij,2.0) +
1009 94.0*Power(rij,4.0)*Power(xij,4.0)) -
1010 15.0*Power(xii,12.0)*Power(xij,2.0)*
1011 (28119.0 - 5252.0*Power(rij,2.0)*Power(xij,2.0) +
1012 154.0*Power(rij,4.0)*Power(xij,4.0))) +
1013 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1014 (-5.0*Power(xii,2.0)*Power(xij,12.0)*
1015 (-84357.0 - 43875.0*rij*xij - 8796.0*Power(rij,2.0)*Power(xij,2.0) -
1016 738.0*Power(rij,3.0)*Power(xij,3.0) - 6.0*Power(rij,4.0)*Power(xij,4.0) +
1017 2.0*Power(rij,5.0)*Power(xij,5.0)) -
1018 3.0*Power(xii,14.0)*(45.0 + 75.0*rij*xij + 60.0*Power(rij,2.0)*Power(xij,2.0) +
1019 30.0*Power(rij,3.0)*Power(xij,3.0) + 10.0*Power(rij,4.0)*Power(xij,4.0) +
1020 2.0*Power(rij,5.0)*Power(xij,5.0)) -
1021 55.0*Power(xii,8.0)*Power(xij,6.0)*
1022 (-405.0 - 567.0*rij*xij - 972.0*Power(rij,2.0)*Power(xij,2.0) -
1023 90.0*Power(rij,3.0)*Power(xij,3.0) + 18.0*Power(rij,4.0)*Power(xij,4.0) +
1024 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1025 55.0*Power(xii,6.0)*Power(xij,8.0)*
1026 (9.0 - 4257.0*rij*xij - 372.0*Power(rij,2.0)*Power(xij,2.0) +
1027 222.0*Power(rij,3.0)*Power(xij,3.0) + 42.0*Power(rij,4.0)*Power(xij,4.0) +
1028 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1029 3.0*Power(xij,14.0)*(15015.0 + 10725.0*rij*xij +
1030 3300.0*Power(rij,2.0)*Power(xij,2.0) + 550.0*Power(rij,3.0)*Power(xij,3.0) +
1031 50.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1032 5.0*Power(xii,12.0)*Power(xij,2.0)*
1033 (297.0 + 495.0*rij*xij + 396.0*Power(rij,2.0)*Power(xij,2.0) +
1034 198.0*Power(rij,3.0)*Power(xij,3.0) + 66.0*Power(rij,4.0)*Power(xij,4.0) +
1035 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1036 Power(xii,10.0)*Power(xij,4.0)*
1037 (-7425.0 - 12375.0*rij*xij - 9900.0*Power(rij,2.0)*Power(xij,2.0) -
1038 6210.0*Power(rij,3.0)*Power(xij,3.0) - 390.0*Power(rij,4.0)*Power(xij,4.0) +
1039 34.0*Power(rij,5.0)*Power(xij,5.0)) -
1040 Power(xii,4.0)*Power(xij,10.0)*
1041 (-484155.0 + 38475.0*rij*xij + 78780.0*Power(rij,2.0)*Power(xij,2.0) +
1042 17190.0*Power(rij,3.0)*Power(xij,3.0) + 1410.0*Power(rij,4.0)*Power(xij,4.0) +
1043 34.0*Power(rij,5.0)*Power(xij,5.0))))/
1044 (135.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),11.0))
1045 ;
1046 }
1047 return S;
1048 }
1049
1050 static double Slater_3S_4S(double rij,double xij,double xii)
1051 {
1052 double S;
1053
1054 if (xii == xij) {
1055 S = (-74724249600.0 + 74724249600.0*Power(E,2.0*rij*xii) - 132871488750.0*rij*xii -
1056 116294478300.0*Power(rij,2.0)*Power(xii,2.0) -
1057 66678987375.0*Power(rij,3.0)*Power(xii,3.0) -
1058 28114836750.0*Power(rij,4.0)*Power(xii,4.0) -
1059 9274044780.0*Power(rij,5.0)*Power(xii,5.0) -
1060 2484321840.0*Power(rij,6.0)*Power(xii,6.0) -
1061 553204080.0*Power(rij,7.0)*Power(xii,7.0) -
1062 103783680.0*Power(rij,8.0)*Power(xii,8.0) -
1063 16473600.0*Power(rij,9.0)*Power(xii,9.0) -
1064 2196480.0*Power(rij,10.0)*Power(xii,10.0) -
1065 239616.0*Power(rij,11.0)*Power(xii,11.0) - 19968.0*Power(rij,12.0)*Power(xii,12.0) -
1066 1024.0*Power(rij,13.0)*Power(xii,13.0))/(7.47242496e10*Power(E,2.0*rij*xii)*rij)
1067 ;
1068 }
1069 else {
1070 S = (3780.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
1071 84.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
1072 (-60.0*Power(rij,4.0)*Power(xii,20.0) - 2.0*Power(rij,5.0)*Power(xii,21.0) +
1073 45.0*Power(xij,16.0) + 75.0*rij*xii*Power(xij,16.0) -
1074 4.0*Power(rij,3.0)*Power(xii,19.0)*(195.0 + Power(rij,2.0)*Power(xij,2.0)) +
1075 15.0*rij*Power(xii,3.0)*Power(xij,14.0)*
1076 (-65.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1077 15.0*Power(xii,2.0)*Power(xij,14.0)*(-39.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
1078 30.0*Power(rij,2.0)*Power(xii,18.0)*(182.0 + 9.0*Power(rij,2.0)*Power(xij,2.0)) +
1079 30.0*rij*Power(xii,13.0)*Power(xij,4.0)*
1080 (-13047.0 + 377.0*Power(rij,2.0)*Power(xij,2.0)) +
1081 2.0*rij*Power(xii,5.0)*Power(xij,12.0)*
1082 (2925.0 - 195.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
1083 + 10.0*Power(xii,4.0)*Power(xij,12.0)*
1084 (351.0 - 78.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) -
1085 130.0*Power(xii,6.0)*Power(xij,10.0)*
1086 (99.0 - 36.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
1087 13.0*rij*Power(xii,11.0)*Power(xij,6.0)*
1088 (30735.0 - 1650.0*Power(rij,2.0)*Power(xij,2.0) +
1089 4.0*Power(rij,4.0)*Power(xij,4.0)) +
1090 rij*Power(xii,7.0)*Power(xij,10.0)*
1091 (-15015.0 + 3330.0*Power(rij,2.0)*Power(xij,2.0) +
1092 4.0*Power(rij,4.0)*Power(xij,4.0)) +
1093 210.0*Power(xii,16.0)*(-156.0 - 262.0*Power(rij,2.0)*Power(xij,2.0) +
1094 5.0*Power(rij,4.0)*Power(xij,4.0)) -
1095 6.0*rij*Power(xii,9.0)*Power(xij,8.0)*
1096 (-48620.0 - 715.0*Power(rij,2.0)*Power(xij,2.0) +
1097 6.0*Power(rij,4.0)*Power(xij,4.0)) +
1098 3.0*rij*Power(xii,17.0)*(-6825.0 - 1870.0*Power(rij,2.0)*Power(xij,2.0) +
1099 12.0*Power(rij,4.0)*Power(xij,4.0)) -
1100 30.0*Power(xii,14.0)*Power(xij,2.0)*
1101 (17934.0 - 12.0*Power(rij,2.0)*Power(xij,2.0) +
1102 13.0*Power(rij,4.0)*Power(xij,4.0)) -
1103 15.0*Power(xii,8.0)*Power(xij,8.0)*
1104 (2145.0 + 2860.0*Power(rij,2.0)*Power(xij,2.0) +
1105 14.0*Power(rij,4.0)*Power(xij,4.0)) +
1106 65.0*Power(xii,10.0)*Power(xij,6.0)*
1107 (-13725.0 - 792.0*Power(rij,2.0)*Power(xij,2.0) +
1108 22.0*Power(rij,4.0)*Power(xij,4.0)) -
1109 10.0*Power(xii,12.0)*Power(xij,4.0)*
1110 (153630.0 - 15054.0*Power(rij,2.0)*Power(xij,2.0) +
1111 143.0*Power(rij,4.0)*Power(xij,4.0)) +
1112 Power(xii,15.0)*(-269325.0*rij*Power(xij,2.0) +
1113 9270.0*Power(rij,3.0)*Power(xij,4.0) - 52.0*Power(rij,5.0)*Power(xij,6.0))) +
1114 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1115 (Power(xii,2.0)*Power(xij,16.0)*
1116 (70073640.0 + 47669895.0*rij*xij + 13931190.0*Power(rij,2.0)*Power(xij,2.0) +
1117 2170350.0*Power(rij,3.0)*Power(xij,3.0) +
1118 169260.0*Power(rij,4.0)*Power(xij,4.0) +
1119 1638.0*Power(rij,5.0)*Power(xij,5.0) - 756.0*Power(rij,6.0)*Power(xij,6.0) -
1120 44.0*Power(rij,7.0)*Power(xij,7.0)) +
1121 364.0*Power(xii,10.0)*Power(xij,8.0)*
1122 (-7425.0 - 13860.0*rij*xij - 5940.0*Power(rij,2.0)*Power(xij,2.0) -
1123 11880.0*Power(rij,3.0)*Power(xij,3.0) -
1124 2640.0*Power(rij,4.0)*Power(xij,4.0) - 45.0*Power(rij,5.0)*Power(xij,5.0) +
1125 30.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,7.0)*Power(xij,7.0)) -
1126 364.0*Power(xii,8.0)*Power(xij,10.0)*
1127 (-20925.0 + 18270.0*rij*xij - 58320.0*Power(rij,2.0)*Power(xij,2.0) -
1128 17730.0*Power(rij,3.0)*Power(xij,3.0) - 300.0*Power(rij,4.0)*Power(xij,4.0) +
1129 423.0*Power(rij,5.0)*Power(xij,5.0) + 54.0*Power(rij,6.0)*Power(xij,6.0) +
1130 2.0*Power(rij,7.0)*Power(xij,7.0)) -
1131 3.0*Power(xii,18.0)*(1260.0 + 2205.0*rij*xij +
1132 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
1133 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
1134 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
1135 3.0*Power(xij,18.0)*(1801800.0 + 1576575.0*rij*xij +
1136 630630.0*Power(rij,2.0)*Power(xij,2.0) +
1137 150150.0*Power(rij,3.0)*Power(xij,3.0) +
1138 23100.0*Power(rij,4.0)*Power(xij,4.0) +
1139 2310.0*Power(rij,5.0)*Power(xij,5.0) + 140.0*Power(rij,6.0)*Power(xij,6.0) +
1140 4.0*Power(rij,7.0)*Power(xij,7.0)) +
1141 2.0*Power(xii,14.0)*Power(xij,4.0)*
1142 (-147420.0 - 257985.0*rij*xij - 221130.0*Power(rij,2.0)*Power(xij,2.0) -
1143 122850.0*Power(rij,3.0)*Power(xij,3.0) -
1144 49140.0*Power(rij,4.0)*Power(xij,4.0) -
1145 17388.0*Power(rij,5.0)*Power(xij,5.0) -
1146 1512.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) -
1147 42.0*Power(xii,12.0)*Power(xij,6.0)*
1148 (-25740.0 - 45045.0*rij*xij - 38610.0*Power(rij,2.0)*Power(xij,2.0) -
1149 19470.0*Power(rij,3.0)*Power(xij,3.0) -
1150 12540.0*Power(rij,4.0)*Power(xij,4.0) -
1151 1836.0*Power(rij,5.0)*Power(xij,5.0) - 8.0*Power(rij,6.0)*Power(xij,6.0) +
1152 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1153 42.0*Power(xii,6.0)*Power(xij,12.0)*
1154 (921600.0 - 1640835.0*rij*xij - 546030.0*Power(rij,2.0)*Power(xij,2.0) +
1155 20730.0*Power(rij,3.0)*Power(xij,3.0) +
1156 30180.0*Power(rij,4.0)*Power(xij,4.0) +
1157 5028.0*Power(rij,5.0)*Power(xij,5.0) + 344.0*Power(rij,6.0)*Power(xij,6.0) +
1158 8.0*Power(rij,7.0)*Power(xij,7.0)) -
1159 2.0*Power(xii,4.0)*Power(xij,14.0)*
1160 (-67767840.0 - 13377735.0*rij*xij + 6601770.0*Power(rij,2.0)*Power(xij,2.0) +
1161 3115350.0*Power(rij,3.0)*Power(xij,3.0) +
1162 548940.0*Power(rij,4.0)*Power(xij,4.0) +
1163 48132.0*Power(rij,5.0)*Power(xij,5.0) +
1164 1848.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1165 Power(xii,16.0)*Power(xij,2.0)*
1166 (49140.0 + 85995.0*rij*xij + 73710.0*Power(rij,2.0)*Power(xij,2.0) +
1167 40950.0*Power(rij,3.0)*Power(xij,3.0) +
1168 16380.0*Power(rij,4.0)*Power(xij,4.0) + 4914.0*Power(rij,5.0)*Power(xij,5.0) +
1169 1092.0*Power(rij,6.0)*Power(xij,6.0) + 44.0*Power(rij,7.0)*Power(xij,7.0))))/
1170 (3780.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),13.0))
1171 ;
1172 }
1173 return S;
1174 }
1175
1176 static double Slater_3S_5S(double rij,double xij,double xii)
1177 {
1178 double S;
1179
1180 if (xii == xij) {
1181 S = (-313841848320000.0 + 313841848320000.0*Power(E,2.0*rij*xii) -
1182 568188982486125.0*rij*xii - 508694268332250.0*Power(rij,2.0)*Power(xii,2.0) -
1183 299892470377500.0*Power(rij,3.0)*Power(xii,3.0) -
1184 130753815192000.0*Power(rij,4.0)*Power(xii,4.0) -
1185 44881155118800.0*Power(rij,5.0)*Power(xii,5.0) -
1186 12601803614400.0*Power(rij,6.0)*Power(xii,6.0) -
1187 2967953788800.0*Power(rij,7.0)*Power(xii,7.0) -
1188 596237241600.0*Power(rij,8.0)*Power(xii,8.0) -
1189 103264761600.0*Power(rij,9.0)*Power(xii,9.0) -
1190 15498362880.0*Power(rij,10.0)*Power(xii,10.0) -
1191 2012774400.0*Power(rij,11.0)*Power(xii,11.0) -
1192 223641600.0*Power(rij,12.0)*Power(xii,12.0) -
1193 20643840.0*Power(rij,13.0)*Power(xii,13.0) -
1194 1474560.0*Power(rij,14.0)*Power(xii,14.0) - 65536.0*Power(rij,15.0)*Power(xii,15.0))/
1195 (3.1384184832e14*Power(E,2.0*rij*xii)*rij)
1196 ;
1197 }
1198 else {
1199 S = (42525.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
1200 189.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
1201 (-350.0*Power(rij,4.0)*Power(xii,22.0) - 10.0*Power(rij,5.0)*Power(xii,23.0) +
1202 225.0*Power(xij,18.0) + 375.0*rij*xii*Power(xij,18.0) -
1203 70.0*Power(rij,3.0)*Power(xii,21.0)*(75.0 + Power(rij,2.0)*Power(xij,2.0)) +
1204 75.0*rij*Power(xii,3.0)*Power(xij,16.0)*
1205 (-75.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1206 75.0*Power(xii,2.0)*Power(xij,16.0)*(-45.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
1207 50.0*Power(rij,2.0)*Power(xii,20.0)*(840.0 + 71.0*Power(rij,2.0)*Power(xij,2.0)) +
1208 rij*Power(xii,9.0)*Power(xij,10.0)*
1209 (4694625.0 + 124800.0*Power(rij,2.0)*Power(xij,2.0) -
1210 248.0*Power(rij,4.0)*Power(xij,4.0)) +
1211 20.0*rij*Power(xii,17.0)*Power(xij,2.0)*
1212 (-185895.0 - 948.0*Power(rij,2.0)*Power(xij,2.0) +
1213 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1214 5.0*rij*Power(xii,5.0)*Power(xij,14.0)*
1215 (7875.0 - 450.0*Power(rij,2.0)*Power(xij,2.0) +
1216 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1217 25.0*Power(xii,4.0)*Power(xij,14.0)*
1218 (945.0 - 180.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1219 - 375.0*Power(xii,6.0)*Power(xij,12.0)*
1220 (273.0 - 84.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1221 - 5.0*rij*Power(xii,11.0)*Power(xij,8.0)*
1222 (-2803125.0 + 49140.0*Power(rij,2.0)*Power(xij,2.0) +
1223 8.0*Power(rij,4.0)*Power(xij,4.0)) +
1224 5.0*rij*Power(xii,7.0)*Power(xij,12.0)*
1225 (-16965.0 + 5152.0*Power(rij,2.0)*Power(xij,2.0) +
1226 14.0*Power(rij,4.0)*Power(xij,4.0)) +
1227 325.0*Power(xii,10.0)*Power(xij,8.0)*
1228 (-60117.0 - 5340.0*Power(rij,2.0)*Power(xij,2.0) +
1229 40.0*Power(rij,4.0)*Power(xij,4.0)) -
1230 15.0*rij*Power(xii,15.0)*Power(xij,4.0)*
1231 (845085.0 - 22960.0*Power(rij,2.0)*Power(xij,2.0) +
1232 52.0*Power(rij,4.0)*Power(xij,4.0)) +
1233 15.0*rij*Power(xii,13.0)*Power(xij,6.0)*
1234 (-139125.0 - 10140.0*Power(rij,2.0)*Power(xij,2.0) +
1235 52.0*Power(rij,4.0)*Power(xij,4.0)) +
1236 75.0*Power(xii,12.0)*Power(xij,6.0)*
1237 (-729687.0 + 25532.0*Power(rij,2.0)*Power(xij,2.0) +
1238 52.0*Power(rij,4.0)*Power(xij,4.0)) +
1239 60.0*Power(xii,18.0)*(-5355.0 - 11940.0*Power(rij,2.0)*Power(xij,2.0) +
1240 86.0*Power(rij,4.0)*Power(xij,4.0)) +
1241 2.0*rij*Power(xii,19.0)*(-89250.0 - 35425.0*Power(rij,2.0)*Power(xij,2.0) +
1242 124.0*Power(rij,4.0)*Power(xij,4.0)) +
1243 100.0*Power(xii,16.0)*Power(xij,2.0)*
1244 (-79713.0 - 13311.0*Power(rij,2.0)*Power(xij,2.0) +
1245 146.0*Power(rij,4.0)*Power(xij,4.0)) -
1246 5.0*Power(xii,8.0)*Power(xij,10.0)*
1247 (157365.0 + 95940.0*Power(rij,2.0)*Power(xij,2.0) +
1248 952.0*Power(rij,4.0)*Power(xij,4.0)) -
1249 15.0*Power(xii,14.0)*Power(xij,4.0)*
1250 (2638467.0 - 157500.0*Power(rij,2.0)*Power(xij,2.0) +
1251 1820.0*Power(rij,4.0)*Power(xij,4.0))) +
1252 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1253 (2.0*Power(xii,2.0)*Power(xij,20.0)*
1254 (1782492075.0 + 1449175455.0*rij*xij +
1255 533365560.0*Power(rij,2.0)*Power(xij,2.0) +
1256 114631335.0*Power(rij,3.0)*Power(xij,3.0) +
1257 15221115.0*Power(rij,4.0)*Power(xij,4.0) +
1258 1142505.0*Power(rij,5.0)*Power(xij,5.0) +
1259 18396.0*Power(rij,6.0)*Power(xij,6.0) -
1260 5238.0*Power(rij,7.0)*Power(xij,7.0) - 513.0*Power(rij,8.0)*Power(xij,8.0) -
1261 17.0*Power(rij,9.0)*Power(xij,9.0)) +
1262 42.0*Power(xii,4.0)*Power(xij,18.0)*
1263 (251336925.0 + 104824125.0*rij*xij + 340200.0*Power(rij,2.0)*Power(xij,2.0) -
1264 9122085.0*Power(rij,3.0)*Power(xij,3.0) -
1265 2798145.0*Power(rij,4.0)*Power(xij,4.0) -
1266 433755.0*Power(rij,5.0)*Power(xij,5.0) -
1267 39060.0*Power(rij,6.0)*Power(xij,6.0) -
1268 1890.0*Power(rij,7.0)*Power(xij,7.0) - 27.0*Power(rij,8.0)*Power(xij,8.0) +
1269 Power(rij,9.0)*Power(xij,9.0)) +
1270 6.0*Power(xij,22.0)*(34459425.0 + 34459425.0*rij*xij +
1271 16216200.0*Power(rij,2.0)*Power(xij,2.0) +
1272 4729725.0*Power(rij,3.0)*Power(xij,3.0) +
1273 945945.0*Power(rij,4.0)*Power(xij,4.0) +
1274 135135.0*Power(rij,5.0)*Power(xij,5.0) +
1275 13860.0*Power(rij,6.0)*Power(xij,6.0) + 990.0*Power(rij,7.0)*Power(xij,7.0) +
1276 45.0*Power(rij,8.0)*Power(xij,8.0) + Power(rij,9.0)*Power(xij,9.0)) -
1277 3.0*Power(xii,22.0)*(14175.0 + 25515.0*rij*xij +
1278 22680.0*Power(rij,2.0)*Power(xij,2.0) +
1279 13230.0*Power(rij,3.0)*Power(xij,3.0) +
1280 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
1281 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
1282 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
1283 21.0*Power(xii,18.0)*Power(xij,4.0)*
1284 (212625.0 + 382725.0*rij*xij + 340200.0*Power(rij,2.0)*Power(xij,2.0) +
1285 198450.0*Power(rij,3.0)*Power(xij,3.0) +
1286 85050.0*Power(rij,4.0)*Power(xij,4.0) +
1287 28350.0*Power(rij,5.0)*Power(xij,5.0) +
1288 7560.0*Power(rij,6.0)*Power(xij,6.0) + 1836.0*Power(rij,7.0)*Power(xij,7.0) +
1289 162.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) +
1290 54.0*Power(xii,6.0)*Power(xij,16.0)*
1291 (133451955.0 - 73700865.0*rij*xij -
1292 54096840.0*Power(rij,2.0)*Power(xij,2.0) -
1293 8306235.0*Power(rij,3.0)*Power(xij,3.0) +
1294 966945.0*Power(rij,4.0)*Power(xij,4.0) +
1295 516747.0*Power(rij,5.0)*Power(xij,5.0) +
1296 80724.0*Power(rij,6.0)*Power(xij,6.0) +
1297 6434.0*Power(rij,7.0)*Power(xij,7.0) + 251.0*Power(rij,8.0)*Power(xij,8.0) +
1298 3.0*Power(rij,9.0)*Power(xij,9.0)) -
1299 315.0*Power(xii,12.0)*Power(xij,10.0)*
1300 (-405405.0 - 710073.0*rij*xij - 805896.0*Power(rij,2.0)*Power(xij,2.0) -
1301 101556.0*Power(rij,3.0)*Power(xij,3.0) -
1302 258804.0*Power(rij,4.0)*Power(xij,4.0) -
1303 90972.0*Power(rij,5.0)*Power(xij,5.0) -
1304 9744.0*Power(rij,6.0)*Power(xij,6.0) + 120.0*Power(rij,7.0)*Power(xij,7.0) +
1305 84.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) +
1306 315.0*Power(xii,10.0)*Power(xij,12.0)*
1307 (-482895.0 - 2656395.0*rij*xij + 1186920.0*Power(rij,2.0)*Power(xij,2.0) -
1308 1155420.0*Power(rij,3.0)*Power(xij,3.0) -
1309 643356.0*Power(rij,4.0)*Power(xij,4.0) -
1310 93492.0*Power(rij,5.0)*Power(xij,5.0) + 336.0*Power(rij,6.0)*Power(xij,6.0) +
1311 1368.0*Power(rij,7.0)*Power(xij,7.0) + 132.0*Power(rij,8.0)*Power(xij,8.0) +
1312 4.0*Power(rij,9.0)*Power(xij,9.0)) -
1313 27.0*Power(xii,16.0)*Power(xij,6.0)*
1314 (-716625.0 - 1289925.0*rij*xij - 1146600.0*Power(rij,2.0)*Power(xij,2.0) -
1315 668850.0*Power(rij,3.0)*Power(xij,3.0) -
1316 286650.0*Power(rij,4.0)*Power(xij,4.0) -
1317 90006.0*Power(rij,5.0)*Power(xij,5.0) -
1318 32872.0*Power(rij,6.0)*Power(xij,6.0) -
1319 4812.0*Power(rij,7.0)*Power(xij,7.0) - 178.0*Power(rij,8.0)*Power(xij,8.0) +
1320 6.0*Power(rij,9.0)*Power(xij,9.0)) +
1321 Power(xii,20.0)*Power(xij,2.0)*
1322 (637875.0 + 1148175.0*rij*xij + 1020600.0*Power(rij,2.0)*Power(xij,2.0) +
1323 595350.0*Power(rij,3.0)*Power(xij,3.0) +
1324 255150.0*Power(rij,4.0)*Power(xij,4.0) +
1325 85050.0*Power(rij,5.0)*Power(xij,5.0) +
1326 22680.0*Power(rij,6.0)*Power(xij,6.0) +
1327 4860.0*Power(rij,7.0)*Power(xij,7.0) + 810.0*Power(rij,8.0)*Power(xij,8.0) +
1328 34.0*Power(rij,9.0)*Power(xij,9.0)) +
1329 3.0*Power(xii,14.0)*Power(xij,8.0)*
1330 (-19348875.0 - 34827975.0*rij*xij -
1331 30958200.0*Power(rij,2.0)*Power(xij,2.0) -
1332 18689580.0*Power(rij,3.0)*Power(xij,3.0) -
1333 5847660.0*Power(rij,4.0)*Power(xij,4.0) -
1334 3723300.0*Power(rij,5.0)*Power(xij,5.0) -
1335 845040.0*Power(rij,6.0)*Power(xij,6.0) -
1336 58680.0*Power(rij,7.0)*Power(xij,7.0) +
1337 1548.0*Power(rij,8.0)*Power(xij,8.0) + 236.0*Power(rij,9.0)*Power(xij,9.0)) -
1338 3.0*Power(xii,8.0)*Power(xij,14.0)*
1339 (-593408025.0 + 946053675.0*rij*xij -
1340 394427880.0*Power(rij,2.0)*Power(xij,2.0) -
1341 315870660.0*Power(rij,3.0)*Power(xij,3.0) -
1342 53891460.0*Power(rij,4.0)*Power(xij,4.0) +
1343 910980.0*Power(rij,5.0)*Power(xij,5.0) +
1344 1409520.0*Power(rij,6.0)*Power(xij,6.0) +
1345 192168.0*Power(rij,7.0)*Power(xij,7.0) +
1346 11196.0*Power(rij,8.0)*Power(xij,8.0) + 236.0*Power(rij,9.0)*Power(xij,9.0))))/
1347 (42525.*Power(E,2.0*rij*(xii + xij))*rij*
1348 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
1349 ;
1350 }
1351 return S;
1352 }
1353
1354 static double Slater_3S_6S(double rij,double xij,double xii)
1355 {
1356 double S;
1357
1358 if (xii == xij) {
1359 S = (-12804747411456000.0 + 12804747411456000.0*Power(E,2.0*rij*xii) -
1360 23523793155237375.0*rij*xii -
1361 21438091487562750.0*Power(rij,2.0)*Power(xii,2.0) -
1362 12909495448599750.0*Power(rij,3.0)*Power(xii,3.0) -
1363 5771367188086500.0*Power(rij,4.0)*Power(xii,4.0) -
1364 2040067705876200.0*Power(rij,5.0)*Power(xii,5.0) -
1365 592812380160000.0*Power(rij,6.0)*Power(xii,6.0) -
1366 145331660073600.0*Power(rij,7.0)*Power(xii,7.0) -
1367 30604380206400.0*Power(rij,8.0)*Power(xii,8.0) -
1368 5606134934400.0*Power(rij,9.0)*Power(xii,9.0) -
1369 900980720640.0*Power(rij,10.0)*Power(xii,10.0) -
1370 127672796160.0*Power(rij,11.0)*Power(xii,11.0) -
1371 15968010240.0*Power(rij,12.0)*Power(xii,12.0) -
1372 1754726400.0*Power(rij,13.0)*Power(xii,13.0) -
1373 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
1374 13369344.0*Power(rij,15.0)*Power(xii,15.0) -
1375 835584.0*Power(rij,16.0)*Power(xii,16.0) - 32768.0*Power(rij,17.0)*Power(xii,17.0))/
1376 (1.2804747411456e16*Power(E,2.0*rij*xii)*rij)
1377 ;
1378 }
1379 else {
1380 S = (2806650.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
1381 20790.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
1382 (-240.0*Power(rij,4.0)*Power(xii,24.0) - 6.0*Power(rij,5.0)*Power(xii,25.0) +
1383 135.0*Power(xij,20.0) + 225.0*rij*xii*Power(xij,20.0) -
1384 80.0*Power(rij,3.0)*Power(xii,23.0)*(51.0 + Power(rij,2.0)*Power(xij,2.0)) +
1385 45.0*rij*Power(xii,3.0)*Power(xij,18.0)*
1386 (-85.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1387 45.0*Power(xii,2.0)*Power(xij,18.0)*(-51.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
1388 30.0*Power(rij,2.0)*Power(xii,22.0)*
1389 (1224.0 + 137.0*Power(rij,2.0)*Power(xij,2.0)) +
1390 3060.0*rij*Power(xii,15.0)*Power(xij,6.0)*
1391 (-11875.0 + 146.0*Power(rij,2.0)*Power(xij,2.0)) +
1392 2.0*rij*Power(xii,9.0)*Power(xij,12.0)*
1393 (3977235.0 + 115260.0*Power(rij,2.0)*Power(xij,2.0) -
1394 47.0*Power(rij,4.0)*Power(xij,4.0)) +
1395 1020.0*rij*Power(xii,13.0)*Power(xij,8.0)*
1396 (23775.0 - 741.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
1397 + 6.0*rij*Power(xii,5.0)*Power(xij,16.0)*
1398 (5100.0 - 255.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
1399 + 30.0*Power(xii,4.0)*Power(xij,16.0)*
1400 (612.0 - 102.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) -
1401 510.0*Power(xii,6.0)*Power(xij,14.0)*
1402 (180.0 - 48.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
1403 20.0*rij*Power(xii,7.0)*Power(xij,14.0)*
1404 (-1683.0 + 1158.0*Power(rij,2.0)*Power(xij,2.0) +
1405 4.0*Power(rij,4.0)*Power(xij,4.0)) +
1406 510.0*Power(xii,10.0)*Power(xij,10.0)*
1407 (-83889.0 - 7948.0*Power(rij,2.0)*Power(xij,2.0) +
1408 12.0*Power(rij,4.0)*Power(xij,4.0)) -
1409 34.0*rij*Power(xii,11.0)*Power(xij,10.0)*
1410 (-1158885.0 + 3450.0*Power(rij,2.0)*Power(xij,2.0) +
1411 16.0*Power(rij,4.0)*Power(xij,4.0)) -
1412 90.0*Power(xii,20.0)*(3876.0 + 10354.0*Power(rij,2.0)*Power(xij,2.0) +
1413 29.0*Power(rij,4.0)*Power(xij,4.0)) +
1414 1020.0*Power(xii,12.0)*Power(xij,8.0)*
1415 (-172098.0 - 26.0*Power(rij,2.0)*Power(xij,2.0) +
1416 31.0*Power(rij,4.0)*Power(xij,4.0)) -
1417 1020.0*Power(xii,14.0)*Power(xij,6.0)*
1418 (210168.0 - 8596.0*Power(rij,2.0)*Power(xij,2.0) +
1419 39.0*Power(rij,4.0)*Power(xij,4.0)) +
1420 2.0*rij*Power(xii,21.0)*(-87210.0 - 43125.0*Power(rij,2.0)*Power(xij,2.0) +
1421 47.0*Power(rij,4.0)*Power(xij,4.0)) -
1422 15.0*rij*Power(xii,17.0)*Power(xij,4.0)*
1423 (1992273.0 - 31144.0*Power(rij,2.0)*Power(xij,2.0) +
1424 68.0*Power(rij,4.0)*Power(xij,4.0)) -
1425 90.0*Power(xii,8.0)*Power(xij,12.0)*
1426 (17425.0 + 6664.0*Power(rij,2.0)*Power(xij,2.0) +
1427 76.0*Power(rij,4.0)*Power(xij,4.0)) +
1428 rij*Power(xii,19.0)*Power(xij,2.0)*
1429 (-5204385.0 - 202710.0*Power(rij,2.0)*Power(xij,2.0) +
1430 544.0*Power(rij,4.0)*Power(xij,4.0)) +
1431 45.0*Power(xii,18.0)*Power(xij,2.0)*
1432 (-267615.0 - 83676.0*Power(rij,2.0)*Power(xij,2.0) +
1433 680.0*Power(rij,4.0)*Power(xij,4.0)) -
1434 15.0*Power(xii,16.0)*Power(xij,4.0)*
1435 (6000651.0 - 41616.0*Power(rij,2.0)*Power(xij,2.0) +
1436 952.0*Power(rij,4.0)*Power(xij,4.0))) +
1437 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1438 (2.0*Power(xii,2.0)*Power(xij,24.0)*
1439 (436049563950.0 + 402658381125.0*rij*xij +
1440 173330907750.0*Power(rij,2.0)*Power(xij,2.0) +
1441 45555359850.0*Power(rij,3.0)*Power(xij,3.0) +
1442 7994586600.0*Power(rij,4.0)*Power(xij,4.0) +
1443 948782835.0*Power(rij,5.0)*Power(xij,5.0) +
1444 69999930.0*Power(rij,6.0)*Power(xij,6.0) +
1445 1737450.0*Power(rij,7.0)*Power(xij,7.0) -
1446 254430.0*Power(rij,8.0)*Power(xij,8.0) -
1447 34155.0*Power(rij,9.0)*Power(xij,9.0) -
1448 1914.0*Power(rij,10.0)*Power(xij,10.0) - 46.0*Power(rij,11.0)*Power(xij,11.0)) \
1449 - 44.0*Power(xii,20.0)*Power(xij,6.0)*
1450 (-43375500.0 - 79521750.0*rij*xij -
1451 72292500.0*Power(rij,2.0)*Power(xij,2.0) -
1452 43375500.0*Power(rij,3.0)*Power(xij,3.0) -
1453 19278000.0*Power(rij,4.0)*Power(xij,4.0) -
1454 6747300.0*Power(rij,5.0)*Power(xij,5.0) -
1455 1927800.0*Power(rij,6.0)*Power(xij,6.0) -
1456 441180.0*Power(rij,7.0)*Power(xij,7.0) -
1457 109620.0*Power(rij,8.0)*Power(xij,8.0) -
1458 14715.0*Power(rij,9.0)*Power(xij,9.0) -
1459 690.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
1460 6.0*Power(xij,26.0)*(6547290750.0 + 7202019825.0*rij*xij +
1461 3790536750.0*Power(rij,2.0)*Power(xij,2.0) +
1462 1263512250.0*Power(rij,3.0)*Power(xij,3.0) +
1463 297297000.0*Power(rij,4.0)*Power(xij,4.0) +
1464 52026975.0*Power(rij,5.0)*Power(xij,5.0) +
1465 6936930.0*Power(rij,6.0)*Power(xij,6.0) +
1466 707850.0*Power(rij,7.0)*Power(xij,7.0) +
1467 54450.0*Power(rij,8.0)*Power(xij,8.0) +
1468 3025.0*Power(rij,9.0)*Power(xij,9.0) +
1469 110.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
1470 44.0*Power(xii,6.0)*Power(xij,20.0)*
1471 (100049928300.0 - 5205782925.0*rij*xij -
1472 25852279950.0*Power(rij,2.0)*Power(xij,2.0) -
1473 8238935250.0*Power(rij,3.0)*Power(xij,3.0) -
1474 784614600.0*Power(rij,4.0)*Power(xij,4.0) +
1475 136745280.0*Power(rij,5.0)*Power(xij,5.0) +
1476 52950240.0*Power(rij,6.0)*Power(xij,6.0) +
1477 7931520.0*Power(rij,7.0)*Power(xij,7.0) +
1478 685440.0*Power(rij,8.0)*Power(xij,8.0) +
1479 34425.0*Power(rij,9.0)*Power(xij,9.0) +
1480 822.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) -
1481 3.0*Power(xii,26.0)*(935550.0 + 1715175.0*rij*xij +
1482 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
1483 935550.0*Power(rij,3.0)*Power(xij,3.0) +
1484 415800.0*Power(rij,4.0)*Power(xij,4.0) +
1485 145530.0*Power(rij,5.0)*Power(xij,5.0) +
1486 41580.0*Power(rij,6.0)*Power(xij,6.0) +
1487 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
1488 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
1489 4.0*Power(rij,11.0)*Power(xij,11.0)) +
1490 2244.0*Power(xii,14.0)*Power(xij,12.0)*
1491 (-15479100.0 - 28676025.0*rij*xij -
1492 22821750.0*Power(rij,2.0)*Power(xij,2.0) -
1493 22689450.0*Power(rij,3.0)*Power(xij,3.0) -
1494 1852200.0*Power(rij,4.0)*Power(xij,4.0) -
1495 2372580.0*Power(rij,5.0)*Power(xij,5.0) -
1496 1252440.0*Power(rij,6.0)*Power(xij,6.0) -
1497 228600.0*Power(rij,7.0)*Power(xij,7.0) -
1498 15000.0*Power(rij,8.0)*Power(xij,8.0) + 450.0*Power(rij,9.0)*Power(xij,9.0) +
1499 108.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
1500 2244.0*Power(xii,12.0)*Power(xij,14.0)*
1501 (-27556200.0 - 14104125.0*rij*xij -
1502 108438750.0*Power(rij,2.0)*Power(xij,2.0) +
1503 15375150.0*Power(rij,3.0)*Power(xij,3.0) -
1504 5632200.0*Power(rij,4.0)*Power(xij,4.0) -
1505 8370180.0*Power(rij,5.0)*Power(xij,5.0) -
1506 2119320.0*Power(rij,6.0)*Power(xij,6.0) -
1507 198000.0*Power(rij,7.0)*Power(xij,7.0) +
1508 2400.0*Power(rij,8.0)*Power(xij,8.0) + 2010.0*Power(rij,9.0)*Power(xij,9.0) +
1509 156.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) +
1510 330.0*Power(xii,18.0)*Power(xij,8.0)*
1511 (-20241900.0 - 37110150.0*rij*xij -
1512 33736500.0*Power(rij,2.0)*Power(xij,2.0) -
1513 20241900.0*Power(rij,3.0)*Power(xij,3.0) -
1514 8996400.0*Power(rij,4.0)*Power(xij,4.0) -
1515 3211803.0*Power(rij,5.0)*Power(xij,5.0) -
1516 773514.0*Power(rij,6.0)*Power(xij,6.0) -
1517 263898.0*Power(rij,7.0)*Power(xij,7.0) -
1518 53202.0*Power(rij,8.0)*Power(xij,8.0) -
1519 4393.0*Power(rij,9.0)*Power(xij,9.0) - 62.0*Power(rij,10.0)*Power(xij,10.0) +
1520 6.0*Power(rij,11.0)*Power(xij,11.0)) -
1521 165.0*Power(xii,8.0)*Power(xij,18.0)*
1522 (-11754743490.0 + 11330341155.0*rij*xij +
1523 1384290810.0*Power(rij,2.0)*Power(xij,2.0) -
1524 2116476810.0*Power(rij,3.0)*Power(xij,3.0) -
1525 782225640.0*Power(rij,4.0)*Power(xij,4.0) -
1526 97437186.0*Power(rij,5.0)*Power(xij,5.0) +
1527 2679012.0*Power(rij,6.0)*Power(xij,6.0) +
1528 2436804.0*Power(rij,7.0)*Power(xij,7.0) +
1529 347316.0*Power(rij,8.0)*Power(xij,8.0) +
1530 25014.0*Power(rij,9.0)*Power(xij,9.0) +
1531 916.0*Power(rij,10.0)*Power(xij,10.0) + 12.0*Power(rij,11.0)*Power(xij,11.0)) \
1532 + 4.0*Power(xii,4.0)*Power(xij,22.0)*
1533 (921052717200.0 + 543777678675.0*rij*xij +
1534 99905825250.0*Power(rij,2.0)*Power(xij,2.0) -
1535 10883876850.0*Power(rij,3.0)*Power(xij,3.0) -
1536 9266934600.0*Power(rij,4.0)*Power(xij,4.0) -
1537 2236505040.0*Power(rij,5.0)*Power(xij,5.0) -
1538 316673280.0*Power(rij,6.0)*Power(xij,6.0) -
1539 28779300.0*Power(rij,7.0)*Power(xij,7.0) -
1540 1601820.0*Power(rij,8.0)*Power(xij,8.0) -
1541 40095.0*Power(rij,9.0)*Power(xij,9.0) +
1542 726.0*Power(rij,10.0)*Power(xij,10.0) + 58.0*Power(rij,11.0)*Power(xij,11.0)) \
1543 - 4.0*Power(xii,22.0)*Power(xij,4.0)*
1544 (95426100.0 + 174947850.0*rij*xij +
1545 159043500.0*Power(rij,2.0)*Power(xij,2.0) +
1546 95426100.0*Power(rij,3.0)*Power(xij,3.0) +
1547 42411600.0*Power(rij,4.0)*Power(xij,4.0) +
1548 14844060.0*Power(rij,5.0)*Power(xij,5.0) +
1549 4241160.0*Power(rij,6.0)*Power(xij,6.0) +
1550 1009800.0*Power(rij,7.0)*Power(xij,7.0) +
1551 201960.0*Power(rij,8.0)*Power(xij,8.0) +
1552 37125.0*Power(rij,9.0)*Power(xij,9.0) +
1553 3102.0*Power(rij,10.0)*Power(xij,10.0) + 58.0*Power(rij,11.0)*Power(xij,11.0)) \
1554 - 66.0*Power(xii,16.0)*Power(xij,10.0)*
1555 (-263144700.0 - 482431950.0*rij*xij -
1556 438574500.0*Power(rij,2.0)*Power(xij,2.0) -
1557 259704900.0*Power(rij,3.0)*Power(xij,3.0) -
1558 130712400.0*Power(rij,4.0)*Power(xij,4.0) -
1559 27031095.0*Power(rij,5.0)*Power(xij,5.0) -
1560 13816530.0*Power(rij,6.0)*Power(xij,6.0) -
1561 4240170.0*Power(rij,7.0)*Power(xij,7.0) -
1562 537330.0*Power(rij,8.0)*Power(xij,8.0) -
1563 20565.0*Power(rij,9.0)*Power(xij,9.0) +
1564 1146.0*Power(rij,10.0)*Power(xij,10.0) + 86.0*Power(rij,11.0)*Power(xij,11.0)) \
1565 + Power(xii,24.0)*Power(xij,2.0)*(47713050.0 + 87473925.0*rij*xij +
1566 79521750.0*Power(rij,2.0)*Power(xij,2.0) +
1567 47713050.0*Power(rij,3.0)*Power(xij,3.0) +
1568 21205800.0*Power(rij,4.0)*Power(xij,4.0) +
1569 7422030.0*Power(rij,5.0)*Power(xij,5.0) +
1570 2120580.0*Power(rij,6.0)*Power(xij,6.0) +
1571 504900.0*Power(rij,7.0)*Power(xij,7.0) +
1572 100980.0*Power(rij,8.0)*Power(xij,8.0) +
1573 16830.0*Power(rij,9.0)*Power(xij,9.0) +
1574 2244.0*Power(rij,10.0)*Power(xij,10.0) + 92.0*Power(rij,11.0)*Power(xij,11.0)) \
1575 + 33.0*Power(xii,10.0)*Power(xij,16.0)*
1576 (5519319750.0 - 27722883825.0*rij*xij +
1577 11646151650.0*Power(rij,2.0)*Power(xij,2.0) +
1578 955234350.0*Power(rij,3.0)*Power(xij,3.0) -
1579 2729953800.0*Power(rij,4.0)*Power(xij,4.0) -
1580 902572650.0*Power(rij,5.0)*Power(xij,5.0) -
1581 105286860.0*Power(rij,6.0)*Power(xij,6.0) +
1582 622260.0*Power(rij,7.0)*Power(xij,7.0) +
1583 1538340.0*Power(rij,8.0)*Power(xij,8.0) +
1584 178830.0*Power(rij,9.0)*Power(xij,9.0) +
1585 9060.0*Power(rij,10.0)*Power(xij,10.0) + 172.0*Power(rij,11.0)*Power(xij,11.0))\
1586 ))/(2.80665e6*Power(E,2.0*rij*(xii + xij))*rij*
1587 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
1588 ;
1589 }
1590 return S;
1591 }
1592
1593 double Slater_3S_1S(double rij,double xii,double xij)
1594 {
1595 return Slater_1S_3S(rij,xij,xii);
1596 }
1597
1598 double Slater_3S_2S(double rij,double xii,double xij)
1599 {
1600 return Slater_2S_3S(rij,xij,xii);
1601 }
1602
1603 static double Slater_4S_4S(double rij,double xij,double xii)
1604 {
1605 double S;
1606
1607 if (xii == xij) {
1608 S = (-83691159552000.0 + 83691159552000.0*Power(E,2.0*rij*xii) -
1609 150568359566625.0*rij*xii - 133754400029250.0*Power(rij,2.0)*Power(xii,2.0) -
1610 78142908343500.0*Power(rij,3.0)*Power(xii,3.0) -
1611 33740723016000.0*Power(rij,4.0)*Power(xii,4.0) -
1612 11470756096800.0*Power(rij,5.0)*Power(xii,5.0) -
1613 3193358968800.0*Power(rij,6.0)*Power(xii,6.0) -
1614 747112766400.0*Power(rij,7.0)*Power(xii,7.0) -
1615 149448499200.0*Power(rij,8.0)*Power(xii,8.0) -
1616 25830604800.0*Power(rij,9.0)*Power(xii,9.0) -
1617 3874590720.0*Power(rij,10.0)*Power(xii,10.0) -
1618 503193600.0*Power(rij,11.0)*Power(xii,11.0) -
1619 55910400.0*Power(rij,12.0)*Power(xii,12.0) -
1620 5160960.0*Power(rij,13.0)*Power(xii,13.0) -
1621 368640.0*Power(rij,14.0)*Power(xii,14.0) - 16384.0*Power(rij,15.0)*Power(xii,15.0))/
1622 (8.3691159552e13*Power(E,2.0*rij*xii)*rij)
1623 ;
1624 }
1625 else {
1626 S = (1260.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
1627 Power(E,2.0*rij*xij)*Power(xij,10.0)*
1628 (-3276.0*Power(rij,5.0)*Power(xii,25.0) - 168.0*Power(rij,6.0)*Power(xii,26.0) -
1629 4.0*Power(rij,7.0)*Power(xii,27.0) + 1260.0*Power(xij,20.0) +
1630 2205.0*rij*xii*Power(xij,20.0) +
1631 1890.0*Power(xii,2.0)*Power(xij,18.0)*(-10.0 + Power(rij,2.0)*Power(xij,2.0)) -
1632 420.0*Power(rij,4.0)*Power(xii,24.0)*(91.0 + Power(rij,2.0)*Power(xij,2.0)) +
1633 525.0*rij*Power(xii,3.0)*Power(xij,18.0)*
1634 (-63.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1635 42.0*Power(rij,3.0)*Power(xii,23.0)*
1636 (-6825.0 - 405.0*Power(rij,2.0)*Power(xij,2.0) +
1637 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1638 63.0*rij*Power(xii,5.0)*Power(xij,16.0)*
1639 (3675.0 - 250.0*Power(rij,2.0)*Power(xij,2.0) +
1640 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1641 210.0*Power(xii,4.0)*Power(xij,16.0)*
1642 (630.0 - 135.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1643 + 252.0*Power(rij,2.0)*Power(xii,22.0)*
1644 (-5460.0 - 1225.0*Power(rij,2.0)*Power(xij,2.0) +
1645 17.0*Power(rij,4.0)*Power(xij,4.0)) -
1646 1260.0*rij*Power(xii,17.0)*Power(xij,4.0)*
1647 (141729.0 - 10145.0*Power(rij,2.0)*Power(xij,2.0) +
1648 116.0*Power(rij,4.0)*Power(xij,4.0)) +
1649 21.0*rij*Power(xii,9.0)*Power(xij,12.0)*
1650 (164775.0 - 18460.0*Power(rij,2.0)*Power(xij,2.0) +
1651 828.0*Power(rij,4.0)*Power(xij,4.0)) +
1652 14.0*Power(xii,6.0)*Power(xij,14.0)*
1653 (-40950.0 + 14175.0*Power(rij,2.0)*Power(xij,2.0) -
1654 450.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
1655 210.0*Power(xii,8.0)*Power(xij,12.0)*
1656 (-8190.0 + 4095.0*Power(rij,2.0)*Power(xij,2.0) -
1657 210.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
1658 42.0*Power(xii,10.0)*Power(xij,10.0)*
1659 (-209430.0 - 2925.0*Power(rij,2.0)*Power(xij,2.0) -
1660 8840.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
1661 rij*Power(xii,7.0)*Power(xij,14.0)*
1662 (-1003275.0 + 110250.0*Power(rij,2.0)*Power(xij,2.0) -
1663 1890.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
1664 21.0*rij*Power(xii,11.0)*Power(xij,10.0)*
1665 (-1033695.0 - 218400.0*Power(rij,2.0)*Power(xij,2.0) +
1666 552.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
1667 280.0*Power(xii,18.0)*Power(xij,2.0)*
1668 (-385560.0 - 73953.0*Power(rij,2.0)*Power(xij,2.0) +
1669 2370.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
1670 35.0*rij*Power(xii,15.0)*Power(xij,6.0)*
1671 (-1565613.0 + 359520.0*Power(rij,2.0)*Power(xij,2.0) -
1672 7020.0*Power(rij,4.0)*Power(xij,4.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
1673 14.0*rij*Power(xii,19.0)*Power(xij,2.0)*
1674 (-4980150.0 + 126765.0*Power(rij,2.0)*Power(xij,2.0) -
1675 3852.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
1676 630.0*Power(xii,14.0)*Power(xij,6.0)*
1677 (708714.0 - 14385.0*Power(rij,2.0)*Power(xij,2.0) -
1678 2340.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) +
1679 210.0*Power(xii,16.0)*Power(xij,4.0)*
1680 (-2087532.0 + 328491.0*Power(rij,2.0)*Power(xij,2.0) -
1681 11740.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) -
1682 84.0*Power(xii,20.0)*(59670.0 + 236250.0*Power(rij,2.0)*Power(xij,2.0) -
1683 8745.0*Power(rij,4.0)*Power(xij,4.0) + 92.0*Power(rij,6.0)*Power(xij,6.0)) -
1684 2.0*rij*Power(xii,21.0)*(1949220.0 + 1598625.0*Power(rij,2.0)*Power(xij,2.0) -
1685 41391.0*Power(rij,4.0)*Power(xij,4.0) + 128.0*Power(rij,6.0)*Power(xij,6.0)) \
1686 + rij*Power(xii,13.0)*Power(xij,8.0)*
1687 (173037375.0 - 2784600.0*Power(rij,2.0)*Power(xij,2.0) -
1688 112140.0*Power(rij,4.0)*Power(xij,4.0) + 256.0*Power(rij,6.0)*Power(xij,6.0)) \
1689 + 14.0*Power(xii,12.0)*Power(xij,8.0)*
1690 (-7260750.0 - 2521935.0*Power(rij,2.0)*Power(xij,2.0) +
1691 19500.0*Power(rij,4.0)*Power(xij,4.0) + 344.0*Power(rij,6.0)*Power(xij,6.0))) \
1692 + Power(E,2.0*rij*xii)*Power(xii,10.0)*
1693 (210.0*Power(xii,2.0)*Power(xij,18.0)*
1694 (514080.0 + 332010.0*rij*xij + 94500.0*Power(rij,2.0)*Power(xij,2.0) +
1695 15225.0*Power(rij,3.0)*Power(xij,3.0) +
1696 1470.0*Power(rij,4.0)*Power(xij,4.0) + 81.0*Power(rij,5.0)*Power(xij,5.0) +
1697 2.0*Power(rij,6.0)*Power(xij,6.0)) +
1698 105.0*Power(xii,18.0)*Power(xij,2.0)*
1699 (180.0 + 315.0*rij*xij + 270.0*Power(rij,2.0)*Power(xij,2.0) +
1700 150.0*Power(rij,3.0)*Power(xij,3.0) + 60.0*Power(rij,4.0)*Power(xij,4.0) +
1701 18.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
1702 1365.0*Power(xii,10.0)*Power(xij,10.0)*
1703 (-6444.0 + 15903.0*rij*xij - 25866.0*Power(rij,2.0)*Power(xij,2.0) -
1704 2040.0*Power(rij,3.0)*Power(xij,3.0) + 1080.0*Power(rij,4.0)*Power(xij,4.0) +
1705 180.0*Power(rij,5.0)*Power(xij,5.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
1706 Power(xii,14.0)*Power(xij,6.0)*
1707 (573300.0 + 1003275.0*rij*xij + 859950.0*Power(rij,2.0)*Power(xij,2.0) +
1708 387660.0*Power(rij,3.0)*Power(xij,3.0) +
1709 371280.0*Power(rij,4.0)*Power(xij,4.0) +
1710 11592.0*Power(rij,5.0)*Power(xij,5.0) -
1711 4816.0*Power(rij,6.0)*Power(xij,6.0) - 256.0*Power(rij,7.0)*Power(xij,7.0)) +
1712 2.0*Power(xij,20.0)*(2506140.0 + 1949220.0*rij*xij +
1713 687960.0*Power(rij,2.0)*Power(xij,2.0) +
1714 143325.0*Power(rij,3.0)*Power(xij,3.0) +
1715 19110.0*Power(rij,4.0)*Power(xij,4.0) +
1716 1638.0*Power(rij,5.0)*Power(xij,5.0) + 84.0*Power(rij,6.0)*Power(xij,6.0) +
1717 2.0*Power(rij,7.0)*Power(xij,7.0)) -
1718 42.0*Power(xii,4.0)*Power(xij,16.0)*
1719 (-10437660.0 - 4251870.0*rij*xij - 493020.0*Power(rij,2.0)*Power(xij,2.0) +
1720 42255.0*Power(rij,3.0)*Power(xij,3.0) +
1721 17490.0*Power(rij,4.0)*Power(xij,4.0) +
1722 1971.0*Power(rij,5.0)*Power(xij,5.0) + 102.0*Power(rij,6.0)*Power(xij,6.0) +
1723 2.0*Power(rij,7.0)*Power(xij,7.0)) +
1724 21.0*Power(xii,16.0)*Power(xij,4.0)*
1725 (-6300.0 - 11025.0*rij*xij - 9450.0*Power(rij,2.0)*Power(xij,2.0) -
1726 5250.0*Power(rij,3.0)*Power(xij,3.0) - 2100.0*Power(rij,4.0)*Power(xij,4.0) -
1727 828.0*Power(rij,5.0)*Power(xij,5.0) - 8.0*Power(rij,6.0)*Power(xij,6.0) +
1728 4.0*Power(rij,7.0)*Power(xij,7.0)) -
1729 Power(xii,20.0)*(1260.0 + 2205.0*rij*xij +
1730 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
1731 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
1732 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) -
1733 35.0*Power(xii,8.0)*Power(xij,12.0)*
1734 (-2904300.0 + 4943925.0*rij*xij + 258930.0*Power(rij,2.0)*Power(xij,2.0) -
1735 359520.0*Power(rij,3.0)*Power(xij,3.0) -
1736 70440.0*Power(rij,4.0)*Power(xij,4.0) -
1737 4176.0*Power(rij,5.0)*Power(xij,5.0) + 32.0*Power(rij,6.0)*Power(xij,6.0) +
1738 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1739 35.0*Power(xii,12.0)*Power(xij,8.0)*
1740 (-49140.0 - 98865.0*rij*xij + 3510.0*Power(rij,2.0)*Power(xij,2.0) -
1741 131040.0*Power(rij,3.0)*Power(xij,3.0) -
1742 7800.0*Power(rij,4.0)*Power(xij,4.0) + 3204.0*Power(rij,5.0)*Power(xij,5.0) +
1743 360.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1744 Power(xii,6.0)*Power(xij,14.0)*
1745 (446489820.0 - 54796455.0*rij*xij - 68983110.0*Power(rij,2.0)*Power(xij,2.0) -
1746 12782700.0*Power(rij,3.0)*Power(xij,3.0) -
1747 663600.0*Power(rij,4.0)*Power(xij,4.0) +
1748 53928.0*Power(rij,5.0)*Power(xij,5.0) + 7728.0*Power(rij,6.0)*Power(xij,6.0) +
1749 256.0*Power(rij,7.0)*Power(xij,7.0))))/
1750 (1260.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),15.0))
1751 ;
1752 }
1753 return S;
1754 }
1755
1756 static double Slater_4S_5S(double rij,double xij,double xii)
1757 {
1758 double S;
1759
1760 if (xii == xij) {
1761 S = (-14227497123840000.0 + 14227497123840000.0*Power(E,2.0*rij*xii) -
1762 25913502934444125.0*rij*xii -
1763 23372011621208250.0*Power(rij,2.0)*Power(xii,2.0) -
1764 13907709869303250.0*Power(rij,3.0)*Power(xii,3.0) -
1765 6137735659555500.0*Power(rij,4.0)*Power(xii,4.0) -
1766 2140857388870200.0*Power(rij,5.0)*Power(xii,5.0) -
1767 614116575072000.0*Power(rij,6.0)*Power(xii,6.0) -
1768 148809580920000.0*Power(rij,7.0)*Power(xii,7.0) -
1769 31036639233600.0*Power(rij,8.0)*Power(xii,8.0) -
1770 5645342102400.0*Power(rij,9.0)*Power(xii,9.0) -
1771 903333150720.0*Power(rij,10.0)*Power(xii,10.0) -
1772 127744081920.0*Power(rij,11.0)*Power(xii,11.0) -
1773 15968010240.0*Power(rij,12.0)*Power(xii,12.0) -
1774 1754726400.0*Power(rij,13.0)*Power(xii,13.0) -
1775 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
1776 13369344.0*Power(rij,15.0)*Power(xii,15.0) -
1777 835584.0*Power(rij,16.0)*Power(xii,16.0) - 32768.0*Power(rij,17.0)*Power(xii,17.0))/
1778 (1.422749712384e16*Power(E,2.0*rij*xii)*rij)
1779 ;
1780 }
1781 else {
1782 S = (56700.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
1783 9.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
1784 (-980.0*Power(rij,6.0)*Power(xii,28.0) - 20.0*Power(rij,7.0)*Power(xii,29.0) +
1785 6300.0*Power(xij,22.0) + 11025.0*rij*xii*Power(xij,22.0) -
1786 50.0*Power(rij,5.0)*Power(xii,27.0)*(441.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1787 3150.0*Power(xii,2.0)*Power(xij,20.0)*
1788 (-34.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) +
1789 525.0*rij*Power(xii,3.0)*Power(xij,20.0)*
1790 (-357.0 + 10.0*Power(rij,2.0)*Power(xij,2.0)) -
1791 420.0*Power(rij,4.0)*Power(xii,26.0)*
1792 (700.0 + 19.0*Power(rij,2.0)*Power(xij,2.0)) +
1793 1050.0*Power(xii,4.0)*Power(xij,18.0)*
1794 (816.0 - 153.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1795 + 210.0*rij*Power(xii,5.0)*Power(xij,18.0)*
1796 (7140.0 - 425.0*Power(rij,2.0)*Power(xij,2.0) +
1797 3.0*Power(rij,4.0)*Power(xij,4.0)) +
1798 42.0*Power(rij,3.0)*Power(xii,25.0)*
1799 (-59500.0 - 6035.0*Power(rij,2.0)*Power(xij,2.0) +
1800 18.0*Power(rij,4.0)*Power(xij,4.0)) +
1801 84.0*Power(rij,2.0)*Power(xii,24.0)*
1802 (-160650.0 - 52700.0*Power(rij,2.0)*Power(xij,2.0) +
1803 397.0*Power(rij,4.0)*Power(xij,4.0)) -
1804 28.0*Power(xii,12.0)*Power(xij,10.0)*
1805 (100849950.0 + 27100125.0*Power(rij,2.0)*Power(xij,2.0) +
1806 186150.0*Power(rij,4.0)*Power(xij,4.0) - 2177.0*Power(rij,6.0)*Power(xij,6.0)\
1807 ) + 140.0*Power(xii,6.0)*Power(xij,16.0)*
1808 (-30600.0 + 9180.0*Power(rij,2.0)*Power(xij,2.0) -
1809 255.0*Power(rij,4.0)*Power(xij,4.0) + Power(rij,6.0)*Power(xij,6.0)) -
1810 2380.0*Power(xii,8.0)*Power(xij,14.0)*
1811 (-6300.0 + 2700.0*Power(rij,2.0)*Power(xij,2.0) -
1812 120.0*Power(rij,4.0)*Power(xij,4.0) + Power(rij,6.0)*Power(xij,6.0)) +
1813 10.0*rij*Power(xii,7.0)*Power(xij,16.0)*
1814 (-749700.0 + 71400.0*Power(rij,2.0)*Power(xij,2.0) -
1815 1071.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
1816 204.0*rij*Power(xii,15.0)*Power(xij,8.0)*
1817 (28962255.0 - 1744750.0*Power(rij,2.0)*Power(xij,2.0) +
1818 9555.0*Power(rij,4.0)*Power(xij,4.0) + 6.0*Power(rij,6.0)*Power(xij,6.0)) -
1819 42.0*rij*Power(xii,11.0)*Power(xij,12.0)*
1820 (-12911925.0 - 1634550.0*Power(rij,2.0)*Power(xij,2.0) -
1821 7103.0*Power(rij,4.0)*Power(xij,4.0) + 18.0*Power(rij,6.0)*Power(xij,6.0)) +
1822 2.0*rij*Power(xii,9.0)*Power(xij,14.0)*
1823 (16948575.0 - 1184400.0*Power(rij,2.0)*Power(xij,2.0) +
1824 63861.0*Power(rij,4.0)*Power(xij,4.0) + 50.0*Power(rij,6.0)*Power(xij,6.0)) +
1825 28.0*Power(xii,22.0)*(-2180250.0 - 10993050.0*Power(rij,2.0)*Power(xij,2.0) +
1826 14925.0*Power(rij,4.0)*Power(xij,4.0) + 73.0*Power(rij,6.0)*Power(xij,6.0)) -
1827 952.0*Power(xii,14.0)*Power(xij,8.0)*
1828 (16966215.0 + 725175.0*Power(rij,2.0)*Power(xij,2.0) -
1829 36075.0*Power(rij,4.0)*Power(xij,4.0) + 79.0*Power(rij,6.0)*Power(xij,6.0)) -
1830 84.0*Power(xii,10.0)*Power(xij,12.0)*
1831 (1723800.0 + 279225.0*Power(rij,2.0)*Power(xij,2.0) +
1832 45600.0*Power(rij,4.0)*Power(xij,4.0) + 107.0*Power(rij,6.0)*Power(xij,6.0)) \
1833 - 35.0*rij*Power(xii,17.0)*Power(xij,6.0)*
1834 (132637869.0 - 2205240.0*Power(rij,2.0)*Power(xij,2.0) -
1835 48348.0*Power(rij,4.0)*Power(xij,4.0) + 136.0*Power(rij,6.0)*Power(xij,6.0)) \
1836 - 6.0*rij*Power(xii,21.0)*Power(xij,2.0)*
1837 (192298050.0 + 12644275.0*Power(rij,2.0)*Power(xij,2.0) -
1838 218029.0*Power(rij,4.0)*Power(xij,4.0) + 204.0*Power(rij,6.0)*Power(xij,6.0)) \
1839 + 4.0*rij*Power(xii,13.0)*Power(xij,10.0)*
1840 (1259522775.0 + 15895425.0*Power(rij,2.0)*Power(xij,2.0) -
1841 493017.0*Power(rij,4.0)*Power(xij,4.0) + 263.0*Power(rij,6.0)*Power(xij,6.0)) \
1842 - 140.0*Power(xii,16.0)*Power(xij,6.0)*
1843 (180826281.0 - 15101406.0*Power(rij,2.0)*Power(xij,2.0) +
1844 160140.0*Power(rij,4.0)*Power(xij,4.0) + 442.0*Power(rij,6.0)*Power(xij,6.0)) \
1845 - 2.0*rij*Power(xii,23.0)*(21366450.0 + 23526300.0*Power(rij,2.0)*Power(xij,2.0) -
1846 246729.0*Power(rij,4.0)*Power(xij,4.0) + 526.0*Power(rij,6.0)*Power(xij,6.0)) \
1847 + 7.0*rij*Power(xii,19.0)*Power(xij,4.0)*
1848 (-811081215.0 + 39095550.0*Power(rij,2.0)*Power(xij,2.0) -
1849 515916.0*Power(rij,4.0)*Power(xij,4.0) + 680.0*Power(rij,6.0)*Power(xij,6.0)) \
1850 + 70.0*Power(xii,18.0)*Power(xij,4.0)*
1851 (-180554454.0 + 9873711.0*Power(rij,2.0)*Power(xij,2.0) -
1852 414120.0*Power(rij,4.0)*Power(xij,4.0) + 2924.0*Power(rij,6.0)*Power(xij,6.0)\
1853 ) - 14.0*Power(xii,20.0)*Power(xij,2.0)*
1854 (136919700.0 + 71867115.0*Power(rij,2.0)*Power(xij,2.0) -
1855 2154150.0*Power(rij,4.0)*Power(xij,4.0) +
1856 10268.0*Power(rij,6.0)*Power(xij,6.0))) -
1857 4.0*Power(E,2.0*rij*xii)*Power(xii,10.0)*
1858 (-10710.0*Power(xii,12.0)*Power(xij,12.0)*
1859 (-3555.0 - 127008.0*rij*xij + 138384.0*Power(rij,2.0)*Power(xij,2.0) -
1860 74556.0*Power(rij,3.0)*Power(xij,3.0) -
1861 22284.0*Power(rij,4.0)*Power(xij,4.0) + 408.0*Power(rij,5.0)*Power(xij,5.0) +
1862 576.0*Power(rij,6.0)*Power(xij,6.0) + 60.0*Power(rij,7.0)*Power(xij,7.0) +
1863 2.0*Power(rij,8.0)*Power(xij,8.0)) +
1864 2.0*Power(xii,20.0)*Power(xij,4.0)*
1865 (963900.0 + 1735020.0*rij*xij + 1542240.0*Power(rij,2.0)*Power(xij,2.0) +
1866 899640.0*Power(rij,3.0)*Power(xij,3.0) +
1867 385560.0*Power(rij,4.0)*Power(xij,4.0) +
1868 128520.0*Power(rij,5.0)*Power(xij,5.0) +
1869 34272.0*Power(rij,6.0)*Power(xij,6.0) +
1870 9126.0*Power(rij,7.0)*Power(xij,7.0) + 333.0*Power(rij,8.0)*Power(xij,8.0) -
1871 20.0*Power(rij,9.0)*Power(xij,9.0)) -
1872 2.0*Power(xij,24.0)*(119041650.0 + 107137485.0*rij*xij +
1873 45110520.0*Power(rij,2.0)*Power(xij,2.0) +
1874 11695320.0*Power(rij,3.0)*Power(xij,3.0) +
1875 2063880.0*Power(rij,4.0)*Power(xij,4.0) +
1876 257985.0*Power(rij,5.0)*Power(xij,5.0) +
1877 22932.0*Power(rij,6.0)*Power(xij,6.0) +
1878 1404.0*Power(rij,7.0)*Power(xij,7.0) + 54.0*Power(rij,8.0)*Power(xij,8.0) +
1879 Power(rij,9.0)*Power(xij,9.0)) +
1880 2.0*Power(xii,2.0)*Power(xij,22.0)*
1881 (-3264488325.0 - 2505368880.0*rij*xij -
1882 881390160.0*Power(rij,2.0)*Power(xij,2.0) -
1883 185775660.0*Power(rij,3.0)*Power(xij,3.0) -
1884 25639740.0*Power(rij,4.0)*Power(xij,4.0) -
1885 2361555.0*Power(rij,5.0)*Power(xij,5.0) -
1886 139356.0*Power(rij,6.0)*Power(xij,6.0) -
1887 4482.0*Power(rij,7.0)*Power(xij,7.0) - 27.0*Power(rij,8.0)*Power(xij,8.0) +
1888 2.0*Power(rij,9.0)*Power(xij,9.0)) +
1889 Power(xii,24.0)*(14175.0 + 25515.0*rij*xij +
1890 22680.0*Power(rij,2.0)*Power(xij,2.0) +
1891 13230.0*Power(rij,3.0)*Power(xij,3.0) +
1892 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
1893 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
1894 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
1895 102.0*Power(xii,10.0)*Power(xij,14.0)*
1896 (44986725.0 - 97433280.0*rij*xij + 44467920.0*Power(rij,2.0)*Power(xij,2.0) +
1897 15857100.0*Power(rij,3.0)*Power(xij,3.0) -
1898 457380.0*Power(rij,4.0)*Power(xij,4.0) -
1899 620550.0*Power(rij,5.0)*Power(xij,5.0) -
1900 83160.0*Power(rij,6.0)*Power(xij,6.0) -
1901 4068.0*Power(rij,7.0)*Power(xij,7.0) - 6.0*Power(rij,8.0)*Power(xij,8.0) +
1902 4.0*Power(rij,9.0)*Power(xij,9.0)) +
1903 102.0*Power(xii,14.0)*Power(xij,10.0)*
1904 (-859950.0 - 1437345.0*rij*xij - 2260440.0*Power(rij,2.0)*Power(xij,2.0) +
1905 810810.0*Power(rij,3.0)*Power(xij,3.0) -
1906 1056510.0*Power(rij,4.0)*Power(xij,4.0) -
1907 217854.0*Power(rij,5.0)*Power(xij,5.0) +
1908 6552.0*Power(rij,6.0)*Power(xij,6.0) + 3852.0*Power(rij,7.0)*Power(xij,7.0) +
1909 258.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) -
1910 Power(xii,22.0)*Power(xij,2.0)*
1911 (240975.0 + 433755.0*rij*xij + 385560.0*Power(rij,2.0)*Power(xij,2.0) +
1912 224910.0*Power(rij,3.0)*Power(xij,3.0) +
1913 96390.0*Power(rij,4.0)*Power(xij,4.0) +
1914 32130.0*Power(rij,5.0)*Power(xij,5.0) +
1915 8568.0*Power(rij,6.0)*Power(xij,6.0) + 1836.0*Power(rij,7.0)*Power(xij,7.0) +
1916 306.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) +
1917 2.0*Power(xii,4.0)*Power(xij,20.0)*
1918 (-18032978565.0 - 9823683240.0*rij*xij -
1919 2047323600.0*Power(rij,2.0)*Power(xij,2.0) -
1920 129098340.0*Power(rij,3.0)*Power(xij,3.0) +
1921 26410860.0*Power(rij,4.0)*Power(xij,4.0) +
1922 7094304.0*Power(rij,5.0)*Power(xij,5.0) +
1923 788256.0*Power(rij,6.0)*Power(xij,6.0) +
1924 48654.0*Power(rij,7.0)*Power(xij,7.0) +
1925 1593.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0)) -
1926 6.0*Power(xii,16.0)*Power(xij,8.0)*
1927 (-5622750.0 - 10120950.0*rij*xij - 8996400.0*Power(rij,2.0)*Power(xij,2.0) -
1928 5698350.0*Power(rij,3.0)*Power(xij,3.0) -
1929 897750.0*Power(rij,4.0)*Power(xij,4.0) -
1930 1641591.0*Power(rij,5.0)*Power(xij,5.0) -
1931 211932.0*Power(rij,6.0)*Power(xij,6.0) +
1932 10224.0*Power(rij,7.0)*Power(xij,7.0) +
1933 2364.0*Power(rij,8.0)*Power(xij,8.0) + 73.0*Power(rij,9.0)*Power(xij,9.0)) +
1934 2.0*Power(xii,18.0)*Power(xij,6.0)*
1935 (-4819500.0 - 8675100.0*rij*xij - 7711200.0*Power(rij,2.0)*Power(xij,2.0) -
1936 4498200.0*Power(rij,3.0)*Power(xij,3.0) -
1937 1927800.0*Power(rij,4.0)*Power(xij,4.0) -
1938 561519.0*Power(rij,5.0)*Power(xij,5.0) -
1939 279468.0*Power(rij,6.0)*Power(xij,6.0) -
1940 20682.0*Power(rij,7.0)*Power(xij,7.0) +
1941 1305.0*Power(rij,8.0)*Power(xij,8.0) + 106.0*Power(rij,9.0)*Power(xij,9.0)) +
1942 3.0*Power(xii,8.0)*Power(xij,16.0)*
1943 (-9364244085.0 + 6940428705.0*rij*xij +
1944 2117684520.0*Power(rij,2.0)*Power(xij,2.0) -
1945 230268150.0*Power(rij,3.0)*Power(xij,3.0) -
1946 149610510.0*Power(rij,4.0)*Power(xij,4.0) -
1947 21824334.0*Power(rij,5.0)*Power(xij,5.0) -
1948 1223208.0*Power(rij,6.0)*Power(xij,6.0) +
1949 12708.0*Power(rij,7.0)*Power(xij,7.0) +
1950 4470.0*Power(rij,8.0)*Power(xij,8.0) + 146.0*Power(rij,9.0)*Power(xij,9.0)) -
1951 Power(xii,6.0)*Power(xij,18.0)*
1952 (57304872765.0 + 7147185255.0*rij*xij -
1953 5801702760.0*Power(rij,2.0)*Power(xij,2.0) -
1954 2053388610.0*Power(rij,3.0)*Power(xij,3.0) -
1955 271655370.0*Power(rij,4.0)*Power(xij,4.0) -
1956 10864854.0*Power(rij,5.0)*Power(xij,5.0) +
1957 1337112.0*Power(rij,6.0)*Power(xij,6.0) +
1958 202716.0*Power(rij,7.0)*Power(xij,7.0) +
1959 10746.0*Power(rij,8.0)*Power(xij,8.0) + 212.0*Power(rij,9.0)*Power(xij,9.0))))/
1960 (56700.*Power(E,2.0*rij*(xii + xij))*rij*
1961 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
1962 ;
1963 }
1964 return S;
1965 }
1966
1967 static double Slater_4S_6S(double rij,double xij,double xii)
1968 {
1969 double S;
1970
1971 if (xii == xij) {
1972 S = (-2919482409811968000.0 + 2919482409811968000.0*Power(E,2.0*rij*xii) -
1973 5378825373422626125.0*rij*xii -
1974 4918685927221316250.0*Power(rij,2.0)*Power(xii,2.0) -
1975 2974825584766035000.0*Power(rij,3.0)*Power(xii,3.0) -
1976 1337724873111627000.0*Power(rij,4.0)*Power(xii,4.0) -
1977 476688322649038500.0*Power(rij,5.0)*Power(xii,5.0) -
1978 140080945989184200.0*Power(rij,6.0)*Power(xii,6.0) -
1979 34878402537778800.0*Power(rij,7.0)*Power(xii,7.0) -
1980 7501749557702400.0*Power(rij,8.0)*Power(xii,8.0) -
1981 1413711970070400.0*Power(rij,9.0)*Power(xii,9.0) -
1982 235878458175360.0*Power(rij,10.0)*Power(xii,10.0) -
1983 35103763618560.0*Power(rij,11.0)*Power(xii,11.0) -
1984 4680908144640.0*Power(rij,12.0)*Power(xii,12.0) -
1985 560108666880.0*Power(rij,13.0)*Power(xii,13.0) -
1986 60011642880.0*Power(rij,14.0)*Power(xii,14.0) -
1987 5715394560.0*Power(rij,15.0)*Power(xii,15.0) -
1988 476282880.0*Power(rij,16.0)*Power(xii,16.0) -
1989 33619968.0*Power(rij,17.0)*Power(xii,17.0) -
1990 1867776.0*Power(rij,18.0)*Power(xii,18.0) - 65536.0*Power(rij,19.0)*Power(xii,19.0))/
1991 (2.919482409811968e18*Power(E,2.0*rij*xii)*rij)
1992 ;
1993 }
1994 else {
1995 S = (1871100.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
1996 495.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
1997 (-672.0*Power(rij,6.0)*Power(xii,30.0) - 12.0*Power(rij,7.0)*Power(xii,31.0) +
1998 3780.0*Power(xij,24.0) + 6615.0*rij*xii*Power(xij,24.0) -
1999 136.0*Power(rij,5.0)*Power(xii,29.0)*(126.0 + Power(rij,2.0)*Power(xij,2.0)) +
2000 1890.0*Power(xii,2.0)*Power(xij,22.0)*
2001 (-38.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) +
2002 315.0*rij*Power(xii,3.0)*Power(xij,22.0)*
2003 (-399.0 + 10.0*Power(rij,2.0)*Power(xij,2.0)) -
2004 84.0*Power(rij,4.0)*Power(xii,28.0)*
2005 (3060.0 + 121.0*Power(rij,2.0)*Power(xij,2.0)) +
2006 630.0*Power(xii,4.0)*Power(xij,20.0)*
2007 (1026.0 - 171.0*Power(rij,2.0)*Power(xij,2.0) +
2008 2.0*Power(rij,4.0)*Power(xij,4.0)) +
2009 63.0*rij*Power(xii,5.0)*Power(xij,20.0)*
2010 (17955.0 - 950.0*Power(rij,2.0)*Power(xij,2.0) +
2011 6.0*Power(rij,4.0)*Power(xij,4.0)) +
2012 84.0*Power(rij,2.0)*Power(xii,26.0)*
2013 (-174420.0 - 71535.0*Power(rij,2.0)*Power(xij,2.0) +
2014 179.0*Power(rij,4.0)*Power(xij,4.0)) -
2015 63.0*rij*Power(xii,19.0)*Power(xij,6.0)*
2016 (468377895.0 - 14898090.0*Power(rij,2.0)*Power(xij,2.0) +
2017 78812.0*Power(rij,4.0)*Power(xij,4.0)) +
2018 Power(xii,27.0)*(-2441880.0*Power(rij,3.0) -
2019 327978.0*Power(rij,5.0)*Power(xij,2.0) + 496.0*Power(rij,7.0)*Power(xij,4.0)) \
2020 + 2.0*rij*Power(xii,11.0)*Power(xij,14.0)*
2021 (613624095.0 + 56366730.0*Power(rij,2.0)*Power(xij,2.0) +
2022 383607.0*Power(rij,4.0)*Power(xij,4.0) - 248.0*Power(rij,6.0)*Power(xij,6.0)) \
2023 + 42.0*Power(xii,6.0)*Power(xij,18.0)*
2024 (-87210.0 + 23085.0*Power(rij,2.0)*Power(xij,2.0) -
2025 570.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
2026 798.0*Power(xii,8.0)*Power(xij,16.0)*
2027 (-18360.0 + 6885.0*Power(rij,2.0)*Power(xij,2.0) -
2028 270.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
2029 3.0*rij*Power(xii,7.0)*Power(xij,18.0)*
2030 (-2136645.0 + 179550.0*Power(rij,2.0)*Power(xij,2.0) -
2031 2394.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
2032 1596.0*Power(xii,14.0)*Power(xij,10.0)*
2033 (-34484670.0 - 2408985.0*Power(rij,2.0)*Power(xij,2.0) +
2034 32810.0*Power(rij,4.0)*Power(xij,4.0) + 22.0*Power(rij,6.0)*Power(xij,6.0)) -
2035 7980.0*Power(xii,16.0)*Power(xij,8.0)*
2036 (15696909.0 - 494343.0*Power(rij,2.0)*Power(xij,2.0) -
2037 4182.0*Power(rij,4.0)*Power(xij,4.0) + 34.0*Power(rij,6.0)*Power(xij,6.0)) +
2038 2.0*rij*Power(xii,9.0)*Power(xij,16.0)*
2039 (19433295.0 - 690795.0*Power(rij,2.0)*Power(xij,2.0) +
2040 55251.0*Power(rij,4.0)*Power(xij,4.0) + 68.0*Power(rij,6.0)*Power(xij,6.0)) +
2041 6.0*rij*Power(xii,25.0)*(-8546580.0 -
2042 11329605.0*Power(rij,2.0)*Power(xij,2.0) -
2043 24003.0*Power(rij,4.0)*Power(xij,4.0) + 92.0*Power(rij,6.0)*Power(xij,6.0)) -
2044 6.0*rij*Power(xii,13.0)*Power(xij,12.0)*
2045 (-2361196215.0 - 54738810.0*Power(rij,2.0)*Power(xij,2.0) +
2046 388626.0*Power(rij,4.0)*Power(xij,4.0) + 92.0*Power(rij,6.0)*Power(xij,6.0)) \
2047 + 38.0*rij*Power(xii,15.0)*Power(xij,10.0)*
2048 (808181955.0 - 17168130.0*Power(rij,2.0)*Power(xij,2.0) -
2049 32130.0*Power(rij,4.0)*Power(xij,4.0) + 106.0*Power(rij,6.0)*Power(xij,6.0)) \
2050 - 84.0*Power(xii,10.0)*Power(xij,14.0)*
2051 (3168630.0 + 683145.0*Power(rij,2.0)*Power(xij,2.0) +
2052 54315.0*Power(rij,4.0)*Power(xij,4.0) + 193.0*Power(rij,6.0)*Power(xij,6.0)) \
2053 - 19.0*rij*Power(xii,17.0)*Power(xij,8.0)*
2054 (-2525985.0 + 33479460.0*Power(rij,2.0)*Power(xij,2.0) -
2055 406980.0*Power(rij,4.0)*Power(xij,4.0) + 272.0*Power(rij,6.0)*Power(xij,6.0)) \
2056 + 84.0*Power(xii,12.0)*Power(xij,12.0)*
2057 (-88925130.0 - 19869345.0*Power(rij,2.0)*Power(xij,2.0) -
2058 235790.0*Power(rij,4.0)*Power(xij,4.0) + 643.0*Power(rij,6.0)*Power(xij,6.0)) \
2059 + 210.0*Power(xii,18.0)*Power(xij,6.0)*
2060 (-496605582.0 + 32638599.0*Power(rij,2.0)*Power(xij,2.0) -
2061 564604.0*Power(rij,4.0)*Power(xij,4.0) + 1292.0*Power(rij,6.0)*Power(xij,6.0)\
2062 ) + 42.0*Power(xii,20.0)*Power(xij,4.0)*
2063 (-777723210.0 - 46394505.0*Power(rij,2.0)*Power(xij,2.0) +
2064 625670.0*Power(rij,4.0)*Power(xij,4.0) + 1292.0*Power(rij,6.0)*Power(xij,6.0)\
2065 ) + 42.0*Power(xii,24.0)*(-1918620.0 - 11344995.0*Power(rij,2.0)*Power(xij,2.0) -
2066 323070.0*Power(rij,4.0)*Power(xij,4.0) + 2114.0*Power(rij,6.0)*Power(xij,6.0)\
2067 ) - rij*Power(xii,23.0)*Power(xij,2.0)*
2068 (1919335635.0 + 275096430.0*Power(rij,2.0)*Power(xij,2.0) -
2069 3302586.0*Power(rij,4.0)*Power(xij,4.0) +
2070 4028.0*Power(rij,6.0)*Power(xij,6.0)) +
2071 rij*Power(xii,21.0)*Power(xij,4.0)*
2072 (-14708379735.0 + 255168270.0*Power(rij,2.0)*Power(xij,2.0) -
2073 2899134.0*Power(rij,4.0)*Power(xij,4.0) +
2074 5168.0*Power(rij,6.0)*Power(xij,6.0)) -
2075 42.0*Power(xii,22.0)*Power(xij,2.0)*
2076 (81654210.0 + 66273255.0*Power(rij,2.0)*Power(xij,2.0) -
2077 1203870.0*Power(rij,4.0)*Power(xij,4.0) + 5206.0*Power(rij,6.0)*Power(xij,6.0)\
2078 )) - 2.0*Power(E,2.0*rij*xii)*Power(xii,10.0)*
2079 (21318.0*Power(xii,14.0)*Power(xij,14.0)*
2080 (-3146850.0 + 4890375.0*rij*xij - 24522750.0*Power(rij,2.0)*Power(xij,2.0) +
2081 12162150.0*Power(rij,3.0)*Power(xij,3.0) -
2082 1549800.0*Power(rij,4.0)*Power(xij,4.0) -
2083 1615950.0*Power(rij,5.0)*Power(xij,5.0) -
2084 185220.0*Power(rij,6.0)*Power(xij,6.0) +
2085 12240.0*Power(rij,7.0)*Power(xij,7.0) +
2086 3960.0*Power(rij,8.0)*Power(xij,8.0) + 300.0*Power(rij,9.0)*Power(xij,9.0) +
2087 8.0*Power(rij,10.0)*Power(xij,10.0)) +
2088 3.0*Power(xii,24.0)*Power(xij,4.0)*
2089 (53326350.0 + 97764975.0*rij*xij + 88877250.0*Power(rij,2.0)*Power(xij,2.0) +
2090 53326350.0*Power(rij,3.0)*Power(xij,3.0) +
2091 23700600.0*Power(rij,4.0)*Power(xij,4.0) +
2092 8295210.0*Power(rij,5.0)*Power(xij,5.0) +
2093 2370060.0*Power(rij,6.0)*Power(xij,6.0) +
2094 564300.0*Power(rij,7.0)*Power(xij,7.0) +
2095 112860.0*Power(rij,8.0)*Power(xij,8.0) +
2096 22440.0*Power(rij,9.0)*Power(xij,9.0) +
2097 1056.0*Power(rij,10.0)*Power(xij,10.0) - 20.0*Power(rij,11.0)*Power(xij,11.0)) \
2098 - 4.0*Power(xij,28.0)*(13749310575.0 + 13749310575.0*rij*xij +
2099 6547290750.0*Power(rij,2.0)*Power(xij,2.0) +
2100 1964187225.0*Power(rij,3.0)*Power(xij,3.0) +
2101 413513100.0*Power(rij,4.0)*Power(xij,4.0) +
2102 64324260.0*Power(rij,5.0)*Power(xij,5.0) +
2103 7567560.0*Power(rij,6.0)*Power(xij,6.0) +
2104 675675.0*Power(rij,7.0)*Power(xij,7.0) +
2105 45045.0*Power(rij,8.0)*Power(xij,8.0) +
2106 2145.0*Power(rij,9.0)*Power(xij,9.0) + 66.0*Power(rij,10.0)*Power(xij,10.0) +
2107 Power(rij,11.0)*Power(xij,11.0)) -
2108 1254.0*Power(xii,16.0)*Power(xij,12.0)*
2109 (-20241900.0 - 38315025.0*rij*xij -
2110 21687750.0*Power(rij,2.0)*Power(xij,2.0) -
2111 50122800.0*Power(rij,3.0)*Power(xij,3.0) +
2112 14137200.0*Power(rij,4.0)*Power(xij,4.0) -
2113 5853330.0*Power(rij,5.0)*Power(xij,5.0) -
2114 2687580.0*Power(rij,6.0)*Power(xij,6.0) -
2115 208530.0*Power(rij,7.0)*Power(xij,7.0) +
2116 19530.0*Power(rij,8.0)*Power(xij,8.0) +
2117 3630.0*Power(rij,9.0)*Power(xij,9.0) +
2118 172.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
2119 627.0*Power(xii,12.0)*Power(xij,16.0)*
2120 (-1240964550.0 + 4740389325.0*rij*xij -
2121 3311818650.0*Power(rij,2.0)*Power(xij,2.0) +
2122 134804250.0*Power(rij,3.0)*Power(xij,3.0) +
2123 407673000.0*Power(rij,4.0)*Power(xij,4.0) +
2124 58641030.0*Power(rij,5.0)*Power(xij,5.0) -
2125 3549420.0*Power(rij,6.0)*Power(xij,6.0) -
2126 1641060.0*Power(rij,7.0)*Power(xij,7.0) -
2127 167940.0*Power(rij,8.0)*Power(xij,8.0) -
2128 6990.0*Power(rij,9.0)*Power(xij,9.0) - 36.0*Power(rij,10.0)*Power(xij,10.0) +
2129 4.0*Power(rij,11.0)*Power(xij,11.0)) +
2130 Power(xii,28.0)*(935550.0 + 1715175.0*rij*xij +
2131 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
2132 935550.0*Power(rij,3.0)*Power(xij,3.0) +
2133 415800.0*Power(rij,4.0)*Power(xij,4.0) +
2134 145530.0*Power(rij,5.0)*Power(xij,5.0) +
2135 41580.0*Power(rij,6.0)*Power(xij,6.0) +
2136 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
2137 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
2138 4.0*Power(rij,11.0)*Power(xij,11.0)) +
2139 2.0*Power(xii,2.0)*Power(xij,26.0)*
2140 (-937068397650.0 - 815439881025.0*rij*xij -
2141 332904552750.0*Power(rij,2.0)*Power(xij,2.0) -
2142 84006776700.0*Power(rij,3.0)*Power(xij,3.0) -
2143 14504767200.0*Power(rij,4.0)*Power(xij,4.0) -
2144 1786235220.0*Power(rij,5.0)*Power(xij,5.0) -
2145 157754520.0*Power(rij,6.0)*Power(xij,6.0) -
2146 9667350.0*Power(rij,7.0)*Power(xij,7.0) -
2147 367290.0*Power(rij,8.0)*Power(xij,8.0) -
2148 5115.0*Power(rij,9.0)*Power(xij,9.0) +
2149 198.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
2150 6.0*Power(xii,4.0)*Power(xij,24.0)*
2151 (-2262441500550.0 - 1503711230175.0*rij*xij -
2152 426178264050.0*Power(rij,2.0)*Power(xij,2.0) -
2153 60134347350.0*Power(rij,3.0)*Power(xij,3.0) -
2154 2014551000.0*Power(rij,4.0)*Power(xij,4.0) +
2155 846111420.0*Power(rij,5.0)*Power(xij,5.0) +
2156 184864680.0*Power(rij,6.0)*Power(xij,6.0) +
2157 20183130.0*Power(rij,7.0)*Power(xij,7.0) +
2158 1367190.0*Power(rij,8.0)*Power(xij,8.0) +
2159 57255.0*Power(rij,9.0)*Power(xij,9.0) +
2160 1298.0*Power(rij,10.0)*Power(xij,10.0) + 10.0*Power(rij,11.0)*Power(xij,11.0)) \
2161 - Power(xii,26.0)*Power(xij,2.0)*(17775450.0 + 32588325.0*rij*xij +
2162 29625750.0*Power(rij,2.0)*Power(xij,2.0) +
2163 17775450.0*Power(rij,3.0)*Power(xij,3.0) +
2164 7900200.0*Power(rij,4.0)*Power(xij,4.0) +
2165 2765070.0*Power(rij,5.0)*Power(xij,5.0) +
2166 790020.0*Power(rij,6.0)*Power(xij,6.0) +
2167 188100.0*Power(rij,7.0)*Power(xij,7.0) +
2168 37620.0*Power(rij,8.0)*Power(xij,8.0) +
2169 6270.0*Power(rij,9.0)*Power(xij,9.0) +
2170 836.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)) \
2171 + 9.0*Power(xii,22.0)*Power(xij,6.0)*
2172 (-100727550.0 - 184667175.0*rij*xij -
2173 167879250.0*Power(rij,2.0)*Power(xij,2.0) -
2174 100727550.0*Power(rij,3.0)*Power(xij,3.0) -
2175 44767800.0*Power(rij,4.0)*Power(xij,4.0) -
2176 15668730.0*Power(rij,5.0)*Power(xij,5.0) -
2177 4476780.0*Power(rij,6.0)*Power(xij,6.0) -
2178 971520.0*Power(rij,7.0)*Power(xij,7.0) -
2179 307560.0*Power(rij,8.0)*Power(xij,8.0) -
2180 27060.0*Power(rij,9.0)*Power(xij,9.0) +
2181 264.0*Power(rij,10.0)*Power(xij,10.0) + 64.0*Power(rij,11.0)*Power(xij,11.0)) \
2182 - 9.0*Power(xii,6.0)*Power(xij,22.0)*
2183 (3452543428950.0 + 1097992509075.0*rij*xij -
2184 101420792550.0*Power(rij,2.0)*Power(xij,2.0) -
2185 110557373850.0*Power(rij,3.0)*Power(xij,3.0) -
2186 24909330600.0*Power(rij,4.0)*Power(xij,4.0) -
2187 2686726350.0*Power(rij,5.0)*Power(xij,5.0) -
2188 93485700.0*Power(rij,6.0)*Power(xij,6.0) +
2189 12941280.0*Power(rij,7.0)*Power(xij,7.0) +
2190 2081640.0*Power(rij,8.0)*Power(xij,8.0) +
2191 137940.0*Power(rij,9.0)*Power(xij,9.0) +
2192 4664.0*Power(rij,10.0)*Power(xij,10.0) + 64.0*Power(rij,11.0)*Power(xij,11.0)) \
2193 - 22.0*Power(xii,20.0)*Power(xij,8.0)*
2194 (-164826900.0 - 302182650.0*rij*xij -
2195 274711500.0*Power(rij,2.0)*Power(xij,2.0) -
2196 164826900.0*Power(rij,3.0)*Power(xij,3.0) -
2197 73256400.0*Power(rij,4.0)*Power(xij,4.0) -
2198 26991090.0*Power(rij,5.0)*Power(xij,5.0) -
2199 4622940.0*Power(rij,6.0)*Power(xij,6.0) -
2200 2941110.0*Power(rij,7.0)*Power(xij,7.0) -
2201 438930.0*Power(rij,8.0)*Power(xij,8.0) -
2202 5505.0*Power(rij,9.0)*Power(xij,9.0) +
2203 2082.0*Power(rij,10.0)*Power(xij,10.0) + 82.0*Power(rij,11.0)*Power(xij,11.0)) \
2204 + 22.0*Power(xii,18.0)*Power(xij,10.0)*
2205 (-494480700.0 - 906547950.0*rij*xij -
2206 824134500.0*Power(rij,2.0)*Power(xij,2.0) -
2207 475684650.0*Power(rij,3.0)*Power(xij,3.0) -
2208 294953400.0*Power(rij,4.0)*Power(xij,4.0) +
2209 2663010.0*Power(rij,5.0)*Power(xij,5.0) -
2210 40797540.0*Power(rij,6.0)*Power(xij,6.0) -
2211 10248390.0*Power(rij,7.0)*Power(xij,7.0) -
2212 434610.0*Power(rij,8.0)*Power(xij,8.0) +
2213 65865.0*Power(rij,9.0)*Power(xij,9.0) +
2214 6366.0*Power(rij,10.0)*Power(xij,10.0) + 136.0*Power(rij,11.0)*Power(xij,11.0)\
2215 ) + 11.0*Power(xii,8.0)*Power(xij,20.0)*
2216 (-2338604626050.0 + 656001834075.0*rij*xij +
2217 504510561450.0*Power(rij,2.0)*Power(xij,2.0) +
2218 51560967150.0*Power(rij,3.0)*Power(xij,3.0) -
2219 15574998600.0*Power(rij,4.0)*Power(xij,4.0) -
2220 5055778350.0*Power(rij,5.0)*Power(xij,5.0) -
2221 626213700.0*Power(rij,6.0)*Power(xij,6.0) -
2222 34768620.0*Power(rij,7.0)*Power(xij,7.0) +
2223 207540.0*Power(rij,8.0)*Power(xij,8.0) +
2224 150240.0*Power(rij,9.0)*Power(xij,9.0) +
2225 8464.0*Power(rij,10.0)*Power(xij,10.0) + 164.0*Power(rij,11.0)*Power(xij,11.0)\
2226 ) - 11.0*Power(xii,10.0)*Power(xij,18.0)*
2227 (742805182350.0 - 933111659025.0*rij*xij +
2228 57080542050.0*Power(rij,2.0)*Power(xij,2.0) +
2229 129505209750.0*Power(rij,3.0)*Power(xij,3.0) +
2230 19066887000.0*Power(rij,4.0)*Power(xij,4.0) -
2231 1817573310.0*Power(rij,5.0)*Power(xij,5.0) -
2232 810647460.0*Power(rij,6.0)*Power(xij,6.0) -
2233 97669980.0*Power(rij,7.0)*Power(xij,7.0) -
2234 5173020.0*Power(rij,8.0)*Power(xij,8.0) -
2235 37770.0*Power(rij,9.0)*Power(xij,9.0) +
2236 8212.0*Power(rij,10.0)*Power(xij,10.0) + 272.0*Power(rij,11.0)*Power(xij,11.0))\
2237 ))/(1.8711e6*Power(E,2.0*rij*(xii + xij))*rij*
2238 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
2239 ;
2240 }
2241 return S;
2242 }
2243
2244 double Slater_4S_1S(double rij,double xii,double xij)
2245 {
2246 return Slater_1S_4S(rij,xij,xii);
2247 }
2248
2249 double Slater_4S_2S(double rij,double xii,double xij)
2250 {
2251 return Slater_2S_4S(rij,xij,xii);
2252 }
2253
2254 double Slater_4S_3S(double rij,double xii,double xij)
2255 {
2256 return Slater_3S_4S(rij,xij,xii);
2257 }
2258
2259 static double Slater_5S_5S(double rij,double xij,double xii)
2260 {
2261 double S;
2262
2263 if (xii == xij) {
2264 S = (-12164510040883200000.0 + 12164510040883200000.0*Power(E,2.0*rij*xii) -
2265 22324788235240115625.0*rij*xii -
2266 20320556388713831250.0*Power(rij,2.0)*Power(xii,2.0) -
2267 12225924086428552500.0*Power(rij,3.0)*Power(xii,3.0) -
2268 5467446348494130000.0*Power(rij,4.0)*Power(xii,4.0) -
2269 1937619942864606000.0*Power(rij,5.0)*Power(xii,5.0) -
2270 566528792821992000.0*Power(rij,6.0)*Power(xii,6.0) -
2271 140462831126217600.0*Power(rij,7.0)*Power(xii,7.0) -
2272 30115609927603200.0*Power(rij,8.0)*Power(xii,8.0) -
2273 5663731244371200.0*Power(rij,9.0)*Power(xii,9.0) -
2274 943983142502400.0*Power(rij,10.0)*Power(xii,10.0) -
2275 140427244339200.0*Power(rij,11.0)*Power(xii,11.0) -
2276 18723632578560.0*Power(rij,12.0)*Power(xii,12.0) -
2277 2240434667520.0*Power(rij,13.0)*Power(xii,13.0) -
2278 240046571520.0*Power(rij,14.0)*Power(xii,14.0) -
2279 22861578240.0*Power(rij,15.0)*Power(xii,15.0) -
2280 1905131520.0*Power(rij,16.0)*Power(xii,16.0) -
2281 134479872.0*Power(rij,17.0)*Power(xii,17.0) -
2282 7471104.0*Power(rij,18.0)*Power(xii,18.0) - 262144.0*Power(rij,19.0)*Power(xii,19.0))/
2283 (1.21645100408832e19*Power(E,2.0*rij*xii)*rij)
2284 ;
2285 }
2286 else {
2287 S = (70875.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
2288 Power(E,2.0*rij*xij)*Power(xij,12.0)*
2289 (-630.0*Power(rij,8.0)*Power(xii,34.0) - 10.0*Power(rij,9.0)*Power(xii,35.0) +
2290 70875.0*Power(xij,26.0) + 127575.0*rij*xii*Power(xij,26.0) -
2291 30.0*Power(rij,7.0)*Power(xii,33.0)*(630.0 + Power(rij,2.0)*Power(xij,2.0)) +
2292 14175.0*Power(xii,2.0)*Power(xij,24.0)*
2293 (-95.0 + 8.0*Power(rij,2.0)*Power(xij,2.0)) +
2294 4725.0*rij*Power(xii,3.0)*Power(xij,24.0)*
2295 (-513.0 + 14.0*Power(rij,2.0)*Power(xij,2.0)) -
2296 90.0*Power(rij,6.0)*Power(xii,32.0)*
2297 (3920.0 + 43.0*Power(rij,2.0)*Power(xij,2.0)) +
2298 4725.0*rij*Power(xii,5.0)*Power(xij,22.0)*
2299 (4617.0 - 266.0*Power(rij,2.0)*Power(xij,2.0) +
2300 2.0*Power(rij,4.0)*Power(xij,4.0)) +
2301 14175.0*Power(xii,4.0)*Power(xij,22.0)*
2302 (855.0 - 152.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
2303 + 36.0*Power(rij,5.0)*Power(xii,31.0)*
2304 (-124950.0 - 4985.0*Power(rij,2.0)*Power(xij,2.0) +
2305 13.0*Power(rij,4.0)*Power(xij,4.0)) +
2306 36.0*Power(rij,4.0)*Power(xii,30.0)*
2307 (-1124550.0 - 127960.0*Power(rij,2.0)*Power(xij,2.0) +
2308 863.0*Power(rij,4.0)*Power(xij,4.0)) +
2309 135.0*rij*Power(xii,7.0)*Power(xij,20.0)*
2310 (-915705.0 + 83790.0*Power(rij,2.0)*Power(xij,2.0) -
2311 1330.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
2312 315.0*Power(xii,6.0)*Power(xij,20.0)*
2313 (-218025.0 + 61560.0*Power(rij,2.0)*Power(xij,2.0) -
2314 1710.0*Power(rij,4.0)*Power(xij,4.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) -
2315 36.0*Power(rij,3.0)*Power(xii,29.0)*
2316 (7122150.0 + 2102730.0*Power(rij,2.0)*Power(xij,2.0) -
2317 23294.0*Power(rij,4.0)*Power(xij,4.0) + 37.0*Power(rij,6.0)*Power(xij,6.0)) -
2318 36.0*Power(rij,2.0)*Power(xii,28.0)*
2319 (30523500.0 + 23401350.0*Power(rij,2.0)*Power(xij,2.0) -
2320 299250.0*Power(rij,4.0)*Power(xij,4.0) + 1297.0*Power(rij,6.0)*Power(xij,6.0)\
2321 ) + rij*Power(xii,17.0)*Power(xij,10.0)*
2322 (1073961177975.0 - 21753487980.0*Power(rij,2.0)*Power(xij,2.0) -
2323 745994340.0*Power(rij,4.0)*Power(xij,4.0) +
2324 5307156.0*Power(rij,6.0)*Power(xij,6.0) - 818.0*Power(rij,8.0)*Power(xij,8.0)\
2325 ) + 10.0*rij*Power(xii,9.0)*Power(xij,18.0)*
2326 (49448070.0 - 6409935.0*Power(rij,2.0)*Power(xij,2.0) +
2327 161595.0*Power(rij,4.0)*Power(xij,4.0) -
2328 1026.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
2329 90.0*Power(xii,8.0)*Power(xij,18.0)*
2330 (3052350.0 - 1220940.0*Power(rij,2.0)*Power(xij,2.0) +
2331 53865.0*Power(rij,4.0)*Power(xij,4.0) -
2332 532.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) -
2333 1710.0*Power(xii,10.0)*Power(xij,16.0)*
2334 (481950.0 - 257040.0*Power(rij,2.0)*Power(xij,2.0) +
2335 16065.0*Power(rij,4.0)*Power(xij,4.0) -
2336 252.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
2337 6.0*rij*Power(xii,11.0)*Power(xij,16.0)*
2338 (-207559800.0 + 50390550.0*Power(rij,2.0)*Power(xij,2.0) -
2339 1165815.0*Power(rij,4.0)*Power(xij,4.0) +
2340 21396.0*Power(rij,6.0)*Power(xij,6.0) + 5.0*Power(rij,8.0)*Power(xij,8.0)) -
2341 18.0*rij*Power(xii,13.0)*Power(xij,14.0)*
2342 (-1703720025.0 - 155669850.0*Power(rij,2.0)*Power(xij,2.0) -
2343 7410270.0*Power(rij,4.0)*Power(xij,4.0) -
2344 1532.0*Power(rij,6.0)*Power(xij,6.0) + 26.0*Power(rij,8.0)*Power(xij,8.0)) +
2345 18.0*rij*Power(xii,15.0)*Power(xij,12.0)*
2346 (19380896325.0 + 1329128850.0*Power(rij,2.0)*Power(xij,2.0) -
2347 7608930.0*Power(rij,4.0)*Power(xij,4.0) -
2348 116238.0*Power(rij,6.0)*Power(xij,6.0) + 74.0*Power(rij,8.0)*Power(xij,8.0)) \
2349 - 18.0*Power(xii,12.0)*Power(xij,14.0)*
2350 (89026875.0 + 179071200.0*Power(rij,2.0)*Power(xij,2.0) +
2351 1552950.0*Power(rij,4.0)*Power(xij,4.0) +
2352 295820.0*Power(rij,6.0)*Power(xij,6.0) + 146.0*Power(rij,8.0)*Power(xij,8.0)) \
2353 + 18.0*rij*Power(xii,25.0)*Power(xij,2.0)*
2354 (-5449970925.0 - 1137574935.0*Power(rij,2.0)*Power(xij,2.0) +
2355 37834755.0*Power(rij,4.0)*Power(xij,4.0) -
2356 273062.0*Power(rij,6.0)*Power(xij,6.0) + 171.0*Power(rij,8.0)*Power(xij,8.0)) \
2357 - 9.0*rij*Power(xii,19.0)*Power(xij,8.0)*
2358 (-37914907275.0 + 7613889570.0*Power(rij,2.0)*Power(xij,2.0) -
2359 170524620.0*Power(rij,4.0)*Power(xij,4.0) +
2360 397936.0*Power(rij,6.0)*Power(xij,6.0) + 342.0*Power(rij,8.0)*Power(xij,8.0)) \
2361 - 3.0*rij*Power(xii,23.0)*Power(xij,4.0)*
2362 (219130630425.0 - 11118046590.0*Power(rij,2.0)*Power(xij,2.0) +
2363 327611970.0*Power(rij,4.0)*Power(xij,4.0) -
2364 2920908.0*Power(rij,6.0)*Power(xij,6.0) +
2365 2584.0*Power(rij,8.0)*Power(xij,8.0)) +
2366 3.0*rij*Power(xii,21.0)*Power(xij,6.0)*
2367 (-345162539925.0 + 19030764690.0*Power(rij,2.0)*Power(xij,2.0) -
2368 141976170.0*Power(rij,4.0)*Power(xij,4.0) -
2369 1441872.0*Power(rij,6.0)*Power(xij,6.0) +
2370 2584.0*Power(rij,8.0)*Power(xij,8.0)) +
2371 63.0*Power(xii,20.0)*Power(xij,6.0)*
2372 (-50980542525.0 + 6240202920.0*Power(rij,2.0)*Power(xij,2.0) -
2373 201314310.0*Power(rij,4.0)*Power(xij,4.0) +
2374 956080.0*Power(rij,6.0)*Power(xij,6.0) + 2584.0*Power(rij,8.0)*Power(xij,8.0)\
2375 ) + 18.0*Power(xii,14.0)*Power(xij,12.0)*
2376 (-7803332775.0 - 2519206200.0*Power(rij,2.0)*Power(xij,2.0) -
2377 119719950.0*Power(rij,4.0)*Power(xij,4.0) +
2378 182280.0*Power(rij,6.0)*Power(xij,6.0) + 2734.0*Power(rij,8.0)*Power(xij,8.0)\
2379 ) - 18.0*Power(xii,26.0)*(195859125.0 + 1794781800.0*Power(rij,2.0)*Power(xij,2.0) +
2380 67337235.0*Power(rij,4.0)*Power(xij,4.0) -
2381 1659700.0*Power(rij,6.0)*Power(xij,6.0) +
2382 4089.0*Power(rij,8.0)*Power(xij,8.0)) +
2383 9.0*Power(xii,18.0)*Power(xij,8.0)*
2384 (-357591274425.0 + 8328390840.0*Power(rij,2.0)*Power(xij,2.0) +
2385 912042180.0*Power(rij,4.0)*Power(xij,4.0) -
2386 12842480.0*Power(rij,6.0)*Power(xij,6.0) +
2387 10678.0*Power(rij,8.0)*Power(xij,8.0)) -
2388 9.0*Power(xii,16.0)*Power(xij,10.0)*
2389 (128599724925.0 + 21298077360.0*Power(rij,2.0)*Power(xij,2.0) -
2390 267928500.0*Power(rij,4.0)*Power(xij,4.0) -
2391 5458320.0*Power(rij,6.0)*Power(xij,6.0) +
2392 14722.0*Power(rij,8.0)*Power(xij,8.0)) +
2393 18.0*Power(xii,24.0)*Power(xij,2.0)*
2394 (-7604930025.0 - 8866107180.0*Power(rij,2.0)*Power(xij,2.0) +
2395 399272265.0*Power(rij,4.0)*Power(xij,4.0) -
2396 5925780.0*Power(rij,6.0)*Power(xij,6.0) +
2397 17651.0*Power(rij,8.0)*Power(xij,8.0)) -
2398 9.0*Power(xii,22.0)*Power(xij,4.0)*
2399 (129194933175.0 + 3909863160.0*Power(rij,2.0)*Power(xij,2.0) +
2400 91420770.0*Power(rij,4.0)*Power(xij,4.0) -
2401 8762040.0*Power(rij,6.0)*Power(xij,6.0) +
2402 43928.0*Power(rij,8.0)*Power(xij,8.0)) +
2403 Power(xii,27.0)*(-2884470750.0*rij -
2404 6409935000.0*Power(rij,3.0)*Power(xij,2.0) +
2405 28332990.0*Power(rij,5.0)*Power(xij,4.0) +
2406 58104.0*Power(rij,7.0)*Power(xij,6.0) + 818.0*Power(rij,9.0)*Power(xij,8.0))) \
2407 + Power(E,2.0*rij*xii)*Power(xii,12.0)*
2408 (Power(xii,8.0)*Power(xij,18.0)*
2409 (3218321469825.0 - 341234165475.0*rij*xij -
2410 393132783960.0*Power(rij,2.0)*Power(xij,2.0) -
2411 57092294070.0*Power(rij,3.0)*Power(xij,3.0) +
2412 822786930.0*Power(rij,4.0)*Power(xij,4.0) +
2413 982835910.0*Power(rij,5.0)*Power(xij,5.0) +
2414 106664040.0*Power(rij,6.0)*Power(xij,6.0) +
2415 4915116.0*Power(rij,7.0)*Power(xij,7.0) +
2416 73602.0*Power(rij,8.0)*Power(xij,8.0) - 818.0*Power(rij,9.0)*Power(xij,9.0)) +
2417 10.0*Power(xij,26.0)*(352546425.0 + 288447075.0*rij*xij +
2418 109884600.0*Power(rij,2.0)*Power(xij,2.0) +
2419 25639740.0*Power(rij,3.0)*Power(xij,3.0) +
2420 4048380.0*Power(rij,4.0)*Power(xij,4.0) +
2421 449820.0*Power(rij,5.0)*Power(xij,5.0) +
2422 35280.0*Power(rij,6.0)*Power(xij,6.0) +
2423 1890.0*Power(rij,7.0)*Power(xij,7.0) + 63.0*Power(rij,8.0)*Power(xij,8.0) +
2424 Power(rij,9.0)*Power(xij,9.0)) +
2425 30.0*Power(xii,2.0)*Power(xij,24.0)*
2426 (4562958015.0 + 3269982555.0*rij*xij +
2427 1076869080.0*Power(rij,2.0)*Power(xij,2.0) +
2428 213664500.0*Power(rij,3.0)*Power(xij,3.0) +
2429 28081620.0*Power(rij,4.0)*Power(xij,4.0) +
2430 2523276.0*Power(rij,5.0)*Power(xij,5.0) +
2431 153552.0*Power(rij,6.0)*Power(xij,6.0) +
2432 5982.0*Power(rij,7.0)*Power(xij,7.0) + 129.0*Power(rij,8.0)*Power(xij,8.0) +
2433 Power(rij,9.0)*Power(xij,9.0)) -
2434 15.0*Power(xii,24.0)*Power(xij,2.0)*
2435 (-89775.0 - 161595.0*rij*xij - 143640.0*Power(rij,2.0)*Power(xij,2.0) -
2436 83790.0*Power(rij,3.0)*Power(xij,3.0) -
2437 35910.0*Power(rij,4.0)*Power(xij,4.0) -
2438 11970.0*Power(rij,5.0)*Power(xij,5.0) -
2439 3192.0*Power(rij,6.0)*Power(xij,6.0) - 684.0*Power(rij,7.0)*Power(xij,7.0) -
2440 114.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
2441 5.0*Power(xii,26.0)*(14175.0 + 25515.0*rij*xij +
2442 22680.0*Power(rij,2.0)*Power(xij,2.0) +
2443 13230.0*Power(rij,3.0)*Power(xij,3.0) +
2444 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
2445 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
2446 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
2447 1938.0*Power(xii,14.0)*Power(xij,12.0)*
2448 (-826875.0 + 15824025.0*rij*xij - 23398200.0*Power(rij,2.0)*Power(xij,2.0) +
2449 12344850.0*Power(rij,3.0)*Power(xij,3.0) +
2450 1244250.0*Power(rij,4.0)*Power(xij,4.0) -
2451 384930.0*Power(rij,5.0)*Power(xij,5.0) -
2452 59640.0*Power(rij,6.0)*Power(xij,6.0) -
2453 1848.0*Power(rij,7.0)*Power(xij,7.0) + 84.0*Power(rij,8.0)*Power(xij,8.0) +
2454 4.0*Power(rij,9.0)*Power(xij,9.0)) +
2455 1938.0*Power(xii,12.0)*Power(xij,14.0)*
2456 (72476775.0 - 180008325.0*rij*xij +
2457 98907480.0*Power(rij,2.0)*Power(xij,2.0) +
2458 11224710.0*Power(rij,3.0)*Power(xij,3.0) -
2459 4235490.0*Power(rij,4.0)*Power(xij,4.0) -
2460 791910.0*Power(rij,5.0)*Power(xij,5.0) -
2461 31080.0*Power(rij,6.0)*Power(xij,6.0) +
2462 2232.0*Power(rij,7.0)*Power(xij,7.0) + 204.0*Power(rij,8.0)*Power(xij,8.0) +
2463 4.0*Power(rij,9.0)*Power(xij,9.0)) +
2464 342.0*Power(xii,16.0)*Power(xij,10.0)*
2465 (2409750.0 + 3641400.0*rij*xij + 9424800.0*Power(rij,2.0)*Power(xij,2.0) -
2466 8193150.0*Power(rij,3.0)*Power(xij,3.0) +
2467 6301050.0*Power(rij,4.0)*Power(xij,4.0) +
2468 400470.0*Power(rij,5.0)*Power(xij,5.0) -
2469 143640.0*Power(rij,6.0)*Power(xij,6.0) -
2470 15518.0*Power(rij,7.0)*Power(xij,7.0) - 281.0*Power(rij,8.0)*Power(xij,8.0) +
2471 9.0*Power(rij,9.0)*Power(xij,9.0)) -
2472 171.0*Power(xii,10.0)*Power(xij,16.0)*
2473 (-6768406575.0 + 6280474725.0*rij*xij +
2474 438336360.0*Power(rij,2.0)*Power(xij,2.0) -
2475 400731030.0*Power(rij,3.0)*Power(xij,3.0) -
2476 74168430.0*Power(rij,4.0)*Power(xij,4.0) -
2477 2490810.0*Power(rij,5.0)*Power(xij,5.0) +
2478 461160.0*Power(rij,6.0)*Power(xij,6.0) +
2479 51244.0*Power(rij,7.0)*Power(xij,7.0) +
2480 1858.0*Power(rij,8.0)*Power(xij,8.0) + 18.0*Power(rij,9.0)*Power(xij,9.0)) +
2481 9.0*Power(xii,22.0)*Power(xij,4.0)*
2482 (-1346625.0 - 2423925.0*rij*xij - 2154600.0*Power(rij,2.0)*Power(xij,2.0) -
2483 1256850.0*Power(rij,3.0)*Power(xij,3.0) -
2484 538650.0*Power(rij,4.0)*Power(xij,4.0) -
2485 179550.0*Power(rij,5.0)*Power(xij,5.0) -
2486 47880.0*Power(rij,6.0)*Power(xij,6.0) -
2487 14264.0*Power(rij,7.0)*Power(xij,7.0) + 292.0*Power(rij,8.0)*Power(xij,8.0) +
2488 52.0*Power(rij,9.0)*Power(xij,9.0)) -
2489 9.0*Power(xii,4.0)*Power(xij,22.0)*
2490 (-129194933175.0 - 73043543475.0*rij*xij -
2491 17732214360.0*Power(rij,2.0)*Power(xij,2.0) -
2492 2275149870.0*Power(rij,3.0)*Power(xij,3.0) -
2493 134674470.0*Power(rij,4.0)*Power(xij,4.0) +
2494 3148110.0*Power(rij,5.0)*Power(xij,5.0) +
2495 1197000.0*Power(rij,6.0)*Power(xij,6.0) +
2496 93176.0*Power(rij,7.0)*Power(xij,7.0) +
2497 3452.0*Power(rij,8.0)*Power(xij,8.0) + 52.0*Power(rij,9.0)*Power(xij,9.0)) +
2498 9.0*Power(xii,6.0)*Power(xij,20.0)*
2499 (356863797675.0 + 115054179975.0*rij*xij +
2500 3909863160.0*Power(rij,2.0)*Power(xij,2.0) -
2501 3706015530.0*Power(rij,3.0)*Power(xij,3.0) -
2502 798544530.0*Power(rij,4.0)*Power(xij,4.0) -
2503 75669510.0*Power(rij,5.0)*Power(xij,5.0) -
2504 3319400.0*Power(rij,6.0)*Power(xij,6.0) -
2505 6456.0*Power(rij,7.0)*Power(xij,7.0) + 5188.0*Power(rij,8.0)*Power(xij,8.0) +
2506 148.0*Power(rij,9.0)*Power(xij,9.0)) -
2507 9.0*Power(xii,20.0)*Power(xij,6.0)*
2508 (-7630875.0 - 13735575.0*rij*xij - 12209400.0*Power(rij,2.0)*Power(xij,2.0) -
2509 7122150.0*Power(rij,3.0)*Power(xij,3.0) -
2510 3052350.0*Power(rij,4.0)*Power(xij,4.0) -
2511 777210.0*Power(rij,5.0)*Power(xij,5.0) -
2512 591640.0*Power(rij,6.0)*Power(xij,6.0) +
2513 3064.0*Power(rij,7.0)*Power(xij,7.0) + 5468.0*Power(rij,8.0)*Power(xij,8.0) +
2514 148.0*Power(rij,9.0)*Power(xij,9.0)) +
2515 2.0*Power(xii,18.0)*Power(xij,8.0)*
2516 (-137355750.0 - 247240350.0*rij*xij -
2517 219769200.0*Power(rij,2.0)*Power(xij,2.0) -
2518 151171650.0*Power(rij,3.0)*Power(xij,3.0) +
2519 13976550.0*Power(rij,4.0)*Power(xij,4.0) -
2520 66692430.0*Power(rij,5.0)*Power(xij,5.0) -
2521 1640520.0*Power(rij,6.0)*Power(xij,6.0) +
2522 1046142.0*Power(rij,7.0)*Power(xij,7.0) +
2523 66249.0*Power(rij,8.0)*Power(xij,8.0) + 409.0*Power(rij,9.0)*Power(xij,9.0))))/
2524 (70875.*Power(E,2.0*rij*(xii + xij))*rij*
2525 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
2526 ;
2527 }
2528 return S;
2529 }
2530
2531 static double Slater_5S_6S(double rij,double xij,double xii)
2532 {
2533 double S;
2534
2535 if (xii == xij) {
2536 S = (-1532728265151283200000.0 + 1532728265151283200000.0*Power(E,2.0*rij*xii) -
2537 2836013677800293615625.0*rij*xii -
2538 2606570825298020831250.0*Power(rij,2.0)*Power(xii,2.0) -
2539 1586115932378174071875.0*Power(rij,3.0)*Power(xii,3.0) -
2540 718622941126509168750.0*Power(rij,4.0)*Power(xii,4.0) -
2541 258482050835109601500.0*Power(rij,5.0)*Power(xii,5.0) -
2542 76853380678272198000.0*Power(rij,6.0)*Power(xii,6.0) -
2543 19417985233400754000.0*Power(rij,7.0)*Power(xii,7.0) -
2544 4253183134704504000.0*Power(rij,8.0)*Power(xii,8.0) -
2545 819670099680432000.0*Power(rij,9.0)*Power(xii,9.0) -
2546 140553592289510400.0*Power(rij,10.0)*Power(xii,10.0) -
2547 21625475644281600.0*Power(rij,11.0)*Power(xii,11.0) -
2548 3003582726144000.0*Power(rij,12.0)*Power(xii,12.0) -
2549 378073350144000.0*Power(rij,13.0)*Power(xii,13.0) -
2550 43208382873600.0*Power(rij,14.0)*Power(xii,14.0) -
2551 4480869335040.0*Power(rij,15.0)*Power(xii,15.0) -
2552 420081500160.0*Power(rij,16.0)*Power(xii,16.0) -
2553 35300966400.0*Power(rij,17.0)*Power(xii,17.0) -
2554 2614886400.0*Power(rij,18.0)*Power(xii,18.0) -
2555 165150720.0*Power(rij,19.0)*Power(xii,19.0) -
2556 8257536.0*Power(rij,20.0)*Power(xii,20.0) - 262144.0*Power(rij,21.0)*Power(xii,21.0))/
2557 (1.5327282651512832e21*Power(E,2.0*rij*xii)*rij)
2558 ;
2559 }
2560 else {
2561 S = (4677750.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),21.0) +
2562 110.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
2563 (-432.0*Power(rij,8.0)*Power(xii,36.0) - 6.0*Power(rij,9.0)*Power(xii,37.0) +
2564 42525.0*Power(xij,28.0) + 76545.0*rij*xii*Power(xij,28.0) +
2565 19845.0*rij*Power(xii,3.0)*Power(xij,26.0)*
2566 (-81.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
2567 1134.0*Power(rij,6.0)*Power(xii,34.0)*
2568 (272.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) -
2569 8.0*Power(rij,7.0)*Power(xii,35.0)*(1836.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) +
2570 8505.0*Power(xii,2.0)*Power(xij,26.0)*
2571 (-105.0 + 8.0*Power(rij,2.0)*Power(xij,2.0)) +
2572 378.0*Power(rij,5.0)*Power(xii,33.0)*
2573 (-11628.0 - 666.0*Power(rij,2.0)*Power(xij,2.0) +
2574 Power(rij,4.0)*Power(xij,4.0)) +
2575 5670.0*rij*Power(xii,5.0)*Power(xij,24.0)*
2576 (2835.0 - 147.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
2577 + 17010.0*Power(xii,4.0)*Power(xij,24.0)*
2578 (525.0 - 84.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
2579 378.0*Power(rij,4.0)*Power(xii,32.0)*
2580 (-116280.0 - 17444.0*Power(rij,2.0)*Power(xij,2.0) +
2581 59.0*Power(rij,4.0)*Power(xij,4.0)) +
2582 162.0*rij*Power(xii,7.0)*Power(xij,22.0)*
2583 (-628425.0 + 51450.0*Power(rij,2.0)*Power(xij,2.0) -
2584 735.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
2585 378.0*Power(xii,6.0)*Power(xij,22.0)*
2586 (-149625.0 + 37800.0*Power(rij,2.0)*Power(xij,2.0) -
2587 945.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
2588 18.0*Power(rij,3.0)*Power(xii,31.0)*
2589 (17093160.0 + 6309387.0*Power(rij,2.0)*Power(xij,2.0) -
2590 23562.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) +
2591 54.0*Power(rij,2.0)*Power(xii,30.0)*
2592 (-26860680.0 - 24843735.0*Power(rij,2.0)*Power(xij,2.0) -
2593 40180.0*Power(rij,4.0)*Power(xij,4.0) + 578.0*Power(rij,6.0)*Power(xij,6.0)) \
2594 + 378.0*rij*Power(xii,23.0)*Power(xij,6.0)*
2595 (-14625683325.0 + 704051250.0*Power(rij,2.0)*Power(xij,2.0) -
2596 10752861.0*Power(rij,4.0)*Power(xij,4.0) +
2597 33478.0*Power(rij,6.0)*Power(xij,6.0)) +
2598 3.0*rij*Power(xii,9.0)*Power(xij,20.0)*
2599 (152707275.0 - 17595900.0*Power(rij,2.0)*Power(xij,2.0) +
2600 396900.0*Power(rij,4.0)*Power(xij,4.0) -
2601 2268.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
2602 27.0*Power(xii,8.0)*Power(xij,20.0)*
2603 (9426375.0 - 3351600.0*Power(rij,2.0)*Power(xij,2.0) +
2604 132300.0*Power(rij,4.0)*Power(xij,4.0) -
2605 1176.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
2606 567.0*Power(xii,10.0)*Power(xij,18.0)*
2607 (1526175.0 - 718200.0*Power(rij,2.0)*Power(xij,2.0) +
2608 39900.0*Power(rij,4.0)*Power(xij,4.0) -
2609 560.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
2610 54.0*rij*Power(xii,13.0)*Power(xij,16.0)*
2611 (-1356769575.0 - 127011675.0*Power(rij,2.0)*Power(xij,2.0) -
2612 3867843.0*Power(rij,4.0)*Power(xij,4.0) -
2613 8556.0*Power(rij,6.0)*Power(xij,6.0) + 7.0*Power(rij,8.0)*Power(xij,8.0)) +
2614 7.0*rij*Power(xii,11.0)*Power(xij,18.0)*
2615 (-151091325.0 + 45272250.0*Power(rij,2.0)*Power(xij,2.0) -
2616 647676.0*Power(rij,4.0)*Power(xij,4.0) +
2617 15336.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,8.0)*Power(xij,8.0)) +
2618 18.0*rij*Power(xii,15.0)*Power(xij,14.0)*
2619 (63046289250.0 + 3917182500.0*Power(rij,2.0)*Power(xij,2.0) +
2620 10158435.0*Power(rij,4.0)*Power(xij,4.0) -
2621 178842.0*Power(rij,6.0)*Power(xij,6.0) + 16.0*Power(rij,8.0)*Power(xij,8.0)) \
2622 + 378.0*rij*Power(xii,21.0)*Power(xij,8.0)*
2623 (-8559820125.0 + 17573325.0*Power(rij,2.0)*Power(xij,2.0) +
2624 7421001.0*Power(rij,4.0)*Power(xij,4.0) -
2625 49096.0*Power(rij,6.0)*Power(xij,6.0) + 19.0*Power(rij,8.0)*Power(xij,8.0)) -
2626 378.0*Power(xii,12.0)*Power(xij,16.0)*
2627 (17296650.0 + 14244300.0*Power(rij,2.0)*Power(xij,2.0) +
2628 360525.0*Power(rij,4.0)*Power(xij,4.0) +
2629 15928.0*Power(rij,6.0)*Power(xij,6.0) + 22.0*Power(rij,8.0)*Power(xij,8.0)) -
2630 189.0*rij*Power(xii,25.0)*Power(xij,4.0)*
2631 (9994948425.0 + 63821700.0*Power(rij,2.0)*Power(xij,2.0) -
2632 1458540.0*Power(rij,4.0)*Power(xij,4.0) -
2633 18756.0*Power(rij,6.0)*Power(xij,6.0) + 38.0*Power(rij,8.0)*Power(xij,8.0)) -
2634 189.0*Power(xii,24.0)*Power(xij,4.0)*
2635 (17962854525.0 + 4036942800.0*Power(rij,2.0)*Power(xij,2.0) -
2636 126472500.0*Power(rij,4.0)*Power(xij,4.0) +
2637 765464.0*Power(rij,6.0)*Power(xij,6.0) + 190.0*Power(rij,8.0)*Power(xij,8.0)) \
2638 - 21.0*rij*Power(xii,19.0)*Power(xij,10.0)*
2639 (-228066210225.0 + 13487616450.0*Power(rij,2.0)*Power(xij,2.0) -
2640 85465800.0*Power(rij,4.0)*Power(xij,4.0) -
2641 320112.0*Power(rij,6.0)*Power(xij,6.0) + 328.0*Power(rij,8.0)*Power(xij,8.0)) \
2642 - 189.0*Power(xii,18.0)*Power(xij,10.0)*
2643 (86069971575.0 + 2157712200.0*Power(rij,2.0)*Power(xij,2.0) -
2644 158179560.0*Power(rij,4.0)*Power(xij,4.0) +
2645 578816.0*Power(rij,6.0)*Power(xij,6.0) + 978.0*Power(rij,8.0)*Power(xij,8.0)) \
2646 - 2.0*rij*Power(xii,29.0)*(2085060285.0 + 5450330025.0*Power(rij,2.0)*Power(xij,2.0) +
2647 127424745.0*Power(rij,4.0)*Power(xij,4.0) -
2648 1398276.0*Power(rij,6.0)*Power(xij,6.0) +
2649 1159.0*Power(rij,8.0)*Power(xij,8.0)) -
2650 378.0*Power(xii,22.0)*Power(xij,6.0)*
2651 (37244490525.0 - 2411839800.0*Power(rij,2.0)*Power(xij,2.0) +
2652 92951775.0*Power(rij,4.0)*Power(xij,4.0) -
2653 942172.0*Power(rij,6.0)*Power(xij,6.0) + 1292.0*Power(rij,8.0)*Power(xij,8.0)\
2654 ) - 27.0*Power(xii,16.0)*Power(xij,12.0)*
2655 (164245367475.0 + 26909517600.0*Power(rij,2.0)*Power(xij,2.0) +
2656 62674920.0*Power(rij,4.0)*Power(xij,4.0) -
2657 3885112.0*Power(rij,6.0)*Power(xij,6.0) +
2658 2122.0*Power(rij,8.0)*Power(xij,8.0)) +
2659 3.0*rij*Power(xii,27.0)*Power(xij,2.0)*
2660 (-63819198135.0 - 21841975890.0*Power(rij,2.0)*Power(xij,2.0) +
2661 442430100.0*Power(rij,4.0)*Power(xij,4.0) -
2662 2756664.0*Power(rij,6.0)*Power(xij,6.0) +
2663 2296.0*Power(rij,8.0)*Power(xij,8.0)) +
2664 rij*Power(xii,17.0)*Power(xij,12.0)*
2665 (4851990871875.0 + 21622847400.0*Power(rij,2.0)*Power(xij,2.0) -
2666 2153738160.0*Power(rij,4.0)*Power(xij,4.0) +
2667 3608388.0*Power(rij,6.0)*Power(xij,6.0) +
2668 2318.0*Power(rij,8.0)*Power(xij,8.0)) +
2669 18.0*Power(xii,14.0)*Power(xij,14.0)*
2670 (-23418646650.0 - 6922729800.0*Power(rij,2.0)*Power(xij,2.0) -
2671 259958475.0*Power(rij,4.0)*Power(xij,4.0) -
2672 697732.0*Power(rij,6.0)*Power(xij,6.0) + 3030.0*Power(rij,8.0)*Power(xij,8.0)\
2673 ) + 126.0*Power(xii,20.0)*Power(xij,8.0)*
2674 (-186637212225.0 + 13028280300.0*Power(rij,2.0)*Power(xij,2.0) -
2675 116198775.0*Power(rij,4.0)*Power(xij,4.0) -
2676 1266160.0*Power(rij,6.0)*Power(xij,6.0) +
2677 4332.0*Power(rij,8.0)*Power(xij,8.0)) -
2678 54.0*Power(xii,28.0)*(102965940.0 +
2679 1089437580.0*Power(rij,2.0)*Power(xij,2.0) +
2680 102508245.0*Power(rij,4.0)*Power(xij,4.0) -
2681 1593144.0*Power(rij,6.0)*Power(xij,6.0) +
2682 4538.0*Power(rij,8.0)*Power(xij,8.0)) +
2683 63.0*Power(xii,26.0)*Power(xij,2.0)*
2684 (-4544129205.0 - 7396000920.0*Power(rij,2.0)*Power(xij,2.0) +
2685 149614020.0*Power(rij,4.0)*Power(xij,4.0) -
2686 1684112.0*Power(rij,6.0)*Power(xij,6.0) + 5922.0*Power(rij,8.0)*Power(xij,8.0)\
2687 )) + Power(E,2.0*rij*xii)*Power(xii,12.0)*
2688 (6.0*Power(xii,24.0)*Power(xij,6.0)*
2689 (1036901250.0 + 1900985625.0*rij*xij +
2690 1728168750.0*Power(rij,2.0)*Power(xij,2.0) +
2691 1036901250.0*Power(rij,3.0)*Power(xij,3.0) +
2692 460845000.0*Power(rij,4.0)*Power(xij,4.0) +
2693 161295750.0*Power(rij,5.0)*Power(xij,5.0) +
2694 46084500.0*Power(rij,6.0)*Power(xij,6.0) +
2695 9084900.0*Power(rij,7.0)*Power(xij,7.0) +
2696 4082100.0*Power(rij,8.0)*Power(xij,8.0) +
2697 121935.0*Power(rij,9.0)*Power(xij,9.0) -
2698 21494.0*Power(rij,10.0)*Power(xij,10.0) -
2699 766.0*Power(rij,11.0)*Power(xij,11.0)) +
2700 5.0*Power(xii,28.0)*Power(xij,2.0)*
2701 (19646550.0 + 36018675.0*rij*xij + 32744250.0*Power(rij,2.0)*Power(xij,2.0) +
2702 19646550.0*Power(rij,3.0)*Power(xij,3.0) +
2703 8731800.0*Power(rij,4.0)*Power(xij,4.0) +
2704 3056130.0*Power(rij,5.0)*Power(xij,5.0) +
2705 873180.0*Power(rij,6.0)*Power(xij,6.0) +
2706 207900.0*Power(rij,7.0)*Power(xij,7.0) +
2707 41580.0*Power(rij,8.0)*Power(xij,8.0) +
2708 6930.0*Power(rij,9.0)*Power(xij,9.0) +
2709 924.0*Power(rij,10.0)*Power(xij,10.0) - 4.0*Power(rij,11.0)*Power(xij,11.0)) +
2710 26334.0*Power(xii,16.0)*Power(xij,14.0)*
2711 (43880400.0 - 186686775.0*rij*xij +
2712 576771750.0*Power(rij,2.0)*Power(xij,2.0) -
2713 398603250.0*Power(rij,3.0)*Power(xij,3.0) +
2714 72552600.0*Power(rij,4.0)*Power(xij,4.0) +
2715 27903120.0*Power(rij,5.0)*Power(xij,5.0) -
2716 342720.0*Power(rij,6.0)*Power(xij,6.0) -
2717 574800.0*Power(rij,7.0)*Power(xij,7.0) -
2718 50800.0*Power(rij,8.0)*Power(xij,8.0) - 945.0*Power(rij,9.0)*Power(xij,9.0) +
2719 58.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
2720 10.0*Power(xij,30.0)*(97302813300.0 + 89194245525.0*rij*xij +
2721 38780106750.0*Power(rij,2.0)*Power(xij,2.0) +
2722 10576392750.0*Power(rij,3.0)*Power(xij,3.0) +
2723 2014551000.0*Power(rij,4.0)*Power(xij,4.0) +
2724 282037140.0*Power(rij,5.0)*Power(xij,5.0) +
2725 29688120.0*Power(rij,6.0)*Power(xij,6.0) +
2726 2356200.0*Power(rij,7.0)*Power(xij,7.0) +
2727 138600.0*Power(rij,8.0)*Power(xij,8.0) +
2728 5775.0*Power(rij,9.0)*Power(xij,9.0) +
2729 154.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
2730 10.0*Power(xii,2.0)*Power(xij,28.0)*
2731 (4582499159700.0 + 3733416276975.0*rij*xij +
2732 1428215931450.0*Power(rij,2.0)*Power(xij,2.0) +
2733 338545295550.0*Power(rij,3.0)*Power(xij,3.0) +
2734 55198697400.0*Power(rij,4.0)*Power(xij,4.0) +
2735 6486854220.0*Power(rij,5.0)*Power(xij,5.0) +
2736 558419400.0*Power(rij,6.0)*Power(xij,6.0) +
2737 34939080.0*Power(rij,7.0)*Power(xij,7.0) +
2738 1532520.0*Power(rij,8.0)*Power(xij,8.0) +
2739 43285.0*Power(rij,9.0)*Power(xij,9.0) +
2740 638.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) -
2741 110.0*Power(xii,10.0)*Power(xij,20.0)*
2742 (-14063418170550.0 + 6795156458475.0*rij*xij +
2743 2067471236250.0*Power(rij,2.0)*Power(xij,2.0) -
2744 214664924250.0*Power(rij,3.0)*Power(xij,3.0) -
2745 124416469800.0*Power(rij,4.0)*Power(xij,4.0) -
2746 14935545450.0*Power(rij,5.0)*Power(xij,5.0) -
2747 256688460.0*Power(rij,6.0)*Power(xij,6.0) +
2748 105750900.0*Power(rij,7.0)*Power(xij,7.0) +
2749 11502180.0*Power(rij,8.0)*Power(xij,8.0) +
2750 518085.0*Power(rij,9.0)*Power(xij,9.0) +
2751 9294.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) \
2752 + 55.0*Power(xii,20.0)*Power(xij,10.0)*
2753 (1730682450.0 + 3172917825.0*rij*xij +
2754 2884470750.0*Power(rij,2.0)*Power(xij,2.0) +
2755 1571960250.0*Power(rij,3.0)*Power(xij,3.0) +
2756 1404081000.0*Power(rij,4.0)*Power(xij,4.0) -
2757 426654270.0*Power(rij,5.0)*Power(xij,5.0) +
2758 283536540.0*Power(rij,6.0)*Power(xij,6.0) +
2759 39116700.0*Power(rij,7.0)*Power(xij,7.0) -
2760 2659860.0*Power(rij,8.0)*Power(xij,8.0) -
2761 528850.0*Power(rij,9.0)*Power(xij,9.0) -
2762 18236.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) \
2763 - 5.0*Power(xii,30.0)*(935550.0 + 1715175.0*rij*xij +
2764 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
2765 935550.0*Power(rij,3.0)*Power(xij,3.0) +
2766 415800.0*Power(rij,4.0)*Power(xij,4.0) +
2767 145530.0*Power(rij,5.0)*Power(xij,5.0) +
2768 41580.0*Power(rij,6.0)*Power(xij,6.0) +
2769 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
2770 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
2771 4.0*Power(rij,11.0)*Power(xij,11.0)) -
2772 13167.0*Power(xii,14.0)*Power(xij,16.0)*
2773 (-2319354450.0 + 8540029575.0*rij*xij -
2774 7335672750.0*Power(rij,2.0)*Power(xij,2.0) +
2775 1133154750.0*Power(rij,3.0)*Power(xij,3.0) +
2776 575014200.0*Power(rij,4.0)*Power(xij,4.0) -
2777 913710.0*Power(rij,5.0)*Power(xij,5.0) -
2778 14863940.0*Power(rij,6.0)*Power(xij,6.0) -
2779 1687300.0*Power(rij,7.0)*Power(xij,7.0) -
2780 46900.0*Power(rij,8.0)*Power(xij,8.0) +
2781 3210.0*Power(rij,9.0)*Power(xij,9.0) +
2782 236.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
2783 770.0*Power(xii,18.0)*Power(xij,12.0)*
2784 (329653800.0 + 654729075.0*rij*xij +
2785 45785250.0*Power(rij,2.0)*Power(xij,2.0) +
2786 1602483750.0*Power(rij,3.0)*Power(xij,3.0) -
2787 915705000.0*Power(rij,4.0)*Power(xij,4.0) +
2788 266036400.0*Power(rij,5.0)*Power(xij,5.0) +
2789 63745920.0*Power(rij,6.0)*Power(xij,6.0) -
2790 2304000.0*Power(rij,7.0)*Power(xij,7.0) -
2791 1074240.0*Power(rij,8.0)*Power(xij,8.0) -
2792 64635.0*Power(rij,9.0)*Power(xij,9.0) -
2793 514.0*Power(rij,10.0)*Power(xij,10.0) + 34.0*Power(rij,11.0)*Power(xij,11.0)) \
2794 + 385.0*Power(xii,12.0)*Power(xij,18.0)*
2795 (973565393850.0 - 1429122323475.0*rij*xij +
2796 298281831750.0*Power(rij,2.0)*Power(xij,2.0) +
2797 138841148250.0*Power(rij,3.0)*Power(xij,3.0) -
2798 2454240600.0*Power(rij,4.0)*Power(xij,4.0) -
2799 4925394810.0*Power(rij,5.0)*Power(xij,5.0) -
2800 623832300.0*Power(rij,6.0)*Power(xij,6.0) -
2801 19098540.0*Power(rij,7.0)*Power(xij,7.0) +
2802 2083140.0*Power(rij,8.0)*Power(xij,8.0) +
2803 212430.0*Power(rij,9.0)*Power(xij,9.0) +
2804 7012.0*Power(rij,10.0)*Power(xij,10.0) + 68.0*Power(rij,11.0)*Power(xij,11.0)) \
2805 + 14.0*Power(xii,26.0)*Power(xij,4.0)*
2806 (-70166250.0 - 128638125.0*rij*xij -
2807 116943750.0*Power(rij,2.0)*Power(xij,2.0) -
2808 70166250.0*Power(rij,3.0)*Power(xij,3.0) -
2809 31185000.0*Power(rij,4.0)*Power(xij,4.0) -
2810 10914750.0*Power(rij,5.0)*Power(xij,5.0) -
2811 3118500.0*Power(rij,6.0)*Power(xij,6.0) -
2812 742500.0*Power(rij,7.0)*Power(xij,7.0) -
2813 148500.0*Power(rij,8.0)*Power(xij,8.0) -
2814 32615.0*Power(rij,9.0)*Power(xij,9.0) -
2815 154.0*Power(rij,10.0)*Power(xij,10.0) + 74.0*Power(rij,11.0)*Power(xij,11.0)) \
2816 - 7.0*Power(xii,4.0)*Power(xij,26.0)*
2817 (-69822945249750.0 - 46669577290875.0*rij*xij -
2818 14025037430250.0*Power(rij,2.0)*Power(xij,2.0) -
2819 2430881664750.0*Power(rij,3.0)*Power(xij,3.0) -
2820 251629270200.0*Power(rij,4.0)*Power(xij,4.0) -
2821 12434519790.0*Power(rij,5.0)*Power(xij,5.0) +
2822 452930940.0*Power(rij,6.0)*Power(xij,6.0) +
2823 131125500.0*Power(rij,7.0)*Power(xij,7.0) +
2824 11018700.0*Power(rij,8.0)*Power(xij,8.0) +
2825 514470.0*Power(rij,9.0)*Power(xij,9.0) +
2826 13332.0*Power(rij,10.0)*Power(xij,10.0) +
2827 148.0*Power(rij,11.0)*Power(xij,11.0)) -
2828 50.0*Power(xii,8.0)*Power(xij,22.0)*
2829 (-51768833574150.0 - 5003280391725.0*rij*xij +
2830 4493439477450.0*Power(rij,2.0)*Power(xij,2.0) +
2831 1286866176750.0*Power(rij,3.0)*Power(xij,3.0) +
2832 111437476920.0*Power(rij,4.0)*Power(xij,4.0) -
2833 6620313546.0*Power(rij,5.0)*Power(xij,5.0) -
2834 2406603276.0*Power(rij,6.0)*Power(xij,6.0) -
2835 242686620.0*Power(rij,7.0)*Power(xij,7.0) -
2836 12228876.0*Power(rij,8.0)*Power(xij,8.0) -
2837 256223.0*Power(rij,9.0)*Power(xij,9.0) +
2838 2486.0*Power(rij,10.0)*Power(xij,10.0) + 158.0*Power(rij,11.0)*Power(xij,11.0)\
2839 ) + 25.0*Power(xii,22.0)*Power(xij,8.0)*
2840 (-1119853350.0 - 2053064475.0*rij*xij -
2841 1866422250.0*Power(rij,2.0)*Power(xij,2.0) -
2842 1119853350.0*Power(rij,3.0)*Power(xij,3.0) -
2843 497712600.0*Power(rij,4.0)*Power(xij,4.0) -
2844 194415606.0*Power(rij,5.0)*Power(xij,5.0) -
2845 9338868.0*Power(rij,6.0)*Power(xij,6.0) -
2846 31217076.0*Power(rij,7.0)*Power(xij,7.0) -
2847 2256804.0*Power(rij,8.0)*Power(xij,8.0) +
2848 246774.0*Power(rij,9.0)*Power(xij,9.0) +
2849 22836.0*Power(rij,10.0)*Power(xij,10.0) +
2850 316.0*Power(rij,11.0)*Power(xij,11.0)) +
2851 3.0*Power(xii,6.0)*Power(xij,24.0)*
2852 (596006592662250.0 + 266778699697125.0*rij*xij +
2853 37515651153750.0*Power(rij,2.0)*Power(xij,2.0) -
2854 2214626163750.0*Power(rij,3.0)*Power(xij,3.0) -
2855 1538075107800.0*Power(rij,4.0)*Power(xij,4.0) -
2856 248955308910.0*Power(rij,5.0)*Power(xij,5.0) -
2857 21434337540.0*Power(rij,6.0)*Power(xij,6.0) -
2858 957980100.0*Power(rij,7.0)*Power(xij,7.0) -
2859 4874100.0*Power(rij,8.0)*Power(xij,8.0) +
2860 1831830.0*Power(rij,9.0)*Power(xij,9.0) +
2861 91828.0*Power(rij,10.0)*Power(xij,10.0) +
2862 1532.0*Power(rij,11.0)*Power(xij,11.0))))/
2863 (4.67775e6*Power(E,2.0*rij*(xii + xij))*rij*
2864 Power(Power(xii,2.0) - Power(xij,2.0),21.0))
2865 ;
2866 }
2867 return S;
2868 }
2869
2870 double Slater_5S_1S(double rij,double xii,double xij)
2871 {
2872 return Slater_1S_5S(rij,xij,xii);
2873 }
2874
2875 double Slater_5S_2S(double rij,double xii,double xij)
2876 {
2877 return Slater_2S_5S(rij,xij,xii);
2878 }
2879
2880 double Slater_5S_3S(double rij,double xii,double xij)
2881 {
2882 return Slater_3S_5S(rij,xij,xii);
2883 }
2884
2885 double Slater_5S_4S(double rij,double xii,double xij)
2886 {
2887 return Slater_4S_5S(rij,xij,xii);
2888 }
2889
2890 static double Slater_6S_6S(double rij,double xij,double xii)
2891 {
2892 double S;
2893
2894 if (xii == xij) {
2895 S = -(3722690410399436636160000.0 - 3722690410399436636160000.0*Power(E,2.0*rij*xii) +
2896 6924936452406883646360625.0*rij*xii +
2897 6404492084014894020401250.0*Power(rij,2.0)*Power(xii,2.0) +
2898 3925597144715015967697500.0*Power(rij,3.0)*Power(xii,3.0) +
2899 1793665117676464332300000.0*Power(rij,4.0)*Power(xii,4.0) +
2900 651524259419605812240000.0*Power(rij,5.0)*Power(xii,5.0) +
2901 195930326813816174580000.0*Power(rij,6.0)*Power(xii,6.0) +
2902 50160444229615663944000.0*Power(rij,7.0)*Power(xii,7.0) +
2903 11155494661051156416000.0*Power(rij,8.0)*Power(xii,8.0) +
2904 2188143143401479264000.0*Power(rij,9.0)*Power(xii,9.0) +
2905 382976811299821939200.0*Power(rij,10.0)*Power(xii,10.0) +
2906 60350063176103500800.0*Power(rij,11.0)*Power(xii,11.0) +
2907 8621483857123737600.0*Power(rij,12.0)*Power(xii,12.0) +
2908 1122323342347468800.0*Power(rij,13.0)*Power(xii,13.0) +
2909 133609921708032000.0*Power(rij,14.0)*Power(xii,14.0) +
2910 14575627822694400.0*Power(rij,15.0)*Power(xii,15.0) +
2911 1457562782269440.0*Power(rij,16.0)*Power(xii,16.0) +
2912 133371757854720.0*Power(rij,17.0)*Power(xii,17.0) +
2913 11114313154560.0*Power(rij,18.0)*Power(xii,18.0) +
2914 835662643200.0*Power(rij,19.0)*Power(xii,19.0) +
2915 55710842880.0*Power(rij,20.0)*Power(xii,20.0) +
2916 3183476736.0*Power(rij,21.0)*Power(xii,21.0) +
2917 144703488.0*Power(rij,22.0)*Power(xii,22.0) +
2918 4194304.0*Power(rij,23.0)*Power(xii,23.0))/
2919 (3.7226904103994365e24*Power(E,2.0*rij*xii)*rij)
2920 ;
2921 }
2922 else {
2923 S = (2806650.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),23.0) +
2924 Power(E,2.0*rij*xij)*Power(xij,14.0)*
2925 (-1056.0*Power(rij,10.0)*Power(xii,42.0) - 12.0*Power(rij,11.0)*Power(xii,43.0) +
2926 2806650.0*Power(xij,32.0) + 5145525.0*rij*xii*Power(xij,32.0) -
2927 88.0*Power(rij,9.0)*Power(xii,41.0)*(510.0 + Power(rij,2.0)*Power(xij,2.0)) +
2928 935550.0*Power(xii,2.0)*Power(xij,30.0)*
2929 (-69.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) +
2930 467775.0*rij*Power(xii,3.0)*Power(xij,30.0)*
2931 (-253.0 + 6.0*Power(rij,2.0)*Power(xij,2.0)) -
2932 132.0*Power(rij,8.0)*Power(xii,40.0)*
2933 (9180.0 + 89.0*Power(rij,2.0)*Power(xij,2.0)) +
2934 311850.0*Power(xii,4.0)*Power(xij,28.0)*
2935 (2277.0 - 345.0*Power(rij,2.0)*Power(xij,2.0) +
2936 4.0*Power(rij,4.0)*Power(xij,4.0)) +
2937 31185.0*rij*Power(xii,5.0)*Power(xij,28.0)*
2938 (41745.0 - 2070.0*Power(rij,2.0)*Power(xij,2.0) +
2939 14.0*Power(rij,4.0)*Power(xij,4.0)) +
2940 1980.0*Power(rij,6.0)*Power(xii,38.0)*
2941 (-162792.0 - 11859.0*Power(rij,2.0)*Power(xij,2.0) +
2942 41.0*Power(rij,4.0)*Power(xij,4.0)) +
2943 22.0*Power(rij,7.0)*Power(xii,39.0)*
2944 (-1046520.0 - 30885.0*Power(rij,2.0)*Power(xij,2.0) +
2945 44.0*Power(rij,4.0)*Power(xij,4.0)) +
2946 62370.0*Power(xii,6.0)*Power(xij,26.0)*
2947 (-79695.0 + 18975.0*Power(rij,2.0)*Power(xij,2.0) -
2948 460.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
2949 110.0*Power(rij,5.0)*Power(xii,37.0)*
2950 (30767688.0 + 4989438.0*Power(rij,2.0)*Power(xij,2.0) -
2951 25359.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) +
2952 1485.0*rij*Power(xii,7.0)*Power(xij,26.0)*
2953 (-6136515.0 + 478170.0*Power(rij,2.0)*Power(xij,2.0) -
2954 6762.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
2955 132.0*Power(rij,4.0)*Power(xii,36.0)*
2956 (201455100.0 + 69647445.0*Power(rij,2.0)*Power(xij,2.0) -
2957 318735.0*Power(rij,4.0)*Power(xij,4.0) + 353.0*Power(rij,6.0)*Power(xij,6.0)) \
2958 + 495.0*rij*Power(xii,9.0)*Power(xij,24.0)*
2959 (92047725.0 - 10041570.0*Power(rij,2.0)*Power(xij,2.0) +
2960 223146.0*Power(rij,4.0)*Power(xij,4.0) -
2961 1380.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
2962 2970.0*Power(xii,8.0)*Power(xij,24.0)*
2963 (8367975.0 - 2789325.0*Power(rij,2.0)*Power(xij,2.0) +
2964 106260.0*Power(rij,4.0)*Power(xij,4.0) -
2965 966.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
2966 22.0*Power(rij,3.0)*Power(xii,35.0)*
2967 (6950200950.0 + 5142653145.0*Power(rij,2.0)*Power(xij,2.0) +
2968 7644510.0*Power(rij,4.0)*Power(xij,4.0) -
2969 235635.0*Power(rij,6.0)*Power(xij,6.0) + 124.0*Power(rij,8.0)*Power(xij,8.0)) \
2970 - 132.0*Power(rij,2.0)*Power(xii,34.0)*
2971 (4633467300.0 + 7767871650.0*Power(rij,2.0)*Power(xij,2.0) +
2972 160904205.0*Power(rij,4.0)*Power(xij,4.0) -
2973 2493315.0*Power(rij,6.0)*Power(xij,6.0) +
2974 5281.0*Power(rij,8.0)*Power(xij,8.0)) -
2975 495.0*rij*Power(xii,27.0)*Power(xij,6.0)*
2976 (8395934795325.0 - 439434024750.0*Power(rij,2.0)*Power(xij,2.0) +
2977 11948496210.0*Power(rij,4.0)*Power(xij,4.0) -
2978 118623972.0*Power(rij,6.0)*Power(xij,6.0) +
2979 248906.0*Power(rij,8.0)*Power(xij,8.0)) +
2980 11.0*rij*Power(xii,15.0)*Power(xij,18.0)*
2981 (1488922594425.0 + 252796524750.0*Power(rij,2.0)*Power(xij,2.0) +
2982 6172031250.0*Power(rij,4.0)*Power(xij,4.0) +
2983 104343660.0*Power(rij,6.0)*Power(xij,6.0) +
2984 66810.0*Power(rij,8.0)*Power(xij,8.0) - 88.0*Power(rij,10.0)*Power(xij,10.0)) \
2985 + 66.0*Power(xii,10.0)*Power(xij,22.0)*
2986 (-1430923725.0 + 627598125.0*Power(rij,2.0)*Power(xij,2.0) -
2987 33471900.0*Power(rij,4.0)*Power(xij,4.0) +
2988 478170.0*Power(rij,6.0)*Power(xij,6.0) -
2989 2070.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) -
2990 1518.0*Power(xii,12.0)*Power(xij,20.0)*
2991 (-186642225.0 + 103690125.0*Power(rij,2.0)*Power(xij,2.0) -
2992 7276500.0*Power(rij,4.0)*Power(xij,4.0) +
2993 145530.0*Power(rij,6.0)*Power(xij,6.0) -
2994 990.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) +
2995 3.0*rij*Power(xii,11.0)*Power(xij,22.0)*
2996 (-57713923575.0 + 8284295250.0*Power(rij,2.0)*Power(xij,2.0) -
2997 257733630.0*Power(rij,4.0)*Power(xij,4.0) +
2998 2504700.0*Power(rij,6.0)*Power(xij,6.0) -
2999 7590.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
3000 11.0*rij*Power(xii,13.0)*Power(xij,20.0)*
3001 (56066193225.0 - 6918959250.0*Power(rij,2.0)*Power(xij,2.0) +
3002 430816050.0*Power(rij,4.0)*Power(xij,4.0) -
3003 3349620.0*Power(rij,6.0)*Power(xij,6.0) +
3004 33690.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) \
3005 + 55.0*rij*Power(xii,17.0)*Power(xij,16.0)*
3006 (7416068831325.0 + 658162968750.0*Power(rij,2.0)*Power(xij,2.0) +
3007 11421785970.0*Power(rij,4.0)*Power(xij,4.0) -
3008 22800852.0*Power(rij,6.0)*Power(xij,6.0) -
3009 224214.0*Power(rij,8.0)*Power(xij,8.0) + 40.0*Power(rij,10.0)*Power(xij,10.0)\
3010 ) - 198.0*Power(xii,14.0)*Power(xij,18.0)*
3011 (12601626975.0 + 2529410625.0*Power(rij,2.0)*Power(xij,2.0) +
3012 582340500.0*Power(rij,4.0)*Power(xij,4.0) +
3013 3239250.0*Power(rij,6.0)*Power(xij,6.0) +
3014 132690.0*Power(rij,8.0)*Power(xij,8.0) + 74.0*Power(rij,10.0)*Power(xij,10.0)\
3015 ) - 231.0*rij*Power(xii,25.0)*Power(xij,8.0)*
3016 (21444497452125.0 - 909858116250.0*Power(rij,2.0)*Power(xij,2.0) +
3017 1447333650.0*Power(rij,4.0)*Power(xij,4.0) +
3018 178686540.0*Power(rij,6.0)*Power(xij,6.0) -
3019 747270.0*Power(rij,8.0)*Power(xij,8.0) +
3020 184.0*Power(rij,10.0)*Power(xij,10.0)) -
3021 198.0*Power(xii,20.0)*Power(xij,12.0)*
3022 (42449899182075.0 + 4344172457625.0*Power(rij,2.0)*Power(xij,2.0) -
3023 85249741500.0*Power(rij,4.0)*Power(xij,4.0) -
3024 1059301110.0*Power(rij,6.0)*Power(xij,6.0) +
3025 6582370.0*Power(rij,8.0)*Power(xij,8.0) +
3026 194.0*Power(rij,10.0)*Power(xij,10.0)) +
3027 11.0*rij*Power(xii,19.0)*Power(xij,14.0)*
3028 (239338679943825.0 + 8851966719750.0*Power(rij,2.0)*Power(xij,2.0) -
3029 112537092150.0*Power(rij,4.0)*Power(xij,4.0) -
3030 1100275380.0*Power(rij,6.0)*Power(xij,6.0) +
3031 2919090.0*Power(rij,8.0)*Power(xij,8.0) +
3032 248.0*Power(rij,10.0)*Power(xij,10.0)) -
3033 330.0*Power(xii,28.0)*Power(xij,4.0)*
3034 (4860066085875.0 + 2524912849305.0*Power(rij,2.0)*Power(xij,2.0) -
3035 109538431380.0*Power(rij,4.0)*Power(xij,4.0) +
3036 1633704282.0*Power(rij,6.0)*Power(xij,6.0) -
3037 6421278.0*Power(rij,8.0)*Power(xij,8.0) +
3038 322.0*Power(rij,10.0)*Power(xij,10.0)) +
3039 33.0*rij*Power(xii,29.0)*Power(xij,4.0)*
3040 (-31641507079875.0 - 2157639318450.0*Power(rij,2.0)*Power(xij,2.0) +
3041 74910015810.0*Power(rij,4.0)*Power(xij,4.0) -
3042 522003060.0*Power(rij,6.0)*Power(xij,6.0) -
3043 250470.0*Power(rij,8.0)*Power(xij,8.0) +
3044 1288.0*Power(rij,10.0)*Power(xij,10.0)) -
3045 330.0*Power(xii,18.0)*Power(xij,14.0)*
3046 (4867016286825.0 + 1199363925375.0*Power(rij,2.0)*Power(xij,2.0) +
3047 26817947100.0*Power(rij,4.0)*Power(xij,4.0) -
3048 167333418.0*Power(rij,6.0)*Power(xij,6.0) -
3049 1476138.0*Power(rij,8.0)*Power(xij,8.0) +
3050 1294.0*Power(rij,10.0)*Power(xij,10.0)) +
3051 66.0*Power(xii,16.0)*Power(xij,16.0)*
3052 (-1657759205025.0 - 682207855875.0*Power(rij,2.0)*Power(xij,2.0) -
3053 31509229500.0*Power(rij,4.0)*Power(xij,4.0) -
3054 492146550.0*Power(rij,6.0)*Power(xij,6.0) -
3055 11910.0*Power(rij,8.0)*Power(xij,8.0) +
3056 2594.0*Power(rij,10.0)*Power(xij,10.0)) +
3057 1386.0*Power(xii,26.0)*Power(xij,6.0)*
3058 (-6066588045375.0 + 98854491375.0*Power(rij,2.0)*Power(xij,2.0) -
3059 12496954500.0*Power(rij,4.0)*Power(xij,4.0) +
3060 420813750.0*Power(rij,6.0)*Power(xij,6.0) -
3061 2881210.0*Power(rij,8.0)*Power(xij,8.0) +
3062 2622.0*Power(rij,10.0)*Power(xij,10.0)) +
3063 11.0*rij*Power(xii,23.0)*Power(xij,10.0)*
3064 (149900659402725.0 - 26541339882750.0*Power(rij,2.0)*Power(xij,2.0) +
3065 594745455150.0*Power(rij,4.0)*Power(xij,4.0) -
3066 1399125420.0*Power(rij,6.0)*Power(xij,6.0) -
3067 7887390.0*Power(rij,8.0)*Power(xij,8.0) +
3068 4232.0*Power(rij,10.0)*Power(xij,10.0)) -
3069 11.0*rij*Power(xii,31.0)*Power(xij,2.0)*
3070 (7685082491625.0 + 5034333946950.0*Power(rij,2.0)*Power(xij,2.0) -
3071 108088893990.0*Power(rij,4.0)*Power(xij,4.0) +
3072 1254174300.0*Power(rij,6.0)*Power(xij,6.0) -
3073 6355950.0*Power(rij,8.0)*Power(xij,8.0) +
3074 4232.0*Power(rij,10.0)*Power(xij,10.0)) -
3075 462.0*Power(xii,24.0)*Power(xij,8.0)*
3076 (40495013164125.0 - 3973079865375.0*Power(rij,2.0)*Power(xij,2.0) +
3077 110288047500.0*Power(rij,4.0)*Power(xij,4.0) -
3078 381623130.0*Power(rij,6.0)*Power(xij,6.0) -
3079 4811370.0*Power(rij,8.0)*Power(xij,8.0) +
3080 9338.0*Power(rij,10.0)*Power(xij,10.0)) +
3081 198.0*Power(xii,32.0)*(-9126526500.0 -
3082 152866565775.0*Power(rij,2.0)*Power(xij,2.0) -
3083 32383266300.0*Power(rij,4.0)*Power(xij,4.0) +
3084 709444890.0*Power(rij,6.0)*Power(xij,6.0) -
3085 5562070.0*Power(rij,8.0)*Power(xij,8.0) +
3086 11042.0*Power(rij,10.0)*Power(xij,10.0)) +
3087 2.0*rij*Power(xii,33.0)*(-764522104500.0 -
3088 3357151476525.0*Power(rij,2.0)*Power(xij,2.0) -
3089 242177564475.0*Power(rij,4.0)*Power(xij,4.0) +
3090 4513719870.0*Power(rij,6.0)*Power(xij,6.0) -
3091 20531775.0*Power(rij,8.0)*Power(xij,8.0) +
3092 11236.0*Power(rij,10.0)*Power(xij,10.0)) -
3093 rij*Power(xii,21.0)*Power(xij,12.0)*
3094 (-5533525427435775.0 + 138591131159250.0*Power(rij,2.0)*Power(xij,2.0) +
3095 2815739907750.0*Power(rij,4.0)*Power(xij,4.0) -
3096 32922004500.0*Power(rij,6.0)*Power(xij,6.0) +
3097 11347050.0*Power(rij,8.0)*Power(xij,8.0) +
3098 22472.0*Power(rij,10.0)*Power(xij,10.0)) +
3099 66.0*Power(xii,22.0)*Power(xij,10.0)*
3100 (-283522589265825.0 + 7639225988625.0*Power(rij,2.0)*Power(xij,2.0) +
3101 480728209500.0*Power(rij,4.0)*Power(xij,4.0) -
3102 8458349130.0*Power(rij,6.0)*Power(xij,6.0) +
3103 9771090.0*Power(rij,8.0)*Power(xij,8.0) +
3104 31786.0*Power(rij,10.0)*Power(xij,10.0)) -
3105 66.0*Power(xii,30.0)*Power(xij,2.0)*
3106 (1678609807875.0 + 4713298976925.0*Power(rij,2.0)*Power(xij,2.0) -
3107 30578971500.0*Power(rij,4.0)*Power(xij,4.0) +
3108 53723250.0*Power(rij,6.0)*Power(xij,6.0) -
3109 9140190.0*Power(rij,8.0)*Power(xij,8.0) +
3110 38042.0*Power(rij,10.0)*Power(xij,10.0))) +
3111 Power(E,2.0*rij*xii)*Power(xii,14.0)*
3112 (-302841.0*Power(xii,16.0)*Power(xij,16.0)*
3113 (-361285650.0 + 1346857875.0*rij*xij -
3114 1306923750.0*Power(rij,2.0)*Power(xij,2.0) +
3115 321527250.0*Power(rij,3.0)*Power(xij,3.0) +
3116 55737000.0*Power(rij,4.0)*Power(xij,4.0) -
3117 9297750.0*Power(rij,5.0)*Power(xij,5.0) -
3118 1843380.0*Power(rij,6.0)*Power(xij,6.0) -
3119 50820.0*Power(rij,7.0)*Power(xij,7.0) +
3120 7340.0*Power(rij,8.0)*Power(xij,8.0) + 570.0*Power(rij,9.0)*Power(xij,9.0) +
3121 12.0*Power(rij,10.0)*Power(xij,10.0)) +
3122 12.0*Power(xij,32.0)*(150587687250.0 + 127420350750.0*rij*xij +
3123 50968140300.0*Power(rij,2.0)*Power(xij,2.0) +
3124 12742035075.0*Power(rij,3.0)*Power(xij,3.0) +
3125 2216006100.0*Power(rij,4.0)*Power(xij,4.0) +
3126 282037140.0*Power(rij,5.0)*Power(xij,5.0) +
3127 26860680.0*Power(rij,6.0)*Power(xij,6.0) +
3128 1918620.0*Power(rij,7.0)*Power(xij,7.0) +
3129 100980.0*Power(rij,8.0)*Power(xij,8.0) +
3130 3740.0*Power(rij,9.0)*Power(xij,9.0) + 88.0*Power(rij,10.0)*Power(xij,10.0) +
3131 Power(rij,11.0)*Power(xij,11.0)) -
3132 3.0*Power(xii,32.0)*(935550.0 + 1715175.0*rij*xij +
3133 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
3134 935550.0*Power(rij,3.0)*Power(xij,3.0) +
3135 415800.0*Power(rij,4.0)*Power(xij,4.0) +
3136 145530.0*Power(rij,5.0)*Power(xij,5.0) +
3137 41580.0*Power(rij,6.0)*Power(xij,6.0) +
3138 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
3139 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
3140 4.0*Power(rij,11.0)*Power(xij,11.0)) -
3141 11.0*Power(xii,30.0)*Power(xij,2.0)*
3142 (-5868450.0 - 10758825.0*rij*xij - 9780750.0*Power(rij,2.0)*Power(xij,2.0) -
3143 5868450.0*Power(rij,3.0)*Power(xij,3.0) -
3144 2608200.0*Power(rij,4.0)*Power(xij,4.0) -
3145 912870.0*Power(rij,5.0)*Power(xij,5.0) -
3146 260820.0*Power(rij,6.0)*Power(xij,6.0) -
3147 62100.0*Power(rij,7.0)*Power(xij,7.0) -
3148 12420.0*Power(rij,8.0)*Power(xij,8.0) -
3149 2070.0*Power(rij,9.0)*Power(xij,9.0) -
3150 276.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) -
3151 5313.0*Power(xii,14.0)*Power(xij,18.0)*
3152 (-302299148250.0 + 495525217275.0*rij*xij -
3153 161894625750.0*Power(rij,2.0)*Power(xij,2.0) -
3154 26085287250.0*Power(rij,3.0)*Power(xij,3.0) +
3155 5971779000.0*Power(rij,4.0)*Power(xij,4.0) +
3156 1231357050.0*Power(rij,5.0)*Power(xij,5.0) +
3157 33184620.0*Power(rij,6.0)*Power(xij,6.0) -
3158 7768980.0*Power(rij,7.0)*Power(xij,7.0) -
3159 751620.0*Power(rij,8.0)*Power(xij,8.0) -
3160 23190.0*Power(rij,9.0)*Power(xij,9.0) -
3161 20.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
3162 5313.0*Power(xii,18.0)*Power(xij,14.0)*
3163 (469625850.0 - 3082655475.0*rij*xij +
3164 8474631750.0*Power(rij,2.0)*Power(xij,2.0) -
3165 6813281250.0*Power(rij,3.0)*Power(xij,3.0) +
3166 1665711000.0*Power(rij,4.0)*Power(xij,4.0) +
3167 232996050.0*Power(rij,5.0)*Power(xij,5.0) -
3168 39477060.0*Power(rij,6.0)*Power(xij,6.0) -
3169 6196500.0*Power(rij,7.0)*Power(xij,7.0) -
3170 121380.0*Power(rij,8.0)*Power(xij,8.0) +
3171 16330.0*Power(rij,9.0)*Power(xij,9.0) +
3172 812.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
3173 11.0*Power(xii,2.0)*Power(xij,30.0)*
3174 (10071658847250.0 + 7685082491625.0*rij*xij +
3175 2751598183950.0*Power(rij,2.0)*Power(xij,2.0) +
3176 610391177550.0*Power(rij,3.0)*Power(xij,3.0) +
3177 93214459800.0*Power(rij,4.0)*Power(xij,4.0) +
3178 10285306290.0*Power(rij,5.0)*Power(xij,5.0) +
3179 835769340.0*Power(rij,6.0)*Power(xij,6.0) +
3180 49894380.0*Power(rij,7.0)*Power(xij,7.0) +
3181 2134620.0*Power(rij,8.0)*Power(xij,8.0) +
3182 61770.0*Power(rij,9.0)*Power(xij,9.0) +
3183 1068.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) \
3184 + 11.0*Power(xii,28.0)*Power(xij,4.0)*
3185 (-64552950.0 - 118347075.0*rij*xij -
3186 107588250.0*Power(rij,2.0)*Power(xij,2.0) -
3187 64552950.0*Power(rij,3.0)*Power(xij,3.0) -
3188 28690200.0*Power(rij,4.0)*Power(xij,4.0) -
3189 10041570.0*Power(rij,5.0)*Power(xij,5.0) -
3190 2869020.0*Power(rij,6.0)*Power(xij,6.0) -
3191 683100.0*Power(rij,7.0)*Power(xij,7.0) -
3192 136620.0*Power(rij,8.0)*Power(xij,8.0) -
3193 33690.0*Power(rij,9.0)*Power(xij,9.0) +
3194 1332.0*Power(rij,10.0)*Power(xij,10.0) + 88.0*Power(rij,11.0)*Power(xij,11.0)) \
3195 - 11.0*Power(xii,4.0)*Power(xij,28.0)*
3196 (-145801982576250.0 - 94924521239625.0*rij*xij -
3197 28279793861550.0*Power(rij,2.0)*Power(xij,2.0) -
3198 5034333946950.0*Power(rij,3.0)*Power(xij,3.0) -
3199 582898793400.0*Power(rij,4.0)*Power(xij,4.0) -
3200 44032284450.0*Power(rij,5.0)*Power(xij,5.0) -
3201 1930850460.0*Power(rij,6.0)*Power(xij,6.0) -
3202 15289020.0*Power(rij,7.0)*Power(xij,7.0) +
3203 3824820.0*Power(rij,8.0)*Power(xij,8.0) +
3204 253590.0*Power(rij,9.0)*Power(xij,9.0) +
3205 7380.0*Power(rij,10.0)*Power(xij,10.0) + 88.0*Power(rij,11.0)*Power(xij,11.0)) \
3206 - 253.0*Power(xii,20.0)*Power(xij,12.0)*
3207 (1119853350.0 + 2437660575.0*rij*xij -
3208 1979538750.0*Power(rij,2.0)*Power(xij,2.0) +
3209 10991153250.0*Power(rij,3.0)*Power(xij,3.0) -
3210 8219799000.0*Power(rij,4.0)*Power(xij,4.0) +
3211 2482996950.0*Power(rij,5.0)*Power(xij,5.0) +
3212 218260980.0*Power(rij,6.0)*Power(xij,6.0) -
3213 47838060.0*Power(rij,7.0)*Power(xij,7.0) -
3214 5151420.0*Power(rij,8.0)*Power(xij,8.0) -
3215 44850.0*Power(rij,9.0)*Power(xij,9.0) +
3216 8292.0*Power(rij,10.0)*Power(xij,10.0) + 184.0*Power(rij,11.0)*Power(xij,11.0)\
3217 ) + 253.0*Power(xii,12.0)*Power(xij,20.0)*
3218 (33221660229450.0 - 21871642005675.0*rij*xij -
3219 1992841562250.0*Power(rij,2.0)*Power(xij,2.0) +
3220 1153971299250.0*Power(rij,3.0)*Power(xij,3.0) +
3221 201395565000.0*Power(rij,4.0)*Power(xij,4.0) +
3222 1321478550.0*Power(rij,5.0)*Power(xij,5.0) -
3223 2305327500.0*Power(rij,6.0)*Power(xij,6.0) -
3224 232090380.0*Power(rij,7.0)*Power(xij,7.0) -
3225 8375580.0*Power(rij,8.0)*Power(xij,8.0) +
3226 32670.0*Power(rij,9.0)*Power(xij,9.0) +
3227 9924.0*Power(rij,10.0)*Power(xij,10.0) + 184.0*Power(rij,11.0)*Power(xij,11.0)\
3228 ) + 11.0*Power(xii,6.0)*Power(xij,26.0)*
3229 (764390093717250.0 + 377817065789625.0*rij*xij +
3230 75747385479150.0*Power(rij,2.0)*Power(xij,2.0) +
3231 6472917955350.0*Power(rij,3.0)*Power(xij,3.0) -
3232 183473829000.0*Power(rij,4.0)*Power(xij,4.0) -
3233 108088893990.0*Power(rij,5.0)*Power(xij,5.0) -
3234 12770008020.0*Power(rij,6.0)*Power(xij,6.0) -
3235 820676340.0*Power(rij,7.0)*Power(xij,7.0) -
3236 29919780.0*Power(rij,8.0)*Power(xij,8.0) -
3237 471270.0*Power(rij,9.0)*Power(xij,9.0) +
3238 4236.0*Power(rij,10.0)*Power(xij,10.0) + 200.0*Power(rij,11.0)*Power(xij,11.0)\
3239 ) - 11.0*Power(xii,26.0)*Power(xij,6.0)*
3240 (-451870650.0 - 828429525.0*rij*xij -
3241 753117750.0*Power(rij,2.0)*Power(xij,2.0) -
3242 451870650.0*Power(rij,3.0)*Power(xij,3.0) -
3243 200831400.0*Power(rij,4.0)*Power(xij,4.0) -
3244 70290990.0*Power(rij,5.0)*Power(xij,5.0) -
3245 20083140.0*Power(rij,6.0)*Power(xij,6.0) -
3246 3349620.0*Power(rij,7.0)*Power(xij,7.0) -
3247 2388420.0*Power(rij,8.0)*Power(xij,8.0) +
3248 66810.0*Power(rij,9.0)*Power(xij,9.0) +
3249 15564.0*Power(rij,10.0)*Power(xij,10.0) +
3250 200.0*Power(rij,11.0)*Power(xij,11.0)) -
3251 11.0*Power(xii,24.0)*Power(xij,8.0)*
3252 (2259353250.0 + 4142147625.0*rij*xij +
3253 3765588750.0*Power(rij,2.0)*Power(xij,2.0) +
3254 2259353250.0*Power(rij,3.0)*Power(xij,3.0) +
3255 1004157000.0*Power(rij,4.0)*Power(xij,4.0) +
3256 430816050.0*Power(rij,5.0)*Power(xij,5.0) -
3257 58306500.0*Power(rij,6.0)*Power(xij,6.0) +
3258 104343660.0*Power(rij,7.0)*Power(xij,7.0) -
3259 71460.0*Power(rij,8.0)*Power(xij,8.0) -
3260 1121070.0*Power(rij,9.0)*Power(xij,9.0) -
3261 38820.0*Power(rij,10.0)*Power(xij,10.0) +
3262 248.0*Power(rij,11.0)*Power(xij,11.0)) +
3263 11.0*Power(xii,8.0)*Power(xij,24.0)*
3264 (1700790552893250.0 + 450334446494625.0*rij*xij -
3265 12455665913250.0*Power(rij,2.0)*Power(xij,2.0) -
3266 19774531113750.0*Power(rij,3.0)*Power(xij,3.0) -
3267 3286152941400.0*Power(rij,4.0)*Power(xij,4.0) -
3268 224730047430.0*Power(rij,5.0)*Power(xij,5.0) +
3269 322339500.0*Power(rij,6.0)*Power(xij,6.0) +
3270 1254174300.0*Power(rij,7.0)*Power(xij,7.0) +
3271 100117260.0*Power(rij,8.0)*Power(xij,8.0) +
3272 3733050.0*Power(rij,9.0)*Power(xij,9.0) +
3273 63372.0*Power(rij,10.0)*Power(xij,10.0) +
3274 248.0*Power(rij,11.0)*Power(xij,11.0)) +
3275 Power(xii,22.0)*Power(xij,10.0)*
3276 (94440965850.0 + 173141770725.0*rij*xij +
3277 157401609750.0*Power(rij,2.0)*Power(xij,2.0) +
3278 76108551750.0*Power(rij,3.0)*Power(xij,3.0) +
3279 115303419000.0*Power(rij,4.0)*Power(xij,4.0) -
3280 67892343750.0*Power(rij,5.0)*Power(xij,5.0) +
3281 32481672300.0*Power(rij,6.0)*Power(xij,6.0) +
3282 1254046860.0*Power(rij,7.0)*Power(xij,7.0) -
3283 487125540.0*Power(rij,8.0)*Power(xij,8.0) -
3284 32109990.0*Power(rij,9.0)*Power(xij,9.0) +
3285 38412.0*Power(rij,10.0)*Power(xij,10.0) +
3286 22472.0*Power(rij,11.0)*Power(xij,11.0)) -
3287 Power(xii,10.0)*Power(xij,22.0)*
3288 (-18712490891544450.0 + 1648907253429975.0*rij*xij +
3289 1835562897803250.0*Power(rij,2.0)*Power(xij,2.0) +
3290 210177224853750.0*Power(rij,3.0)*Power(xij,3.0) -
3291 17320778937000.0*Power(rij,4.0)*Power(xij,4.0) -
3292 5914505623950.0*Power(rij,5.0)*Power(xij,5.0) -
3293 539122413060.0*Power(rij,6.0)*Power(xij,6.0) -
3294 17226100980.0*Power(rij,7.0)*Power(xij,7.0) +
3295 603252540.0*Power(rij,8.0)*Power(xij,8.0) +
3296 69915450.0*Power(rij,9.0)*Power(xij,9.0) +
3297 2186316.0*Power(rij,10.0)*Power(xij,10.0) +
3298 22472.0*Power(rij,11.0)*Power(xij,11.0))))/
3299 (2.80665e6*Power(E,2.0*rij*(xii + xij))*rij*
3300 Power(Power(xii,2.0) - Power(xij,2.0),23.0))
3301 ;
3302 }
3303 return S;
3304 }
3305
3306 double Slater_6S_1S(double rij,double xii,double xij)
3307 {
3308 return Slater_1S_6S(rij,xij,xii);
3309 }
3310
3311 double Slater_6S_2S(double rij,double xii,double xij)
3312 {
3313 return Slater_2S_6S(rij,xij,xii);
3314 }
3315
3316 double Slater_6S_3S(double rij,double xii,double xij)
3317 {
3318 return Slater_3S_6S(rij,xij,xii);
3319 }
3320
3321 double Slater_6S_4S(double rij,double xii,double xij)
3322 {
3323 return Slater_4S_6S(rij,xij,xii);
3324 }
3325
3326 double Slater_6S_5S(double rij,double xii,double xij)
3327 {
3328 return Slater_5S_6S(rij,xij,xii);
3329 }
3330
3331 static double DSlater_1S_1S(double rij,double xij,double xii)
3332 {
3333 double S;
3334
3335 if (xii == xij) {
3336 S = (-6.0 + 6.0*Power(E,2.0*rij*xii) - 12.0*rij*xii - 12.0*Power(rij,2.0)*Power(xii,2.0) -
3337 7.0*Power(rij,3.0)*Power(xii,3.0) - 2.0*Power(rij,4.0)*Power(xii,4.0))/
3338 (6.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3339 ;
3340 }
3341 else {
3342 S = (Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),3.0) +
3343 Power(E,2.0*rij*xij)*Power(xij,4.0)*
3344 (-6.0*rij*Power(xii,3.0) - 2.0*Power(rij,2.0)*Power(xii,4.0) + Power(xij,2.0) +
3345 2.0*rij*xii*Power(xij,2.0) +
3346 Power(xii,2.0)*(-3.0 + 2.0*Power(rij,2.0)*Power(xij,2.0))) -
3347 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3348 (Power(xii,2.0)*(1.0 + 2.0*rij*xij + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3349 Power(xij,2.0)*(3.0 + 6.0*rij*xij + 2.0*Power(rij,2.0)*Power(xij,2.0))))/
3350 (Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3351 Power(Power(xii,2.0) - Power(xij,2.0),3.0))
3352 ;
3353 }
3354 return S;
3355 }
3356
3357 static double DSlater_1S_2S(double rij,double xij,double xii)
3358 {
3359 double S;
3360
3361 if (xii == xij) {
3362 S = (-120.0 + 120.0*Power(E,2.0*rij*xii) - 240.0*rij*xii -
3363 240.0*Power(rij,2.0)*Power(xii,2.0) - 155.0*Power(rij,3.0)*Power(xii,3.0) -
3364 70.0*Power(rij,4.0)*Power(xii,4.0) - 22.0*Power(rij,5.0)*Power(xii,5.0) -
3365 4.0*Power(rij,6.0)*Power(xii,6.0))/(120.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3366 ;
3367 }
3368 else {
3369 S = (3.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),5.0) +
3370 3.0*Power(E,2.0*rij*xij)*Power(xij,6.0)*
3371 (-4.0*Power(xii,4.0) - 8.0*rij*Power(xii,5.0) - 2.0*Power(rij,2.0)*Power(xii,6.0) -
3372 10.0*rij*Power(xii,3.0)*Power(xij,2.0) + Power(xij,4.0) +
3373 2.0*rij*xii*Power(xij,4.0) +
3374 Power(xii,2.0)*Power(xij,2.0)*(-5.0 + 2.0*Power(rij,2.0)*Power(xij,2.0))) +
3375 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3376 (-6.0*Power(xii,2.0)*Power(xij,4.0)*
3377 (5.0 + 10.0*rij*xij + 13.0*Power(rij,2.0)*Power(xij,2.0) +
3378 6.0*Power(rij,3.0)*Power(xij,3.0) + Power(rij,4.0)*Power(xij,4.0)) +
3379 2.0*Power(xij,6.0)*(21.0 + 42.0*rij*xij + 27.0*Power(rij,2.0)*Power(xij,2.0) +
3380 8.0*Power(rij,3.0)*Power(xij,3.0) + Power(rij,4.0)*Power(xij,4.0)) -
3381 Power(xii,6.0)*(3.0 + 6.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
3382 4.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) +
3383 3.0*Power(xii,4.0)*Power(xij,2.0)*
3384 (5.0 + 10.0*rij*xij + 10.0*Power(rij,2.0)*Power(xij,2.0) +
3385 8.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0))))/
3386 (3.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3387 Power(Power(xii,2.0) - Power(xij,2.0),5.0))
3388 ;
3389 }
3390 return S;
3391 }
3392
3393 static double DSlater_1S_3S(double rij,double xij,double xii)
3394 {
3395 double S;
3396
3397 if (xii == xij) {
3398 S = (-30240.0 + 30240.0*Power(E,2.0*rij*xii) - 60480.0*rij*xii -
3399 60480.0*Power(rij,2.0)*Power(xii,2.0) - 40005.0*Power(rij,3.0)*Power(xii,3.0) -
3400 19530.0*Power(rij,4.0)*Power(xii,4.0) - 7392.0*Power(rij,5.0)*Power(xii,5.0) -
3401 2184.0*Power(rij,6.0)*Power(xii,6.0) - 480.0*Power(rij,7.0)*Power(xii,7.0) -
3402 64.0*Power(rij,8.0)*Power(xii,8.0))/(30240.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3403 ;
3404 }
3405 else {
3406 S = (45.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) +
3407 15.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
3408 (-30.0*rij*Power(xii,7.0) - 6.0*Power(rij,2.0)*Power(xii,8.0) -
3409 126.0*rij*Power(xii,5.0)*Power(xij,2.0) -
3410 42.0*rij*Power(xii,3.0)*Power(xij,4.0) + 3.0*Power(xij,6.0) +
3411 6.0*rij*xii*Power(xij,6.0) +
3412 7.0*Power(xii,4.0)*Power(xij,2.0)*(-9.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3413 3.0*Power(xii,2.0)*Power(xij,4.0)*(-7.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3414 Power(xii,6.0)*(15.0 + 14.0*Power(rij,2.0)*Power(xij,2.0))) +
3415 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3416 (-10.0*Power(xii,2.0)*Power(xij,8.0)*
3417 (135.0 + 270.0*rij*xij + 438.0*Power(rij,2.0)*Power(xij,2.0) +
3418 306.0*Power(rij,3.0)*Power(xij,3.0) + 111.0*Power(rij,4.0)*Power(xij,4.0) +
3419 22.0*Power(rij,5.0)*Power(xij,5.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
3420 2.0*Power(xij,10.0)*(945.0 + 1890.0*rij*xij +
3421 1470.0*Power(rij,2.0)*Power(xij,2.0) + 630.0*Power(rij,3.0)*Power(xij,3.0) +
3422 165.0*Power(rij,4.0)*Power(xij,4.0) + 26.0*Power(rij,5.0)*Power(xij,5.0) +
3423 2.0*Power(rij,6.0)*Power(xij,6.0)) -
3424 Power(xii,10.0)*(45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
3425 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
3426 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
3427 5.0*Power(xii,8.0)*Power(xij,2.0)*
3428 (63.0 + 126.0*rij*xij + 126.0*Power(rij,2.0)*Power(xij,2.0) +
3429 84.0*Power(rij,3.0)*Power(xij,3.0) + 42.0*Power(rij,4.0)*Power(xij,4.0) +
3430 20.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
3431 5.0*Power(xii,6.0)*Power(xij,4.0)*
3432 (189.0 + 378.0*rij*xij + 378.0*Power(rij,2.0)*Power(xij,2.0) +
3433 240.0*Power(rij,3.0)*Power(xij,3.0) + 156.0*Power(rij,4.0)*Power(xij,4.0) +
3434 56.0*Power(rij,5.0)*Power(xij,5.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
3435 5.0*Power(xii,4.0)*Power(xij,6.0)*
3436 (315.0 + 630.0*rij*xij + 558.0*Power(rij,2.0)*Power(xij,2.0) +
3437 528.0*Power(rij,3.0)*Power(xij,3.0) + 276.0*Power(rij,4.0)*Power(xij,4.0) +
3438 72.0*Power(rij,5.0)*Power(xij,5.0) + 8.0*Power(rij,6.0)*Power(xij,6.0))))/
3439 (45.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3440 Power(Power(xii,2.0) - Power(xij,2.0),7.0))
3441 ;
3442 }
3443 return S;
3444 }
3445
3446 static double DSlater_1S_4S(double rij,double xij,double xii)
3447 {
3448 double S;
3449
3450 if (xii == xij) {
3451 S = (-362880.0 + 362880.0*Power(E,2.0*rij*xii) - 725760.0*rij*xii -
3452 725760.0*Power(rij,2.0)*Power(xii,2.0) - 482895.0*Power(rij,3.0)*Power(xii,3.0) -
3453 240030.0*Power(rij,4.0)*Power(xii,4.0) - 94689.0*Power(rij,5.0)*Power(xii,5.0) -
3454 30618.0*Power(rij,6.0)*Power(xii,6.0) - 8208.0*Power(rij,7.0)*Power(xii,7.0) -
3455 1800.0*Power(rij,8.0)*Power(xii,8.0) - 304.0*Power(rij,9.0)*Power(xii,9.0) -
3456 32.0*Power(rij,10.0)*Power(xii,10.0))/(362880.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3457 ;
3458 }
3459 else {
3460 S = (315.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
3461 315.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
3462 (-12.0*rij*Power(xii,9.0) - 2.0*Power(rij,2.0)*Power(xii,10.0) -
3463 51.0*Power(xii,6.0)*Power(xij,2.0) - 102.0*rij*Power(xii,7.0)*Power(xij,2.0) -
3464 126.0*rij*Power(xii,5.0)*Power(xij,4.0) -
3465 18.0*rij*Power(xii,3.0)*Power(xij,6.0) + Power(xij,8.0) +
3466 2.0*rij*xii*Power(xij,8.0) +
3467 Power(xii,2.0)*Power(xij,6.0)*(-9.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3468 6.0*Power(xii,8.0)*(1.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3469 3.0*Power(xii,4.0)*Power(xij,4.0)*(-21.0 + 4.0*Power(rij,2.0)*Power(xij,2.0))) +
3470 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3471 (-42.0*Power(xii,10.0)*Power(xij,4.0)*
3472 (270.0 + 540.0*rij*xij + 540.0*Power(rij,2.0)*Power(xij,2.0) +
3473 360.0*Power(rij,3.0)*Power(xij,3.0) + 180.0*Power(rij,4.0)*Power(xij,4.0) +
3474 69.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
3475 8.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) +
3476 70.0*Power(xii,8.0)*Power(xij,6.0)*
3477 (378.0 + 756.0*rij*xij + 756.0*Power(rij,2.0)*Power(xij,2.0) +
3478 510.0*Power(rij,3.0)*Power(xij,3.0) + 228.0*Power(rij,4.0)*Power(xij,4.0) +
3479 111.0*Power(rij,5.0)*Power(xij,5.0) + 44.0*Power(rij,6.0)*Power(xij,6.0) +
3480 10.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) -
3481 70.0*Power(xii,6.0)*Power(xij,8.0)*
3482 (567.0 + 1134.0*rij*xij + 1179.0*Power(rij,2.0)*Power(xij,2.0) +
3483 630.0*Power(rij,3.0)*Power(xij,3.0) + 387.0*Power(rij,4.0)*Power(xij,4.0) +
3484 204.0*Power(rij,5.0)*Power(xij,5.0) + 66.0*Power(rij,6.0)*Power(xij,6.0) +
3485 12.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) +
3486 42.0*Power(xii,4.0)*Power(xij,10.0)*
3487 (990.0 + 1980.0*rij*xij + 1305.0*Power(rij,2.0)*Power(xij,2.0) +
3488 1230.0*Power(rij,3.0)*Power(xij,3.0) + 885.0*Power(rij,4.0)*Power(xij,4.0) +
3489 372.0*Power(rij,5.0)*Power(xij,5.0) + 94.0*Power(rij,6.0)*Power(xij,6.0) +
3490 14.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) -
3491 Power(xii,14.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
3492 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
3493 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
3494 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
3495 7.0*Power(xii,12.0)*Power(xij,2.0)*
3496 (405.0 + 810.0*rij*xij + 810.0*Power(rij,2.0)*Power(xij,2.0) +
3497 540.0*Power(rij,3.0)*Power(xij,3.0) + 270.0*Power(rij,4.0)*Power(xij,4.0) +
3498 108.0*Power(rij,5.0)*Power(xij,5.0) + 36.0*Power(rij,6.0)*Power(xij,6.0) +
3499 12.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
3500 7.0*Power(xii,2.0)*Power(xij,12.0)*
3501 (1485.0 + 2970.0*rij*xij + 8640.0*Power(rij,2.0)*Power(xij,2.0) +
3502 8280.0*Power(rij,3.0)*Power(xij,3.0) + 4140.0*Power(rij,4.0)*Power(xij,4.0) +
3503 1278.0*Power(rij,5.0)*Power(xij,5.0) + 256.0*Power(rij,6.0)*Power(xij,6.0) +
3504 32.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
3505 Power(xij,14.0)*(31185.0 + 62370.0*rij*xij +
3506 52920.0*Power(rij,2.0)*Power(xij,2.0) +
3507 26460.0*Power(rij,3.0)*Power(xij,3.0) + 8820.0*Power(rij,4.0)*Power(xij,4.0) +
3508 2058.0*Power(rij,5.0)*Power(xij,5.0) + 336.0*Power(rij,6.0)*Power(xij,6.0) +
3509 36.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0))))/
3510 (315.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3511 Power(Power(xii,2.0) - Power(xij,2.0),9.0))
3512 ;
3513 }
3514 return S;
3515 }
3516
3517 static double DSlater_1S_5S(double rij,double xij,double xii)
3518 {
3519 double S;
3520
3521 if (xii == xij) {
3522 S = (-399168000.0 + 399168000.0*Power(E,2.0*rij*xii) - 798336000.0*rij*xii -
3523 798336000.0*Power(rij,2.0)*Power(xii,2.0) -
3524 531964125.0*Power(rij,3.0)*Power(xii,3.0) -
3525 265592250.0*Power(rij,4.0)*Power(xii,4.0) -
3526 105862680.0*Power(rij,5.0)*Power(xii,5.0) -
3527 35010360.0*Power(rij,6.0)*Power(xii,6.0) - 9836640.0*Power(rij,7.0)*Power(xii,7.0) -
3528 2376000.0*Power(rij,8.0)*Power(xii,8.0) - 492800.0*Power(rij,9.0)*Power(xii,9.0) -
3529 85888.0*Power(rij,10.0)*Power(xii,10.0) - 11776.0*Power(rij,11.0)*Power(xii,11.0) -
3530 1024.0*Power(rij,12.0)*Power(xii,12.0))/
3531 (3.99168e8*Power(E,2.0*rij*xii)*Power(rij,2.0))
3532 ;
3533 }
3534 else {
3535 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
3536 2835.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
3537 (-70.0*rij*Power(xii,11.0) - 10.0*Power(rij,2.0)*Power(xii,12.0) -
3538 990.0*rij*Power(xii,9.0)*Power(xij,2.0) -
3539 2508.0*rij*Power(xii,7.0)*Power(xij,4.0) -
3540 1452.0*rij*Power(xii,5.0)*Power(xij,6.0) -
3541 110.0*rij*Power(xii,3.0)*Power(xij,8.0) + 5.0*Power(xij,10.0) +
3542 10.0*rij*xii*Power(xij,10.0) +
3543 66.0*Power(xii,6.0)*Power(xij,4.0)*(-19.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3544 5.0*Power(xii,2.0)*Power(xij,8.0)*(-11.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3545 33.0*Power(xii,8.0)*Power(xij,2.0)*(15.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
3546 22.0*Power(xii,4.0)*Power(xij,6.0)*(-33.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) -
3547 5.0*Power(xii,10.0)*(7.0 + 22.0*Power(rij,2.0)*Power(xij,2.0))) +
3548 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3549 (-(Power(xii,18.0)*(14175.0 + 28350.0*rij*xij +
3550 28350.0*Power(rij,2.0)*Power(xij,2.0) +
3551 18900.0*Power(rij,3.0)*Power(xij,3.0) +
3552 9450.0*Power(rij,4.0)*Power(xij,4.0) +
3553 3780.0*Power(rij,5.0)*Power(xij,5.0) +
3554 1260.0*Power(rij,6.0)*Power(xij,6.0) +
3555 360.0*Power(rij,7.0)*Power(xij,7.0) + 90.0*Power(rij,8.0)*Power(xij,8.0) +
3556 20.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0))) +
3557 9.0*Power(xii,16.0)*Power(xij,2.0)*
3558 (17325.0 + 34650.0*rij*xij + 34650.0*Power(rij,2.0)*Power(xij,2.0) +
3559 23100.0*Power(rij,3.0)*Power(xij,3.0) +
3560 11550.0*Power(rij,4.0)*Power(xij,4.0) +
3561 4620.0*Power(rij,5.0)*Power(xij,5.0) + 1540.0*Power(rij,6.0)*Power(xij,6.0) +
3562 440.0*Power(rij,7.0)*Power(xij,7.0) + 110.0*Power(rij,8.0)*Power(xij,8.0) +
3563 28.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
3564 126.0*Power(xii,10.0)*Power(xij,8.0)*
3565 (37125.0 + 74250.0*rij*xij + 74250.0*Power(rij,2.0)*Power(xij,2.0) +
3566 49350.0*Power(rij,3.0)*Power(xij,3.0) +
3567 25575.0*Power(rij,4.0)*Power(xij,4.0) +
3568 9078.0*Power(rij,5.0)*Power(xij,5.0) + 3106.0*Power(rij,6.0)*Power(xij,6.0) +
3569 1136.0*Power(rij,7.0)*Power(xij,7.0) + 314.0*Power(rij,8.0)*Power(xij,8.0) +
3570 52.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
3571 126.0*Power(xii,8.0)*Power(xij,10.0)*
3572 (51975.0 + 103950.0*rij*xij + 102600.0*Power(rij,2.0)*Power(xij,2.0) +
3573 74850.0*Power(rij,3.0)*Power(xij,3.0) +
3574 31125.0*Power(rij,4.0)*Power(xij,4.0) +
3575 11730.0*Power(rij,5.0)*Power(xij,5.0) +
3576 5150.0*Power(rij,6.0)*Power(xij,6.0) + 1840.0*Power(rij,7.0)*Power(xij,7.0) +
3577 430.0*Power(rij,8.0)*Power(xij,8.0) + 60.0*Power(rij,9.0)*Power(xij,9.0) +
3578 4.0*Power(rij,10.0)*Power(xij,10.0)) -
3579 9.0*Power(xii,2.0)*Power(xij,16.0)*
3580 (-135135.0 - 270270.0*rij*xij + 228690.0*Power(rij,2.0)*Power(xij,2.0) +
3581 471240.0*Power(rij,3.0)*Power(xij,3.0) +
3582 318780.0*Power(rij,4.0)*Power(xij,4.0) +
3583 127512.0*Power(rij,5.0)*Power(xij,5.0) +
3584 34664.0*Power(rij,6.0)*Power(xij,6.0) +
3585 6712.0*Power(rij,7.0)*Power(xij,7.0) + 922.0*Power(rij,8.0)*Power(xij,8.0) +
3586 84.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
3587 Power(xij,18.0)*(2837835.0 + 5675670.0*rij*xij +
3588 5051970.0*Power(rij,2.0)*Power(xij,2.0) +
3589 2744280.0*Power(rij,3.0)*Power(xij,3.0) +
3590 1031940.0*Power(rij,4.0)*Power(xij,4.0) +
3591 285768.0*Power(rij,5.0)*Power(xij,5.0) +
3592 59976.0*Power(rij,6.0)*Power(xij,6.0) +
3593 9576.0*Power(rij,7.0)*Power(xij,7.0) + 1134.0*Power(rij,8.0)*Power(xij,8.0) +
3594 92.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
3595 9.0*Power(xii,14.0)*Power(xij,4.0)*
3596 (86625.0 + 173250.0*rij*xij + 173250.0*Power(rij,2.0)*Power(xij,2.0) +
3597 115500.0*Power(rij,3.0)*Power(xij,3.0) +
3598 57750.0*Power(rij,4.0)*Power(xij,4.0) +
3599 23100.0*Power(rij,5.0)*Power(xij,5.0) +
3600 7700.0*Power(rij,6.0)*Power(xij,6.0) + 2128.0*Power(rij,7.0)*Power(xij,7.0) +
3601 616.0*Power(rij,8.0)*Power(xij,8.0) + 144.0*Power(rij,9.0)*Power(xij,9.0) +
3602 16.0*Power(rij,10.0)*Power(xij,10.0)) +
3603 21.0*Power(xii,12.0)*Power(xij,6.0)*
3604 (111375.0 + 222750.0*rij*xij + 222750.0*Power(rij,2.0)*Power(xij,2.0) +
3605 148500.0*Power(rij,3.0)*Power(xij,3.0) +
3606 74250.0*Power(rij,4.0)*Power(xij,4.0) +
3607 29988.0*Power(rij,5.0)*Power(xij,5.0) +
3608 9276.0*Power(rij,6.0)*Power(xij,6.0) + 2928.0*Power(rij,7.0)*Power(xij,7.0) +
3609 888.0*Power(rij,8.0)*Power(xij,8.0) + 176.0*Power(rij,9.0)*Power(xij,9.0) +
3610 16.0*Power(rij,10.0)*Power(xij,10.0)) -
3611 21.0*Power(xii,6.0)*Power(xij,12.0)*
3612 (307125.0 + 614250.0*rij*xij + 733050.0*Power(rij,2.0)*Power(xij,2.0) +
3613 350100.0*Power(rij,3.0)*Power(xij,3.0) +
3614 151290.0*Power(rij,4.0)*Power(xij,4.0) +
3615 85860.0*Power(rij,5.0)*Power(xij,5.0) +
3616 39180.0*Power(rij,6.0)*Power(xij,6.0) +
3617 11760.0*Power(rij,7.0)*Power(xij,7.0) +
3618 2280.0*Power(rij,8.0)*Power(xij,8.0) + 272.0*Power(rij,9.0)*Power(xij,9.0) +
3619 16.0*Power(rij,10.0)*Power(xij,10.0)) +
3620 9.0*Power(xii,4.0)*Power(xij,14.0)*
3621 (675675.0 + 1351350.0*rij*xij + 602910.0*Power(rij,2.0)*Power(xij,2.0) +
3622 374220.0*Power(rij,3.0)*Power(xij,3.0) +
3623 353430.0*Power(rij,4.0)*Power(xij,4.0) +
3624 207900.0*Power(rij,5.0)*Power(xij,5.0) +
3625 75460.0*Power(rij,6.0)*Power(xij,6.0) +
3626 18128.0*Power(rij,7.0)*Power(xij,7.0) + 2936.0*Power(rij,8.0)*Power(xij,8.0) +
3627 304.0*Power(rij,9.0)*Power(xij,9.0) + 16.0*Power(rij,10.0)*Power(xij,10.0))))/
3628 (14175.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3629 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
3630 ;
3631 }
3632 return S;
3633 }
3634
3635 static double DSlater_1S_6S(double rij,double xij,double xii)
3636 {
3637 double S;
3638
3639 if (xii == xij) {
3640 S = (-37362124800.0 + 37362124800.0*Power(E,2.0*rij*xii) - 74724249600.0*rij*xii -
3641 74724249600.0*Power(rij,2.0)*Power(xii,2.0) -
3642 49810085325.0*Power(rij,3.0)*Power(xii,3.0) -
3643 24895921050.0*Power(rij,4.0)*Power(xii,4.0) -
3644 9949449510.0*Power(rij,5.0)*Power(xii,5.0) -
3645 3309726420.0*Power(rij,6.0)*Power(xii,6.0) -
3646 941466240.0*Power(rij,7.0)*Power(xii,7.0) -
3647 233204400.0*Power(rij,8.0)*Power(xii,8.0) -
3648 50862240.0*Power(rij,9.0)*Power(xii,9.0) -
3649 9801792.0*Power(rij,10.0)*Power(xii,10.0) -
3650 1657344.0*Power(rij,11.0)*Power(xii,11.0) -
3651 239616.0*Power(rij,12.0)*Power(xii,12.0) - 27648.0*Power(rij,13.0)*Power(xii,13.0) -
3652 2048.0*Power(rij,14.0)*Power(xii,14.0))/
3653 (3.73621248e10*Power(E,2.0*rij*xii)*Power(rij,2.0))
3654 ;
3655 }
3656 else {
3657 S = (467775.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
3658 155925.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
3659 (-48.0*rij*Power(xii,13.0) - 6.0*Power(rij,2.0)*Power(xii,14.0) -
3660 1014.0*rij*Power(xii,11.0)*Power(xij,2.0) -
3661 2145.0*Power(xii,8.0)*Power(xij,4.0) -
3662 4290.0*rij*Power(xii,9.0)*Power(xij,4.0) -
3663 5148.0*rij*Power(xii,7.0)*Power(xij,6.0) -
3664 1716.0*rij*Power(xii,5.0)*Power(xij,8.0) -
3665 78.0*rij*Power(xii,3.0)*Power(xij,10.0) + 3.0*Power(xij,12.0) +
3666 6.0*rij*xii*Power(xij,12.0) +
3667 286.0*Power(xii,6.0)*Power(xij,6.0)*(-9.0 + Power(rij,2.0)*Power(xij,2.0)) +
3668 3.0*Power(xii,2.0)*Power(xij,10.0)*(-13.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3669 26.0*Power(xii,4.0)*Power(xij,8.0)*(-33.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
3670 8.0*Power(xii,12.0)*(3.0 + 13.0*Power(rij,2.0)*Power(xij,2.0)) -
3671 13.0*Power(xii,10.0)*Power(xij,2.0)*(39.0 + 22.0*Power(rij,2.0)*Power(xij,2.0))) +
3672 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3673 (-110.0*Power(xii,18.0)*Power(xij,4.0)*
3674 (331695.0 + 663390.0*rij*xij + 663390.0*Power(rij,2.0)*Power(xij,2.0) +
3675 442260.0*Power(rij,3.0)*Power(xij,3.0) +
3676 221130.0*Power(rij,4.0)*Power(xij,4.0) +
3677 88452.0*Power(rij,5.0)*Power(xij,5.0) +
3678 29484.0*Power(rij,6.0)*Power(xij,6.0) +
3679 8424.0*Power(rij,7.0)*Power(xij,7.0) + 2106.0*Power(rij,8.0)*Power(xij,8.0) +
3680 456.0*Power(rij,9.0)*Power(xij,9.0) + 102.0*Power(rij,10.0)*Power(xij,10.0) +
3681 20.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
3682 330.0*Power(xii,16.0)*Power(xij,6.0)*
3683 (405405.0 + 810810.0*rij*xij + 810810.0*Power(rij,2.0)*Power(xij,2.0) +
3684 540540.0*Power(rij,3.0)*Power(xij,3.0) +
3685 270270.0*Power(rij,4.0)*Power(xij,4.0) +
3686 108108.0*Power(rij,5.0)*Power(xij,5.0) +
3687 36036.0*Power(rij,6.0)*Power(xij,6.0) +
3688 10368.0*Power(rij,7.0)*Power(xij,7.0) +
3689 2466.0*Power(rij,8.0)*Power(xij,8.0) + 576.0*Power(rij,9.0)*Power(xij,9.0) +
3690 138.0*Power(rij,10.0)*Power(xij,10.0) +
3691 24.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
3692 330.0*Power(xii,6.0)*Power(xij,16.0)*
3693 (1584765.0 + 3169530.0*rij*xij + 5061420.0*Power(rij,2.0)*Power(xij,2.0) +
3694 2653560.0*Power(rij,3.0)*Power(xij,3.0) +
3695 786240.0*Power(rij,4.0)*Power(xij,4.0) +
3696 296478.0*Power(rij,5.0)*Power(xij,5.0) +
3697 158886.0*Power(rij,6.0)*Power(xij,6.0) +
3698 65988.0*Power(rij,7.0)*Power(xij,7.0) +
3699 18681.0*Power(rij,8.0)*Power(xij,8.0) +
3700 3666.0*Power(rij,9.0)*Power(xij,9.0) +
3701 498.0*Power(rij,10.0)*Power(xij,10.0) +
3702 44.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
3703 110.0*Power(xii,4.0)*Power(xij,18.0)*
3704 (6081075.0 + 12162150.0*rij*xij + 4864860.0*Power(rij,2.0)*Power(xij,2.0) +
3705 810810.0*Power(rij,3.0)*Power(xij,3.0) +
3706 810810.0*Power(rij,4.0)*Power(xij,4.0) +
3707 810810.0*Power(rij,5.0)*Power(xij,5.0) +
3708 417690.0*Power(rij,6.0)*Power(xij,6.0) +
3709 136188.0*Power(rij,7.0)*Power(xij,7.0) +
3710 31023.0*Power(rij,8.0)*Power(xij,8.0) +
3711 5118.0*Power(rij,9.0)*Power(xij,9.0) +
3712 606.0*Power(rij,10.0)*Power(xij,10.0) +
3713 48.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
3714 22.0*Power(xii,2.0)*Power(xij,20.0)*
3715 (-12162150.0 - 24324300.0*rij*xij -
3716 10135125.0*Power(rij,2.0)*Power(xij,2.0) +
3717 4054050.0*Power(rij,3.0)*Power(xij,3.0) +
3718 6081075.0*Power(rij,4.0)*Power(xij,4.0) +
3719 3243240.0*Power(rij,5.0)*Power(xij,5.0) +
3720 1099980.0*Power(rij,6.0)*Power(xij,6.0) +
3721 268920.0*Power(rij,7.0)*Power(xij,7.0) +
3722 49590.0*Power(rij,8.0)*Power(xij,8.0) +
3723 6960.0*Power(rij,9.0)*Power(xij,9.0) +
3724 726.0*Power(rij,10.0)*Power(xij,10.0) +
3725 52.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
3726 2.0*Power(xij,22.0)*(85135050.0 + 170270100.0*rij*xij +
3727 156080925.0*Power(rij,2.0)*Power(xij,2.0) +
3728 89189100.0*Power(rij,3.0)*Power(xij,3.0) +
3729 36018675.0*Power(rij,4.0)*Power(xij,4.0) +
3730 10977120.0*Power(rij,5.0)*Power(xij,5.0) +
3731 2619540.0*Power(rij,6.0)*Power(xij,6.0) +
3732 498960.0*Power(rij,7.0)*Power(xij,7.0) +
3733 76230.0*Power(rij,8.0)*Power(xij,8.0) +
3734 9240.0*Power(rij,9.0)*Power(xij,9.0) +
3735 858.0*Power(rij,10.0)*Power(xij,10.0) +
3736 56.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
3737 Power(xii,22.0)*(467775.0 + 935550.0*rij*xij +
3738 935550.0*Power(rij,2.0)*Power(xij,2.0) +
3739 623700.0*Power(rij,3.0)*Power(xij,3.0) +
3740 311850.0*Power(rij,4.0)*Power(xij,4.0) +
3741 124740.0*Power(rij,5.0)*Power(xij,5.0) +
3742 41580.0*Power(rij,6.0)*Power(xij,6.0) +
3743 11880.0*Power(rij,7.0)*Power(xij,7.0) +
3744 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
3745 132.0*Power(rij,10.0)*Power(xij,10.0) +
3746 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
3747 11.0*Power(xii,20.0)*Power(xij,2.0)*
3748 (552825.0 + 1105650.0*rij*xij + 1105650.0*Power(rij,2.0)*Power(xij,2.0) +
3749 737100.0*Power(rij,3.0)*Power(xij,3.0) +
3750 368550.0*Power(rij,4.0)*Power(xij,4.0) +
3751 147420.0*Power(rij,5.0)*Power(xij,5.0) +
3752 49140.0*Power(rij,6.0)*Power(xij,6.0) +
3753 14040.0*Power(rij,7.0)*Power(xij,7.0) +
3754 3510.0*Power(rij,8.0)*Power(xij,8.0) + 780.0*Power(rij,9.0)*Power(xij,9.0) +
3755 156.0*Power(rij,10.0)*Power(xij,10.0) +
3756 32.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
3757 462.0*Power(xii,10.0)*Power(xij,12.0)*
3758 (1737450.0 + 3474900.0*rij*xij + 3489075.0*Power(rij,2.0)*Power(xij,2.0) +
3759 2239650.0*Power(rij,3.0)*Power(xij,3.0) +
3760 1248075.0*Power(rij,4.0)*Power(xij,4.0) +
3761 468180.0*Power(rij,5.0)*Power(xij,5.0) +
3762 129960.0*Power(rij,6.0)*Power(xij,6.0) +
3763 38880.0*Power(rij,7.0)*Power(xij,7.0) +
3764 12960.0*Power(rij,8.0)*Power(xij,8.0) +
3765 3480.0*Power(rij,9.0)*Power(xij,9.0) +
3766 636.0*Power(rij,10.0)*Power(xij,10.0) +
3767 72.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
3768 330.0*Power(xii,8.0)*Power(xij,14.0)*
3769 (2443770.0 + 4887540.0*rij*xij + 4457565.0*Power(rij,2.0)*Power(xij,2.0) +
3770 3749760.0*Power(rij,3.0)*Power(xij,3.0) +
3771 1715175.0*Power(rij,4.0)*Power(xij,4.0) +
3772 510804.0*Power(rij,5.0)*Power(xij,5.0) +
3773 164808.0*Power(rij,6.0)*Power(xij,6.0) +
3774 65808.0*Power(rij,7.0)*Power(xij,7.0) +
3775 21912.0*Power(rij,8.0)*Power(xij,8.0) +
3776 5112.0*Power(rij,9.0)*Power(xij,9.0) +
3777 804.0*Power(rij,10.0)*Power(xij,10.0) +
3778 80.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
3779 165.0*Power(xii,14.0)*Power(xij,8.0)*
3780 (2027025.0 + 4054050.0*rij*xij + 4054050.0*Power(rij,2.0)*Power(xij,2.0) +
3781 2702700.0*Power(rij,3.0)*Power(xij,3.0) +
3782 1351350.0*Power(rij,4.0)*Power(xij,4.0) +
3783 539280.0*Power(rij,5.0)*Power(xij,5.0) +
3784 183960.0*Power(rij,6.0)*Power(xij,6.0) +
3785 49392.0*Power(rij,7.0)*Power(xij,7.0) +
3786 12012.0*Power(rij,8.0)*Power(xij,8.0) +
3787 3192.0*Power(rij,9.0)*Power(xij,9.0) +
3788 744.0*Power(rij,10.0)*Power(xij,10.0) +
3789 112.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
3790 231.0*Power(xii,12.0)*Power(xij,10.0)*
3791 (2606175.0 + 5212350.0*rij*xij + 5212350.0*Power(rij,2.0)*Power(xij,2.0) +
3792 3477600.0*Power(rij,3.0)*Power(xij,3.0) +
3793 1718550.0*Power(rij,4.0)*Power(xij,4.0) +
3794 724320.0*Power(rij,5.0)*Power(xij,5.0) +
3795 226440.0*Power(rij,6.0)*Power(xij,6.0) +
3796 58320.0*Power(rij,7.0)*Power(xij,7.0) +
3797 16500.0*Power(rij,8.0)*Power(xij,8.0) + 4680.0*Power(rij,9.0)*Power(xij,9.0) +
3798 984.0*Power(rij,10.0)*Power(xij,10.0) +
3799 128.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0))))/
3800 (467775.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3801 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
3802 ;
3803 }
3804 return S;
3805 }
3806
3807 static double DSlater_2S_2S(double rij,double xij,double xii)
3808 {
3809 double S;
3810
3811 if (xii == xij) {
3812 S = (-20160.0 + 20160.0*Power(E,2.0*rij*xii) - 40320.0*rij*xii -
3813 40320.0*Power(rij,2.0)*Power(xii,2.0) - 26355.0*Power(rij,3.0)*Power(xii,3.0) -
3814 12390.0*Power(rij,4.0)*Power(xii,4.0) - 4368.0*Power(rij,5.0)*Power(xii,5.0) -
3815 1176.0*Power(rij,6.0)*Power(xii,6.0) - 240.0*Power(rij,7.0)*Power(xii,7.0) -
3816 32.0*Power(rij,8.0)*Power(xii,8.0))/(20160.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3817 ;
3818 }
3819 else {
3820 S = (3.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) +
3821 Power(E,2.0*rij*xii)*Power(xii,6.0)*
3822 (-21.0*Power(xii,4.0)*Power(xij,4.0)*
3823 (3.0 + 6.0*rij*xij + 10.0*Power(rij,2.0)*Power(xij,2.0) +
3824 2.0*Power(rij,3.0)*Power(xij,3.0)) +
3825 Power(xii,2.0)*Power(xij,6.0)*
3826 (195.0 + 390.0*rij*xij + 78.0*Power(rij,2.0)*Power(xij,2.0) -
3827 14.0*Power(rij,3.0)*Power(xij,3.0) - 4.0*Power(rij,4.0)*Power(xij,4.0)) +
3828 2.0*Power(xij,8.0)*(45.0 + 90.0*rij*xij + 48.0*Power(rij,2.0)*Power(xij,2.0) +
3829 11.0*Power(rij,3.0)*Power(xij,3.0) + Power(rij,4.0)*Power(xij,4.0)) -
3830 Power(xii,8.0)*(3.0 + 6.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
3831 4.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) +
3832 Power(xii,6.0)*Power(xij,2.0)*
3833 (21.0 + 42.0*rij*xij + 42.0*Power(rij,2.0)*Power(xij,2.0) +
3834 38.0*Power(rij,3.0)*Power(xij,3.0) + 4.0*Power(rij,4.0)*Power(xij,4.0))) +
3835 Power(E,2.0*rij*xij)*Power(xij,6.0)*
3836 (-22.0*Power(rij,3.0)*Power(xii,11.0) - 2.0*Power(rij,4.0)*Power(xii,12.0) +
3837 3.0*Power(xij,8.0) + 6.0*rij*xii*Power(xij,8.0) +
3838 4.0*Power(rij,2.0)*Power(xii,10.0)*(-24.0 + Power(rij,2.0)*Power(xij,2.0)) +
3839 3.0*Power(xii,2.0)*Power(xij,6.0)*(-7.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3840 2.0*rij*Power(xii,9.0)*(-90.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) +
3841 6.0*rij*Power(xii,7.0)*Power(xij,2.0)*(-65.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) -
3842 6.0*Power(xii,8.0)*(15.0 + 13.0*Power(rij,2.0)*Power(xij,2.0)) +
3843 Power(xii,4.0)*Power(xij,4.0)*
3844 (63.0 - 42.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) +
3845 Power(xii,5.0)*(126.0*rij*Power(xij,4.0) - 38.0*Power(rij,3.0)*Power(xij,6.0)) +
3846 Power(xii,6.0)*(-195.0*Power(xij,2.0) + 210.0*Power(rij,2.0)*Power(xij,4.0) -
3847 4.0*Power(rij,4.0)*Power(xij,6.0)) +
3848 Power(xii,3.0)*(-42.0*rij*Power(xij,6.0) + 4.0*Power(rij,3.0)*Power(xij,8.0))))/
3849 (3.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3850 Power(Power(xii,2.0) - Power(xij,2.0),7.0))
3851 ;
3852 }
3853 return S;
3854 }
3855
3856 static double DSlater_2S_3S(double rij,double xij,double xii)
3857 {
3858 double S;
3859
3860 if (xii == xij) {
3861 S = (-544320.0 + 544320.0*Power(E,2.0*rij*xii) - 1088640.0*rij*xii -
3862 1088640.0*Power(rij,2.0)*Power(xii,2.0) - 719145.0*Power(rij,3.0)*Power(xii,3.0) -
3863 349650.0*Power(rij,4.0)*Power(xii,4.0) - 132111.0*Power(rij,5.0)*Power(xii,5.0) -
3864 39942.0*Power(rij,6.0)*Power(xii,6.0) - 9792.0*Power(rij,7.0)*Power(xii,7.0) -
3865 1944.0*Power(rij,8.0)*Power(xii,8.0) - 304.0*Power(rij,9.0)*Power(xii,9.0) -
3866 32.0*Power(rij,10.0)*Power(xii,10.0))/(544320.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3867 ;
3868 }
3869 else {
3870 S = (45.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
3871 Power(E,2.0*rij*xii)*Power(xii,6.0)*
3872 (180.0*Power(xii,6.0)*Power(xij,6.0)*
3873 (21.0 + 42.0*rij*xij + 27.0*Power(rij,2.0)*Power(xij,2.0) +
3874 54.0*Power(rij,3.0)*Power(xij,3.0) + 19.0*Power(rij,4.0)*Power(xij,4.0) +
3875 2.0*Power(rij,5.0)*Power(xij,5.0)) +
3876 Power(xii,2.0)*Power(xij,10.0)*
3877 (21615.0 + 43230.0*rij*xij + 17850.0*Power(rij,2.0)*Power(xij,2.0) +
3878 1580.0*Power(rij,3.0)*Power(xij,3.0) - 650.0*Power(rij,4.0)*Power(xij,4.0) -
3879 188.0*Power(rij,5.0)*Power(xij,5.0) - 16.0*Power(rij,6.0)*Power(xij,6.0)) +
3880 4.0*Power(xij,12.0)*(1485.0 + 2970.0*rij*xij +
3881 2025.0*Power(rij,2.0)*Power(xij,2.0) + 720.0*Power(rij,3.0)*Power(xij,3.0) +
3882 150.0*Power(rij,4.0)*Power(xij,4.0) + 18.0*Power(rij,5.0)*Power(xij,5.0) +
3883 Power(rij,6.0)*Power(xij,6.0)) -
3884 20.0*Power(xii,8.0)*Power(xij,4.0)*
3885 (81.0 + 162.0*rij*xij + 162.0*Power(rij,2.0)*Power(xij,2.0) +
3886 94.0*Power(rij,3.0)*Power(xij,3.0) + 89.0*Power(rij,4.0)*Power(xij,4.0) +
3887 20.0*Power(rij,5.0)*Power(xij,5.0) + Power(rij,6.0)*Power(xij,6.0)) +
3888 5.0*Power(xii,4.0)*Power(xij,8.0)*
3889 (-639.0 - 1278.0*rij*xij - 5658.0*Power(rij,2.0)*Power(xij,2.0) -
3890 2556.0*Power(rij,3.0)*Power(xij,3.0) - 366.0*Power(rij,4.0)*Power(xij,4.0) +
3891 4.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
3892 Power(xii,12.0)*(45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
3893 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
3894 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
3895 Power(xii,10.0)*Power(xij,2.0)*
3896 (405.0 + 810.0*rij*xij + 810.0*Power(rij,2.0)*Power(xij,2.0) +
3897 540.0*Power(rij,3.0)*Power(xij,3.0) + 270.0*Power(rij,4.0)*Power(xij,4.0) +
3898 148.0*Power(rij,5.0)*Power(xij,5.0) + 16.0*Power(rij,6.0)*Power(xij,6.0))) +
3899 5.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
3900 (-84.0*Power(rij,3.0)*Power(xii,13.0) - 6.0*Power(rij,4.0)*Power(xii,14.0) +
3901 9.0*Power(xij,10.0) + 18.0*rij*xii*Power(xij,10.0) -
3902 72.0*rij*Power(xii,7.0)*Power(xij,4.0)*(54.0 + Power(rij,2.0)*Power(xij,2.0)) -
3903 2.0*Power(rij,2.0)*Power(xii,12.0)*(225.0 + Power(rij,2.0)*Power(xij,2.0)) +
3904 6.0*rij*Power(xii,3.0)*Power(xij,8.0)*(-27.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3905 9.0*Power(xii,2.0)*Power(xij,8.0)*(-9.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3906 6.0*rij*Power(xii,9.0)*Power(xij,2.0)*
3907 (-1063.0 + 84.0*Power(rij,2.0)*Power(xij,2.0)) -
3908 2.0*rij*Power(xii,11.0)*(495.0 + 98.0*Power(rij,2.0)*Power(xij,2.0)) +
3909 6.0*Power(xii,4.0)*Power(xij,6.0)*
3910 (54.0 - 27.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
3911 2.0*Power(xii,6.0)*Power(xij,4.0)*
3912 (-972.0 + 702.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
3913 9.0*Power(xii,10.0)*(-55.0 - 222.0*Power(rij,2.0)*Power(xij,2.0) +
3914 4.0*Power(rij,4.0)*Power(xij,4.0)) -
3915 3.0*Power(xii,8.0)*Power(xij,2.0)*
3916 (1063.0 - 396.0*Power(rij,2.0)*Power(xij,2.0) +
3917 12.0*Power(rij,4.0)*Power(xij,4.0)) +
3918 Power(xii,5.0)*(648.0*rij*Power(xij,6.0) - 164.0*Power(rij,3.0)*Power(xij,8.0))))/
3919 (45.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3920 Power(Power(xii,2.0) - Power(xij,2.0),9.0))
3921 ;
3922 }
3923 return S;
3924 }
3925
3926 static double DSlater_2S_4S(double rij,double xij,double xii)
3927 {
3928 double S;
3929
3930 if (xii == xij) {
3931 S = (-159667200.0 + 159667200.0*Power(E,2.0*rij*xii) - 319334400.0*rij*xii -
3932 319334400.0*Power(rij,2.0)*Power(xii,2.0) -
3933 212109975.0*Power(rij,3.0)*Power(xii,3.0) -
3934 104885550.0*Power(rij,4.0)*Power(xii,4.0) -
3935 40997880.0*Power(rij,5.0)*Power(xii,5.0) -
3936 13111560.0*Power(rij,6.0)*Power(xii,6.0) - 3496680.0*Power(rij,7.0)*Power(xii,7.0) -
3937 784080.0*Power(rij,8.0)*Power(xii,8.0) - 147840.0*Power(rij,9.0)*Power(xii,9.0) -
3938 23232.0*Power(rij,10.0)*Power(xii,10.0) - 2944.0*Power(rij,11.0)*Power(xii,11.0) -
3939 256.0*Power(rij,12.0)*Power(xii,12.0))/
3940 (1.596672e8*Power(E,2.0*rij*xii)*Power(rij,2.0))
3941 ;
3942 }
3943 else {
3944 S = (315.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
3945 Power(E,2.0*rij*xii)*Power(xii,6.0)*
3946 (-770.0*Power(xii,8.0)*Power(xij,8.0)*
3947 (135.0 + 270.0*rij*xij + 315.0*Power(rij,2.0)*Power(xij,2.0) +
3948 45.0*Power(rij,3.0)*Power(xij,3.0) + 135.0*Power(rij,4.0)*Power(xij,4.0) +
3949 72.0*Power(rij,5.0)*Power(xij,5.0) + 14.0*Power(rij,6.0)*Power(xij,6.0) +
3950 Power(rij,7.0)*Power(xij,7.0)) +
3951 Power(xii,2.0)*Power(xij,14.0)*
3952 (765765.0 + 1531530.0*rij*xij + 866250.0*Power(rij,2.0)*Power(xij,2.0) +
3953 210210.0*Power(rij,3.0)*Power(xij,3.0) +
3954 11550.0*Power(rij,4.0)*Power(xij,4.0) -
3955 6468.0*Power(rij,5.0)*Power(xij,5.0) -
3956 1876.0*Power(rij,6.0)*Power(xij,6.0) - 230.0*Power(rij,7.0)*Power(xij,7.0) -
3957 12.0*Power(rij,8.0)*Power(xij,8.0)) -
3958 Power(xii,16.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
3959 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
3960 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
3961 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
3962 Power(xij,16.0)*(135135.0 + 270270.0*rij*xij +
3963 207900.0*Power(rij,2.0)*Power(xij,2.0) +
3964 90090.0*Power(rij,3.0)*Power(xij,3.0) +
3965 25200.0*Power(rij,4.0)*Power(xij,4.0) +
3966 4788.0*Power(rij,5.0)*Power(xij,5.0) + 616.0*Power(rij,6.0)*Power(xij,6.0) +
3967 50.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
3968 7.0*Power(xii,6.0)*Power(xij,10.0)*
3969 (-24885.0 - 49770.0*rij*xij + 18630.0*Power(rij,2.0)*Power(xij,2.0) -
3970 44880.0*Power(rij,3.0)*Power(xij,3.0) -
3971 34230.0*Power(rij,4.0)*Power(xij,4.0) -
3972 8892.0*Power(rij,5.0)*Power(xij,5.0) - 964.0*Power(rij,6.0)*Power(xij,6.0) -
3973 14.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
3974 7.0*Power(xii,4.0)*Power(xij,12.0)*
3975 (28665.0 + 57330.0*rij*xij - 110970.0*Power(rij,2.0)*Power(xij,2.0) -
3976 90480.0*Power(rij,3.0)*Power(xij,3.0) -
3977 26430.0*Power(rij,4.0)*Power(xij,4.0) -
3978 3312.0*Power(rij,5.0)*Power(xij,5.0) - 4.0*Power(rij,6.0)*Power(xij,6.0) +
3979 46.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) -
3980 7.0*Power(xii,12.0)*Power(xij,4.0)*
3981 (2475.0 + 4950.0*rij*xij + 4950.0*Power(rij,2.0)*Power(xij,2.0) +
3982 3300.0*Power(rij,3.0)*Power(xij,3.0) +
3983 1650.0*Power(rij,4.0)*Power(xij,4.0) + 576.0*Power(rij,5.0)*Power(xij,5.0) +
3984 332.0*Power(rij,6.0)*Power(xij,6.0) + 70.0*Power(rij,7.0)*Power(xij,7.0) +
3985 4.0*Power(rij,8.0)*Power(xij,8.0)) +
3986 7.0*Power(xii,10.0)*Power(xij,6.0)*
3987 (7425.0 + 14850.0*rij*xij + 14850.0*Power(rij,2.0)*Power(xij,2.0) +
3988 10350.0*Power(rij,3.0)*Power(xij,3.0) +
3989 3150.0*Power(rij,4.0)*Power(xij,4.0) +
3990 3036.0*Power(rij,5.0)*Power(xij,5.0) +
3991 1052.0*Power(rij,6.0)*Power(xij,6.0) + 130.0*Power(rij,7.0)*Power(xij,7.0) +
3992 4.0*Power(rij,8.0)*Power(xij,8.0)) +
3993 Power(xii,14.0)*Power(xij,2.0)*
3994 (3465.0 + 6930.0*rij*xij + 6930.0*Power(rij,2.0)*Power(xij,2.0) +
3995 4620.0*Power(rij,3.0)*Power(xij,3.0) + 2310.0*Power(rij,4.0)*Power(xij,4.0) +
3996 924.0*Power(rij,5.0)*Power(xij,5.0) + 308.0*Power(rij,6.0)*Power(xij,6.0) +
3997 118.0*Power(rij,7.0)*Power(xij,7.0) + 12.0*Power(rij,8.0)*Power(xij,8.0))) +
3998 105.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
3999 (-34.0*Power(rij,3.0)*Power(xii,15.0) - 2.0*Power(rij,4.0)*Power(xii,16.0) +
4000 3.0*Power(xij,12.0) + 6.0*rij*xii*Power(xij,12.0) -
4001 8.0*Power(rij,2.0)*Power(xii,14.0)*(27.0 + Power(rij,2.0)*Power(xij,2.0)) +
4002 2.0*rij*Power(xii,3.0)*Power(xij,10.0)*
4003 (-33.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4004 3.0*Power(xii,2.0)*Power(xij,10.0)*(-11.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4005 66.0*rij*Power(xii,9.0)*Power(xij,4.0)*
4006 (-191.0 + 6.0*Power(rij,2.0)*Power(xij,2.0)) -
4007 22.0*rij*Power(xii,7.0)*Power(xij,6.0)*
4008 (162.0 + 11.0*Power(rij,2.0)*Power(xij,2.0)) -
4009 21.0*Power(xii,10.0)*Power(xij,2.0)*(157.0 + 66.0*Power(rij,2.0)*Power(xij,2.0)) +
4010 2.0*rij*Power(xii,11.0)*Power(xij,2.0)*
4011 (-3297.0 + 88.0*Power(rij,2.0)*Power(xij,2.0)) -
4012 2.0*rij*Power(xii,13.0)*(273.0 + 113.0*Power(rij,2.0)*Power(xij,2.0)) -
4013 11.0*Power(xii,8.0)*Power(xij,4.0)*
4014 (573.0 - 252.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4015 + Power(xii,4.0)*Power(xij,8.0)*(165.0 - 66.0*Power(rij,2.0)*Power(xij,2.0) +
4016 2.0*Power(rij,4.0)*Power(xij,4.0)) +
4017 2.0*Power(xii,6.0)*Power(xij,6.0)*
4018 (-891.0 + 462.0*Power(rij,2.0)*Power(xij,2.0) + 4.0*Power(rij,4.0)*Power(xij,4.0)) \
4019 + Power(xii,12.0)*(-273.0 - 2034.0*Power(rij,2.0)*Power(xij,2.0) +
4020 22.0*Power(rij,4.0)*Power(xij,4.0)) +
4021 Power(xii,5.0)*(330.0*rij*Power(xij,8.0) - 74.0*Power(rij,3.0)*Power(xij,10.0))))/
4022 (315.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4023 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
4024 ;
4025 }
4026 return S;
4027 }
4028
4029 static double DSlater_2S_5S(double rij,double xij,double xii)
4030 {
4031 double S;
4032
4033 if (xii == xij) {
4034 S = (-62270208000.0 + 62270208000.0*Power(E,2.0*rij*xii) - 124540416000.0*rij*xii -
4035 124540416000.0*Power(rij,2.0)*Power(xii,2.0) -
4036 82915457625.0*Power(rij,3.0)*Power(xii,3.0) -
4037 41290499250.0*Power(rij,4.0)*Power(xii,4.0) -
4038 16374307950.0*Power(rij,5.0)*Power(xii,5.0) -
4039 5370264900.0*Power(rij,6.0)*Power(xii,6.0) -
4040 1491272640.0*Power(rij,7.0)*Power(xii,7.0) -
4041 355520880.0*Power(rij,8.0)*Power(xii,8.0) -
4042 73238880.0*Power(rij,9.0)*Power(xii,9.0) -
4043 13041600.0*Power(rij,10.0)*Power(xii,10.0) -
4044 1996800.0*Power(rij,11.0)*Power(xii,11.0) -
4045 259584.0*Power(rij,12.0)*Power(xii,12.0) - 27648.0*Power(rij,13.0)*Power(xii,13.0) -
4046 2048.0*Power(rij,14.0)*Power(xii,14.0))/
4047 (6.2270208e10*Power(E,2.0*rij*xii)*Power(rij,2.0))
4048 ;
4049 }
4050 else {
4051 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
4052 945.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
4053 (-200.0*Power(rij,3.0)*Power(xii,17.0) - 10.0*Power(rij,4.0)*Power(xii,18.0) +
4054 15.0*Power(xij,14.0) + 30.0*rij*xii*Power(xij,14.0) +
4055 10.0*rij*Power(xii,3.0)*Power(xij,12.0)*
4056 (-39.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4057 15.0*Power(xii,2.0)*Power(xij,12.0)*(-13.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4058 30.0*Power(rij,2.0)*Power(xii,16.0)*(49.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) +
4059 286.0*rij*Power(xii,9.0)*Power(xij,6.0)*
4060 (-915.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
4061 60.0*rij*Power(xii,5.0)*Power(xij,10.0)*
4062 (-39.0 + 8.0*Power(rij,2.0)*Power(xij,2.0)) +
4063 338.0*rij*Power(xii,11.0)*Power(xij,4.0)*
4064 (-855.0 + 22.0*Power(rij,2.0)*Power(xij,2.0)) -
4065 156.0*rij*Power(xii,7.0)*Power(xij,8.0)*
4066 (275.0 + 23.0*Power(rij,2.0)*Power(xij,2.0)) -
4067 60.0*rij*Power(xii,15.0)*(70.0 + 41.0*Power(rij,2.0)*Power(xij,2.0)) -
4068 24.0*rij*Power(xii,13.0)*Power(xij,2.0)*
4069 (3335.0 + 78.0*Power(rij,2.0)*Power(xij,2.0)) +
4070 10.0*Power(xii,4.0)*Power(xij,10.0)*
4071 (117.0 - 39.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) -
4072 39.0*Power(xii,8.0)*Power(xij,6.0)*
4073 (3355.0 - 1298.0*Power(rij,2.0)*Power(xij,2.0) +
4074 2.0*Power(rij,4.0)*Power(xij,4.0)) +
4075 6.0*Power(xii,14.0)*(-350.0 - 3855.0*Power(rij,2.0)*Power(xij,2.0) +
4076 13.0*Power(rij,4.0)*Power(xij,4.0)) +
4077 6.0*Power(xii,6.0)*Power(xij,8.0)*
4078 (-3575.0 + 1391.0*Power(rij,2.0)*Power(xij,2.0) +
4079 15.0*Power(rij,4.0)*Power(xij,4.0)) -
4080 13.0*Power(xii,10.0)*Power(xij,4.0)*
4081 (11115.0 - 1386.0*Power(rij,2.0)*Power(xij,2.0) +
4082 22.0*Power(rij,4.0)*Power(xij,4.0)) +
4083 Power(xii,12.0)*(-40020.0*Power(xij,2.0) -
4084 52026.0*Power(rij,2.0)*Power(xij,4.0) + 286.0*Power(rij,4.0)*Power(xij,6.0))) \
4085 + Power(E,2.0*rij*xii)*Power(xii,6.0)*
4086 (819.0*Power(xii,10.0)*Power(xij,10.0)*
4087 (22275.0 + 44550.0*rij*xij + 41400.0*Power(rij,2.0)*Power(xij,2.0) +
4088 43200.0*Power(rij,3.0)*Power(xij,3.0) +
4089 3600.0*Power(rij,4.0)*Power(xij,4.0) + 4080.0*Power(rij,5.0)*Power(xij,5.0) +
4090 3720.0*Power(rij,6.0)*Power(xij,6.0) + 1104.0*Power(rij,7.0)*Power(xij,7.0) +
4091 148.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0)) +
4092 2.0*Power(xij,20.0)*(8108100.0 + 16216200.0*rij*xij +
4093 13378365.0*Power(rij,2.0)*Power(xij,2.0) +
4094 6486480.0*Power(rij,3.0)*Power(xij,3.0) +
4095 2120580.0*Power(rij,4.0)*Power(xij,4.0) +
4096 498960.0*Power(rij,5.0)*Power(xij,5.0) +
4097 86940.0*Power(rij,6.0)*Power(xij,6.0) +
4098 11232.0*Power(rij,7.0)*Power(xij,7.0) +
4099 1044.0*Power(rij,8.0)*Power(xij,8.0) + 64.0*Power(rij,9.0)*Power(xij,9.0) +
4100 2.0*Power(rij,10.0)*Power(xij,10.0)) +
4101 42.0*Power(xii,8.0)*Power(xij,12.0)*
4102 (-531900.0 - 1063800.0*rij*xij - 2344275.0*Power(rij,2.0)*Power(xij,2.0) +
4103 269100.0*Power(rij,3.0)*Power(xij,3.0) -
4104 84150.0*Power(rij,4.0)*Power(xij,4.0) -
4105 304740.0*Power(rij,5.0)*Power(xij,5.0) -
4106 124440.0*Power(rij,6.0)*Power(xij,6.0) -
4107 22800.0*Power(rij,7.0)*Power(xij,7.0) -
4108 1980.0*Power(rij,8.0)*Power(xij,8.0) - 40.0*Power(rij,9.0)*Power(xij,9.0) +
4109 4.0*Power(rij,10.0)*Power(xij,10.0)) -
4110 Power(xii,20.0)*(14175.0 + 28350.0*rij*xij +
4111 28350.0*Power(rij,2.0)*Power(xij,2.0) +
4112 18900.0*Power(rij,3.0)*Power(xij,3.0) +
4113 9450.0*Power(rij,4.0)*Power(xij,4.0) + 3780.0*Power(rij,5.0)*Power(xij,5.0) +
4114 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
4115 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
4116 4.0*Power(rij,10.0)*Power(xij,10.0)) -
4117 18.0*Power(xii,16.0)*Power(xij,4.0)*
4118 (61425.0 + 122850.0*rij*xij + 122850.0*Power(rij,2.0)*Power(xij,2.0) +
4119 81900.0*Power(rij,3.0)*Power(xij,3.0) +
4120 40950.0*Power(rij,4.0)*Power(xij,4.0) +
4121 16380.0*Power(rij,5.0)*Power(xij,5.0) +
4122 5460.0*Power(rij,6.0)*Power(xij,6.0) + 1392.0*Power(rij,7.0)*Power(xij,7.0) +
4123 544.0*Power(rij,8.0)*Power(xij,8.0) + 104.0*Power(rij,9.0)*Power(xij,9.0) +
4124 6.0*Power(rij,10.0)*Power(xij,10.0)) +
4125 18.0*Power(xii,4.0)*Power(xij,16.0)*
4126 (6572475.0 + 13144950.0*rij*xij - 1539720.0*Power(rij,2.0)*Power(xij,2.0) -
4127 5741190.0*Power(rij,3.0)*Power(xij,3.0) -
4128 2690415.0*Power(rij,4.0)*Power(xij,4.0) -
4129 619710.0*Power(rij,5.0)*Power(xij,5.0) -
4130 73710.0*Power(rij,6.0)*Power(xij,6.0) -
4131 1716.0*Power(rij,7.0)*Power(xij,7.0) + 803.0*Power(rij,8.0)*Power(xij,8.0) +
4132 118.0*Power(rij,9.0)*Power(xij,9.0) + 6.0*Power(rij,10.0)*Power(xij,10.0)) -
4133 21.0*Power(xii,12.0)*Power(xij,8.0)*
4134 (482625.0 + 965250.0*rij*xij + 965250.0*Power(rij,2.0)*Power(xij,2.0) +
4135 633600.0*Power(rij,3.0)*Power(xij,3.0) +
4136 376200.0*Power(rij,4.0)*Power(xij,4.0) +
4137 67680.0*Power(rij,5.0)*Power(xij,5.0) +
4138 44760.0*Power(rij,6.0)*Power(xij,6.0) +
4139 22128.0*Power(rij,7.0)*Power(xij,7.0) +
4140 4476.0*Power(rij,8.0)*Power(xij,8.0) + 376.0*Power(rij,9.0)*Power(xij,9.0) +
4141 8.0*Power(rij,10.0)*Power(xij,10.0)) -
4142 12.0*Power(xii,6.0)*Power(xij,14.0)*
4143 (-5178600.0 - 10357200.0*rij*xij + 8303715.0*Power(rij,2.0)*Power(xij,2.0) +
4144 687330.0*Power(rij,3.0)*Power(xij,3.0) -
4145 3292695.0*Power(rij,4.0)*Power(xij,4.0) -
4146 1634850.0*Power(rij,5.0)*Power(xij,5.0) -
4147 362040.0*Power(rij,6.0)*Power(xij,6.0) -
4148 40728.0*Power(rij,7.0)*Power(xij,7.0) -
4149 1446.0*Power(rij,8.0)*Power(xij,8.0) + 164.0*Power(rij,9.0)*Power(xij,9.0) +
4150 16.0*Power(rij,10.0)*Power(xij,10.0)) -
4151 2.0*Power(xii,2.0)*Power(xij,18.0)*
4152 (-66891825.0 - 133783650.0*rij*xij -
4153 89594505.0*Power(rij,2.0)*Power(xij,2.0) -
4154 30540510.0*Power(rij,3.0)*Power(xij,3.0) -
4155 5540535.0*Power(rij,4.0)*Power(xij,4.0) -
4156 270270.0*Power(rij,5.0)*Power(xij,5.0) +
4157 125370.0*Power(rij,6.0)*Power(xij,6.0) +
4158 37116.0*Power(rij,7.0)*Power(xij,7.0) +
4159 5247.0*Power(rij,8.0)*Power(xij,8.0) + 422.0*Power(rij,9.0)*Power(xij,9.0) +
4160 16.0*Power(rij,10.0)*Power(xij,10.0)) +
4161 Power(xii,18.0)*Power(xij,2.0)*
4162 (184275.0 + 368550.0*rij*xij + 368550.0*Power(rij,2.0)*Power(xij,2.0) +
4163 245700.0*Power(rij,3.0)*Power(xij,3.0) +
4164 122850.0*Power(rij,4.0)*Power(xij,4.0) +
4165 49140.0*Power(rij,5.0)*Power(xij,5.0) +
4166 16380.0*Power(rij,6.0)*Power(xij,6.0) +
4167 4680.0*Power(rij,7.0)*Power(xij,7.0) + 1170.0*Power(rij,8.0)*Power(xij,8.0) +
4168 340.0*Power(rij,9.0)*Power(xij,9.0) + 32.0*Power(rij,10.0)*Power(xij,10.0)) +
4169 6.0*Power(xii,14.0)*Power(xij,6.0)*
4170 (675675.0 + 1351350.0*rij*xij + 1351350.0*Power(rij,2.0)*Power(xij,2.0) +
4171 900900.0*Power(rij,3.0)*Power(xij,3.0) +
4172 450450.0*Power(rij,4.0)*Power(xij,4.0) +
4173 187740.0*Power(rij,5.0)*Power(xij,5.0) +
4174 43680.0*Power(rij,6.0)*Power(xij,6.0) +
4175 22128.0*Power(rij,7.0)*Power(xij,7.0) + 6876.0*Power(rij,8.0)*Power(xij,8.0) +
4176 856.0*Power(rij,9.0)*Power(xij,9.0) + 32.0*Power(rij,10.0)*Power(xij,10.0))))/
4177 (14175.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4178 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
4179 ;
4180 }
4181 return S;
4182 }
4183
4184 static double DSlater_2S_6S(double rij,double xij,double xii)
4185 {
4186 double S;
4187
4188 if (xii == xij) {
4189 S = (-31384184832000.0 + 31384184832000.0*Power(E,2.0*rij*xii) -
4190 62768369664000.0*rij*xii - 62768369664000.0*Power(rij,2.0)*Power(xii,2.0) -
4191 41826211552125.0*Power(rij,3.0)*Power(xii,3.0) -
4192 20884053440250.0*Power(rij,4.0)*Power(xii,4.0) -
4193 8328251131200.0*Power(rij,5.0)*Power(xii,5.0) -
4194 2759624267400.0*Power(rij,6.0)*Power(xii,6.0) -
4195 779901922800.0*Power(rij,7.0)*Power(xii,7.0) -
4196 191286295200.0*Power(rij,8.0)*Power(xii,8.0) -
4197 41167526400.0*Power(rij,9.0)*Power(xii,9.0) -
4198 7818370560.0*Power(rij,10.0)*Power(xii,10.0) -
4199 1311448320.0*Power(rij,11.0)*Power(xii,11.0) -
4200 193589760.0*Power(rij,12.0)*Power(xii,12.0) -
4201 24944640.0*Power(rij,13.0)*Power(xii,13.0) -
4202 2764800.0*Power(rij,14.0)*Power(xii,14.0) -
4203 253952.0*Power(rij,15.0)*Power(xii,15.0) - 16384.0*Power(rij,16.0)*Power(xii,16.0))/
4204 (3.1384184832e13*Power(E,2.0*rij*xii)*Power(rij,2.0))
4205 ;
4206 }
4207 else {
4208 S = (467775.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
4209 51975.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
4210 (-138.0*Power(rij,3.0)*Power(xii,19.0) - 6.0*Power(rij,4.0)*Power(xii,20.0) +
4211 9.0*Power(xij,16.0) + 18.0*rij*xii*Power(xij,16.0) +
4212 2.0*rij*Power(xii,5.0)*Power(xij,12.0)*
4213 (945.0 - 181.0*Power(rij,2.0)*Power(xij,2.0)) +
4214 6.0*rij*Power(xii,3.0)*Power(xij,14.0)*
4215 (-45.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4216 9.0*Power(xii,2.0)*Power(xij,14.0)*(-15.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4217 4.0*Power(rij,2.0)*Power(xii,18.0)*(288.0 + 23.0*Power(rij,2.0)*Power(xij,2.0)) +
4218 234.0*rij*Power(xii,11.0)*Power(xij,6.0)*
4219 (-4209.0 + 55.0*Power(rij,2.0)*Power(xij,2.0)) -
4220 78.0*rij*Power(xii,9.0)*Power(xij,8.0)*
4221 (6655.0 + 63.0*Power(rij,2.0)*Power(xij,2.0)) +
4222 18.0*rij*Power(xii,13.0)*Power(xij,4.0)*
4223 (-31885.0 + 377.0*Power(rij,2.0)*Power(xij,2.0)) -
4224 6.0*rij*Power(xii,7.0)*Power(xij,10.0)*
4225 (9321.0 + 791.0*Power(rij,2.0)*Power(xij,2.0)) -
4226 6.0*rij*Power(xii,15.0)*Power(xij,2.0)*
4227 (16755.0 + 1141.0*Power(rij,2.0)*Power(xij,2.0)) -
4228 2.0*rij*Power(xii,17.0)*(1836.0 + 1331.0*Power(rij,2.0)*Power(xij,2.0)) -
4229 9.0*Power(xii,12.0)*Power(xij,4.0)*
4230 (31885.0 + 7514.0*Power(rij,2.0)*Power(xij,2.0)) +
4231 3.0*Power(xii,4.0)*Power(xij,12.0)*
4232 (315.0 - 90.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4233 - 117.0*Power(xii,10.0)*Power(xij,6.0)*
4234 (4209.0 - 990.0*Power(rij,2.0)*Power(xij,2.0) +
4235 4.0*Power(rij,4.0)*Power(xij,4.0)) -
4236 6.0*Power(xii,16.0)*(306.0 + 4491.0*Power(rij,2.0)*Power(xij,2.0) +
4237 14.0*Power(rij,4.0)*Power(xij,4.0)) +
4238 3.0*Power(xii,8.0)*Power(xij,8.0)*
4239 (-86515.0 + 28158.0*Power(rij,2.0)*Power(xij,2.0) +
4240 28.0*Power(rij,4.0)*Power(xij,4.0)) +
4241 9.0*Power(xii,14.0)*Power(xij,2.0)*
4242 (-5585.0 - 12530.0*Power(rij,2.0)*Power(xij,2.0) +
4243 52.0*Power(rij,4.0)*Power(xij,4.0)) +
4244 Power(xii,6.0)*Power(xij,10.0)*
4245 (-27963.0 + 8442.0*Power(rij,2.0)*Power(xij,2.0) +
4246 92.0*Power(rij,4.0)*Power(xij,4.0))) +
4247 Power(E,2.0*rij*xii)*Power(xii,6.0)*
4248 (-3465.0*Power(xii,12.0)*Power(xij,12.0)*
4249 (675675.0 + 1351350.0*rij*xij + 1389150.0*Power(rij,2.0)*Power(xij,2.0) +
4250 689850.0*Power(rij,3.0)*Power(xij,3.0) +
4251 730800.0*Power(rij,4.0)*Power(xij,4.0) +
4252 128520.0*Power(rij,5.0)*Power(xij,5.0) +
4253 9240.0*Power(rij,6.0)*Power(xij,6.0) +
4254 18480.0*Power(rij,7.0)*Power(xij,7.0) +
4255 8820.0*Power(rij,8.0)*Power(xij,8.0) + 1800.0*Power(rij,9.0)*Power(xij,9.0) +
4256 184.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
4257 330.0*Power(xii,8.0)*Power(xij,16.0)*
4258 (-1204875.0 - 2409750.0*rij*xij - 75042450.0*Power(rij,2.0)*Power(xij,2.0) -
4259 3403575.0*Power(rij,3.0)*Power(xij,3.0) +
4260 9111375.0*Power(rij,4.0)*Power(xij,4.0) -
4261 498330.0*Power(rij,5.0)*Power(xij,5.0) -
4262 1892310.0*Power(rij,6.0)*Power(xij,6.0) -
4263 669180.0*Power(rij,7.0)*Power(xij,7.0) -
4264 118785.0*Power(rij,8.0)*Power(xij,8.0) -
4265 11650.0*Power(rij,9.0)*Power(xij,9.0) -
4266 482.0*Power(rij,10.0)*Power(xij,10.0) +
4267 16.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
4268 2.0*Power(xij,24.0)*(620269650.0 + 1240539300.0*rij*xij +
4269 1070269200.0*Power(rij,2.0)*Power(xij,2.0) +
4270 557431875.0*Power(rij,3.0)*Power(xij,3.0) +
4271 200675475.0*Power(rij,4.0)*Power(xij,4.0) +
4272 53513460.0*Power(rij,5.0)*Power(xij,5.0) +
4273 10977120.0*Power(rij,6.0)*Power(xij,6.0) +
4274 1764180.0*Power(rij,7.0)*Power(xij,7.0) +
4275 222750.0*Power(rij,8.0)*Power(xij,8.0) +
4276 21780.0*Power(rij,9.0)*Power(xij,9.0) +
4277 1584.0*Power(rij,10.0)*Power(xij,10.0) +
4278 78.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
4279 Power(xii,24.0)*(467775.0 + 935550.0*rij*xij +
4280 935550.0*Power(rij,2.0)*Power(xij,2.0) +
4281 623700.0*Power(rij,3.0)*Power(xij,3.0) +
4282 311850.0*Power(rij,4.0)*Power(xij,4.0) +
4283 124740.0*Power(rij,5.0)*Power(xij,5.0) +
4284 41580.0*Power(rij,6.0)*Power(xij,6.0) +
4285 11880.0*Power(rij,7.0)*Power(xij,7.0) +
4286 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
4287 132.0*Power(rij,10.0)*Power(xij,10.0) +
4288 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
4289 110.0*Power(xii,6.0)*Power(xij,18.0)*
4290 (-156874725.0 - 313749450.0*rij*xij +
4291 119665350.0*Power(rij,2.0)*Power(xij,2.0) +
4292 104285475.0*Power(rij,3.0)*Power(xij,3.0) -
4293 1941975.0*Power(rij,4.0)*Power(xij,4.0) -
4294 17730090.0*Power(rij,5.0)*Power(xij,5.0) -
4295 6892830.0*Power(rij,6.0)*Power(xij,6.0) -
4296 1379700.0*Power(rij,7.0)*Power(xij,7.0) -
4297 159705.0*Power(rij,8.0)*Power(xij,8.0) -
4298 8610.0*Power(rij,9.0)*Power(xij,9.0) +
4299 294.0*Power(rij,10.0)*Power(xij,10.0) +
4300 78.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
4301 10.0*Power(xii,2.0)*Power(xij,22.0)*
4302 (-1412836425.0 - 2825672850.0*rij*xij -
4303 2095943850.0*Power(rij,2.0)*Power(xij,2.0) -
4304 854728875.0*Power(rij,3.0)*Power(xij,3.0) -
4305 215540325.0*Power(rij,4.0)*Power(xij,4.0) -
4306 32702670.0*Power(rij,5.0)*Power(xij,5.0) -
4307 1753290.0*Power(rij,6.0)*Power(xij,6.0) +
4308 479160.0*Power(rij,7.0)*Power(xij,7.0) +
4309 150975.0*Power(rij,8.0)*Power(xij,8.0) +
4310 22990.0*Power(rij,9.0)*Power(xij,9.0) +
4311 2222.0*Power(rij,10.0)*Power(xij,10.0) +
4312 134.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
4313 165.0*Power(xii,16.0)*Power(xij,8.0)*
4314 (3869775.0 + 7739550.0*rij*xij + 7739550.0*Power(rij,2.0)*Power(xij,2.0) +
4315 5159700.0*Power(rij,3.0)*Power(xij,3.0) +
4316 2579850.0*Power(rij,4.0)*Power(xij,4.0) +
4317 1018080.0*Power(rij,5.0)*Power(xij,5.0) +
4318 385560.0*Power(rij,6.0)*Power(xij,6.0) +
4319 70920.0*Power(rij,7.0)*Power(xij,7.0) +
4320 21720.0*Power(rij,8.0)*Power(xij,8.0) +
4321 8640.0*Power(rij,9.0)*Power(xij,9.0) +
4322 1704.0*Power(rij,10.0)*Power(xij,10.0) +
4323 148.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
4324 5.0*Power(xii,22.0)*Power(xij,2.0)*
4325 (1403325.0 + 2806650.0*rij*xij + 2806650.0*Power(rij,2.0)*Power(xij,2.0) +
4326 1871100.0*Power(rij,3.0)*Power(xij,3.0) +
4327 935550.0*Power(rij,4.0)*Power(xij,4.0) +
4328 374220.0*Power(rij,5.0)*Power(xij,5.0) +
4329 124740.0*Power(rij,6.0)*Power(xij,6.0) +
4330 35640.0*Power(rij,7.0)*Power(xij,7.0) +
4331 8910.0*Power(rij,8.0)*Power(xij,8.0) + 1980.0*Power(rij,9.0)*Power(xij,9.0) +
4332 396.0*Power(rij,10.0)*Power(xij,10.0) +
4333 92.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
4334 55.0*Power(xii,18.0)*Power(xij,6.0)*
4335 (3869775.0 + 7739550.0*rij*xij + 7739550.0*Power(rij,2.0)*Power(xij,2.0) +
4336 5159700.0*Power(rij,3.0)*Power(xij,3.0) +
4337 2579850.0*Power(rij,4.0)*Power(xij,4.0) +
4338 1031940.0*Power(rij,5.0)*Power(xij,5.0) +
4339 343980.0*Power(rij,6.0)*Power(xij,6.0) +
4340 101520.0*Power(rij,7.0)*Power(xij,7.0) +
4341 19710.0*Power(rij,8.0)*Power(xij,8.0) +
4342 6300.0*Power(rij,9.0)*Power(xij,9.0) +
4343 1692.0*Power(rij,10.0)*Power(xij,10.0) +
4344 204.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
4345 22.0*Power(xii,4.0)*Power(xij,20.0)*
4346 (1099568925.0 + 2199137850.0*rij*xij +
4347 699139350.0*Power(rij,2.0)*Power(xij,2.0) -
4348 242690175.0*Power(rij,3.0)*Power(xij,3.0) -
4349 237899025.0*Power(rij,4.0)*Power(xij,4.0) -
4350 81646110.0*Power(rij,5.0)*Power(xij,5.0) -
4351 16127370.0*Power(rij,6.0)*Power(xij,6.0) -
4352 1875420.0*Power(rij,7.0)*Power(xij,7.0) -
4353 82035.0*Power(rij,8.0)*Power(xij,8.0) +
4354 11970.0*Power(rij,9.0)*Power(xij,9.0) +
4355 2574.0*Power(rij,10.0)*Power(xij,10.0) +
4356 218.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) -
4357 33.0*Power(xii,10.0)*Power(xij,14.0)*
4358 (-94107825.0 - 188215650.0*rij*xij -
4359 72320850.0*Power(rij,2.0)*Power(xij,2.0) -
4360 284964750.0*Power(rij,3.0)*Power(xij,3.0) -
4361 43356600.0*Power(rij,4.0)*Power(xij,4.0) +
4362 10299240.0*Power(rij,5.0)*Power(xij,5.0) -
4363 5319720.0*Power(rij,6.0)*Power(xij,6.0) -
4364 4942080.0*Power(rij,7.0)*Power(xij,7.0) -
4365 1373700.0*Power(rij,8.0)*Power(xij,8.0) -
4366 194760.0*Power(rij,9.0)*Power(xij,9.0) -
4367 14088.0*Power(rij,10.0)*Power(xij,10.0) -
4368 296.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)) \
4369 - 11.0*Power(xii,20.0)*Power(xij,4.0)*
4370 (4465125.0 + 8930250.0*rij*xij + 8930250.0*Power(rij,2.0)*Power(xij,2.0) +
4371 5953500.0*Power(rij,3.0)*Power(xij,3.0) +
4372 2976750.0*Power(rij,4.0)*Power(xij,4.0) +
4373 1190700.0*Power(rij,5.0)*Power(xij,5.0) +
4374 396900.0*Power(rij,6.0)*Power(xij,6.0) +
4375 113400.0*Power(rij,7.0)*Power(xij,7.0) +
4376 28350.0*Power(rij,8.0)*Power(xij,8.0) +
4377 5740.0*Power(rij,9.0)*Power(xij,9.0) +
4378 1652.0*Power(rij,10.0)*Power(xij,10.0) +
4379 284.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)) \
4380 + 33.0*Power(xii,14.0)*Power(xij,10.0)*
4381 (42567525.0 + 85135050.0*rij*xij + 85135050.0*Power(rij,2.0)*Power(xij,2.0) +
4382 57043350.0*Power(rij,3.0)*Power(xij,3.0) +
4383 26371800.0*Power(rij,4.0)*Power(xij,4.0) +
4384 14668920.0*Power(rij,5.0)*Power(xij,5.0) +
4385 2621640.0*Power(rij,6.0)*Power(xij,6.0) +
4386 597840.0*Power(rij,7.0)*Power(xij,7.0) +
4387 378780.0*Power(rij,8.0)*Power(xij,8.0) +
4388 114040.0*Power(rij,9.0)*Power(xij,9.0) +
4389 16088.0*Power(rij,10.0)*Power(xij,10.0) +
4390 1016.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)))\
4391 )/(467775.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4392 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
4393 ;
4394 }
4395 return S;
4396 }
4397
4398 double DSlater_2S_1S(double rij,double xii,double xij)
4399 {
4400 return DSlater_1S_2S(rij,xij,xii);
4401 }
4402
4403 static double DSlater_3S_3S(double rij,double xij,double xii)
4404 {
4405 double S;
4406
4407 if (xii == xij) {
4408 S = (-359251200.0 + 359251200.0*Power(E,2.0*rij*xii) - 718502400.0*rij*xii -
4409 718502400.0*Power(rij,2.0)*Power(xii,2.0) -
4410 475727175.0*Power(rij,3.0)*Power(xii,3.0) -
4411 232951950.0*Power(rij,4.0)*Power(xii,4.0) -
4412 89397000.0*Power(rij,5.0)*Power(xii,5.0) -
4413 27858600.0*Power(rij,6.0)*Power(xii,6.0) - 7223040.0*Power(rij,7.0)*Power(xii,7.0) -
4414 1584000.0*Power(rij,8.0)*Power(xii,8.0) - 295680.0*Power(rij,9.0)*Power(xii,9.0) -
4415 46464.0*Power(rij,10.0)*Power(xii,10.0) - 5888.0*Power(rij,11.0)*Power(xii,11.0) -
4416 512.0*Power(rij,12.0)*Power(xii,12.0))/
4417 (3.592512e8*Power(E,2.0*rij*xii)*Power(rij,2.0))
4418 ;
4419 }
4420 else {
4421 S = (135.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
4422 Power(E,2.0*rij*xij)*Power(xij,8.0)*
4423 (-276.0*Power(rij,5.0)*Power(xii,19.0) - 12.0*Power(rij,6.0)*Power(xii,20.0) +
4424 135.0*Power(xij,14.0) + 270.0*rij*xii*Power(xij,14.0) -
4425 100.0*Power(rij,3.0)*Power(xii,17.0)*(165.0 + Power(rij,2.0)*Power(xij,2.0)) +
4426 10.0*Power(rij,4.0)*Power(xii,18.0)*(-285.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4427 90.0*rij*Power(xii,3.0)*Power(xij,12.0)*
4428 (-33.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4429 135.0*Power(xii,2.0)*Power(xij,12.0)*(-11.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4430 18.0*rij*Power(xii,5.0)*Power(xij,10.0)*
4431 (825.0 - 110.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4432 + 45.0*Power(xii,4.0)*Power(xij,10.0)*
4433 (165.0 - 66.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4434 - 10.0*rij*Power(xii,7.0)*Power(xij,8.0)*
4435 (4455.0 - 738.0*Power(rij,2.0)*Power(xij,2.0) +
4436 62.0*Power(rij,4.0)*Power(xij,4.0)) +
4437 10.0*rij*Power(xii,11.0)*Power(xij,4.0)*
4438 (-96831.0 + 6534.0*Power(rij,2.0)*Power(xij,2.0) +
4439 154.0*Power(rij,4.0)*Power(xij,4.0)) -
4440 10.0*rij*Power(xii,13.0)*Power(xij,2.0)*
4441 (84357.0 - 12318.0*Power(rij,2.0)*Power(xij,2.0) +
4442 418.0*Power(rij,4.0)*Power(xij,4.0)) +
4443 2.0*rij*Power(xii,9.0)*Power(xij,6.0)*
4444 (-495.0 - 48510.0*Power(rij,2.0)*Power(xij,2.0) +
4445 458.0*Power(rij,4.0)*Power(xij,4.0)) +
4446 Power(xii,15.0)*(-90090.0*rij - 80580.0*Power(rij,3.0)*Power(xij,2.0) +
4447 2684.0*Power(rij,5.0)*Power(xij,4.0)) +
4448 Power(xii,16.0)*(-54450.0*Power(rij,2.0) -
4449 7290.0*Power(rij,4.0)*Power(xij,2.0) + 68.0*Power(rij,6.0)*Power(xij,4.0)) -
4450 5.0*Power(xii,8.0)*Power(xij,6.0)*
4451 (99.0 + 1782.0*Power(rij,2.0)*Power(xij,2.0) -
4452 2250.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4453 3.0*Power(xii,6.0)*Power(xij,8.0)*
4454 (-7425.0 + 4950.0*Power(rij,2.0)*Power(xij,2.0) -
4455 330.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4456 5.0*Power(xii,14.0)*(9009.0 + 78954.0*Power(rij,2.0)*Power(xij,2.0) -
4457 6030.0*Power(rij,4.0)*Power(xij,4.0) + 44.0*Power(rij,6.0)*Power(xij,6.0)) +
4458 5.0*Power(xii,12.0)*Power(xij,2.0)*
4459 (-84357.0 - 366.0*Power(rij,2.0)*Power(xij,2.0) -
4460 3498.0*Power(rij,4.0)*Power(xij,4.0) + 44.0*Power(rij,6.0)*Power(xij,6.0)) -
4461 Power(xii,10.0)*Power(xij,4.0)*
4462 (484155.0 - 447810.0*Power(rij,2.0)*Power(xij,2.0) +
4463 12870.0*Power(rij,4.0)*Power(xij,4.0) + 68.0*Power(rij,6.0)*Power(xij,6.0))) +
4464 Power(E,2.0*rij*xii)*Power(xii,8.0)*
4465 (Power(xii,4.0)*Power(xij,10.0)*
4466 (484155.0 + 968310.0*rij*xij + 1830.0*Power(rij,2.0)*Power(xij,2.0) -
4467 123180.0*Power(rij,3.0)*Power(xij,3.0) -
4468 30150.0*Power(rij,4.0)*Power(xij,4.0) -
4469 2684.0*Power(rij,5.0)*Power(xij,5.0) - 68.0*Power(rij,6.0)*Power(xij,6.0)) +
4470 5.0*Power(xii,2.0)*Power(xij,12.0)*
4471 (84357.0 + 168714.0*rij*xij + 78954.0*Power(rij,2.0)*Power(xij,2.0) +
4472 16116.0*Power(rij,3.0)*Power(xij,3.0) +
4473 1458.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,5.0)*Power(xij,5.0) -
4474 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4475 3.0*Power(xii,14.0)*(45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
4476 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
4477 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4478 55.0*Power(xii,8.0)*Power(xij,6.0)*
4479 (-405.0 - 810.0*rij*xij - 162.0*Power(rij,2.0)*Power(xij,2.0) -
4480 1764.0*Power(rij,3.0)*Power(xij,3.0) - 234.0*Power(rij,4.0)*Power(xij,4.0) +
4481 28.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4482 55.0*Power(xii,6.0)*Power(xij,8.0)*
4483 (9.0 + 18.0*rij*xij - 8142.0*Power(rij,2.0)*Power(xij,2.0) -
4484 1188.0*Power(rij,3.0)*Power(xij,3.0) + 318.0*Power(rij,4.0)*Power(xij,4.0) +
4485 76.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4486 3.0*Power(xij,14.0)*(15015.0 + 30030.0*rij*xij +
4487 18150.0*Power(rij,2.0)*Power(xij,2.0) +
4488 5500.0*Power(rij,3.0)*Power(xij,3.0) + 950.0*Power(rij,4.0)*Power(xij,4.0) +
4489 92.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4490 5.0*Power(xii,12.0)*Power(xij,2.0)*
4491 (297.0 + 594.0*rij*xij + 594.0*Power(rij,2.0)*Power(xij,2.0) +
4492 396.0*Power(rij,3.0)*Power(xij,3.0) + 198.0*Power(rij,4.0)*Power(xij,4.0) +
4493 124.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4494 Power(xii,10.0)*Power(xij,4.0)*
4495 (-7425.0 - 14850.0*rij*xij - 14850.0*Power(rij,2.0)*Power(xij,2.0) -
4496 7380.0*Power(rij,3.0)*Power(xij,3.0) - 11250.0*Power(rij,4.0)*Power(xij,4.0) -
4497 916.0*Power(rij,5.0)*Power(xij,5.0) + 68.0*Power(rij,6.0)*Power(xij,6.0))))/
4498 (135.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4499 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
4500 ;
4501 }
4502 return S;
4503 }
4504
4505 static double DSlater_3S_4S(double rij,double xij,double xii)
4506 {
4507 double S;
4508
4509 if (xii == xij) {
4510 S = (-37362124800.0 + 37362124800.0*Power(E,2.0*rij*xii) - 74724249600.0*rij*xii -
4511 74724249600.0*Power(rij,2.0)*Power(xii,2.0) -
4512 49615490925.0*Power(rij,3.0)*Power(xii,3.0) -
4513 24506732250.0*Power(rij,4.0)*Power(xii,4.0) -
4514 9566747190.0*Power(rij,5.0)*Power(xii,5.0) -
4515 3063240180.0*Power(rij,6.0)*Power(xii,6.0) -
4516 824709600.0*Power(rij,7.0)*Power(xii,7.0) -
4517 189961200.0*Power(rij,8.0)*Power(xii,8.0) -
4518 37889280.0*Power(rij,9.0)*Power(xii,9.0) -
4519 6589440.0*Power(rij,10.0)*Power(xii,10.0) -
4520 998400.0*Power(rij,11.0)*Power(xii,11.0) -
4521 129792.0*Power(rij,12.0)*Power(xii,12.0) - 13824.0*Power(rij,13.0)*Power(xii,13.0) -
4522 1024.0*Power(rij,14.0)*Power(xii,14.0))/
4523 (3.73621248e10*Power(E,2.0*rij*xii)*Power(rij,2.0))
4524 ;
4525 }
4526 else {
4527 S = (945.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
4528 21.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
4529 (-112.0*Power(rij,5.0)*Power(xii,21.0) - 4.0*Power(rij,6.0)*Power(xii,22.0) +
4530 45.0*Power(xij,16.0) + 90.0*rij*xii*Power(xij,16.0) +
4531 30.0*rij*Power(xii,3.0)*Power(xij,14.0)*
4532 (-39.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4533 45.0*Power(xii,2.0)*Power(xij,14.0)*(-13.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4534 4.0*Power(rij,4.0)*Power(xii,20.0)*(345.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4535 4.0*Power(rij,3.0)*Power(xii,19.0)*
4536 (2340.0 + 131.0*Power(rij,2.0)*Power(xij,2.0)) +
4537 12.0*rij*Power(xii,5.0)*Power(xij,12.0)*
4538 (585.0 - 65.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4539 30.0*Power(xii,4.0)*Power(xij,12.0)*
4540 (117.0 - 39.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4541 6.0*Power(rij,2.0)*Power(xii,18.0)*
4542 (-5915.0 - 1735.0*Power(rij,2.0)*Power(xij,2.0) +
4543 12.0*Power(rij,4.0)*Power(xij,4.0)) -
4544 12.0*rij*Power(xii,7.0)*Power(xij,10.0)*
4545 (2145.0 - 225.0*Power(rij,2.0)*Power(xij,2.0) +
4546 23.0*Power(rij,4.0)*Power(xij,4.0)) +
4547 78.0*rij*Power(xii,11.0)*Power(xij,6.0)*
4548 (-22875.0 - 770.0*Power(rij,2.0)*Power(xij,2.0) +
4549 34.0*Power(rij,4.0)*Power(xij,4.0)) -
4550 6.0*rij*Power(xii,9.0)*Power(xij,8.0)*
4551 (10725.0 + 15730.0*Power(rij,2.0)*Power(xij,2.0) +
4552 46.0*Power(rij,4.0)*Power(xij,4.0)) -
4553 20.0*rij*Power(xii,13.0)*Power(xij,4.0)*
4554 (153630.0 - 13923.0*Power(rij,2.0)*Power(xij,2.0) +
4555 143.0*Power(rij,4.0)*Power(xij,4.0)) -
4556 4.0*rij*Power(xii,15.0)*Power(xij,2.0)*
4557 (269010.0 + 4455.0*Power(rij,2.0)*Power(xij,2.0) +
4558 143.0*Power(rij,4.0)*Power(xij,4.0)) +
4559 12.0*rij*Power(xii,17.0)*(-5460.0 - 8235.0*Power(rij,2.0)*Power(xij,2.0) +
4560 163.0*Power(rij,4.0)*Power(xij,4.0)) +
4561 30.0*Power(xii,14.0)*Power(xij,2.0)*
4562 (-17934.0 - 26106.0*Power(rij,2.0)*Power(xij,2.0) +
4563 793.0*Power(rij,4.0)*Power(xij,4.0)) +
4564 3.0*Power(xii,10.0)*Power(xij,6.0)*
4565 (-297375.0 + 211640.0*Power(rij,2.0)*Power(xij,2.0) +
4566 1430.0*Power(rij,4.0)*Power(xij,4.0) - 24.0*Power(rij,6.0)*Power(xij,6.0)) +
4567 2.0*Power(xii,6.0)*Power(xij,10.0)*
4568 (-6435.0 + 3510.0*Power(rij,2.0)*Power(xij,2.0) -
4569 195.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
4570 Power(xii,8.0)*Power(xij,8.0)*
4571 (-32175.0 + 12870.0*Power(rij,2.0)*Power(xij,2.0) +
4572 7290.0*Power(rij,4.0)*Power(xij,4.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
4573 2.0*Power(xii,12.0)*Power(xij,4.0)*
4574 (-768150.0 + 324285.0*Power(rij,2.0)*Power(xij,2.0) -
4575 19305.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) -
4576 2.0*Power(xii,16.0)*(16380.0 + 241815.0*Power(rij,2.0)*Power(xij,2.0) -
4577 7695.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0))) +
4578 Power(E,2.0*rij*xii)*Power(xii,8.0)*
4579 (2.0*Power(xii,2.0)*Power(xij,16.0)*
4580 (8759205.0 + 17518410.0*rij*xij + 10176075.0*Power(rij,2.0)*Power(xij,2.0) +
4581 2940210.0*Power(rij,3.0)*Power(xij,3.0) +
4582 479115.0*Power(rij,4.0)*Power(xij,4.0) +
4583 41496.0*Power(rij,5.0)*Power(xij,5.0) + 882.0*Power(rij,6.0)*Power(xij,6.0) -
4584 156.0*Power(rij,7.0)*Power(xij,7.0) - 11.0*Power(rij,8.0)*Power(xij,8.0)) +
4585 6.0*Power(xij,18.0)*(225225.0 + 450450.0*rij*xij +
4586 315315.0*Power(rij,2.0)*Power(xij,2.0) +
4587 120120.0*Power(rij,3.0)*Power(xij,3.0) +
4588 28875.0*Power(rij,4.0)*Power(xij,4.0) +
4589 4620.0*Power(rij,5.0)*Power(xij,5.0) + 490.0*Power(rij,6.0)*Power(xij,6.0) +
4590 32.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) -
4591 3.0*Power(xii,18.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
4592 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
4593 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
4594 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
4595 84.0*Power(xii,6.0)*Power(xij,12.0)*
4596 (115200.0 + 230400.0*rij*xij - 341955.0*Power(rij,2.0)*Power(xij,2.0) -
4597 141690.0*Power(rij,3.0)*Power(xij,3.0) -
4598 6135.0*Power(rij,4.0)*Power(xij,4.0) + 5031.0*Power(rij,5.0)*Power(xij,5.0) +
4599 1042.0*Power(rij,6.0)*Power(xij,6.0) + 80.0*Power(rij,7.0)*Power(xij,7.0) +
4600 2.0*Power(rij,8.0)*Power(xij,8.0)) -
4601 4.0*Power(xii,4.0)*Power(xij,14.0)*
4602 (-8470980.0 - 16941960.0*rij*xij - 4169655.0*Power(rij,2.0)*Power(xij,2.0) +
4603 871605.0*Power(rij,3.0)*Power(xij,3.0) +
4604 572985.0*Power(rij,4.0)*Power(xij,4.0) +
4605 113169.0*Power(rij,5.0)*Power(xij,5.0) +
4606 10878.0*Power(rij,6.0)*Power(xij,6.0) + 456.0*Power(rij,7.0)*Power(xij,7.0) +
4607 2.0*Power(rij,8.0)*Power(xij,8.0)) +
4608 2.0*Power(xii,14.0)*Power(xij,4.0)*
4609 (-36855.0 - 73710.0*rij*xij - 73710.0*Power(rij,2.0)*Power(xij,2.0) -
4610 49140.0*Power(rij,3.0)*Power(xij,3.0) -
4611 24570.0*Power(rij,4.0)*Power(xij,4.0) -
4612 7182.0*Power(rij,5.0)*Power(xij,5.0) - 6804.0*Power(rij,6.0)*Power(xij,6.0) -
4613 768.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) -
4614 42.0*Power(xii,12.0)*Power(xij,6.0)*
4615 (-6435.0 - 12870.0*rij*xij - 12870.0*Power(rij,2.0)*Power(xij,2.0) -
4616 9570.0*Power(rij,3.0)*Power(xij,3.0) - 330.0*Power(rij,4.0)*Power(xij,4.0) -
4617 4434.0*Power(rij,5.0)*Power(xij,5.0) - 908.0*Power(rij,6.0)*Power(xij,6.0) -
4618 16.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4619 91.0*Power(xii,10.0)*Power(xij,8.0)*
4620 (-7425.0 - 14850.0*rij*xij - 21780.0*Power(rij,2.0)*Power(xij,2.0) +
4621 11880.0*Power(rij,3.0)*Power(xij,3.0) -
4622 15840.0*Power(rij,4.0)*Power(xij,4.0) -
4623 5100.0*Power(rij,5.0)*Power(xij,5.0) - 240.0*Power(rij,6.0)*Power(xij,6.0) +
4624 48.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) -
4625 91.0*Power(xii,8.0)*Power(xij,10.0)*
4626 (-20925.0 - 41850.0*rij*xij + 94860.0*Power(rij,2.0)*Power(xij,2.0) -
4627 81180.0*Power(rij,3.0)*Power(xij,3.0) -
4628 34560.0*Power(rij,4.0)*Power(xij,4.0) -
4629 2292.0*Power(rij,5.0)*Power(xij,5.0) + 576.0*Power(rij,6.0)*Power(xij,6.0) +
4630 96.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4631 Power(xii,16.0)*Power(xij,2.0)*
4632 (12285.0 + 24570.0*rij*xij + 24570.0*Power(rij,2.0)*Power(xij,2.0) +
4633 16380.0*Power(rij,3.0)*Power(xij,3.0) + 8190.0*Power(rij,4.0)*Power(xij,4.0) +
4634 3276.0*Power(rij,5.0)*Power(xij,5.0) + 1092.0*Power(rij,6.0)*Power(xij,6.0) +
4635 480.0*Power(rij,7.0)*Power(xij,7.0) + 22.0*Power(rij,8.0)*Power(xij,8.0))))/
4636 (945.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4637 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
4638 ;
4639 }
4640 return S;
4641 }
4642
4643 static double DSlater_3S_5S(double rij,double xij,double xii)
4644 {
4645 double S;
4646
4647 if (xii == xij) {
4648 S = (-78460462080000.0 + 78460462080000.0*Power(E,2.0*rij*xii) -
4649 156920924160000.0*rij*xii - 156920924160000.0*Power(rij,2.0)*Power(xii,2.0) -
4650 104400898977375.0*Power(rij,3.0)*Power(xii,3.0) -
4651 51880873794750.0*Power(rij,4.0)*Power(xii,4.0) -
4652 20495752477200.0*Power(rij,5.0)*Power(xii,5.0) -
4653 6688323041400.0*Power(rij,6.0)*Power(xii,6.0) -
4654 1848971124000.0*Power(rij,7.0)*Power(xii,7.0) -
4655 440561721600.0*Power(rij,8.0)*Power(xii,8.0) -
4656 91589097600.0*Power(rij,9.0)*Power(xii,9.0) -
4657 16761064320.0*Power(rij,10.0)*Power(xii,10.0) -
4658 2717245440.0*Power(rij,11.0)*Power(xii,11.0) -
4659 391372800.0*Power(rij,12.0)*Power(xii,12.0) -
4660 49889280.0*Power(rij,13.0)*Power(xii,13.0) -
4661 5529600.0*Power(rij,14.0)*Power(xii,14.0) -
4662 507904.0*Power(rij,15.0)*Power(xii,15.0) - 32768.0*Power(rij,16.0)*Power(xii,16.0))/
4663 (7.846046208e13*Power(E,2.0*rij*xii)*Power(rij,2.0))
4664 ;
4665 }
4666 else {
4667 S = (42525.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
4668 189.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
4669 (-660.0*Power(rij,5.0)*Power(xii,23.0) - 20.0*Power(rij,6.0)*Power(xii,24.0) +
4670 225.0*Power(xij,18.0) + 450.0*rij*xii*Power(xij,18.0) +
4671 150.0*rij*Power(xii,3.0)*Power(xij,16.0)*
4672 (-45.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4673 225.0*Power(xii,2.0)*Power(xij,16.0)*(-15.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4674 70.0*Power(rij,4.0)*Power(xii,22.0)*(135.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4675 20.0*Power(rij,3.0)*Power(xii,21.0)*
4676 (3675.0 + 341.0*Power(rij,2.0)*Power(xij,2.0)) +
4677 30.0*rij*Power(xii,5.0)*Power(xij,14.0)*
4678 (1575.0 - 150.0*Power(rij,2.0)*Power(xij,2.0) +
4679 2.0*Power(rij,4.0)*Power(xij,4.0)) +
4680 75.0*Power(xii,4.0)*Power(xij,14.0)*
4681 (315.0 - 90.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4682 + 30.0*rij*Power(xii,13.0)*Power(xij,6.0)*
4683 (-3648435.0 + 137800.0*Power(rij,2.0)*Power(xij,2.0) +
4684 156.0*Power(rij,4.0)*Power(xij,4.0)) -
4685 10.0*rij*Power(xii,7.0)*Power(xij,12.0)*
4686 (20475.0 - 1148.0*Power(rij,2.0)*Power(xij,2.0) +
4687 178.0*Power(rij,4.0)*Power(xij,4.0)) +
4688 120.0*rij*Power(xii,17.0)*Power(xij,2.0)*
4689 (-132855.0 - 21869.0*Power(rij,2.0)*Power(xij,2.0) +
4690 242.0*Power(rij,4.0)*Power(xij,4.0)) +
4691 2.0*Power(rij,2.0)*Power(xii,20.0)*
4692 (-157500.0 - 65525.0*Power(rij,2.0)*Power(xij,2.0) +
4693 248.0*Power(rij,4.0)*Power(xij,4.0)) -
4694 26.0*rij*Power(xii,9.0)*Power(xij,10.0)*
4695 (60525.0 + 46500.0*Power(rij,2.0)*Power(xij,2.0) +
4696 328.0*Power(rij,4.0)*Power(xij,4.0)) +
4697 30.0*rij*Power(xii,11.0)*Power(xij,8.0)*
4698 (-1302535.0 - 99320.0*Power(rij,2.0)*Power(xij,2.0) +
4699 872.0*Power(rij,4.0)*Power(xij,4.0)) -
4700 30.0*rij*Power(xii,15.0)*Power(xij,4.0)*
4701 (2638467.0 - 134540.0*Power(rij,2.0)*Power(xij,2.0) +
4702 1716.0*Power(rij,4.0)*Power(xij,4.0)) +
4703 4.0*rij*Power(xii,19.0)*(-160650.0 - 322775.0*Power(rij,2.0)*Power(xij,2.0) +
4704 2332.0*Power(rij,4.0)*Power(xij,4.0)) +
4705 Power(xii,10.0)*Power(xij,8.0)*
4706 (-19538025.0 + 11124750.0*Power(rij,2.0)*Power(xij,2.0) +
4707 210600.0*Power(rij,4.0)*Power(xij,4.0) - 496.0*Power(rij,6.0)*Power(xij,6.0)) \
4708 + 20.0*Power(xii,18.0)*(-16065.0 - 335970.0*Power(rij,2.0)*Power(xij,2.0) -
4709 2670.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4710 5.0*Power(xii,6.0)*Power(xij,12.0)*
4711 (-20475.0 + 9450.0*Power(rij,2.0)*Power(xij,2.0) -
4712 450.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4713 5.0*Power(xii,12.0)*Power(xij,6.0)*
4714 (10945305.0 - 5223270.0*Power(rij,2.0)*Power(xij,2.0) +
4715 100620.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) \
4716 + 5.0*Power(xii,8.0)*Power(xij,10.0)*
4717 (-157365.0 + 62010.0*Power(rij,2.0)*Power(xij,2.0) +
4718 13160.0*Power(rij,4.0)*Power(xij,4.0) + 28.0*Power(rij,6.0)*Power(xij,6.0)) -
4719 30.0*Power(xii,16.0)*Power(xij,2.0)*
4720 (265710.0 + 800715.0*Power(rij,2.0)*Power(xij,2.0) -
4721 21500.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) +
4722 15.0*Power(xii,14.0)*Power(xij,4.0)*
4723 (-2638467.0 - 435750.0*Power(rij,2.0)*Power(xij,2.0) -
4724 14820.0*Power(rij,4.0)*Power(xij,4.0) + 104.0*Power(rij,6.0)*Power(xij,6.0))) \
4725 + Power(E,2.0*rij*xii)*Power(xii,8.0)*
4726 (2.0*Power(xii,2.0)*Power(xij,20.0)*
4727 (1782492075.0 + 3564984150.0*rij*xij +
4728 2364985350.0*Power(rij,2.0)*Power(xij,2.0) +
4729 837468450.0*Power(rij,3.0)*Power(xij,3.0) +
4730 183599325.0*Power(rij,4.0)*Power(xij,4.0) +
4731 25872210.0*Power(rij,5.0)*Power(xij,5.0) +
4732 2193030.0*Power(rij,6.0)*Power(xij,6.0) +
4733 68220.0*Power(rij,7.0)*Power(xij,7.0) -
4734 6885.0*Power(rij,8.0)*Power(xij,8.0) - 890.0*Power(rij,9.0)*Power(xij,9.0) -
4735 34.0*Power(rij,10.0)*Power(xij,10.0)) +
4736 42.0*Power(xii,4.0)*Power(xij,18.0)*
4737 (251336925.0 + 502673850.0*rij*xij +
4738 209308050.0*Power(rij,2.0)*Power(xij,2.0) +
4739 18924570.0*Power(rij,3.0)*Power(xij,3.0) -
4740 9849735.0*Power(rij,4.0)*Power(xij,4.0) -
4741 3861270.0*Power(rij,5.0)*Power(xij,5.0) -
4742 672210.0*Power(rij,6.0)*Power(xij,6.0) -
4743 66780.0*Power(rij,7.0)*Power(xij,7.0) -
4744 3591.0*Power(rij,8.0)*Power(xij,8.0) - 62.0*Power(rij,9.0)*Power(xij,9.0) +
4745 2.0*Power(rij,10.0)*Power(xij,10.0)) +
4746 6.0*Power(xij,22.0)*(34459425.0 + 68918850.0*rij*xij +
4747 52702650.0*Power(rij,2.0)*Power(xij,2.0) +
4748 22972950.0*Power(rij,3.0)*Power(xij,3.0) +
4749 6621615.0*Power(rij,4.0)*Power(xij,4.0) +
4750 1351350.0*Power(rij,5.0)*Power(xij,5.0) +
4751 200970.0*Power(rij,6.0)*Power(xij,6.0) +
4752 21780.0*Power(rij,7.0)*Power(xij,7.0) +
4753 1665.0*Power(rij,8.0)*Power(xij,8.0) + 82.0*Power(rij,9.0)*Power(xij,9.0) +
4754 2.0*Power(rij,10.0)*Power(xij,10.0)) -
4755 3.0*Power(xii,22.0)*(14175.0 + 28350.0*rij*xij +
4756 28350.0*Power(rij,2.0)*Power(xij,2.0) +
4757 18900.0*Power(rij,3.0)*Power(xij,3.0) +
4758 9450.0*Power(rij,4.0)*Power(xij,4.0) + 3780.0*Power(rij,5.0)*Power(xij,5.0) +
4759 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
4760 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
4761 4.0*Power(rij,10.0)*Power(xij,10.0)) -
4762 21.0*Power(xii,18.0)*Power(xij,4.0)*
4763 (212625.0 + 425250.0*rij*xij + 425250.0*Power(rij,2.0)*Power(xij,2.0) +
4764 283500.0*Power(rij,3.0)*Power(xij,3.0) +
4765 141750.0*Power(rij,4.0)*Power(xij,4.0) +
4766 56700.0*Power(rij,5.0)*Power(xij,5.0) +
4767 18900.0*Power(rij,6.0)*Power(xij,6.0) +
4768 4104.0*Power(rij,7.0)*Power(xij,7.0) + 2538.0*Power(rij,8.0)*Power(xij,8.0) +
4769 308.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
4770 54.0*Power(xii,6.0)*Power(xij,16.0)*
4771 (133451955.0 + 266903910.0*rij*xij -
4772 93304890.0*Power(rij,2.0)*Power(xij,2.0) -
4773 91581210.0*Power(rij,3.0)*Power(xij,3.0) -
4774 19513305.0*Power(rij,4.0)*Power(xij,4.0) -
4775 133098.0*Power(rij,5.0)*Power(xij,5.0) +
4776 629874.0*Power(rij,6.0)*Power(xij,6.0) +
4777 122844.0*Power(rij,7.0)*Power(xij,7.0) +
4778 11111.0*Power(rij,8.0)*Power(xij,8.0) + 478.0*Power(rij,9.0)*Power(xij,9.0) +
4779 6.0*Power(rij,10.0)*Power(xij,10.0)) -
4780 315.0*Power(xii,12.0)*Power(xij,10.0)*
4781 (-405405.0 - 810810.0*rij*xij - 614250.0*Power(rij,2.0)*Power(xij,2.0) -
4782 1408680.0*Power(rij,3.0)*Power(xij,3.0) +
4783 573300.0*Power(rij,4.0)*Power(xij,4.0) -
4784 153720.0*Power(rij,5.0)*Power(xij,5.0) -
4785 133224.0*Power(rij,6.0)*Power(xij,6.0) -
4786 20208.0*Power(rij,7.0)*Power(xij,7.0) - 348.0*Power(rij,8.0)*Power(xij,8.0) +
4787 136.0*Power(rij,9.0)*Power(xij,9.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) +
4788 315.0*Power(xii,10.0)*Power(xij,12.0)*
4789 (-482895.0 - 965790.0*rij*xij - 6499710.0*Power(rij,2.0)*Power(xij,2.0) +
4790 4684680.0*Power(rij,3.0)*Power(xij,3.0) -
4791 380772.0*Power(rij,4.0)*Power(xij,4.0) -
4792 912744.0*Power(rij,5.0)*Power(xij,5.0) -
4793 188664.0*Power(rij,6.0)*Power(xij,6.0) -
4794 7536.0*Power(rij,7.0)*Power(xij,7.0) + 1812.0*Power(rij,8.0)*Power(xij,8.0) +
4795 232.0*Power(rij,9.0)*Power(xij,9.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) -
4796 27.0*Power(xii,16.0)*Power(xij,6.0)*
4797 (-716625.0 - 1433250.0*rij*xij - 1433250.0*Power(rij,2.0)*Power(xij,2.0) -
4798 955500.0*Power(rij,3.0)*Power(xij,3.0) -
4799 477750.0*Power(rij,4.0)*Power(xij,4.0) -
4800 213276.0*Power(rij,5.0)*Power(xij,5.0) -
4801 15652.0*Power(rij,6.0)*Power(xij,6.0) -
4802 36872.0*Power(rij,7.0)*Power(xij,7.0) -
4803 8378.0*Power(rij,8.0)*Power(xij,8.0) - 404.0*Power(rij,9.0)*Power(xij,9.0) +
4804 12.0*Power(rij,10.0)*Power(xij,10.0)) +
4805 Power(xii,20.0)*Power(xij,2.0)*
4806 (637875.0 + 1275750.0*rij*xij + 1275750.0*Power(rij,2.0)*Power(xij,2.0) +
4807 850500.0*Power(rij,3.0)*Power(xij,3.0) +
4808 425250.0*Power(rij,4.0)*Power(xij,4.0) +
4809 170100.0*Power(rij,5.0)*Power(xij,5.0) +
4810 56700.0*Power(rij,6.0)*Power(xij,6.0) +
4811 16200.0*Power(rij,7.0)*Power(xij,7.0) +
4812 4050.0*Power(rij,8.0)*Power(xij,8.0) + 1348.0*Power(rij,9.0)*Power(xij,9.0) +
4813 68.0*Power(rij,10.0)*Power(xij,10.0)) +
4814 3.0*Power(xii,14.0)*Power(xij,8.0)*
4815 (-19348875.0 - 38697750.0*rij*xij -
4816 38697750.0*Power(rij,2.0)*Power(xij,2.0) -
4817 24537240.0*Power(rij,3.0)*Power(xij,3.0) -
4818 19836180.0*Power(rij,4.0)*Power(xij,4.0) +
4819 3197880.0*Power(rij,5.0)*Power(xij,5.0) -
4820 3221400.0*Power(rij,6.0)*Power(xij,6.0) -
4821 1338000.0*Power(rij,7.0)*Power(xij,7.0) -
4822 128196.0*Power(rij,8.0)*Power(xij,8.0) +
4823 1208.0*Power(rij,9.0)*Power(xij,9.0) + 472.0*Power(rij,10.0)*Power(xij,10.0)) \
4824 - 3.0*Power(xii,8.0)*Power(xij,14.0)*
4825 (-593408025.0 - 1186816050.0*rij*xij +
4826 2286535230.0*Power(rij,2.0)*Power(xij,2.0) -
4827 157114440.0*Power(rij,3.0)*Power(xij,3.0) -
4828 470066940.0*Power(rij,4.0)*Power(xij,4.0) -
4829 111426840.0*Power(rij,5.0)*Power(xij,5.0) -
4830 5225640.0*Power(rij,6.0)*Power(xij,6.0) +
4831 1666032.0*Power(rij,7.0)*Power(xij,7.0) +
4832 305964.0*Power(rij,8.0)*Power(xij,8.0) +
4833 20504.0*Power(rij,9.0)*Power(xij,9.0) + 472.0*Power(rij,10.0)*Power(xij,10.0)))\
4834 )/(42525.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4835 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
4836 ;
4837 }
4838 return S;
4839 }
4840
4841 static double DSlater_3S_6S(double rij,double xij,double xii)
4842 {
4843 double S;
4844
4845 if (xii == xij) {
4846 S = (-1600593426432000.0 + 1600593426432000.0*Power(E,2.0*rij*xii) -
4847 3201186852864000.0*rij*xii - 3201186852864000.0*Power(rij,2.0)*Power(xii,2.0) -
4848 2132149009740750.0*Power(rij,3.0)*Power(xii,3.0) -
4849 1063111166617500.0*Power(rij,4.0)*Power(xii,4.0) -
4850 422807944083525.0*Power(rij,5.0)*Power(xii,5.0) -
4851 139509188869050.0*Power(rij,6.0)*Power(xii,6.0) -
4852 39204349984800.0*Power(rij,7.0)*Power(xii,7.0) -
4853 9554082337800.0*Power(rij,8.0)*Power(xii,8.0) -
4854 2044960117200.0*Power(rij,9.0)*Power(xii,9.0) -
4855 387930422880.0*Power(rij,10.0)*Power(xii,10.0) -
4856 65654184960.0*Power(rij,11.0)*Power(xii,11.0) -
4857 9962184960.0*Power(rij,12.0)*Power(xii,12.0) -
4858 1359912960.0*Power(rij,13.0)*Power(xii,13.0) -
4859 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
4860 18382848.0*Power(rij,15.0)*Power(xii,15.0) -
4861 1775616.0*Power(rij,16.0)*Power(xii,16.0) -
4862 143360.0*Power(rij,17.0)*Power(xii,17.0) - 8192.0*Power(rij,18.0)*Power(xii,18.0))/
4863 (1.600593426432e15*Power(E,2.0*rij*xii)*Power(rij,2.0))
4864 ;
4865 }
4866 else {
4867 S = (1403325.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
4868 10395.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
4869 (-456.0*Power(rij,5.0)*Power(xii,25.0) - 12.0*Power(rij,6.0)*Power(xii,26.0) +
4870 135.0*Power(xij,20.0) + 270.0*rij*xii*Power(xij,20.0) +
4871 90.0*rij*Power(xii,3.0)*Power(xij,18.0)*
4872 (-51.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4873 135.0*Power(xii,2.0)*Power(xij,18.0)*(-17.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4874 80.0*Power(rij,4.0)*Power(xii,24.0)*(93.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4875 20.0*Power(rij,3.0)*Power(xii,23.0)*
4876 (3264.0 + 395.0*Power(rij,2.0)*Power(xij,2.0)) +
4877 36.0*rij*Power(xii,5.0)*Power(xij,16.0)*
4878 (1020.0 - 85.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4879 90.0*Power(xii,4.0)*Power(xij,16.0)*
4880 (204.0 - 51.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4881 2040.0*rij*Power(xii,13.0)*Power(xij,8.0)*
4882 (-172098.0 + 715.0*Power(rij,2.0)*Power(xij,2.0) +
4883 29.0*Power(rij,4.0)*Power(xij,4.0)) -
4884 2040.0*rij*Power(xii,15.0)*Power(xij,6.0)*
4885 (210168.0 - 8158.0*Power(rij,2.0)*Power(xij,2.0) +
4886 39.0*Power(rij,4.0)*Power(xij,4.0)) -
4887 20.0*rij*Power(xii,7.0)*Power(xij,14.0)*
4888 (9180.0 - 132.0*Power(rij,2.0)*Power(xij,2.0) +
4889 67.0*Power(rij,4.0)*Power(xij,4.0)) +
4890 2.0*Power(rij,2.0)*Power(xii,22.0)*
4891 (-156060.0 - 80085.0*Power(rij,2.0)*Power(xij,2.0) +
4892 94.0*Power(rij,4.0)*Power(xij,4.0)) +
4893 68.0*rij*Power(xii,11.0)*Power(xij,10.0)*
4894 (-1258335.0 - 115770.0*Power(rij,2.0)*Power(xij,2.0) +
4895 212.0*Power(rij,4.0)*Power(xij,4.0)) -
4896 30.0*rij*Power(xii,17.0)*Power(xij,4.0)*
4897 (6000651.0 - 10472.0*Power(rij,2.0)*Power(xij,2.0) +
4898 816.0*Power(rij,4.0)*Power(xij,4.0)) -
4899 4.0*rij*Power(xii,21.0)*(174420.0 + 422805.0*Power(rij,2.0)*Power(xij,2.0) +
4900 1399.0*Power(rij,4.0)*Power(xij,4.0)) -
4901 4.0*rij*Power(xii,9.0)*Power(xij,12.0)*
4902 (784125.0 + 415140.0*Power(rij,2.0)*Power(xij,2.0) +
4903 3326.0*Power(rij,4.0)*Power(xij,4.0)) +
4904 45.0*Power(xii,16.0)*Power(xij,4.0)*
4905 (-2000217.0 - 1628872.0*Power(rij,2.0)*Power(xij,2.0) +
4906 20808.0*Power(rij,4.0)*Power(xij,4.0)) +
4907 Power(xii,19.0)*(-24085350.0*rij*Power(xij,2.0) -
4908 7125420.0*Power(rij,3.0)*Power(xij,4.0) +
4909 59024.0*Power(rij,5.0)*Power(xij,6.0)) +
4910 1020.0*Power(xii,14.0)*Power(xij,6.0)*
4911 (-210168.0 + 38954.0*Power(rij,2.0)*Power(xij,2.0) -
4912 1365.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
4913 6.0*Power(xii,6.0)*Power(xij,14.0)*
4914 (-15300.0 + 6120.0*Power(rij,2.0)*Power(xij,2.0) -
4915 255.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
4916 68.0*Power(xii,12.0)*Power(xij,8.0)*
4917 (2581470.0 - 1159275.0*Power(rij,2.0)*Power(xij,2.0) +
4918 4845.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) +
4919 10.0*Power(xii,8.0)*Power(xij,12.0)*
4920 (-156825.0 + 53244.0*Power(rij,2.0)*Power(xij,2.0) +
4921 6684.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) -
4922 2.0*Power(xii,10.0)*Power(xij,10.0)*
4923 (21391695.0 - 9981210.0*Power(rij,2.0)*Power(xij,2.0) -
4924 221340.0*Power(rij,4.0)*Power(xij,4.0) + 94.0*Power(rij,6.0)*Power(xij,6.0)) \
4925 - 15.0*Power(xii,18.0)*Power(xij,2.0)*
4926 (802845.0 + 3733518.0*Power(rij,2.0)*Power(xij,2.0) -
4927 56168.0*Power(rij,4.0)*Power(xij,4.0) + 136.0*Power(rij,6.0)*Power(xij,6.0)) \
4928 + 2.0*Power(xii,20.0)*(-174420.0 - 4738455.0*Power(rij,2.0)*Power(xij,2.0) -
4929 198795.0*Power(rij,4.0)*Power(xij,4.0) + 544.0*Power(rij,6.0)*Power(xij,6.0))) \
4930 + Power(E,2.0*rij*xii)*Power(xii,8.0)*
4931 (2.0*Power(xii,2.0)*Power(xij,24.0)*
4932 (218024781975.0 + 436049563950.0*rij*xij +
4933 315992927250.0*Power(rij,2.0)*Power(xij,2.0) +
4934 127775547900.0*Power(rij,3.0)*Power(xij,3.0) +
4935 33563479950.0*Power(rij,4.0)*Power(xij,4.0) +
4936 6097020930.0*Power(rij,5.0)*Power(xij,5.0) +
4937 773783010.0*Power(rij,6.0)*Power(xij,6.0) +
4938 64787580.0*Power(rij,7.0)*Power(xij,7.0) +
4939 2627955.0*Power(rij,8.0)*Power(xij,8.0) -
4940 117810.0*Power(rij,9.0)*Power(xij,9.0) -
4941 25542.0*Power(rij,10.0)*Power(xij,10.0) -
4942 1684.0*Power(rij,11.0)*Power(xij,11.0) - 46.0*Power(rij,12.0)*Power(xij,12.0)) \
4943 - 88.0*Power(xii,20.0)*Power(xij,6.0)*
4944 (-10843875.0 - 21687750.0*rij*xij -
4945 21687750.0*Power(rij,2.0)*Power(xij,2.0) -
4946 14458500.0*Power(rij,3.0)*Power(xij,3.0) -
4947 7229250.0*Power(rij,4.0)*Power(xij,4.0) -
4948 2891700.0*Power(rij,5.0)*Power(xij,5.0) -
4949 963900.0*Power(rij,6.0)*Power(xij,6.0) -
4950 302130.0*Power(rij,7.0)*Power(xij,7.0) -
4951 28755.0*Power(rij,8.0)*Power(xij,8.0) -
4952 25380.0*Power(rij,9.0)*Power(xij,9.0) -
4953 5805.0*Power(rij,10.0)*Power(xij,10.0) -
4954 350.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
4955 88.0*Power(xii,6.0)*Power(xij,20.0)*
4956 (25012482075.0 + 50024964150.0*rij*xij +
4957 3860178525.0*Power(rij,2.0)*Power(xij,2.0) -
4958 8806672350.0*Power(rij,3.0)*Power(xij,3.0) -
4959 3531006675.0*Power(rij,4.0)*Power(xij,4.0) -
4960 529052580.0*Power(rij,5.0)*Power(xij,5.0) +
4961 2184840.0*Power(rij,6.0)*Power(xij,6.0) +
4962 14577840.0*Power(rij,7.0)*Power(xij,7.0) +
4963 2766240.0*Power(rij,8.0)*Power(xij,8.0) +
4964 273870.0*Power(rij,9.0)*Power(xij,9.0) +
4965 15363.0*Power(rij,10.0)*Power(xij,10.0) +
4966 406.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
4967 4488.0*Power(xii,14.0)*Power(xij,12.0)*
4968 (-3869775.0 - 7739550.0*rij*xij - 8632575.0*Power(rij,2.0)*Power(xij,2.0) -
4969 66150.0*Power(rij,3.0)*Power(xij,3.0) -
4970 9955575.0*Power(rij,4.0)*Power(xij,4.0) +
4971 1446480.0*Power(rij,5.0)*Power(xij,5.0) +
4972 379260.0*Power(rij,6.0)*Power(xij,6.0) -
4973 283320.0*Power(rij,7.0)*Power(xij,7.0) -
4974 88050.0*Power(rij,8.0)*Power(xij,8.0) -
4975 8400.0*Power(rij,9.0)*Power(xij,9.0) - 18.0*Power(rij,10.0)*Power(xij,10.0) +
4976 44.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
4977 4488.0*Power(xii,12.0)*Power(xij,14.0)*
4978 (-6889050.0 - 13778100.0*rij*xij + 20057625.0*Power(rij,2.0)*Power(xij,2.0) -
4979 61906950.0*Power(rij,3.0)*Power(xij,3.0) +
4980 11911725.0*Power(rij,4.0)*Power(xij,4.0) +
4981 5554080.0*Power(rij,5.0)*Power(xij,5.0) -
4982 1535940.0*Power(rij,6.0)*Power(xij,6.0) -
4983 762660.0*Power(rij,7.0)*Power(xij,7.0) -
4984 103200.0*Power(rij,8.0)*Power(xij,8.0) -
4985 2820.0*Power(rij,9.0)*Power(xij,9.0) +
4986 654.0*Power(rij,10.0)*Power(xij,10.0) +
4987 68.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
4988 6.0*Power(xij,26.0)*(3273645375.0 + 6547290750.0*rij*xij +
4989 5306751450.0*Power(rij,2.0)*Power(xij,2.0) +
4990 2527024500.0*Power(rij,3.0)*Power(xij,3.0) +
4991 817566750.0*Power(rij,4.0)*Power(xij,4.0) +
4992 193243050.0*Power(rij,5.0)*Power(xij,5.0) +
4993 34684650.0*Power(rij,6.0)*Power(xij,6.0) +
4994 4813380.0*Power(rij,7.0)*Power(xij,7.0) +
4995 517275.0*Power(rij,8.0)*Power(xij,8.0) +
4996 42350.0*Power(rij,9.0)*Power(xij,9.0) +
4997 2530.0*Power(rij,10.0)*Power(xij,10.0) +
4998 100.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
4999 3.0*Power(xii,26.0)*(467775.0 + 935550.0*rij*xij +
5000 935550.0*Power(rij,2.0)*Power(xij,2.0) +
5001 623700.0*Power(rij,3.0)*Power(xij,3.0) +
5002 311850.0*Power(rij,4.0)*Power(xij,4.0) +
5003 124740.0*Power(rij,5.0)*Power(xij,5.0) +
5004 41580.0*Power(rij,6.0)*Power(xij,6.0) +
5005 11880.0*Power(rij,7.0)*Power(xij,7.0) +
5006 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
5007 132.0*Power(rij,10.0)*Power(xij,10.0) +
5008 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
5009 330.0*Power(xii,18.0)*Power(xij,8.0)*
5010 (-10120950.0 - 20241900.0*rij*xij -
5011 20241900.0*Power(rij,2.0)*Power(xij,2.0) -
5012 13494600.0*Power(rij,3.0)*Power(xij,3.0) -
5013 6747300.0*Power(rij,4.0)*Power(xij,4.0) -
5014 2572794.0*Power(rij,5.0)*Power(xij,5.0) -
5015 1278018.0*Power(rij,6.0)*Power(xij,6.0) +
5016 18180.0*Power(rij,7.0)*Power(xij,7.0) -
5017 77691.0*Power(rij,8.0)*Power(xij,8.0) -
5018 35630.0*Power(rij,9.0)*Power(xij,9.0) -
5019 4114.0*Power(rij,10.0)*Power(xij,10.0) -
5020 92.0*Power(rij,11.0)*Power(xij,11.0) + 6.0*Power(rij,12.0)*Power(xij,12.0)) -
5021 165.0*Power(xii,8.0)*Power(xij,18.0)*
5022 (-5877371745.0 - 11754743490.0*rij*xij +
5023 10638195750.0*Power(rij,2.0)*Power(xij,2.0) +
5024 3500767620.0*Power(rij,3.0)*Power(xij,3.0) -
5025 943138350.0*Power(rij,4.0)*Power(xij,4.0) -
5026 587351268.0*Power(rij,5.0)*Power(xij,5.0) -
5027 104134716.0*Power(rij,6.0)*Power(xij,6.0) -
5028 4631400.0*Power(rij,7.0)*Power(xij,7.0) +
5029 1221198.0*Power(rij,8.0)*Power(xij,8.0) +
5030 247260.0*Power(rij,9.0)*Power(xij,9.0) +
5031 20892.0*Power(rij,10.0)*Power(xij,10.0) +
5032 856.0*Power(rij,11.0)*Power(xij,11.0) + 12.0*Power(rij,12.0)*Power(xij,12.0)) \
5033 + 8.0*Power(xii,4.0)*Power(xij,22.0)*
5034 (230263179300.0 + 460526358600.0*rij*xij +
5035 246912383025.0*Power(rij,2.0)*Power(xij,2.0) +
5036 55394851050.0*Power(rij,3.0)*Power(xij,3.0) +
5037 1508262525.0*Power(rij,4.0)*Power(xij,4.0) -
5038 2396962260.0*Power(rij,5.0)*Power(xij,5.0) -
5039 722410920.0*Power(rij,6.0)*Power(xij,6.0) -
5040 115167690.0*Power(rij,7.0)*Power(xij,7.0) -
5041 11586465.0*Power(rij,8.0)*Power(xij,8.0) -
5042 720720.0*Power(rij,9.0)*Power(xij,9.0) -
5043 21681.0*Power(rij,10.0)*Power(xij,10.0) +
5044 218.0*Power(rij,11.0)*Power(xij,11.0) + 29.0*Power(rij,12.0)*Power(xij,12.0)) \
5045 - 8.0*Power(xii,22.0)*Power(xij,4.0)*
5046 (23856525.0 + 47713050.0*rij*xij + 47713050.0*Power(rij,2.0)*Power(xij,2.0) +
5047 31808700.0*Power(rij,3.0)*Power(xij,3.0) +
5048 15904350.0*Power(rij,4.0)*Power(xij,4.0) +
5049 6361740.0*Power(rij,5.0)*Power(xij,5.0) +
5050 2120580.0*Power(rij,6.0)*Power(xij,6.0) +
5051 605880.0*Power(rij,7.0)*Power(xij,7.0) +
5052 151470.0*Power(rij,8.0)*Power(xij,8.0) +
5053 26730.0*Power(rij,9.0)*Power(xij,9.0) +
5054 11583.0*Power(rij,10.0)*Power(xij,10.0) +
5055 1406.0*Power(rij,11.0)*Power(xij,11.0) + 29.0*Power(rij,12.0)*Power(xij,12.0)) \
5056 - 66.0*Power(xii,16.0)*Power(xij,10.0)*
5057 (-131572350.0 - 263144700.0*rij*xij -
5058 263144700.0*Power(rij,2.0)*Power(xij,2.0) -
5059 178869600.0*Power(rij,3.0)*Power(xij,3.0) -
5060 63636300.0*Power(rij,4.0)*Power(xij,4.0) -
5061 76650210.0*Power(rij,5.0)*Power(xij,5.0) +
5062 7510230.0*Power(rij,6.0)*Power(xij,6.0) -
5063 1096020.0*Power(rij,7.0)*Power(xij,7.0) -
5064 2359515.0*Power(rij,8.0)*Power(xij,8.0) -
5065 455070.0*Power(rij,9.0)*Power(xij,9.0) -
5066 25722.0*Power(rij,10.0)*Power(xij,10.0) +
5067 716.0*Power(rij,11.0)*Power(xij,11.0) + 86.0*Power(rij,12.0)*Power(xij,12.0)) \
5068 + Power(xii,24.0)*Power(xij,2.0)*(23856525.0 + 47713050.0*rij*xij +
5069 47713050.0*Power(rij,2.0)*Power(xij,2.0) +
5070 31808700.0*Power(rij,3.0)*Power(xij,3.0) +
5071 15904350.0*Power(rij,4.0)*Power(xij,4.0) +
5072 6361740.0*Power(rij,5.0)*Power(xij,5.0) +
5073 2120580.0*Power(rij,6.0)*Power(xij,6.0) +
5074 605880.0*Power(rij,7.0)*Power(xij,7.0) +
5075 151470.0*Power(rij,8.0)*Power(xij,8.0) +
5076 33660.0*Power(rij,9.0)*Power(xij,9.0) +
5077 6732.0*Power(rij,10.0)*Power(xij,10.0) +
5078 1784.0*Power(rij,11.0)*Power(xij,11.0) + 92.0*Power(rij,12.0)*Power(xij,12.0)) \
5079 + 33.0*Power(xii,10.0)*Power(xij,16.0)*
5080 (2759659875.0 + 5519319750.0*rij*xij -
5081 33545959650.0*Power(rij,2.0)*Power(xij,2.0) +
5082 10690917300.0*Power(rij,3.0)*Power(xij,3.0) +
5083 5050165050.0*Power(rij,4.0)*Power(xij,4.0) -
5084 924808500.0*Power(rij,5.0)*Power(xij,5.0) -
5085 639355500.0*Power(rij,6.0)*Power(xij,6.0) -
5086 107153640.0*Power(rij,7.0)*Power(xij,7.0) -
5087 4761930.0*Power(rij,8.0)*Power(xij,8.0) +
5088 823020.0*Power(rij,9.0)*Power(xij,9.0) +
5089 138060.0*Power(rij,10.0)*Power(xij,10.0) +
5090 8200.0*Power(rij,11.0)*Power(xij,11.0) + 172.0*Power(rij,12.0)*Power(xij,12.0))\
5091 ))/(1.403325e6*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5092 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
5093 ;
5094 }
5095 return S;
5096 }
5097
5098 double DSlater_3S_1S(double rij,double xii,double xij)
5099 {
5100 return DSlater_1S_3S(rij,xij,xii);
5101 }
5102
5103 double DSlater_3S_2S(double rij,double xii,double xij)
5104 {
5105 return DSlater_2S_3S(rij,xij,xii);
5106 }
5107
5108 static double DSlater_4S_4S(double rij,double xij,double xii)
5109 {
5110 double S;
5111
5112 if (xii == xij) {
5113 S = (-20922789888000.0 + 20922789888000.0*Power(E,2.0*rij*xii) -
5114 41845579776000.0*rij*xii - 41845579776000.0*Power(rij,2.0)*Power(xii,2.0) -
5115 27805745842875.0*Power(rij,3.0)*Power(xii,3.0) -
5116 13765911909750.0*Power(rij,4.0)*Power(xii,4.0) -
5117 5399605411200.0*Power(rij,5.0)*Power(xii,5.0) -
5118 1743679337400.0*Power(rij,6.0)*Power(xii,6.0) -
5119 476010334800.0*Power(rij,7.0)*Power(xii,7.0) -
5120 112021509600.0*Power(rij,8.0)*Power(xii,8.0) -
5121 23063040000.0*Power(rij,9.0)*Power(xii,9.0) -
5122 4197473280.0*Power(rij,10.0)*Power(xii,10.0) -
5123 679311360.0*Power(rij,11.0)*Power(xii,11.0) -
5124 97843200.0*Power(rij,12.0)*Power(xii,12.0) -
5125 12472320.0*Power(rij,13.0)*Power(xii,13.0) -
5126 1382400.0*Power(rij,14.0)*Power(xii,14.0) -
5127 126976.0*Power(rij,15.0)*Power(xii,15.0) - 8192.0*Power(rij,16.0)*Power(xii,16.0))/
5128 (2.0922789888e13*Power(E,2.0*rij*xii)*Power(rij,2.0))
5129 ;
5130 }
5131 else {
5132 S = (315.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
5133 Power(E,2.0*rij*xij)*Power(xij,10.0)*
5134 (-1428.0*Power(rij,6.0)*Power(xii,26.0) - 78.0*Power(rij,7.0)*Power(xii,27.0) -
5135 2.0*Power(rij,8.0)*Power(xii,28.0) + 315.0*Power(xij,20.0) +
5136 630.0*rij*xii*Power(xij,20.0) +
5137 210.0*rij*Power(xii,3.0)*Power(xij,18.0)*
5138 (-45.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
5139 315.0*Power(xii,2.0)*Power(xij,18.0)*(-15.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
5140 42.0*Power(rij,5.0)*Power(xii,25.0)*(377.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) +
5141 42.0*Power(rij,4.0)*Power(xii,24.0)*
5142 (-2730.0 - 190.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
5143 + 42.0*rij*Power(xii,5.0)*Power(xij,16.0)*
5144 (1575.0 - 150.0*Power(rij,2.0)*Power(xij,2.0) +
5145 2.0*Power(rij,4.0)*Power(xij,4.0)) +
5146 105.0*Power(xii,4.0)*Power(xij,16.0)*
5147 (315.0 - 90.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
5148 + 63.0*Power(rij,3.0)*Power(xii,23.0)*
5149 (-8645.0 - 2180.0*Power(rij,2.0)*Power(xij,2.0) +
5150 32.0*Power(rij,4.0)*Power(xij,4.0)) +
5151 2.0*rij*Power(xii,7.0)*Power(xij,14.0)*
5152 (-143325.0 + 22050.0*Power(rij,2.0)*Power(xij,2.0) -
5153 630.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5154 7.0*Power(xii,6.0)*Power(xij,14.0)*
5155 (-20475.0 + 9450.0*Power(rij,2.0)*Power(xij,2.0) -
5156 450.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5157 21.0*rij*Power(xii,11.0)*Power(xij,10.0)*
5158 (-209430.0 - 112125.0*Power(rij,2.0)*Power(xij,2.0) -
5159 8288.0*Power(rij,4.0)*Power(xij,4.0) + 10.0*Power(rij,6.0)*Power(xij,6.0)) -
5160 21.0*rij*Power(xii,9.0)*Power(xij,12.0)*
5161 (-40950.0 + 11245.0*Power(rij,2.0)*Power(xij,2.0) -
5162 222.0*Power(rij,4.0)*Power(xij,4.0) + 10.0*Power(rij,6.0)*Power(xij,6.0)) +
5163 7.0*rij*Power(xii,19.0)*Power(xij,2.0)*
5164 (-7711200.0 - 1605825.0*Power(rij,2.0)*Power(xij,2.0) +
5165 55104.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
5166 4.0*Power(rij,2.0)*Power(xii,22.0)*
5167 (401310.0 + 341775.0*Power(rij,2.0)*Power(xij,2.0) -
5168 9009.0*Power(rij,4.0)*Power(xij,4.0) + 32.0*Power(rij,6.0)*Power(xij,6.0)) +
5169 105.0*rij*Power(xii,17.0)*Power(xij,4.0)*
5170 (-2087532.0 + 267621.0*Power(rij,2.0)*Power(xij,2.0) -
5171 10348.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) -
5172 105.0*rij*Power(xii,15.0)*Power(xij,6.0)*
5173 (2126142.0 - 103075.0*Power(rij,2.0)*Power(xij,2.0) -
5174 4680.0*Power(rij,4.0)*Power(xij,4.0) + 56.0*Power(rij,6.0)*Power(xij,6.0)) +
5175 21.0*Power(xii,10.0)*Power(xij,10.0)*
5176 (-104715.0 + 83850.0*Power(rij,2.0)*Power(xij,2.0) +
5177 4030.0*Power(rij,4.0)*Power(xij,4.0) + 404.0*Power(rij,6.0)*Power(xij,6.0)) -
5178 70.0*Power(xii,18.0)*Power(xij,2.0)*
5179 (385560.0 + 1201608.0*Power(rij,2.0)*Power(xij,2.0) -
5180 84195.0*Power(rij,4.0)*Power(xij,4.0) + 1064.0*Power(rij,6.0)*Power(xij,6.0)) \
5181 - 3.0*rij*Power(xii,21.0)*(835380.0 + 2774625.0*Power(rij,2.0)*Power(xij,2.0) -
5182 94836.0*Power(rij,4.0)*Power(xij,4.0) + 1160.0*Power(rij,6.0)*Power(xij,6.0)) \
5183 + rij*Power(xii,13.0)*Power(xij,8.0)*
5184 (-50825250.0 - 16261245.0*Power(rij,2.0)*Power(xij,2.0) +
5185 248640.0*Power(rij,4.0)*Power(xij,4.0) + 2024.0*Power(rij,6.0)*Power(xij,6.0)\
5186 ) - 70.0*Power(xii,16.0)*Power(xij,4.0)*
5187 (1565649.0 - 145035.0*Power(rij,2.0)*Power(xij,2.0) +
5188 63465.0*Power(rij,4.0)*Power(xij,4.0) -
5189 1560.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
5190 Power(xii,8.0)*Power(xij,12.0)*
5191 (429975.0 - 286650.0*Power(rij,2.0)*Power(xij,2.0) +
5192 22050.0*Power(rij,4.0)*Power(xij,4.0) -
5193 420.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5194 7.0*Power(xii,12.0)*Power(xij,8.0)*
5195 (3630375.0 - 2811510.0*Power(rij,2.0)*Power(xij,2.0) -
5196 298350.0*Power(rij,4.0)*Power(xij,4.0) +
5197 1688.0*Power(rij,6.0)*Power(xij,6.0) + 6.0*Power(rij,8.0)*Power(xij,8.0)) +
5198 14.0*Power(xii,20.0)*(-89505.0 - 2135700.0*Power(rij,2.0)*Power(xij,2.0) +
5199 24030.0*Power(rij,4.0)*Power(xij,4.0) -
5200 1236.0*Power(rij,6.0)*Power(xij,6.0) + 10.0*Power(rij,8.0)*Power(xij,8.0)) +
5201 Power(xii,14.0)*Power(xij,6.0)*
5202 (-111622455.0 + 84253050.0*Power(rij,2.0)*Power(xij,2.0) -
5203 2497950.0*Power(rij,4.0)*Power(xij,4.0) -
5204 40320.0*Power(rij,6.0)*Power(xij,6.0) + 128.0*Power(rij,8.0)*Power(xij,8.0))) \
5205 + Power(E,2.0*rij*xii)*Power(xii,10.0)*
5206 (105.0*Power(xii,18.0)*Power(xij,2.0)*
5207 (45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
5208 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
5209 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0) +
5210 2.0*Power(rij,7.0)*Power(xij,7.0)) +
5211 105.0*Power(xii,2.0)*Power(xij,18.0)*
5212 (257040.0 + 514080.0*rij*xij + 284760.0*Power(rij,2.0)*Power(xij,2.0) +
5213 79275.0*Power(rij,3.0)*Power(xij,3.0) +
5214 13020.0*Power(rij,4.0)*Power(xij,4.0) +
5215 1308.0*Power(rij,5.0)*Power(xij,5.0) + 76.0*Power(rij,6.0)*Power(xij,6.0) +
5216 2.0*Power(rij,7.0)*Power(xij,7.0)) -
5217 1365.0*Power(xii,10.0)*Power(xij,10.0)*
5218 (-1611.0 - 3222.0*rij*xij + 14418.0*Power(rij,2.0)*Power(xij,2.0) -
5219 11913.0*Power(rij,3.0)*Power(xij,3.0) -
5220 1830.0*Power(rij,4.0)*Power(xij,4.0) + 360.0*Power(rij,5.0)*Power(xij,5.0) +
5221 80.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
5222 Power(xii,14.0)*Power(xij,6.0)*
5223 (143325.0 + 286650.0*rij*xij + 286650.0*Power(rij,2.0)*Power(xij,2.0) +
5224 236145.0*Power(rij,3.0)*Power(xij,3.0) -
5225 84630.0*Power(rij,4.0)*Power(xij,4.0) +
5226 174048.0*Power(rij,5.0)*Power(xij,5.0) +
5227 11816.0*Power(rij,6.0)*Power(xij,6.0) -
5228 2024.0*Power(rij,7.0)*Power(xij,7.0) - 128.0*Power(rij,8.0)*Power(xij,8.0)) +
5229 21.0*Power(xii,16.0)*Power(xij,4.0)*
5230 (-1575.0 - 3150.0*rij*xij - 3150.0*Power(rij,2.0)*Power(xij,2.0) -
5231 2100.0*Power(rij,3.0)*Power(xij,3.0) - 1050.0*Power(rij,4.0)*Power(xij,4.0) -
5232 222.0*Power(rij,5.0)*Power(xij,5.0) - 404.0*Power(rij,6.0)*Power(xij,6.0) -
5233 10.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5234 Power(xii,20.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
5235 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
5236 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
5237 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
5238 Power(xij,20.0)*(1253070.0 + 2506140.0*rij*xij +
5239 1605240.0*Power(rij,2.0)*Power(xij,2.0) +
5240 544635.0*Power(rij,3.0)*Power(xij,3.0) +
5241 114660.0*Power(rij,4.0)*Power(xij,4.0) +
5242 15834.0*Power(rij,5.0)*Power(xij,5.0) +
5243 1428.0*Power(rij,6.0)*Power(xij,6.0) + 78.0*Power(rij,7.0)*Power(xij,7.0) +
5244 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5245 21.0*Power(xii,4.0)*Power(xij,16.0)*
5246 (-5218830.0 - 10437660.0*rij*xij - 4005360.0*Power(rij,2.0)*Power(xij,2.0) -
5247 535275.0*Power(rij,3.0)*Power(xij,3.0) +
5248 16020.0*Power(rij,4.0)*Power(xij,4.0) +
5249 13548.0*Power(rij,5.0)*Power(xij,5.0) +
5250 1716.0*Power(rij,6.0)*Power(xij,6.0) + 96.0*Power(rij,7.0)*Power(xij,7.0) +
5251 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5252 35.0*Power(xii,8.0)*Power(xij,12.0)*
5253 (-726075.0 - 1452150.0*rij*xij + 2407230.0*Power(rij,2.0)*Power(xij,2.0) +
5254 309225.0*Power(rij,3.0)*Power(xij,3.0) -
5255 126930.0*Power(rij,4.0)*Power(xij,4.0) -
5256 31044.0*Power(rij,5.0)*Power(xij,5.0) -
5257 2128.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0) +
5258 4.0*Power(rij,8.0)*Power(xij,8.0)) +
5259 35.0*Power(xii,12.0)*Power(xij,8.0)*
5260 (-12285.0 - 24570.0*rij*xij - 50310.0*Power(rij,2.0)*Power(xij,2.0) +
5261 67275.0*Power(rij,3.0)*Power(xij,3.0) -
5262 59670.0*Power(rij,4.0)*Power(xij,4.0) -
5263 7104.0*Power(rij,5.0)*Power(xij,5.0) + 1152.0*Power(rij,6.0)*Power(xij,6.0) +
5264 168.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
5265 Power(xii,6.0)*Power(xij,14.0)*
5266 (111622455.0 + 223244910.0*rij*xij -
5267 10152450.0*Power(rij,2.0)*Power(xij,2.0) -
5268 28100205.0*Power(rij,3.0)*Power(xij,3.0) -
5269 5893650.0*Power(rij,4.0)*Power(xij,4.0) -
5270 385728.0*Power(rij,5.0)*Power(xij,5.0) +
5271 17304.0*Power(rij,6.0)*Power(xij,6.0) + 3480.0*Power(rij,7.0)*Power(xij,7.0) +
5272 128.0*Power(rij,8.0)*Power(xij,8.0))))/
5273 (315.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5274 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
5275 ;
5276 }
5277 return S;
5278 }
5279
5280 static double DSlater_4S_5S(double rij,double xij,double xii)
5281 {
5282 double S;
5283
5284 if (xii == xij) {
5285 S = (-1778437140480000.0 + 1778437140480000.0*Power(E,2.0*rij*xii) -
5286 3556874280960000.0*rij*xii - 3556874280960000.0*Power(rij,2.0)*Power(xii,2.0) -
5287 2366075437976250.0*Power(rij,3.0)*Power(xii,3.0) -
5288 1175276594992500.0*Power(rij,4.0)*Power(xii,4.0) -
5289 464005220453775.0*Power(rij,5.0)*Power(xii,5.0) -
5290 151391487797550.0*Power(rij,6.0)*Power(xii,6.0) -
5291 41921958078000.0*Power(rij,7.0)*Power(xii,7.0) -
5292 10045335900600.0*Power(rij,8.0)*Power(xii,8.0) -
5293 2113817706000.0*Power(rij,9.0)*Power(xii,9.0) -
5294 395085731040.0*Power(rij,10.0)*Power(xii,10.0) -
5295 66153185280.0*Power(rij,11.0)*Power(xii,11.0) -
5296 9980006400.0*Power(rij,12.0)*Power(xii,12.0) -
5297 1359912960.0*Power(rij,13.0)*Power(xii,13.0) -
5298 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
5299 18382848.0*Power(rij,15.0)*Power(xii,15.0) -
5300 1775616.0*Power(rij,16.0)*Power(xii,16.0) -
5301 143360.0*Power(rij,17.0)*Power(xii,17.0) - 8192.0*Power(rij,18.0)*Power(xii,18.0))/
5302 (1.77843714048e15*Power(E,2.0*rij*xii)*Power(rij,2.0))
5303 ;
5304 }
5305 else {
5306 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
5307 9.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
5308 (-460.0*Power(rij,7.0)*Power(xii,29.0) - 10.0*Power(rij,8.0)*Power(xii,30.0) +
5309 1575.0*Power(xij,22.0) + 3150.0*rij*xii*Power(xij,22.0) -
5310 50.0*Power(rij,6.0)*Power(xii,28.0)*(196.0 + Power(rij,2.0)*Power(xij,2.0)) +
5311 1050.0*rij*Power(xii,3.0)*Power(xij,20.0)*
5312 (-51.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
5313 1575.0*Power(xii,2.0)*Power(xij,20.0)*
5314 (-17.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
5315 30.0*Power(rij,5.0)*Power(xii,27.0)*
5316 (4165.0 + 128.0*Power(rij,2.0)*Power(xij,2.0)) +
5317 420.0*rij*Power(xii,5.0)*Power(xij,18.0)*
5318 (1020.0 - 85.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
5319 1050.0*Power(xii,4.0)*Power(xij,18.0)*
5320 (204.0 - 51.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
5321 42.0*Power(rij,4.0)*Power(xii,26.0)*
5322 (-24500.0 - 2780.0*Power(rij,2.0)*Power(xij,2.0) +
5323 9.0*Power(rij,4.0)*Power(xij,4.0)) +
5324 210.0*Power(rij,3.0)*Power(xii,25.0)*
5325 (-26180.0 - 9333.0*Power(rij,2.0)*Power(xij,2.0) +
5326 74.0*Power(rij,4.0)*Power(xij,4.0)) +
5327 20.0*rij*Power(xii,7.0)*Power(xij,16.0)*
5328 (-107100.0 + 14280.0*Power(rij,2.0)*Power(xij,2.0) -
5329 357.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
5330 70.0*Power(xii,6.0)*Power(xij,16.0)*
5331 (-15300.0 + 6120.0*Power(rij,2.0)*Power(xij,2.0) -
5332 255.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
5333 42.0*rij*Power(xii,11.0)*Power(xij,12.0)*
5334 (1723800.0 + 1096500.0*Power(rij,2.0)*Power(xij,2.0) +
5335 52703.0*Power(rij,4.0)*Power(xij,4.0) + 80.0*Power(rij,6.0)*Power(xij,6.0)) -
5336 340.0*rij*Power(xii,15.0)*Power(xij,8.0)*
5337 (23752701.0 + 491820.0*Power(rij,2.0)*Power(xij,2.0) -
5338 44772.0*Power(rij,4.0)*Power(xij,4.0) + 116.0*Power(rij,6.0)*Power(xij,6.0)) \
5339 - 2.0*Power(rij,2.0)*Power(xii,24.0)*
5340 (8996400.0 + 10103100.0*Power(rij,2.0)*Power(xij,2.0) -
5341 102522.0*Power(rij,4.0)*Power(xij,4.0) + 263.0*Power(rij,6.0)*Power(xij,6.0)) \
5342 - 70.0*rij*Power(xii,17.0)*Power(xij,6.0)*
5343 (180826281.0 - 14550096.0*Power(rij,2.0)*Power(xij,2.0) +
5344 184314.0*Power(rij,4.0)*Power(xij,4.0) + 340.0*Power(rij,6.0)*Power(xij,6.0)) \
5345 + 68.0*rij*Power(xii,13.0)*Power(xij,10.0)*
5346 (-20763225.0 - 6046950.0*Power(rij,2.0)*Power(xij,2.0) -
5347 9324.0*Power(rij,4.0)*Power(xij,4.0) + 425.0*Power(rij,6.0)*Power(xij,6.0)) +
5348 4.0*rij*Power(xii,23.0)*(-7630875.0 -
5349 32594100.0*Power(rij,2.0)*Power(xij,2.0) -
5350 71127.0*Power(rij,4.0)*Power(xij,4.0) + 650.0*Power(rij,6.0)*Power(xij,6.0)) \
5351 - 2.0*rij*Power(xii,9.0)*Power(xij,14.0)*
5352 (-3748500.0 + 1014300.0*Power(rij,2.0)*Power(xij,2.0) -
5353 7539.0*Power(rij,4.0)*Power(xij,4.0) + 670.0*Power(rij,6.0)*Power(xij,6.0)) +
5354 14.0*rij*Power(xii,19.0)*Power(xij,4.0)*
5355 (-451386135.0 + 14910390.0*Power(rij,2.0)*Power(xij,2.0) -
5356 777342.0*Power(rij,4.0)*Power(xij,4.0) + 6800.0*Power(rij,6.0)*Power(xij,6.0)\
5357 ) - 4.0*rij*Power(xii,21.0)*Power(xij,2.0)*
5358 (239609475.0 + 116284245.0*Power(rij,2.0)*Power(xij,2.0) -
5359 3442719.0*Power(rij,4.0)*Power(xij,4.0) +
5360 17510.0*Power(rij,6.0)*Power(xij,6.0)) +
5361 10.0*Power(xii,8.0)*Power(xij,14.0)*
5362 (374850.0 - 214200.0*Power(rij,2.0)*Power(xij,2.0) +
5363 14280.0*Power(rij,4.0)*Power(xij,4.0) -
5364 238.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
5365 2.0*Power(xii,10.0)*Power(xij,12.0)*
5366 (-18099900.0 + 11406150.0*Power(rij,2.0)*Power(xij,2.0) +
5367 844200.0*Power(rij,4.0)*Power(xij,4.0) +
5368 37548.0*Power(rij,6.0)*Power(xij,6.0) + 25.0*Power(rij,8.0)*Power(xij,8.0)) -
5369 14.0*Power(xii,12.0)*Power(xij,10.0)*
5370 (50424975.0 - 32917950.0*Power(rij,2.0)*Power(xij,2.0) -
5371 2731050.0*Power(rij,4.0)*Power(xij,4.0) -
5372 5212.0*Power(rij,6.0)*Power(xij,6.0) + 27.0*Power(rij,8.0)*Power(xij,8.0)) -
5373 35.0*Power(xii,18.0)*Power(xij,4.0)*
5374 (90277227.0 + 71255790.0*Power(rij,2.0)*Power(xij,2.0) -
5375 1723800.0*Power(rij,4.0)*Power(xij,4.0) -
5376 16864.0*Power(rij,6.0)*Power(xij,6.0) + 68.0*Power(rij,8.0)*Power(xij,8.0)) +
5377 14.0*Power(xii,20.0)*Power(xij,2.0)*
5378 (-34229925.0 - 184803525.0*Power(rij,2.0)*Power(xij,2.0) +
5379 8158275.0*Power(rij,4.0)*Power(xij,4.0) -
5380 116144.0*Power(rij,6.0)*Power(xij,6.0) + 170.0*Power(rij,8.0)*Power(xij,8.0)) \
5381 + 2.0*Power(xii,14.0)*Power(xij,8.0)*
5382 (-2018979585.0 + 1345818600.0*Power(rij,2.0)*Power(xij,2.0) +
5383 3016650.0*Power(rij,4.0)*Power(xij,4.0) -
5384 446012.0*Power(rij,6.0)*Power(xij,6.0) + 263.0*Power(rij,8.0)*Power(xij,8.0)) \
5385 - 2.0*Power(xii,22.0)*(7630875.0 + 249971400.0*Power(rij,2.0)*Power(xij,2.0) +
5386 19123125.0*Power(rij,4.0)*Power(xij,4.0) -
5387 325766.0*Power(rij,6.0)*Power(xij,6.0) + 306.0*Power(rij,8.0)*Power(xij,8.0)) \
5388 + Power(xii,16.0)*Power(xij,6.0)*(-6328919835.0 +
5389 2425600800.0*Power(rij,2.0)*Power(xij,2.0) -
5390 161149800.0*Power(rij,4.0)*Power(xij,4.0) +
5391 1051960.0*Power(rij,6.0)*Power(xij,6.0) + 612.0*Power(rij,8.0)*Power(xij,8.0))\
5392 ) + Power(E,2.0*rij*xii)*Power(xii,10.0)*
5393 (10710.0*Power(xii,12.0)*Power(xij,12.0)*
5394 (-3555.0 - 7110.0*rij*xij - 392400.0*Power(rij,2.0)*Power(xij,2.0) +
5395 425880.0*Power(rij,3.0)*Power(xij,3.0) -
5396 82260.0*Power(rij,4.0)*Power(xij,4.0) -
5397 46200.0*Power(rij,5.0)*Power(xij,5.0) -
5398 2064.0*Power(rij,6.0)*Power(xij,6.0) + 792.0*Power(rij,7.0)*Power(xij,7.0) +
5399 106.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) +
5400 2.0*Power(xii,18.0)*Power(xij,6.0)*
5401 (4819500.0 + 9639000.0*rij*xij + 9639000.0*Power(rij,2.0)*Power(xij,2.0) +
5402 6426000.0*Power(rij,3.0)*Power(xij,3.0) +
5403 3213000.0*Power(rij,4.0)*Power(xij,4.0) +
5404 1609524.0*Power(rij,5.0)*Power(xij,5.0) -
5405 274302.0*Power(rij,6.0)*Power(xij,6.0) +
5406 434844.0*Power(rij,7.0)*Power(xij,7.0) +
5407 50499.0*Power(rij,8.0)*Power(xij,8.0) -
5408 1762.0*Power(rij,9.0)*Power(xij,9.0) - 212.0*Power(rij,10.0)*Power(xij,10.0)) \
5409 + 2.0*Power(xii,2.0)*Power(xij,22.0)*
5410 (3264488325.0 + 6528976650.0*rij*xij +
5411 4129347600.0*Power(rij,2.0)*Power(xij,2.0) +
5412 1391229000.0*Power(rij,3.0)*Power(xij,3.0) +
5413 294632100.0*Power(rij,4.0)*Power(xij,4.0) +
5414 41833260.0*Power(rij,5.0)*Power(xij,5.0) +
5415 4026330.0*Power(rij,6.0)*Power(xij,6.0) +
5416 251820.0*Power(rij,7.0)*Power(xij,7.0) +
5417 8775.0*Power(rij,8.0)*Power(xij,8.0) + 70.0*Power(rij,9.0)*Power(xij,9.0) -
5418 4.0*Power(rij,10.0)*Power(xij,10.0)) +
5419 4.0*Power(xij,24.0)*(59520825.0 + 119041650.0*rij*xij +
5420 84582225.0*Power(rij,2.0)*Power(xij,2.0) +
5421 33415200.0*Power(rij,3.0)*Power(xij,3.0) +
5422 8599500.0*Power(rij,4.0)*Power(xij,4.0) +
5423 1547910.0*Power(rij,5.0)*Power(xij,5.0) +
5424 200655.0*Power(rij,6.0)*Power(xij,6.0) +
5425 18720.0*Power(rij,7.0)*Power(xij,7.0) +
5426 1215.0*Power(rij,8.0)*Power(xij,8.0) + 50.0*Power(rij,9.0)*Power(xij,9.0) +
5427 Power(rij,10.0)*Power(xij,10.0)) -
5428 Power(xii,24.0)*(14175.0 + 28350.0*rij*xij +
5429 28350.0*Power(rij,2.0)*Power(xij,2.0) +
5430 18900.0*Power(rij,3.0)*Power(xij,3.0) +
5431 9450.0*Power(rij,4.0)*Power(xij,4.0) + 3780.0*Power(rij,5.0)*Power(xij,5.0) +
5432 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
5433 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
5434 4.0*Power(rij,10.0)*Power(xij,10.0)) -
5435 204.0*Power(xii,14.0)*Power(xij,10.0)*
5436 (-429975.0 - 859950.0*rij*xij - 307125.0*Power(rij,2.0)*Power(xij,2.0) -
5437 3071250.0*Power(rij,3.0)*Power(xij,3.0) +
5438 2395575.0*Power(rij,4.0)*Power(xij,4.0) -
5439 620802.0*Power(rij,5.0)*Power(xij,5.0) -
5440 234234.0*Power(rij,6.0)*Power(xij,6.0) -
5441 5004.0*Power(rij,7.0)*Power(xij,7.0) + 2949.0*Power(rij,8.0)*Power(xij,8.0) +
5442 242.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
5443 102.0*Power(xii,10.0)*Power(xij,14.0)*
5444 (44986725.0 + 89973450.0*rij*xij -
5445 239334480.0*Power(rij,2.0)*Power(xij,2.0) +
5446 57221640.0*Power(rij,3.0)*Power(xij,3.0) +
5447 33086340.0*Power(rij,4.0)*Power(xij,4.0) +
5448 1567440.0*Power(rij,5.0)*Power(xij,5.0) -
5449 825300.0*Power(rij,6.0)*Power(xij,6.0) -
5450 141912.0*Power(rij,7.0)*Power(xij,7.0) -
5451 8094.0*Power(rij,8.0)*Power(xij,8.0) - 44.0*Power(rij,9.0)*Power(xij,9.0) +
5452 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5453 Power(xii,22.0)*Power(xij,2.0)*
5454 (240975.0 + 481950.0*rij*xij + 481950.0*Power(rij,2.0)*Power(xij,2.0) +
5455 321300.0*Power(rij,3.0)*Power(xij,3.0) +
5456 160650.0*Power(rij,4.0)*Power(xij,4.0) +
5457 64260.0*Power(rij,5.0)*Power(xij,5.0) +
5458 21420.0*Power(rij,6.0)*Power(xij,6.0) +
5459 6120.0*Power(rij,7.0)*Power(xij,7.0) + 1530.0*Power(rij,8.0)*Power(xij,8.0) +
5460 580.0*Power(rij,9.0)*Power(xij,9.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5461 2.0*Power(xii,20.0)*Power(xij,4.0)*
5462 (-963900.0 - 1927800.0*rij*xij - 1927800.0*Power(rij,2.0)*Power(xij,2.0) -
5463 1285200.0*Power(rij,3.0)*Power(xij,3.0) -
5464 642600.0*Power(rij,4.0)*Power(xij,4.0) -
5465 257040.0*Power(rij,5.0)*Power(xij,5.0) -
5466 85680.0*Power(rij,6.0)*Power(xij,6.0) -
5467 13788.0*Power(rij,7.0)*Power(xij,7.0) -
5468 15921.0*Power(rij,8.0)*Power(xij,8.0) - 826.0*Power(rij,9.0)*Power(xij,9.0) +
5469 40.0*Power(rij,10.0)*Power(xij,10.0)) -
5470 2.0*Power(xii,4.0)*Power(xij,20.0)*
5471 (-18032978565.0 - 36065957130.0*rij*xij -
5472 17600042880.0*Power(rij,2.0)*Power(xij,2.0) -
5473 3836450520.0*Power(rij,3.0)*Power(xij,3.0) -
5474 337429260.0*Power(rij,4.0)*Power(xij,4.0) +
5475 24444504.0*Power(rij,5.0)*Power(xij,5.0) +
5476 10247328.0*Power(rij,6.0)*Power(xij,6.0) +
5477 1284588.0*Power(rij,7.0)*Power(xij,7.0) +
5478 86157.0*Power(rij,8.0)*Power(xij,8.0) +
5479 3026.0*Power(rij,9.0)*Power(xij,9.0) + 40.0*Power(rij,10.0)*Power(xij,10.0)) +
5480 12.0*Power(xii,16.0)*Power(xij,8.0)*
5481 (-2811375.0 - 5622750.0*rij*xij - 5622750.0*Power(rij,2.0)*Power(xij,2.0) -
5482 3298050.0*Power(rij,3.0)*Power(xij,3.0) -
5483 4351725.0*Power(rij,4.0)*Power(xij,4.0) +
5484 2385432.0*Power(rij,5.0)*Power(xij,5.0) -
5485 1111761.0*Power(rij,6.0)*Power(xij,6.0) -
5486 242604.0*Power(rij,7.0)*Power(xij,7.0) +
5487 1950.0*Power(rij,8.0)*Power(xij,8.0) + 2072.0*Power(rij,9.0)*Power(xij,9.0) +
5488 73.0*Power(rij,10.0)*Power(xij,10.0)) -
5489 3.0*Power(xii,8.0)*Power(xij,16.0)*
5490 (-9364244085.0 - 18728488170.0*rij*xij +
5491 11763172890.0*Power(rij,2.0)*Power(xij,2.0) +
5492 4695905340.0*Power(rij,3.0)*Power(xij,3.0) -
5493 11704770.0*Power(rij,4.0)*Power(xij,4.0) -
5494 211923684.0*Power(rij,5.0)*Power(xij,5.0) -
5495 37532628.0*Power(rij,6.0)*Power(xij,6.0) -
5496 2522664.0*Power(rij,7.0)*Power(xij,7.0) -
5497 5874.0*Power(rij,8.0)*Power(xij,8.0) + 7772.0*Power(rij,9.0)*Power(xij,9.0) +
5498 292.0*Power(rij,10.0)*Power(xij,10.0)) +
5499 Power(xii,6.0)*Power(xij,18.0)*
5500 (57304872765.0 + 114609745530.0*rij*xij +
5501 20096073270.0*Power(rij,2.0)*Power(xij,2.0) -
5502 7496628300.0*Power(rij,3.0)*Power(xij,3.0) -
5503 3291811110.0*Power(rij,4.0)*Power(xij,4.0) -
5504 499851324.0*Power(rij,5.0)*Power(xij,5.0) -
5505 28415268.0*Power(rij,6.0)*Power(xij,6.0) +
5506 1457928.0*Power(rij,7.0)*Power(xij,7.0) +
5507 330210.0*Power(rij,8.0)*Power(xij,8.0) +
5508 19796.0*Power(rij,9.0)*Power(xij,9.0) + 424.0*Power(rij,10.0)*Power(xij,10.0)))\
5509 )/(14175.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5510 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
5511 ;
5512 }
5513 return S;
5514 }
5515
5516 static double DSlater_4S_6S(double rij,double xij,double xii)
5517 {
5518 double S;
5519
5520 if (xii == xij) {
5521 S = (-729870602452992000.0 + 729870602452992000.0*Power(E,2.0*rij*xii) -
5522 1459741204905984000.0*rij*xii -
5523 1459741204905984000.0*Power(rij,2.0)*Power(xii,2.0) -
5524 971930171227640625.0*Power(rij,3.0)*Power(xii,3.0) -
5525 484119137549297250.0*Power(rij,4.0)*Power(xii,4.0) -
5526 192174113906775000.0*Power(rij,5.0)*Power(xii,5.0) -
5527 63242978838039000.0*Power(rij,6.0)*Power(xii,6.0) -
5528 17722869187923900.0*Power(rij,7.0)*Power(xii,7.0) -
5529 4311139542910200.0*Power(rij,8.0)*Power(xii,8.0) -
5530 923450838710400.0*Power(rij,9.0)*Power(xii,9.0) -
5531 176129454140640.0*Power(rij,10.0)*Power(xii,10.0) -
5532 30179820041280.0*Power(rij,11.0)*Power(xii,11.0) -
5533 4679384411520.0*Power(rij,12.0)*Power(xii,12.0) -
5534 660128071680.0*Power(rij,13.0)*Power(xii,13.0) -
5535 85016494080.0*Power(rij,14.0)*Power(xii,14.0) -
5536 10001940480.0*Power(rij,15.0)*Power(xii,15.0) -
5537 1071636480.0*Power(rij,16.0)*Power(xii,16.0) -
5538 103661568.0*Power(rij,17.0)*Power(xii,17.0) -
5539 8871936.0*Power(rij,18.0)*Power(xii,18.0) -
5540 638976.0*Power(rij,19.0)*Power(xii,19.0) - 32768.0*Power(rij,20.0)*Power(xii,20.0))/
5541 (7.29870602452992e17*Power(E,2.0*rij*xii)*Power(rij,2.0))
5542 ;
5543 }
5544 else {
5545 S = (467775.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
5546 495.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
5547 (-318.0*Power(rij,7.0)*Power(xii,31.0) - 6.0*Power(rij,8.0)*Power(xii,32.0) +
5548 945.0*Power(xij,24.0) + 1890.0*rij*xii*Power(xij,24.0) +
5549 630.0*rij*Power(xii,3.0)*Power(xij,22.0)*
5550 (-57.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
5551 945.0*Power(xii,2.0)*Power(xij,22.0)*(-19.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
5552 4.0*Power(rij,6.0)*Power(xii,30.0)*(1932.0 + 17.0*Power(rij,2.0)*Power(xij,2.0)) -
5553 18.0*Power(rij,5.0)*Power(xii,29.0)*
5554 (6188.0 + 271.0*Power(rij,2.0)*Power(xij,2.0)) +
5555 126.0*rij*Power(xii,5.0)*Power(xij,20.0)*
5556 (2565.0 - 190.0*Power(rij,2.0)*Power(xij,2.0) +
5557 2.0*Power(rij,4.0)*Power(xij,4.0)) +
5558 315.0*Power(xii,4.0)*Power(xij,20.0)*
5559 (513.0 - 114.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
5560 + 4.0*Power(rij,4.0)*Power(xii,28.0)*
5561 (-257040.0 - 37821.0*Power(rij,2.0)*Power(xij,2.0) +
5562 62.0*Power(rij,4.0)*Power(xij,4.0)) +
5563 6.0*Power(rij,3.0)*Power(xii,27.0)*
5564 (-1017450.0 - 446082.0*Power(rij,2.0)*Power(xij,2.0) +
5565 1129.0*Power(rij,4.0)*Power(xij,4.0)) -
5566 6.0*rij*Power(xii,25.0)*(6715170.0 + 34042680.0*Power(rij,2.0)*Power(xij,2.0) +
5567 1106742.0*Power(rij,4.0)*Power(xij,4.0) -
5568 7261.0*Power(rij,6.0)*Power(xij,6.0)) -
5569 6.0*rij*Power(xii,13.0)*Power(xij,12.0)*
5570 (622475910.0 + 166454820.0*Power(rij,2.0)*Power(xij,2.0) +
5571 1261904.0*Power(rij,4.0)*Power(xij,4.0) -
5572 4639.0*Power(rij,6.0)*Power(xij,6.0)) -
5573 6.0*Power(rij,2.0)*Power(xii,26.0)*
5574 (3662820.0 + 4913685.0*Power(rij,2.0)*Power(xij,2.0) +
5575 15134.0*Power(rij,4.0)*Power(xij,4.0) - 46.0*Power(rij,6.0)*Power(xij,6.0)) +
5576 6.0*rij*Power(xii,7.0)*Power(xij,18.0)*
5577 (-305235.0 + 35910.0*Power(rij,2.0)*Power(xij,2.0) -
5578 798.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5579 21.0*Power(xii,6.0)*Power(xij,18.0)*
5580 (-43605.0 + 15390.0*Power(rij,2.0)*Power(xij,2.0) -
5581 570.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5582 114.0*rij*Power(xii,15.0)*Power(xij,10.0)*
5583 (-241392690.0 - 14001540.0*Power(rij,2.0)*Power(xij,2.0) +
5584 240380.0*Power(rij,4.0)*Power(xij,4.0) + 101.0*Power(rij,6.0)*Power(xij,6.0)) \
5585 - 6.0*rij*Power(xii,9.0)*Power(xij,16.0)*
5586 (-1220940.0 + 342720.0*Power(rij,2.0)*Power(xij,2.0) +
5587 462.0*Power(rij,4.0)*Power(xij,4.0) + 167.0*Power(rij,6.0)*Power(xij,6.0)) -
5588 342.0*rij*Power(xii,17.0)*Power(xij,8.0)*
5589 (183130605.0 - 6697320.0*Power(rij,2.0)*Power(xij,2.0) -
5590 26180.0*Power(rij,4.0)*Power(xij,4.0) + 374.0*Power(rij,6.0)*Power(xij,6.0)) \
5591 - 18.0*rij*Power(xii,11.0)*Power(xij,14.0)*
5592 (7393470.0 + 4725490.0*Power(rij,2.0)*Power(xij,2.0) +
5593 169358.0*Power(rij,4.0)*Power(xij,4.0) + 409.0*Power(rij,6.0)*Power(xij,6.0)) \
5594 + 42.0*rij*Power(xii,19.0)*Power(xij,6.0)*
5595 (-1241513955.0 + 70422930.0*Power(rij,2.0)*Power(xij,2.0) -
5596 1293292.0*Power(rij,4.0)*Power(xij,4.0) +
5597 3230.0*Power(rij,6.0)*Power(xij,6.0)) +
5598 6.0*rij*Power(xii,21.0)*Power(xij,4.0)*
5599 (-2722031235.0 - 183644790.0*Power(rij,2.0)*Power(xij,2.0) +
5600 2673034.0*Power(rij,4.0)*Power(xij,4.0) +
5601 3230.0*Power(rij,6.0)*Power(xij,6.0)) -
5602 18.0*rij*Power(xii,23.0)*Power(xij,2.0)*
5603 (95263245.0 + 69677230.0*Power(rij,2.0)*Power(xij,2.0) -
5604 1221038.0*Power(rij,4.0)*Power(xij,4.0) +
5605 5738.0*Power(rij,6.0)*Power(xij,6.0)) -
5606 21.0*Power(xii,20.0)*Power(xij,4.0)*
5607 (388861605.0 + 679369590.0*Power(rij,2.0)*Power(xij,2.0) -
5608 21408630.0*Power(rij,4.0)*Power(xij,4.0) +
5609 121448.0*Power(rij,6.0)*Power(xij,6.0)) +
5610 6.0*Power(xii,8.0)*Power(xij,16.0)*
5611 (610470.0 - 305235.0*Power(rij,2.0)*Power(xij,2.0) +
5612 17955.0*Power(rij,4.0)*Power(xij,4.0) -
5613 266.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
5614 2.0*Power(xii,10.0)*Power(xij,14.0)*
5615 (-33270615.0 + 16889670.0*Power(rij,2.0)*Power(xij,2.0) +
5616 1365525.0*Power(rij,4.0)*Power(xij,4.0) +
5617 37758.0*Power(rij,6.0)*Power(xij,6.0) + 34.0*Power(rij,8.0)*Power(xij,8.0)) -
5618 6.0*Power(xii,14.0)*Power(xij,10.0)*
5619 (2293230555.0 - 1340795610.0*Power(rij,2.0)*Power(xij,2.0) -
5620 20823810.0*Power(rij,4.0)*Power(xij,4.0) +
5621 201628.0*Power(rij,6.0)*Power(xij,6.0) + 46.0*Power(rij,8.0)*Power(xij,8.0)) \
5622 + 19.0*Power(xii,16.0)*Power(xij,8.0)*
5623 (-1648175445.0 + 756275940.0*Power(rij,2.0)*Power(xij,2.0) -
5624 18485460.0*Power(rij,4.0)*Power(xij,4.0) -
5625 14280.0*Power(rij,6.0)*Power(xij,6.0) + 106.0*Power(rij,8.0)*Power(xij,8.0)) \
5626 - 2.0*Power(xii,12.0)*Power(xij,12.0)*
5627 (933713865.0 - 515440170.0*Power(rij,2.0)*Power(xij,2.0) -
5628 35610750.0*Power(rij,4.0)*Power(xij,4.0) -
5629 158046.0*Power(rij,6.0)*Power(xij,6.0) + 124.0*Power(rij,8.0)*Power(xij,8.0)) \
5630 - 2.0*Power(xii,24.0)*(10072755.0 + 420272685.0*Power(rij,2.0)*Power(xij,2.0) +
5631 63685755.0*Power(rij,4.0)*Power(xij,4.0) -
5632 770154.0*Power(rij,6.0)*Power(xij,6.0) + 1007.0*Power(rij,8.0)*Power(xij,8.0)\
5633 ) - Power(xii,18.0)*Power(xij,6.0)*
5634 (26071793055.0 + 1689529590.0*Power(rij,2.0)*Power(xij,2.0) +
5635 229129740.0*Power(rij,4.0)*Power(xij,4.0) -
5636 3527160.0*Power(rij,6.0)*Power(xij,6.0) +
5637 2584.0*Power(rij,8.0)*Power(xij,8.0)) +
5638 Power(xii,22.0)*Power(xij,2.0)*
5639 (-857369205.0 - 6658320690.0*Power(rij,2.0)*Power(xij,2.0) +
5640 89662230.0*Power(rij,4.0)*Power(xij,4.0) -
5641 1176252.0*Power(rij,6.0)*Power(xij,6.0) + 2584.0*Power(rij,8.0)*Power(xij,8.0)\
5642 )) + Power(E,2.0*rij*xii)*Power(xii,10.0)*
5643 (-21318.0*Power(xii,14.0)*Power(xij,14.0)*
5644 (-1573425.0 - 3146850.0*rij*xij + 17151750.0*Power(rij,2.0)*Power(xij,2.0) -
5645 36684900.0*Power(rij,3.0)*Power(xij,3.0) +
5646 14486850.0*Power(rij,4.0)*Power(xij,4.0) +
5647 1682100.0*Power(rij,5.0)*Power(xij,5.0) -
5648 1152900.0*Power(rij,6.0)*Power(xij,6.0) -
5649 221940.0*Power(rij,7.0)*Power(xij,7.0) -
5650 1620.0*Power(rij,8.0)*Power(xij,8.0) + 2760.0*Power(rij,9.0)*Power(xij,9.0) +
5651 264.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
5652 9.0*Power(xii,22.0)*Power(xij,6.0)*
5653 (50363775.0 + 100727550.0*rij*xij +
5654 100727550.0*Power(rij,2.0)*Power(xij,2.0) +
5655 67151700.0*Power(rij,3.0)*Power(xij,3.0) +
5656 33575850.0*Power(rij,4.0)*Power(xij,4.0) +
5657 13430340.0*Power(rij,5.0)*Power(xij,5.0) +
5658 4476780.0*Power(rij,6.0)*Power(xij,6.0) +
5659 1562220.0*Power(rij,7.0)*Power(xij,7.0) -
5660 104940.0*Power(rij,8.0)*Power(xij,8.0) +
5661 199320.0*Power(rij,9.0)*Power(xij,9.0) +
5662 28248.0*Power(rij,10.0)*Power(xij,10.0) +
5663 56.0*Power(rij,11.0)*Power(xij,11.0) - 64.0*Power(rij,12.0)*Power(xij,12.0)) +
5664 2.0*Power(xii,2.0)*Power(xij,26.0)*
5665 (468534198825.0 + 937068397650.0*rij*xij +
5666 648987604650.0*Power(rij,2.0)*Power(xij,2.0) +
5667 248897776050.0*Power(rij,3.0)*Power(xij,3.0) +
5668 62249625900.0*Power(rij,4.0)*Power(xij,4.0) +
5669 10932296760.0*Power(rij,5.0)*Power(xij,5.0) +
5670 1391848920.0*Power(rij,6.0)*Power(xij,6.0) +
5671 128752470.0*Power(rij,7.0)*Power(xij,7.0) +
5672 8381835.0*Power(rij,8.0)*Power(xij,8.0) +
5673 346830.0*Power(rij,9.0)*Power(xij,9.0) +
5674 6006.0*Power(rij,10.0)*Power(xij,10.0) -
5675 158.0*Power(rij,11.0)*Power(xij,11.0) - 8.0*Power(rij,12.0)*Power(xij,12.0)) +
5676 2.0*Power(xij,28.0)*(13749310575.0 + 27498621150.0*rij*xij +
5677 20951330400.0*Power(rij,2.0)*Power(xij,2.0) +
5678 9166207050.0*Power(rij,3.0)*Power(xij,3.0) +
5679 2687835150.0*Power(rij,4.0)*Power(xij,4.0) +
5680 569729160.0*Power(rij,5.0)*Power(xij,5.0) +
5681 90810720.0*Power(rij,6.0)*Power(xij,6.0) +
5682 11081070.0*Power(rij,7.0)*Power(xij,7.0) +
5683 1036035.0*Power(rij,8.0)*Power(xij,8.0) +
5684 72930.0*Power(rij,9.0)*Power(xij,9.0) +
5685 3696.0*Power(rij,10.0)*Power(xij,10.0) +
5686 122.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
5687 1254.0*Power(xii,16.0)*Power(xij,12.0)*
5688 (-10120950.0 - 20241900.0*rij*xij -
5689 27471150.0*Power(rij,2.0)*Power(xij,2.0) +
5690 28435050.0*Power(rij,3.0)*Power(xij,3.0) -
5691 71328600.0*Power(rij,4.0)*Power(xij,4.0) +
5692 25843860.0*Power(rij,5.0)*Power(xij,5.0) +
5693 865620.0*Power(rij,6.0)*Power(xij,6.0) -
5694 2061990.0*Power(rij,7.0)*Power(xij,7.0) -
5695 276885.0*Power(rij,8.0)*Power(xij,8.0) +
5696 5010.0*Power(rij,9.0)*Power(xij,9.0) +
5697 2856.0*Power(rij,10.0)*Power(xij,10.0) +
5698 162.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
5699 627.0*Power(xii,12.0)*Power(xij,16.0)*
5700 (-620482275.0 - 1240964550.0*rij*xij +
5701 6396298650.0*Power(rij,2.0)*Power(xij,2.0) -
5702 3446622900.0*Power(rij,3.0)*Power(xij,3.0) -
5703 476705250.0*Power(rij,4.0)*Power(xij,4.0) +
5704 290390940.0*Power(rij,5.0)*Power(xij,5.0) +
5705 67514580.0*Power(rij,6.0)*Power(xij,6.0) +
5706 1373760.0*Power(rij,7.0)*Power(xij,7.0) -
5707 1053270.0*Power(rij,8.0)*Power(xij,8.0) -
5708 139980.0*Power(rij,9.0)*Power(xij,9.0) -
5709 6828.0*Power(rij,10.0)*Power(xij,10.0) -
5710 56.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
5711 Power(xii,28.0)*(467775.0 + 935550.0*rij*xij +
5712 935550.0*Power(rij,2.0)*Power(xij,2.0) +
5713 623700.0*Power(rij,3.0)*Power(xij,3.0) +
5714 311850.0*Power(rij,4.0)*Power(xij,4.0) +
5715 124740.0*Power(rij,5.0)*Power(xij,5.0) +
5716 41580.0*Power(rij,6.0)*Power(xij,6.0) +
5717 11880.0*Power(rij,7.0)*Power(xij,7.0) +
5718 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
5719 132.0*Power(rij,10.0)*Power(xij,10.0) +
5720 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
5721 6.0*Power(xii,4.0)*Power(xij,24.0)*
5722 (-1131220750275.0 - 2262441500550.0*rij*xij -
5723 1290622098150.0*Power(rij,2.0)*Power(xij,2.0) -
5724 366043916700.0*Power(rij,3.0)*Power(xij,3.0) -
5725 57112520850.0*Power(rij,4.0)*Power(xij,4.0) -
5726 3706773840.0*Power(rij,5.0)*Power(xij,5.0) +
5727 383949720.0*Power(rij,6.0)*Power(xij,6.0) +
5728 124315290.0*Power(rij,7.0)*Power(xij,7.0) +
5729 15397965.0*Power(rij,8.0)*Power(xij,8.0) +
5730 1138170.0*Power(rij,9.0)*Power(xij,9.0) +
5731 51414.0*Power(rij,10.0)*Power(xij,10.0) +
5732 1248.0*Power(rij,11.0)*Power(xij,11.0) + 10.0*Power(rij,12.0)*Power(xij,12.0)) \
5733 + Power(xii,26.0)*Power(xij,2.0)*(8887725.0 + 17775450.0*rij*xij +
5734 17775450.0*Power(rij,2.0)*Power(xij,2.0) +
5735 11850300.0*Power(rij,3.0)*Power(xij,3.0) +
5736 5925150.0*Power(rij,4.0)*Power(xij,4.0) +
5737 2370060.0*Power(rij,5.0)*Power(xij,5.0) +
5738 790020.0*Power(rij,6.0)*Power(xij,6.0) +
5739 225720.0*Power(rij,7.0)*Power(xij,7.0) +
5740 56430.0*Power(rij,8.0)*Power(xij,8.0) +
5741 12540.0*Power(rij,9.0)*Power(xij,9.0) +
5742 2508.0*Power(rij,10.0)*Power(xij,10.0) +
5743 756.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)) \
5744 + 3.0*Power(xii,24.0)*Power(xij,4.0)*
5745 (-26663175.0 - 53326350.0*rij*xij -
5746 53326350.0*Power(rij,2.0)*Power(xij,2.0) -
5747 35550900.0*Power(rij,3.0)*Power(xij,3.0) -
5748 17775450.0*Power(rij,4.0)*Power(xij,4.0) -
5749 7110180.0*Power(rij,5.0)*Power(xij,5.0) -
5750 2370060.0*Power(rij,6.0)*Power(xij,6.0) -
5751 677160.0*Power(rij,7.0)*Power(xij,7.0) -
5752 169290.0*Power(rij,8.0)*Power(xij,8.0) -
5753 23100.0*Power(rij,9.0)*Power(xij,9.0) -
5754 17688.0*Power(rij,10.0)*Power(xij,10.0) -
5755 1156.0*Power(rij,11.0)*Power(xij,11.0) + 20.0*Power(rij,12.0)*Power(xij,12.0)) \
5756 + 9.0*Power(xii,6.0)*Power(xij,22.0)*
5757 (1726271714475.0 + 3452543428950.0*rij*xij +
5758 1148702905350.0*Power(rij,2.0)*Power(xij,2.0) +
5759 9136581300.0*Power(rij,3.0)*Power(xij,3.0) -
5760 73193377950.0*Power(rij,4.0)*Power(xij,4.0) -
5761 19535877900.0*Power(rij,5.0)*Power(xij,5.0) -
5762 2453012100.0*Power(rij,6.0)*Power(xij,6.0) -
5763 132309540.0*Power(rij,7.0)*Power(xij,7.0) +
5764 5655540.0*Power(rij,8.0)*Power(xij,8.0) +
5765 1529880.0*Power(rij,9.0)*Power(xij,9.0) +
5766 116952.0*Power(rij,10.0)*Power(xij,10.0) +
5767 4344.0*Power(rij,11.0)*Power(xij,11.0) + 64.0*Power(rij,12.0)*Power(xij,12.0)) \
5768 + 22.0*Power(xii,20.0)*Power(xij,8.0)*
5769 (-82413450.0 - 164826900.0*rij*xij -
5770 164826900.0*Power(rij,2.0)*Power(xij,2.0) -
5771 109884600.0*Power(rij,3.0)*Power(xij,3.0) -
5772 54942300.0*Power(rij,4.0)*Power(xij,4.0) -
5773 19274220.0*Power(rij,5.0)*Power(xij,5.0) -
5774 15433740.0*Power(rij,6.0)*Power(xij,6.0) +
5775 4200390.0*Power(rij,7.0)*Power(xij,7.0) -
5776 1404855.0*Power(rij,8.0)*Power(xij,8.0) -
5777 416910.0*Power(rij,9.0)*Power(xij,9.0) -
5778 14874.0*Power(rij,10.0)*Power(xij,10.0) +
5779 1672.0*Power(rij,11.0)*Power(xij,11.0) + 82.0*Power(rij,12.0)*Power(xij,12.0)) \
5780 - 22.0*Power(xii,18.0)*Power(xij,10.0)*
5781 (-247240350.0 - 494480700.0*rij*xij -
5782 494480700.0*Power(rij,2.0)*Power(xij,2.0) -
5783 348449850.0*Power(rij,3.0)*Power(xij,3.0) -
5784 33254550.0*Power(rij,4.0)*Power(xij,4.0) -
5785 300279420.0*Power(rij,5.0)*Power(xij,5.0) +
5786 104656860.0*Power(rij,6.0)*Power(xij,6.0) -
5787 10052370.0*Power(rij,7.0)*Power(xij,7.0) -
5788 8727255.0*Power(rij,8.0)*Power(xij,8.0) -
5789 698070.0*Power(rij,9.0)*Power(xij,9.0) +
5790 37218.0*Power(rij,10.0)*Power(xij,10.0) +
5791 5686.0*Power(rij,11.0)*Power(xij,11.0) + 136.0*Power(rij,12.0)*Power(xij,12.0)\
5792 ) - 11.0*Power(xii,8.0)*Power(xij,20.0)*
5793 (-1169302313025.0 - 2338604626050.0*rij*xij +
5794 403746553350.0*Power(rij,2.0)*Power(xij,2.0) +
5795 452949594300.0*Power(rij,3.0)*Power(xij,3.0) +
5796 74923465050.0*Power(rij,4.0)*Power(xij,4.0) -
5797 5463441900.0*Power(rij,5.0)*Power(xij,5.0) -
5798 3490244100.0*Power(rij,6.0)*Power(xij,6.0) -
5799 521907840.0*Power(rij,7.0)*Power(xij,7.0) -
5800 35495010.0*Power(rij,8.0)*Power(xij,8.0) -
5801 393420.0*Power(rij,9.0)*Power(xij,9.0) +
5802 112152.0*Power(rij,10.0)*Power(xij,10.0) +
5803 7644.0*Power(rij,11.0)*Power(xij,11.0) + 164.0*Power(rij,12.0)*Power(xij,12.0)\
5804 ) + 11.0*Power(xii,10.0)*Power(xij,18.0)*
5805 (371402591175.0 + 742805182350.0*rij*xij -
5806 961651930050.0*Power(rij,2.0)*Power(xij,2.0) -
5807 72424667700.0*Power(rij,3.0)*Power(xij,3.0) +
5808 100904879250.0*Power(rij,4.0)*Power(xij,4.0) +
5809 22702033620.0*Power(rij,5.0)*Power(xij,5.0) +
5810 209045340.0*Power(rij,6.0)*Power(xij,6.0) -
5811 517637520.0*Power(rij,7.0)*Power(xij,7.0) -
5812 79564410.0*Power(rij,8.0)*Power(xij,8.0) -
5813 5021940.0*Power(rij,9.0)*Power(xij,9.0) -
5814 74724.0*Power(rij,10.0)*Power(xij,10.0) +
5815 6852.0*Power(rij,11.0)*Power(xij,11.0) + 272.0*Power(rij,12.0)*Power(xij,12.0))\
5816 ))/(467775.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5817 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
5818 ;
5819 }
5820 return S;
5821 }
5822
5823 double DSlater_4S_1S(double rij,double xii,double xij)
5824 {
5825 return DSlater_1S_4S(rij,xij,xii);
5826 }
5827
5828 double DSlater_4S_2S(double rij,double xii,double xij)
5829 {
5830 return DSlater_2S_4S(rij,xij,xii);
5831 }
5832
5833 double DSlater_4S_3S(double rij,double xii,double xij)
5834 {
5835 return DSlater_3S_4S(rij,xij,xii);
5836 }
5837
5838 static double DSlater_5S_5S(double rij,double xij,double xii)
5839 {
5840 double S;
5841
5842 if (xii == xij) {
5843 S = (-3041127510220800000.0 + 3041127510220800000.0*Power(E,2.0*rij*xii) -
5844 6082255020441600000.0*rij*xii -
5845 6082255020441600000.0*Power(rij,2.0)*Power(xii,2.0) -
5846 4047316151142639375.0*Power(rij,3.0)*Power(xii,3.0) -
5847 2012377281843678750.0*Power(rij,4.0)*Power(xii,4.0) -
5848 796103231382459000.0*Power(rij,5.0)*Power(xii,5.0) -
5849 260648980404813000.0*Power(rij,6.0)*Power(xii,6.0) -
5850 72570149721669600.0*Power(rij,7.0)*Power(xii,7.0) -
5851 17529098189803200.0*Power(rij,8.0)*Power(xii,8.0) -
5852 3730342475059200.0*Power(rij,9.0)*Power(xii,9.0) -
5853 707903551555200.0*Power(rij,10.0)*Power(xii,10.0) -
5854 120923460403200.0*Power(rij,11.0)*Power(xii,11.0) -
5855 18723632578560.0*Power(rij,12.0)*Power(xii,12.0) -
5856 2640512286720.0*Power(rij,13.0)*Power(xii,13.0) -
5857 340065976320.0*Power(rij,14.0)*Power(xii,14.0) -
5858 40007761920.0*Power(rij,15.0)*Power(xii,15.0) -
5859 4286545920.0*Power(rij,16.0)*Power(xii,16.0) -
5860 414646272.0*Power(rij,17.0)*Power(xii,17.0) -
5861 35487744.0*Power(rij,18.0)*Power(xii,18.0) -
5862 2555904.0*Power(rij,19.0)*Power(xii,19.0) - 131072.0*Power(rij,20.0)*Power(xii,20.0))/
5863 (3.0411275102208e18*Power(E,2.0*rij*xii)*Power(rij,2.0))
5864 ;
5865 }
5866 else {
5867 S = (70875.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
5868 Power(E,2.0*rij*xii)*Power(xii,12.0)*
5869 (Power(xii,8.0)*Power(xij,18.0)*
5870 (3218321469825.0 + 6436642939650.0*rij*xij -
5871 289335546990.0*Power(rij,2.0)*Power(xij,2.0) -
5872 672080979780.0*Power(rij,3.0)*Power(xij,3.0) -
5873 116652948930.0*Power(rij,4.0)*Power(xij,4.0) -
5874 2285769780.0*Power(rij,5.0)*Power(xij,5.0) +
5875 1432351620.0*Power(rij,6.0)*Power(xij,6.0) +
5876 183837384.0*Power(rij,7.0)*Power(xij,7.0) +
5877 9315018.0*Power(rij,8.0)*Power(xij,8.0) +
5878 153748.0*Power(rij,9.0)*Power(xij,9.0) -
5879 1636.0*Power(rij,10.0)*Power(xij,10.0)) +
5880 10.0*Power(xij,26.0)*(352546425.0 + 705092850.0*rij*xij +
5881 467009550.0*Power(rij,2.0)*Power(xij,2.0) +
5882 168489720.0*Power(rij,3.0)*Power(xij,3.0) +
5883 39134340.0*Power(rij,4.0)*Power(xij,4.0) +
5884 6297480.0*Power(rij,5.0)*Power(xij,5.0) +
5885 723240.0*Power(rij,6.0)*Power(xij,6.0) +
5886 59220.0*Power(rij,7.0)*Power(xij,7.0) +
5887 3339.0*Power(rij,8.0)*Power(xij,8.0) + 118.0*Power(rij,9.0)*Power(xij,9.0) +
5888 2.0*Power(rij,10.0)*Power(xij,10.0)) +
5889 30.0*Power(xii,2.0)*Power(xij,24.0)*
5890 (4562958015.0 + 9125916030.0*rij*xij +
5891 5463096030.0*Power(rij,2.0)*Power(xij,2.0) +
5892 1726409160.0*Power(rij,3.0)*Power(xij,3.0) +
5893 343084140.0*Power(rij,4.0)*Power(xij,4.0) +
5894 46070136.0*Power(rij,5.0)*Power(xij,5.0) +
5895 4278792.0*Power(rij,6.0)*Power(xij,6.0) +
5896 271212.0*Power(rij,7.0)*Power(xij,7.0) +
5897 11061.0*Power(rij,8.0)*Power(xij,8.0) +
5898 250.0*Power(rij,9.0)*Power(xij,9.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) -
5899 15.0*Power(xii,24.0)*Power(xij,2.0)*
5900 (-89775.0 - 179550.0*rij*xij - 179550.0*Power(rij,2.0)*Power(xij,2.0) -
5901 119700.0*Power(rij,3.0)*Power(xij,3.0) -
5902 59850.0*Power(rij,4.0)*Power(xij,4.0) -
5903 23940.0*Power(rij,5.0)*Power(xij,5.0) -
5904 7980.0*Power(rij,6.0)*Power(xij,6.0) -
5905 2280.0*Power(rij,7.0)*Power(xij,7.0) - 570.0*Power(rij,8.0)*Power(xij,8.0) -
5906 244.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
5907 5.0*Power(xii,26.0)*(14175.0 + 28350.0*rij*xij +
5908 28350.0*Power(rij,2.0)*Power(xij,2.0) +
5909 18900.0*Power(rij,3.0)*Power(xij,3.0) +
5910 9450.0*Power(rij,4.0)*Power(xij,4.0) +
5911 3780.0*Power(rij,5.0)*Power(xij,5.0) +
5912 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
5913 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
5914 4.0*Power(rij,10.0)*Power(xij,10.0)) -
5915 1938.0*Power(xii,14.0)*Power(xij,12.0)*
5916 (-826875.0 - 1653750.0*rij*xij + 55046250.0*Power(rij,2.0)*Power(xij,2.0) -
5917 71486100.0*Power(rij,3.0)*Power(xij,3.0) +
5918 20956950.0*Power(rij,4.0)*Power(xij,4.0) +
5919 4028220.0*Power(rij,5.0)*Power(xij,5.0) -
5920 471660.0*Power(rij,6.0)*Power(xij,6.0) -
5921 108192.0*Power(rij,7.0)*Power(xij,7.0) -
5922 4284.0*Power(rij,8.0)*Power(xij,8.0) + 136.0*Power(rij,9.0)*Power(xij,9.0) +
5923 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5924 1938.0*Power(xii,12.0)*Power(xij,14.0)*
5925 (72476775.0 + 144953550.0*rij*xij -
5926 458924130.0*Power(rij,2.0)*Power(xij,2.0) +
5927 175365540.0*Power(rij,3.0)*Power(xij,3.0) +
5928 35155890.0*Power(rij,4.0)*Power(xij,4.0) -
5929 5303340.0*Power(rij,5.0)*Power(xij,5.0) -
5930 1428420.0*Power(rij,6.0)*Power(xij,6.0) -
5931 75552.0*Power(rij,7.0)*Power(xij,7.0) +
5932 3036.0*Power(rij,8.0)*Power(xij,8.0) + 376.0*Power(rij,9.0)*Power(xij,9.0) +
5933 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5934 342.0*Power(xii,16.0)*Power(xij,10.0)*
5935 (2409750.0 + 4819500.0*rij*xij - 2142000.0*Power(rij,2.0)*Power(xij,2.0) +
5936 35235900.0*Power(rij,3.0)*Power(xij,3.0) -
5937 35289450.0*Power(rij,4.0)*Power(xij,4.0) +
5938 11000220.0*Power(rij,5.0)*Power(xij,5.0) +
5939 1519140.0*Power(rij,6.0)*Power(xij,6.0) -
5940 194172.0*Power(rij,7.0)*Power(xij,7.0) -
5941 29069.0*Power(rij,8.0)*Power(xij,8.0) -
5942 634.0*Power(rij,9.0)*Power(xij,9.0) + 18.0*Power(rij,10.0)*Power(xij,10.0)) -
5943 171.0*Power(xii,10.0)*Power(xij,16.0)*
5944 (-6768406575.0 - 13536813150.0*rij*xij +
5945 12122613090.0*Power(rij,2.0)*Power(xij,2.0) +
5946 1678134780.0*Power(rij,3.0)*Power(xij,3.0) -
5947 578956770.0*Power(rij,4.0)*Power(xij,4.0) -
5948 138373620.0*Power(rij,5.0)*Power(xij,5.0) -
5949 7287420.0*Power(rij,6.0)*Power(xij,6.0) +
5950 614856.0*Power(rij,7.0)*Power(xij,7.0) +
5951 89482.0*Power(rij,8.0)*Power(xij,8.0) +
5952 3572.0*Power(rij,9.0)*Power(xij,9.0) + 36.0*Power(rij,10.0)*Power(xij,10.0)) \
5953 + 9.0*Power(xii,22.0)*Power(xij,4.0)*
5954 (-1346625.0 - 2693250.0*rij*xij - 2693250.0*Power(rij,2.0)*Power(xij,2.0) -
5955 1795500.0*Power(rij,3.0)*Power(xij,3.0) -
5956 897750.0*Power(rij,4.0)*Power(xij,4.0) -
5957 359100.0*Power(rij,5.0)*Power(xij,5.0) -
5958 119700.0*Power(rij,6.0)*Power(xij,6.0) -
5959 10176.0*Power(rij,7.0)*Power(xij,7.0) -
5960 30572.0*Power(rij,8.0)*Power(xij,8.0) +
5961 168.0*Power(rij,9.0)*Power(xij,9.0) + 104.0*Power(rij,10.0)*Power(xij,10.0)) \
5962 - 9.0*Power(xii,4.0)*Power(xij,22.0)*
5963 (-129194933175.0 - 258389866350.0*rij*xij -
5964 128354872590.0*Power(rij,2.0)*Power(xij,2.0) -
5965 30914128980.0*Power(rij,3.0)*Power(xij,3.0) -
5966 4146276330.0*Power(rij,4.0)*Power(xij,4.0) -
5967 281941380.0*Power(rij,5.0)*Power(xij,5.0) +
5968 311220.0*Power(rij,6.0)*Power(xij,6.0) +
5969 1834944.0*Power(rij,7.0)*Power(xij,7.0) +
5970 162188.0*Power(rij,8.0)*Power(xij,8.0) +
5971 6488.0*Power(rij,9.0)*Power(xij,9.0) + 104.0*Power(rij,10.0)*Power(xij,10.0)) \
5972 + 9.0*Power(xii,6.0)*Power(xij,20.0)*
5973 (356863797675.0 + 713727595350.0*rij*xij +
5974 226198496790.0*Power(rij,2.0)*Power(xij,2.0) +
5975 15231757380.0*Power(rij,3.0)*Power(xij,3.0) -
5976 5016397470.0*Power(rij,4.0)*Power(xij,4.0) -
5977 1294411020.0*Power(rij,5.0)*Power(xij,5.0) -
5978 134742020.0*Power(rij,6.0)*Power(xij,6.0) -
5979 6600064.0*Power(rij,7.0)*Power(xij,7.0) -
5980 49228.0*Power(rij,8.0)*Power(xij,8.0) +
5981 9192.0*Power(rij,9.0)*Power(xij,9.0) + 296.0*Power(rij,10.0)*Power(xij,10.0)) \
5982 - 9.0*Power(xii,20.0)*Power(xij,6.0)*
5983 (-7630875.0 - 15261750.0*rij*xij -
5984 15261750.0*Power(rij,2.0)*Power(xij,2.0) -
5985 10174500.0*Power(rij,3.0)*Power(xij,3.0) -
5986 5087250.0*Power(rij,4.0)*Power(xij,4.0) -
5987 2995860.0*Power(rij,5.0)*Power(xij,5.0) +
5988 1403780.0*Power(rij,6.0)*Power(xij,6.0) -
5989 1201664.0*Power(rij,7.0)*Power(xij,7.0) -
5990 32148.0*Power(rij,8.0)*Power(xij,8.0) +
5991 9752.0*Power(rij,9.0)*Power(xij,9.0) + 296.0*Power(rij,10.0)*Power(xij,10.0)) \
5992 + 2.0*Power(xii,18.0)*Power(xij,8.0)*
5993 (-137355750.0 - 274711500.0*rij*xij -
5994 274711500.0*Power(rij,2.0)*Power(xij,2.0) -
5995 137195100.0*Power(rij,3.0)*Power(xij,3.0) -
5996 344272950.0*Power(rij,4.0)*Power(xij,4.0) +
5997 294722820.0*Power(rij,5.0)*Power(xij,5.0) -
5998 125182260.0*Power(rij,6.0)*Power(xij,6.0) -
5999 9557892.0*Power(rij,7.0)*Power(xij,7.0) +
6000 1628541.0*Power(rij,8.0)*Power(xij,8.0) +
6001 129226.0*Power(rij,9.0)*Power(xij,9.0) + 818.0*Power(rij,10.0)*Power(xij,10.0)\
6002 )) + Power(E,2.0*rij*xij)*Power(xij,12.0)*
6003 (-1180.0*Power(rij,9.0)*Power(xii,35.0) - 20.0*Power(rij,10.0)*Power(xii,36.0) +
6004 70875.0*Power(xij,26.0) + 141750.0*rij*xii*Power(xij,26.0) +
6005 47250.0*rij*Power(xii,3.0)*Power(xij,24.0)*
6006 (-57.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
6007 70875.0*Power(xii,2.0)*Power(xij,24.0)*
6008 (-19.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6009 30.0*Power(rij,8.0)*Power(xii,34.0)*(1113.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6010 300.0*Power(rij,7.0)*Power(xii,33.0)*
6011 (1974.0 + 25.0*Power(rij,2.0)*Power(xij,2.0)) +
6012 9450.0*rij*Power(xii,5.0)*Power(xij,22.0)*
6013 (2565.0 - 190.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
6014 + 23625.0*Power(xii,4.0)*Power(xij,22.0)*
6015 (513.0 - 114.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
6016 + 18.0*Power(rij,6.0)*Power(xii,32.0)*
6017 (-401800.0 - 18435.0*Power(rij,2.0)*Power(xij,2.0) +
6018 52.0*Power(rij,4.0)*Power(xij,4.0)) +
6019 72.0*Power(rij,5.0)*Power(xii,31.0)*
6020 (-874650.0 - 113005.0*Power(rij,2.0)*Power(xij,2.0) +
6021 811.0*Power(rij,4.0)*Power(xij,4.0)) +
6022 450.0*rij*Power(xii,7.0)*Power(xij,20.0)*
6023 (-305235.0 + 35910.0*Power(rij,2.0)*Power(xij,2.0) -
6024 798.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
6025 1575.0*Power(xii,6.0)*Power(xij,20.0)*
6026 (-43605.0 + 15390.0*Power(rij,2.0)*Power(xij,2.0) -
6027 570.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
6028 36.0*Power(rij,4.0)*Power(xii,30.0)*
6029 (10870650.0 + 3565660.0*Power(rij,2.0)*Power(xij,2.0) -
6030 40547.0*Power(rij,4.0)*Power(xij,4.0) + 74.0*Power(rij,6.0)*Power(xij,6.0)) -
6031 216.0*Power(rij,3.0)*Power(xii,29.0)*
6032 (7800450.0 + 6398630.0*Power(rij,2.0)*Power(xij,2.0) -
6033 76456.0*Power(rij,4.0)*Power(xij,4.0) + 383.0*Power(rij,6.0)*Power(xij,6.0)) +
6034 100.0*rij*Power(xii,9.0)*Power(xij,18.0)*
6035 (5494230.0 - 915705.0*Power(rij,2.0)*Power(xij,2.0) +
6036 32319.0*Power(rij,4.0)*Power(xij,4.0) - 342.0*Power(rij,6.0)*Power(xij,6.0) +
6037 Power(rij,8.0)*Power(xij,8.0)) +
6038 450.0*Power(xii,8.0)*Power(xij,18.0)*
6039 (610470.0 - 305235.0*Power(rij,2.0)*Power(xij,2.0) +
6040 17955.0*Power(rij,4.0)*Power(xij,4.0) - 266.0*Power(rij,6.0)*Power(xij,6.0) +
6041 Power(rij,8.0)*Power(xij,8.0)) -
6042 36.0*rij*Power(xii,13.0)*Power(xij,14.0)*
6043 (89026875.0 + 334741050.0*Power(rij,2.0)*Power(xij,2.0) +
6044 16373490.0*Power(rij,4.0)*Power(xij,4.0) +
6045 300416.0*Power(rij,6.0)*Power(xij,6.0) + 42.0*Power(rij,8.0)*Power(xij,8.0)) -
6046 12.0*rij*Power(xii,11.0)*Power(xij,16.0)*
6047 (137355750.0 - 22865850.0*Power(rij,2.0)*Power(xij,2.0) +
6048 2246895.0*Power(rij,4.0)*Power(xij,4.0) -
6049 7632.0*Power(rij,6.0)*Power(xij,6.0) + 305.0*Power(rij,8.0)*Power(xij,8.0)) +
6050 4.0*Power(rij,2.0)*Power(xii,28.0)*
6051 (-1167523875.0 - 2573131050.0*Power(rij,2.0)*Power(xij,2.0) +
6052 700245.0*Power(rij,4.0)*Power(xij,4.0) +
6053 110763.0*Power(rij,6.0)*Power(xij,6.0) + 409.0*Power(rij,8.0)*Power(xij,8.0)) \
6054 + 36.0*rij*Power(xii,15.0)*Power(xij,12.0)*
6055 (-7803332775.0 - 3848335050.0*Power(rij,2.0)*Power(xij,2.0) -
6056 104502090.0*Power(rij,4.0)*Power(xij,4.0) +
6057 530994.0*Power(rij,6.0)*Power(xij,6.0) + 2438.0*Power(rij,8.0)*Power(xij,8.0)) \
6058 + 18.0*rij*Power(xii,19.0)*Power(xij,8.0)*
6059 (-357591274425.0 + 15942280410.0*Power(rij,2.0)*Power(xij,2.0) +
6060 570992940.0*Power(rij,4.0)*Power(xij,4.0) -
6061 11648672.0*Power(rij,6.0)*Power(xij,6.0) +
6062 12046.0*Power(rij,8.0)*Power(xij,8.0)) +
6063 36.0*rij*Power(xii,25.0)*Power(xij,2.0)*
6064 (-7604930025.0 - 7728532245.0*Power(rij,2.0)*Power(xij,2.0) +
6065 323602755.0*Power(rij,4.0)*Power(xij,4.0) -
6066 5106594.0*Power(rij,6.0)*Power(xij,6.0) +
6067 16967.0*Power(rij,8.0)*Power(xij,8.0)) -
6068 4.0*rij*Power(xii,27.0)*(1762732125.0 +
6069 12948068700.0*Power(rij,2.0)*Power(xij,2.0) +
6070 634368105.0*Power(rij,4.0)*Power(xij,4.0) -
6071 14850144.0*Power(rij,6.0)*Power(xij,6.0) +
6072 38437.0*Power(rij,8.0)*Power(xij,8.0)) +
6073 6.0*rij*Power(xii,21.0)*Power(xij,6.0)*
6074 (-1070591393025.0 + 112013496630.0*Power(rij,2.0)*Power(xij,2.0) -
6075 3943648170.0*Power(rij,4.0)*Power(xij,4.0) +
6076 24403296.0*Power(rij,6.0)*Power(xij,6.0) +
6077 43928.0*Power(rij,8.0)*Power(xij,8.0)) -
6078 6.0*rij*Power(xii,23.0)*Power(xij,4.0)*
6079 (387584799525.0 + 22847636070.0*Power(rij,2.0)*Power(xij,2.0) -
6080 380961630.0*Power(rij,4.0)*Power(xij,4.0) -
6081 17523396.0*Power(rij,6.0)*Power(xij,6.0) +
6082 121448.0*Power(rij,8.0)*Power(xij,8.0)) -
6083 2.0*rij*Power(xii,17.0)*Power(xij,10.0)*
6084 (1157397524325.0 + 169929208260.0*Power(rij,2.0)*Power(xij,2.0) -
6085 3903345180.0*Power(rij,4.0)*Power(xij,4.0) -
6086 33203412.0*Power(rij,6.0)*Power(xij,6.0) +
6087 129226.0*Power(rij,8.0)*Power(xij,8.0)) +
6088 10.0*Power(xii,10.0)*Power(xij,16.0)*
6089 (-82413450.0 + 54942300.0*Power(rij,2.0)*Power(xij,2.0) -
6090 4578525.0*Power(rij,4.0)*Power(xij,4.0) +
6091 107730.0*Power(rij,6.0)*Power(xij,6.0) -
6092 855.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) +
6093 6.0*Power(xii,12.0)*Power(xij,14.0)*
6094 (-267080625.0 + 122094000.0*Power(rij,2.0)*Power(xij,2.0) +
6095 114757650.0*Power(rij,4.0)*Power(xij,4.0) +
6096 2105670.0*Power(rij,6.0)*Power(xij,6.0) +
6097 45858.0*Power(rij,8.0)*Power(xij,8.0) + 10.0*Power(rij,10.0)*Power(xij,10.0)) \
6098 - 18.0*Power(xii,14.0)*Power(xij,12.0)*
6099 (7803332775.0 - 5926646250.0*Power(rij,2.0)*Power(xij,2.0) -
6100 670499550.0*Power(rij,4.0)*Power(xij,4.0) -
6101 13909140.0*Power(rij,6.0)*Power(xij,6.0) +
6102 16074.0*Power(rij,8.0)*Power(xij,8.0) + 52.0*Power(rij,10.0)*Power(xij,10.0)) \
6103 + 9.0*Power(xii,16.0)*Power(xij,10.0)*
6104 (-128599724925.0 + 98821662660.0*Power(rij,2.0)*Power(xij,2.0) +
6105 4512729900.0*Power(rij,4.0)*Power(xij,4.0) -
6106 57727320.0*Power(rij,6.0)*Power(xij,6.0) -
6107 361898.0*Power(rij,8.0)*Power(xij,8.0) + 296.0*Power(rij,10.0)*Power(xij,10.0)\
6108 ) + 18.0*Power(xii,26.0)*(-195859125.0 - 9105160050.0*Power(rij,2.0)*Power(xij,2.0) -
6109 2073138165.0*Power(rij,4.0)*Power(xij,4.0) +
6110 67371010.0*Power(rij,6.0)*Power(xij,6.0) -
6111 517501.0*Power(rij,8.0)*Power(xij,8.0) + 342.0*Power(rij,10.0)*Power(xij,10.0)\
6112 ) - 9.0*Power(xii,20.0)*Power(xij,6.0)*
6113 (356863797675.0 - 32148394110.0*Power(rij,2.0)*Power(xij,2.0) +
6114 11000178630.0*Power(rij,4.0)*Power(xij,4.0) -
6115 307586440.0*Power(rij,6.0)*Power(xij,6.0) +
6116 922488.0*Power(rij,8.0)*Power(xij,8.0) + 684.0*Power(rij,10.0)*Power(xij,10.0)\
6117 ) - Power(xii,18.0)*Power(xij,8.0)*
6118 (3218321469825.0 - 2072966838390.0*Power(rij,2.0)*Power(xij,2.0) +
6119 68132114820.0*Power(rij,4.0)*Power(xij,4.0) +
6120 914077080.0*Power(rij,6.0)*Power(xij,6.0) -
6121 9941598.0*Power(rij,8.0)*Power(xij,8.0) +
6122 1636.0*Power(rij,10.0)*Power(xij,10.0)) -
6123 6.0*Power(xii,24.0)*Power(xij,2.0)*
6124 (22814790075.0 + 192532308885.0*Power(rij,2.0)*Power(xij,2.0) -
6125 7524596205.0*Power(rij,4.0)*Power(xij,4.0) +
6126 238725270.0*Power(rij,6.0)*Power(xij,6.0) -
6127 2550237.0*Power(rij,8.0)*Power(xij,8.0) +
6128 2584.0*Power(rij,10.0)*Power(xij,10.0)) +
6129 3.0*Power(xii,22.0)*Power(xij,4.0)*
6130 (-387584799525.0 - 678595490370.0*Power(rij,2.0)*Power(xij,2.0) +
6131 38884316310.0*Power(rij,4.0)*Power(xij,4.0) -
6132 415382940.0*Power(rij,6.0)*Power(xij,6.0) -
6133 1961256.0*Power(rij,8.0)*Power(xij,8.0) +
6134 5168.0*Power(rij,10.0)*Power(xij,10.0))))/
6135 (70875.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
6136 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
6137 ;
6138 }
6139 return S;
6140 }
6141
6142 static double DSlater_5S_6S(double rij,double xij,double xii)
6143 {
6144 double S;
6145
6146 if (xii == xij) {
6147 S = (-766364132575641600000.0 + 766364132575641600000.0*Power(E,2.0*rij*xii) -
6148 1532728265151283200000.0*rij*xii -
6149 1532728265151283200000.0*Power(rij,2.0)*Power(xii,2.0) -
6150 1020454892919846759375.0*Power(rij,3.0)*Power(xii,3.0) -
6151 508181520688410318750.0*Power(rij,4.0)*Power(xii,4.0) -
6152 201658839456289965750.0*Power(rij,5.0)*Power(xii,5.0) -
6153 66348599139429106500.0*Power(rij,6.0)*Power(xii,6.0) -
6154 18599424978069936000.0*Power(rij,7.0)*Power(xii,7.0) -
6155 4531844261934990000.0*Power(rij,8.0)*Power(xii,8.0) -
6156 974502735982776000.0*Power(rij,9.0)*Power(xii,9.0) -
6157 187178934377635200.0*Power(rij,10.0)*Power(xii,10.0) -
6158 32426214068102400.0*Power(rij,11.0)*Power(xii,11.0) -
6159 5105770650489600.0*Power(rij,12.0)*Power(xii,12.0) -
6160 735142625280000.0*Power(rij,13.0)*Power(xii,13.0) -
6161 97218861465600.0*Power(rij,14.0)*Power(xii,14.0) -
6162 11842297528320.0*Power(rij,15.0)*Power(xii,15.0) -
6163 1330258083840.0*Power(rij,16.0)*Power(xii,16.0) -
6164 137673768960.0*Power(rij,17.0)*Power(xii,17.0) -
6165 13074432000.0*Power(rij,18.0)*Power(xii,18.0) -
6166 1128529920.0*Power(rij,19.0)*Power(xii,19.0) -
6167 86704128.0*Power(rij,20.0)*Power(xii,20.0) -
6168 5636096.0*Power(rij,21.0)*Power(xii,21.0) - 262144.0*Power(rij,22.0)*Power(xii,22.0))/
6169 (7.663641325756416e20*Power(E,2.0*rij*xii)*Power(rij,2.0))
6170 ;
6171 }
6172 else {
6173 S = (2338875.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),21.0) +
6174 55.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
6175 (-816.0*Power(rij,9.0)*Power(xii,37.0) - 12.0*Power(rij,10.0)*Power(xii,38.0) +
6176 42525.0*Power(xij,28.0) + 85050.0*rij*xii*Power(xij,28.0) +
6177 28350.0*rij*Power(xii,3.0)*Power(xij,26.0)*
6178 (-63.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
6179 42525.0*Power(xii,2.0)*Power(xij,26.0)*
6180 (-21.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6181 16.0*Power(rij,8.0)*Power(xii,36.0)*(1647.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) -
6182 4.0*Power(rij,7.0)*Power(xii,35.0)*
6183 (132192.0 + 2723.0*Power(rij,2.0)*Power(xij,2.0)) +
6184 11340.0*rij*Power(xii,5.0)*Power(xij,24.0)*
6185 (1575.0 - 105.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
6186 + 28350.0*Power(xii,4.0)*Power(xij,24.0)*
6187 (315.0 - 63.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
6188 378.0*Power(rij,6.0)*Power(xii,34.0)*
6189 (-19176.0 - 1227.0*Power(rij,2.0)*Power(xij,2.0) +
6190 2.0*Power(rij,4.0)*Power(xij,4.0)) +
6191 756.0*Power(rij,5.0)*Power(xii,33.0)*
6192 (-93024.0 - 15446.0*Power(rij,2.0)*Power(xij,2.0) +
6193 55.0*Power(rij,4.0)*Power(xij,4.0)) +
6194 540.0*rij*Power(xii,7.0)*Power(xij,22.0)*
6195 (-209475.0 + 22050.0*Power(rij,2.0)*Power(xij,2.0) -
6196 441.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
6197 1890.0*Power(xii,6.0)*Power(xij,22.0)*
6198 (-29925.0 + 9450.0*Power(rij,2.0)*Power(xij,2.0) -
6199 315.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
6200 18.0*Power(rij,4.0)*Power(xii,32.0)*
6201 (26860680.0 + 10787154.0*Power(rij,2.0)*Power(xij,2.0) -
6202 38451.0*Power(rij,4.0)*Power(xij,4.0) + 32.0*Power(rij,6.0)*Power(xij,6.0)) +
6203 36.0*Power(rij,3.0)*Power(xii,31.0)*
6204 (-63488880.0 - 61912431.0*Power(rij,2.0)*Power(xij,2.0) -
6205 191226.0*Power(rij,4.0)*Power(xij,4.0) + 1798.0*Power(rij,6.0)*Power(xij,6.0)\
6206 ) + 30.0*rij*Power(xii,9.0)*Power(xij,20.0)*
6207 (16967475.0 - 2513700.0*Power(rij,2.0)*Power(xij,2.0) +
6208 79380.0*Power(rij,4.0)*Power(xij,4.0) -
6209 756.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
6210 135.0*Power(xii,8.0)*Power(xij,20.0)*
6211 (1885275.0 - 837900.0*Power(rij,2.0)*Power(xij,2.0) +
6212 44100.0*Power(rij,4.0)*Power(xij,4.0) -
6213 588.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
6214 378.0*rij*Power(xii,25.0)*Power(xij,4.0)*
6215 (17962854525.0 + 3973121100.0*Power(rij,2.0)*Power(xij,2.0) -
6216 123555420.0*Power(rij,4.0)*Power(xij,4.0) +
6217 821732.0*Power(rij,6.0)*Power(xij,6.0) + 38.0*Power(rij,8.0)*Power(xij,8.0)) \
6218 - 108.0*rij*Power(xii,13.0)*Power(xij,16.0)*
6219 (121076550.0 + 226721775.0*Power(rij,2.0)*Power(xij,2.0) +
6220 10259361.0*Power(rij,4.0)*Power(xij,4.0) +
6221 137164.0*Power(rij,6.0)*Power(xij,6.0) + 126.0*Power(rij,8.0)*Power(xij,8.0)) \
6222 - 14.0*rij*Power(xii,11.0)*Power(xij,18.0)*
6223 (123620175.0 - 12901950.0*Power(rij,2.0)*Power(xij,2.0) +
6224 1936548.0*Power(rij,4.0)*Power(xij,4.0) +
6225 648.0*Power(rij,6.0)*Power(xij,6.0) + 194.0*Power(rij,8.0)*Power(xij,8.0)) -
6226 756.0*rij*Power(xii,23.0)*Power(xij,6.0)*
6227 (37244490525.0 - 1707788550.0*Power(rij,2.0)*Power(xij,2.0) +
6228 71446053.0*Power(rij,4.0)*Power(xij,4.0) -
6229 841738.0*Power(rij,6.0)*Power(xij,6.0) + 1292.0*Power(rij,8.0)*Power(xij,8.0)\
6230 ) - 210.0*rij*Power(xii,19.0)*Power(xij,10.0)*
6231 (154925948835.0 + 1186358670.0*Power(rij,2.0)*Power(xij,2.0) -
6232 250536888.0*Power(rij,4.0)*Power(xij,4.0) +
6233 1233936.0*Power(rij,6.0)*Power(xij,6.0) +
6234 1498.0*Power(rij,8.0)*Power(xij,8.0)) -
6235 2.0*Power(rij,2.0)*Power(xii,30.0)*
6236 (3444882210.0 + 8888317515.0*Power(rij,2.0)*Power(xij,2.0) +
6237 249425190.0*Power(rij,4.0)*Power(xij,4.0) -
6238 2687310.0*Power(rij,6.0)*Power(xij,6.0) +
6239 2318.0*Power(rij,8.0)*Power(xij,8.0)) +
6240 36.0*rij*Power(xii,15.0)*Power(xij,14.0)*
6241 (-23418646650.0 - 10839912300.0*Power(rij,2.0)*Power(xij,2.0) -
6242 280275345.0*Power(rij,4.0)*Power(xij,4.0) -
6243 161206.0*Power(rij,6.0)*Power(xij,6.0) + 2966.0*Power(rij,8.0)*Power(xij,8.0)\
6244 ) + 252.0*rij*Power(xii,21.0)*Power(xij,8.0)*
6245 (-186637212225.0 + 12975560325.0*Power(rij,2.0)*Power(xij,2.0) -
6246 160724781.0*Power(rij,4.0)*Power(xij,4.0) -
6247 824296.0*Power(rij,6.0)*Power(xij,6.0) + 4104.0*Power(rij,8.0)*Power(xij,8.0)\
6248 ) - 20.0*rij*Power(xii,29.0)*(556016076.0 +
6249 4792896927.0*Power(rij,2.0)*Power(xij,2.0) +
6250 502574625.0*Power(rij,4.0)*Power(xij,4.0) -
6251 7764012.0*Power(rij,6.0)*Power(xij,6.0) +
6252 23578.0*Power(rij,8.0)*Power(xij,8.0)) -
6253 2.0*rij*Power(xii,17.0)*Power(xij,12.0)*
6254 (4434624921825.0 + 748179822600.0*Power(rij,2.0)*Power(xij,2.0) -
6255 2615253480.0*Power(rij,4.0)*Power(xij,4.0) -
6256 94072860.0*Power(rij,6.0)*Power(xij,6.0) +
6257 66566.0*Power(rij,8.0)*Power(xij,8.0)) +
6258 6.0*rij*Power(xii,27.0)*Power(xij,2.0)*
6259 (-95426713305.0 - 133474043430.0*Power(rij,2.0)*Power(xij,2.0) +
6260 2257034220.0*Power(rij,4.0)*Power(xij,4.0) -
6261 27096360.0*Power(rij,6.0)*Power(xij,6.0) +
6262 115178.0*Power(rij,8.0)*Power(xij,8.0)) +
6263 189.0*Power(xii,24.0)*Power(xij,4.0)*
6264 (-17962854525.0 - 54465790500.0*Power(rij,2.0)*Power(xij,2.0) +
6265 2436787500.0*Power(rij,4.0)*Power(xij,4.0) -
6266 39184124.0*Power(rij,6.0)*Power(xij,6.0) +
6267 135242.0*Power(rij,8.0)*Power(xij,8.0)) +
6268 3.0*Power(xii,10.0)*Power(xij,18.0)*
6269 (-288447075.0 + 169674750.0*Power(rij,2.0)*Power(xij,2.0) -
6270 12568500.0*Power(rij,4.0)*Power(xij,4.0) +
6271 264600.0*Power(rij,6.0)*Power(xij,6.0) -
6272 1890.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
6273 14.0*Power(xii,12.0)*Power(xij,16.0)*
6274 (-467009550.0 + 233504775.0*Power(rij,2.0)*Power(xij,2.0) +
6275 74474775.0*Power(rij,4.0)*Power(xij,4.0) +
6276 1502604.0*Power(rij,6.0)*Power(xij,6.0) +
6277 19494.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) \
6278 + 378.0*Power(xii,22.0)*Power(xij,6.0)*
6279 (-37244490525.0 - 19531480050.0*Power(rij,2.0)*Power(xij,2.0) +
6280 314001975.0*Power(rij,4.0)*Power(xij,4.0) +
6281 10131142.0*Power(rij,6.0)*Power(xij,6.0) -
6282 89148.0*Power(rij,8.0)*Power(xij,8.0) + 38.0*Power(rij,10.0)*Power(xij,10.0)) \
6283 - 18.0*Power(xii,14.0)*Power(xij,14.0)*
6284 (23418646650.0 - 15063347250.0*Power(rij,2.0)*Power(xij,2.0) -
6285 1541945475.0*Power(rij,4.0)*Power(xij,4.0) -
6286 26695718.0*Power(rij,6.0)*Power(xij,6.0) -
6287 30126.0*Power(rij,8.0)*Power(xij,8.0) + 42.0*Power(rij,10.0)*Power(xij,10.0)) \
6288 + 9.0*Power(xii,16.0)*Power(xij,12.0)*
6289 (-492736102425.0 + 332913709800.0*Power(rij,2.0)*Power(xij,2.0) +
6290 16232804280.0*Power(rij,4.0)*Power(xij,4.0) -
6291 17642940.0*Power(rij,6.0)*Power(xij,6.0) -
6292 670806.0*Power(rij,8.0)*Power(xij,8.0) + 64.0*Power(rij,10.0)*Power(xij,10.0)\
6293 ) - 63.0*Power(xii,26.0)*Power(xij,2.0)*
6294 (4544129205.0 + 52573689630.0*Power(rij,2.0)*Power(xij,2.0) +
6295 831772260.0*Power(rij,4.0)*Power(xij,4.0) -
6296 17171800.0*Power(rij,6.0)*Power(xij,6.0) -
6297 71082.0*Power(rij,8.0)*Power(xij,8.0) + 228.0*Power(rij,10.0)*Power(xij,10.0)\
6298 ) - 42.0*Power(xii,20.0)*Power(xij,8.0)*
6299 (559911636675.0 - 188981369325.0*Power(rij,2.0)*Power(xij,2.0) +
6300 12441827475.0*Power(rij,4.0)*Power(xij,4.0) -
6301 104458200.0*Power(rij,6.0)*Power(xij,6.0) -
6302 229140.0*Power(rij,8.0)*Power(xij,8.0) +
6303 328.0*Power(rij,10.0)*Power(xij,10.0)) +
6304 6.0*Power(xii,28.0)*(-926693460.0 -
6305 54014259915.0*Power(rij,2.0)*Power(xij,2.0) -
6306 19074253275.0*Power(rij,4.0)*Power(xij,4.0) +
6307 370738620.0*Power(rij,6.0)*Power(xij,6.0) -
6308 2470770.0*Power(rij,8.0)*Power(xij,8.0) +
6309 2296.0*Power(rij,10.0)*Power(xij,10.0)) +
6310 Power(xii,18.0)*Power(xij,10.0)*
6311 (-16267224627675.0 + 10111789349550.0*Power(rij,2.0)*Power(xij,2.0) -
6312 46442115720.0*Power(rij,4.0)*Power(xij,4.0) -
6313 3760495200.0*Power(rij,6.0)*Power(xij,6.0) +
6314 8510670.0*Power(rij,8.0)*Power(xij,8.0) +
6315 4636.0*Power(rij,10.0)*Power(xij,10.0))) +
6316 Power(E,2.0*rij*xii)*Power(xii,12.0)*
6317 (5.0*Power(xii,28.0)*Power(xij,2.0)*
6318 (9823275.0 + 19646550.0*rij*xij + 19646550.0*Power(rij,2.0)*Power(xij,2.0) +
6319 13097700.0*Power(rij,3.0)*Power(xij,3.0) +
6320 6548850.0*Power(rij,4.0)*Power(xij,4.0) +
6321 2619540.0*Power(rij,5.0)*Power(xij,5.0) +
6322 873180.0*Power(rij,6.0)*Power(xij,6.0) +
6323 249480.0*Power(rij,7.0)*Power(xij,7.0) +
6324 62370.0*Power(rij,8.0)*Power(xij,8.0) +
6325 13860.0*Power(rij,9.0)*Power(xij,9.0) +
6326 2772.0*Power(rij,10.0)*Power(xij,10.0) +
6327 944.0*Power(rij,11.0)*Power(xij,11.0) - 4.0*Power(rij,12.0)*Power(xij,12.0)) +
6328 52668.0*Power(xii,16.0)*Power(xij,14.0)*
6329 (10970100.0 + 21940200.0*rij*xij -
6330 237536325.0*Power(rij,2.0)*Power(xij,2.0) +
6331 487687500.0*Power(rij,3.0)*Power(xij,3.0) -
6332 253716075.0*Power(rij,4.0)*Power(xij,4.0) +
6333 8373180.0*Power(rij,5.0)*Power(xij,5.0) +
6334 14379960.0*Power(rij,6.0)*Power(xij,6.0) +
6335 690840.0*Power(rij,7.0)*Power(xij,7.0) -
6336 198500.0*Power(rij,8.0)*Power(xij,8.0) -
6337 23510.0*Power(rij,9.0)*Power(xij,9.0) -
6338 603.0*Power(rij,10.0)*Power(xij,10.0) +
6339 24.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
6340 20.0*Power(xij,30.0)*(24325703325.0 + 48651406650.0*rij*xij +
6341 34902096075.0*Power(rij,2.0)*Power(xij,2.0) +
6342 14101857000.0*Power(rij,3.0)*Power(xij,3.0) +
6343 3777283125.0*Power(rij,4.0)*Power(xij,4.0) +
6344 725238360.0*Power(rij,5.0)*Power(xij,5.0) +
6345 103908420.0*Power(rij,6.0)*Power(xij,6.0) +
6346 11309760.0*Power(rij,7.0)*Power(xij,7.0) +
6347 935550.0*Power(rij,8.0)*Power(xij,8.0) +
6348 57750.0*Power(rij,9.0)*Power(xij,9.0) +
6349 2541.0*Power(rij,10.0)*Power(xij,10.0) +
6350 72.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
6351 20.0*Power(xii,2.0)*Power(xij,28.0)*
6352 (1145624789925.0 + 2291249579850.0*rij*xij +
6353 1509654155625.0*Power(rij,2.0)*Power(xij,2.0) +
6354 544835317950.0*Power(rij,3.0)*Power(xij,3.0) +
6355 127873624725.0*Power(rij,4.0)*Power(xij,4.0) +
6356 21112494480.0*Power(rij,5.0)*Power(xij,5.0) +
6357 2545402860.0*Power(rij,6.0)*Power(xij,6.0) +
6358 226801080.0*Power(rij,7.0)*Power(xij,7.0) +
6359 14787630.0*Power(rij,8.0)*Power(xij,8.0) +
6360 679690.0*Power(rij,9.0)*Power(xij,9.0) +
6361 20207.0*Power(rij,10.0)*Power(xij,10.0) +
6362 314.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) -
6363 110.0*Power(xii,10.0)*Power(xij,20.0)*
6364 (-7031709085275.0 - 14063418170550.0*rij*xij +
6365 5761420840350.0*Power(rij,2.0)*Power(xij,2.0) +
6366 2282136160500.0*Power(rij,3.0)*Power(xij,3.0) -
6367 28040219550.0*Power(rij,4.0)*Power(xij,4.0) -
6368 94545378900.0*Power(rij,5.0)*Power(xij,5.0) -
6369 14293824300.0*Power(rij,6.0)*Power(xij,6.0) -
6370 573941160.0*Power(rij,7.0)*Power(xij,7.0) +
6371 65493270.0*Power(rij,8.0)*Power(xij,8.0) +
6372 9429840.0*Power(rij,9.0)*Power(xij,9.0) +
6373 476262.0*Power(rij,10.0)*Power(xij,10.0) +
6374 9284.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) \
6375 + 55.0*Power(xii,20.0)*Power(xij,10.0)*
6376 (865341225.0 + 1730682450.0*rij*xij +
6377 1730682450.0*Power(rij,2.0)*Power(xij,2.0) +
6378 1312510500.0*Power(rij,3.0)*Power(xij,3.0) -
6379 534161250.0*Power(rij,4.0)*Power(xij,4.0) +
6380 2257389540.0*Power(rij,5.0)*Power(xij,5.0) -
6381 1135495620.0*Power(rij,6.0)*Power(xij,6.0) +
6382 166186440.0*Power(rij,7.0)*Power(xij,7.0) +
6383 48426210.0*Power(rij,8.0)*Power(xij,8.0) -
6384 544460.0*Power(rij,9.0)*Power(xij,9.0) -
6385 446788.0*Power(rij,10.0)*Power(xij,10.0) -
6386 18256.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) \
6387 - 5.0*Power(xii,30.0)*(467775.0 + 935550.0*rij*xij +
6388 935550.0*Power(rij,2.0)*Power(xij,2.0) +
6389 623700.0*Power(rij,3.0)*Power(xij,3.0) +
6390 311850.0*Power(rij,4.0)*Power(xij,4.0) +
6391 124740.0*Power(rij,5.0)*Power(xij,5.0) +
6392 41580.0*Power(rij,6.0)*Power(xij,6.0) +
6393 11880.0*Power(rij,7.0)*Power(xij,7.0) +
6394 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
6395 132.0*Power(rij,10.0)*Power(xij,10.0) +
6396 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
6397 13167.0*Power(xii,14.0)*Power(xij,16.0)*
6398 (-1159677225.0 - 2319354450.0*rij*xij +
6399 12207865950.0*Power(rij,2.0)*Power(xij,2.0) -
6400 8468827500.0*Power(rij,3.0)*Power(xij,3.0) +
6401 270633450.0*Power(rij,4.0)*Power(xij,4.0) +
6402 576841620.0*Power(rij,5.0)*Power(xij,5.0) +
6403 36246140.0*Power(rij,6.0)*Power(xij,6.0) -
6404 9802040.0*Power(rij,7.0)*Power(xij,7.0) -
6405 1523150.0*Power(rij,8.0)*Power(xij,8.0) -
6406 59740.0*Power(rij,9.0)*Power(xij,9.0) +
6407 2148.0*Power(rij,10.0)*Power(xij,10.0) +
6408 216.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
6409 1540.0*Power(xii,18.0)*Power(xij,12.0)*
6410 (82413450.0 + 164826900.0*rij*xij +
6411 315918225.0*Power(rij,2.0)*Power(xij,2.0) -
6412 778349250.0*Power(rij,3.0)*Power(xij,3.0) +
6413 1488020625.0*Power(rij,4.0)*Power(xij,4.0) -
6414 723888900.0*Power(rij,5.0)*Power(xij,5.0) +
6415 53335800.0*Power(rij,6.0)*Power(xij,6.0) +
6416 35328960.0*Power(rij,7.0)*Power(xij,7.0) +
6417 727920.0*Power(rij,8.0)*Power(xij,8.0) -
6418 407850.0*Power(rij,9.0)*Power(xij,9.0) -
6419 31161.0*Power(rij,10.0)*Power(xij,10.0) -
6420 342.0*Power(rij,11.0)*Power(xij,11.0) + 17.0*Power(rij,12.0)*Power(xij,12.0)) \
6421 + 385.0*Power(xii,12.0)*Power(xij,18.0)*
6422 (486782696925.0 + 973565393850.0*rij*xij -
6423 1578263239350.0*Power(rij,2.0)*Power(xij,2.0) +
6424 159440683500.0*Power(rij,3.0)*Power(xij,3.0) +
6425 142522509150.0*Power(rij,4.0)*Power(xij,4.0) +
6426 7396549020.0*Power(rij,5.0)*Power(xij,5.0) -
6427 3365814060.0*Power(rij,6.0)*Power(xij,6.0) -
6428 566536680.0*Power(rij,7.0)*Power(xij,7.0) -
6429 26389530.0*Power(rij,8.0)*Power(xij,8.0) +
6430 1233420.0*Power(rij,9.0)*Power(xij,9.0) +
6431 180876.0*Power(rij,10.0)*Power(xij,10.0) +
6432 6672.0*Power(rij,11.0)*Power(xij,11.0) + 68.0*Power(rij,12.0)*Power(xij,12.0)) \
6433 + 14.0*Power(xii,26.0)*Power(xij,4.0)*
6434 (-35083125.0 - 70166250.0*rij*xij -
6435 70166250.0*Power(rij,2.0)*Power(xij,2.0) -
6436 46777500.0*Power(rij,3.0)*Power(xij,3.0) -
6437 23388750.0*Power(rij,4.0)*Power(xij,4.0) -
6438 9355500.0*Power(rij,5.0)*Power(xij,5.0) -
6439 3118500.0*Power(rij,6.0)*Power(xij,6.0) -
6440 891000.0*Power(rij,7.0)*Power(xij,7.0) -
6441 222750.0*Power(rij,8.0)*Power(xij,8.0) -
6442 18040.0*Power(rij,9.0)*Power(xij,9.0) -
6443 31922.0*Power(rij,10.0)*Power(xij,10.0) -
6444 524.0*Power(rij,11.0)*Power(xij,11.0) + 74.0*Power(rij,12.0)*Power(xij,12.0)) \
6445 - 7.0*Power(xii,4.0)*Power(xij,26.0)*
6446 (-34911472624875.0 - 69822945249750.0*rij*xij -
6447 39657058575750.0*Power(rij,2.0)*Power(xij,2.0) -
6448 11594155765500.0*Power(rij,3.0)*Power(xij,3.0) -
6449 2053437759450.0*Power(rij,4.0)*Power(xij,4.0) -
6450 226760230620.0*Power(rij,5.0)*Power(xij,5.0) -
6451 13566847140.0*Power(rij,6.0)*Power(xij,6.0) +
6452 59554440.0*Power(rij,7.0)*Power(xij,7.0) +
6453 92560050.0*Power(rij,8.0)*Power(xij,8.0) +
6454 8960820.0*Power(rij,9.0)*Power(xij,9.0) +
6455 454476.0*Power(rij,10.0)*Power(xij,10.0) +
6456 12592.0*Power(rij,11.0)*Power(xij,11.0) +
6457 148.0*Power(rij,12.0)*Power(xij,12.0)) -
6458 50.0*Power(xii,8.0)*Power(xij,22.0)*
6459 (-25884416787075.0 - 51768833574150.0*rij*xij -
6460 7250000130450.0*Power(rij,2.0)*Power(xij,2.0) +
6461 3206573300700.0*Power(rij,3.0)*Power(xij,3.0) +
6462 1119709961370.0*Power(rij,4.0)*Power(xij,4.0) +
6463 124678104012.0*Power(rij,5.0)*Power(xij,5.0) -
6464 603805356.0*Power(rij,6.0)*Power(xij,6.0) -
6465 1678543416.0*Power(rij,7.0)*Power(xij,7.0) -
6466 199885554.0*Power(rij,8.0)*Power(xij,8.0) -
6467 11203984.0*Power(rij,9.0)*Power(xij,9.0) -
6468 267410.0*Power(rij,10.0)*Power(xij,10.0) +
6469 1696.0*Power(rij,11.0)*Power(xij,11.0) + 158.0*Power(rij,12.0)*Power(xij,12.0)\
6470 ) + 25.0*Power(xii,22.0)*Power(xij,8.0)*
6471 (-559926675.0 - 1119853350.0*rij*xij -
6472 1119853350.0*Power(rij,2.0)*Power(xij,2.0) -
6473 746568900.0*Power(rij,3.0)*Power(xij,3.0) -
6474 373284450.0*Power(rij,4.0)*Power(xij,4.0) -
6475 108881388.0*Power(rij,5.0)*Power(xij,5.0) -
6476 171068436.0*Power(rij,6.0)*Power(xij,6.0) +
6477 84312360.0*Power(rij,7.0)*Power(xij,7.0) -
6478 23318262.0*Power(rij,8.0)*Power(xij,8.0) -
6479 3243900.0*Power(rij,9.0)*Power(xij,9.0) +
6480 144012.0*Power(rij,10.0)*Power(xij,10.0) +
6481 21256.0*Power(rij,11.0)*Power(xij,11.0) +
6482 316.0*Power(rij,12.0)*Power(xij,12.0)) -
6483 6.0*Power(xii,24.0)*Power(xij,6.0)*
6484 (-518450625.0 - 1036901250.0*rij*xij -
6485 1036901250.0*Power(rij,2.0)*Power(xij,2.0) -
6486 691267500.0*Power(rij,3.0)*Power(xij,3.0) -
6487 345633750.0*Power(rij,4.0)*Power(xij,4.0) -
6488 138253500.0*Power(rij,5.0)*Power(xij,5.0) -
6489 46084500.0*Power(rij,6.0)*Power(xij,6.0) -
6490 18829800.0*Power(rij,7.0)*Power(xij,7.0) +
6491 5202450.0*Power(rij,8.0)*Power(xij,8.0) -
6492 3594360.0*Power(rij,9.0)*Power(xij,9.0) -
6493 218658.0*Power(rij,10.0)*Power(xij,10.0) +
6494 17664.0*Power(rij,11.0)*Power(xij,11.0) +
6495 766.0*Power(rij,12.0)*Power(xij,12.0)) +
6496 3.0*Power(xii,6.0)*Power(xij,24.0)*
6497 (298003296331125.0 + 596006592662250.0*rij*xij +
6498 248020874120250.0*Power(rij,2.0)*Power(xij,2.0) +
6499 39730277317500.0*Power(rij,3.0)*Power(xij,3.0) +
6500 92486497950.0*Power(rij,4.0)*Power(xij,4.0) -
6501 1040164489980.0*Power(rij,5.0)*Power(xij,5.0) -
6502 195369465060.0*Power(rij,6.0)*Power(xij,6.0) -
6503 18560397240.0*Power(rij,7.0)*Power(xij,7.0) -
6504 940920750.0*Power(rij,8.0)*Power(xij,8.0) -
6505 12201420.0*Power(rij,9.0)*Power(xij,9.0) +
6506 1418604.0*Power(rij,10.0)*Power(xij,10.0) +
6507 84168.0*Power(rij,11.0)*Power(xij,11.0) +
6508 1532.0*Power(rij,12.0)*Power(xij,12.0))))/
6509 (2.338875e6*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
6510 Power(Power(xii,2.0) - Power(xij,2.0),21.0))
6511 ;
6512 }
6513 return S;
6514 }
6515
6516 double DSlater_5S_1S(double rij,double xii,double xij)
6517 {
6518 return DSlater_1S_5S(rij,xij,xii);
6519 }
6520
6521 double DSlater_5S_2S(double rij,double xii,double xij)
6522 {
6523 return DSlater_2S_5S(rij,xij,xii);
6524 }
6525
6526 double DSlater_5S_3S(double rij,double xii,double xij)
6527 {
6528 return DSlater_3S_5S(rij,xij,xii);
6529 }
6530
6531 double DSlater_5S_4S(double rij,double xii,double xij)
6532 {
6533 return DSlater_4S_5S(rij,xij,xii);
6534 }
6535
6536 static double DSlater_6S_6S(double rij,double xij,double xii)
6537 {
6538 double S;
6539
6540 if (xii == xij) {
6541 S = -(930672602599859159040000.0 - 930672602599859159040000.0*Power(E,2.0*rij*xii) +
6542 1861345205199718318080000.0*rij*xii +
6543 1861345205199718318080000.0*Power(rij,2.0)*Power(xii,2.0) +
6544 1239447469649939026351875.0*Power(rij,3.0)*Power(xii,3.0) +
6545 617549734100159734623750.0*Power(rij,4.0)*Power(xii,4.0) +
6546 245308299418626353910000.0*Power(rij,5.0)*Power(xii,5.0) +
6547 80849221192532687895000.0*Power(rij,6.0)*Power(xii,6.0) +
6548 22724497062484591374000.0*Power(rij,7.0)*Power(xii,7.0) +
6549 5558106457968308244000.0*Power(rij,8.0)*Power(xii,8.0) +
6550 1201461043722619680000.0*Power(rij,9.0)*Power(xii,9.0) +
6551 232373746276140268800.0*Power(rij,10.0)*Power(xii,10.0) +
6552 40613247709652217600.0*Power(rij,11.0)*Power(xii,11.0) +
6553 6465950980961472000.0*Power(rij,12.0)*Power(xii,12.0) +
6554 943771901519462400.0*Power(rij,13.0)*Power(xii,13.0) +
6555 126929425622630400.0*Power(rij,14.0)*Power(xii,14.0) +
6556 15790263474585600.0*Power(rij,15.0)*Power(xii,15.0) +
6557 1821953477836800.0*Power(rij,16.0)*Power(xii,16.0) +
6558 195294359715840.0*Power(rij,17.0)*Power(xii,17.0) +
6559 19450048020480.0*Power(rij,18.0)*Power(xii,18.0) +
6560 1796674682880.0*Power(rij,19.0)*Power(xii,19.0) +
6561 153204817920.0*Power(rij,20.0)*Power(xii,20.0) +
6562 11938037760.0*Power(rij,21.0)*Power(xii,21.0) +
6563 832045056.0*Power(rij,22.0)*Power(xii,22.0) +
6564 49283072.0*Power(rij,23.0)*Power(xii,23.0) +
6565 2097152.0*Power(rij,24.0)*Power(xii,24.0))/
6566 (9.306726025998591e23*Power(E,2.0*rij*xii)*Power(rij,2.0))
6567 ;
6568 }
6569 else {
6570 S = (1403325.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),23.0) +
6571 Power(E,2.0*rij*xij)*Power(xij,14.0)*
6572 (-996.0*Power(rij,11.0)*Power(xii,43.0) - 12.0*Power(rij,12.0)*Power(xii,44.0) +
6573 1403325.0*Power(xij,32.0) + 2806650.0*rij*xii*Power(xij,32.0) -
6574 88.0*Power(rij,10.0)*Power(xii,42.0)*(456.0 + Power(rij,2.0)*Power(xij,2.0)) +
6575 935550.0*rij*Power(xii,3.0)*Power(xij,30.0)*
6576 (-69.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
6577 1403325.0*Power(xii,2.0)*Power(xij,30.0)*
6578 (-23.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6579 44.0*Power(rij,9.0)*Power(xii,41.0)*
6580 (23460.0 + 257.0*Power(rij,2.0)*Power(xij,2.0)) +
6581 187110.0*rij*Power(xii,5.0)*Power(xij,28.0)*
6582 (3795.0 - 230.0*Power(rij,2.0)*Power(xij,2.0) +
6583 2.0*Power(rij,4.0)*Power(xij,4.0)) +
6584 467775.0*Power(xii,4.0)*Power(xij,28.0)*
6585 (759.0 - 138.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
6586 + 44.0*Power(rij,8.0)*Power(xii,40.0)*
6587 (-426870.0 - 14241.0*Power(rij,2.0)*Power(xij,2.0) +
6588 22.0*Power(rij,4.0)*Power(xij,4.0)) +
6589 220.0*Power(rij,7.0)*Power(xii,39.0)*
6590 (-1151172.0 - 94377.0*Power(rij,2.0)*Power(xij,2.0) +
6591 347.0*Power(rij,4.0)*Power(xij,4.0)) +
6592 8910.0*rij*Power(xii,7.0)*Power(xij,26.0)*
6593 (-557865.0 + 53130.0*Power(rij,2.0)*Power(xij,2.0) -
6594 966.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
6595 31185.0*Power(xii,6.0)*Power(xij,26.0)*
6596 (-79695.0 + 22770.0*Power(rij,2.0)*Power(xij,2.0) -
6597 690.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
6598 110.0*Power(rij,6.0)*Power(xii,38.0)*
6599 (23442048.0 + 4242321.0*Power(rij,2.0)*Power(xij,2.0) -
6600 22038.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
6601 44.0*Power(rij,5.0)*Power(xii,37.0)*
6602 (450526860.0 + 171521550.0*Power(rij,2.0)*Power(xij,2.0) -
6603 702615.0*Power(rij,4.0)*Power(xij,4.0) + 809.0*Power(rij,6.0)*Power(xij,6.0)) \
6604 + 990.0*rij*Power(xii,9.0)*Power(xij,24.0)*
6605 (25103925.0 - 3347190.0*Power(rij,2.0)*Power(xij,2.0) +
6606 95634.0*Power(rij,4.0)*Power(xij,4.0) -
6607 828.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
6608 4455.0*Power(xii,8.0)*Power(xij,24.0)*
6609 (2789325.0 - 1115730.0*Power(rij,2.0)*Power(xij,2.0) +
6610 53130.0*Power(rij,4.0)*Power(xij,4.0) -
6611 644.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
6612 22.0*Power(rij,4.0)*Power(xii,36.0)*
6613 (5137105050.0 + 4097941470.0*Power(rij,2.0)*Power(xij,2.0) +
6614 14337945.0*Power(rij,4.0)*Power(xij,4.0) -
6615 245166.0*Power(rij,6.0)*Power(xij,6.0) + 124.0*Power(rij,8.0)*Power(xij,8.0)) \
6616 - 44.0*Power(rij,3.0)*Power(xii,35.0)*
6617 (10425301425.0 + 18160961805.0*Power(rij,2.0)*Power(xij,2.0) +
6618 471245850.0*Power(rij,4.0)*Power(xij,4.0) -
6619 7008675.0*Power(rij,6.0)*Power(xij,6.0) +
6620 15533.0*Power(rij,8.0)*Power(xij,8.0)) -
6621 2.0*Power(rij,2.0)*Power(xii,34.0)*
6622 (611617683600.0 + 2588132183175.0*Power(rij,2.0)*Power(xij,2.0) +
6623 215628370650.0*Power(rij,4.0)*Power(xij,4.0) -
6624 3937764105.0*Power(rij,6.0)*Power(xij,6.0) +
6625 18963318.0*Power(rij,8.0)*Power(xij,8.0) -
6626 11236.0*Power(rij,10.0)*Power(xij,10.0)) +
6627 18.0*rij*Power(xii,11.0)*Power(xij,22.0)*
6628 (-5246720325.0 + 920477250.0*Power(rij,2.0)*Power(xij,2.0) -
6629 36819090.0*Power(rij,4.0)*Power(xij,4.0) +
6630 500940.0*Power(rij,6.0)*Power(xij,6.0) -
6631 2530.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
6632 99.0*Power(xii,10.0)*Power(xij,22.0)*
6633 (-476974575.0 + 251039250.0*Power(rij,2.0)*Power(xij,2.0) -
6634 16735950.0*Power(rij,4.0)*Power(xij,4.0) +
6635 318780.0*Power(rij,6.0)*Power(xij,6.0) -
6636 2070.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
6637 22.0*rij*Power(xii,13.0)*Power(xij,20.0)*
6638 (-12878313525.0 + 3695139000.0*Power(rij,2.0)*Power(xij,2.0) -
6639 71262450.0*Power(rij,4.0)*Power(xij,4.0) +
6640 5017140.0*Power(rij,6.0)*Power(xij,6.0) -
6641 930.0*Power(rij,8.0)*Power(xij,8.0) + 158.0*Power(rij,10.0)*Power(xij,10.0)) \
6642 - 990.0*rij*Power(xii,29.0)*Power(xij,4.0)*
6643 (1620022028625.0 + 769716305820.0*Power(rij,2.0)*Power(xij,2.0) -
6644 31518809406.0*Power(rij,4.0)*Power(xij,4.0) +
6645 492367788.0*Power(rij,6.0)*Power(xij,6.0) -
6646 2173822.0*Power(rij,8.0)*Power(xij,8.0) +
6647 322.0*Power(rij,10.0)*Power(xij,10.0)) -
6648 22.0*rij*Power(xii,15.0)*Power(xij,18.0)*
6649 (113414642775.0 + 149162958000.0*Power(rij,2.0)*Power(xij,2.0) +
6650 11413095750.0*Power(rij,4.0)*Power(xij,4.0) +
6651 185668740.0*Power(rij,6.0)*Power(xij,6.0) +
6652 1327830.0*Power(rij,8.0)*Power(xij,8.0) +
6653 446.0*Power(rij,10.0)*Power(xij,10.0)) -
6654 110.0*rij*Power(xii,19.0)*Power(xij,14.0)*
6655 (14601048860475.0 + 4483288448100.0*Power(rij,2.0)*Power(xij,2.0) +
6656 57946422870.0*Power(rij,4.0)*Power(xij,4.0) -
6657 832082868.0*Power(rij,6.0)*Power(xij,6.0) -
6658 3260778.0*Power(rij,8.0)*Power(xij,8.0) +
6659 4006.0*Power(rij,10.0)*Power(xij,10.0)) +
6660 22.0*rij*Power(xii,17.0)*Power(xij,16.0)*
6661 (-4973277615075.0 - 3692030989500.0*Power(rij,2.0)*Power(xij,2.0) -
6662 151636618350.0*Power(rij,4.0)*Power(xij,4.0) -
6663 1305433260.0*Power(rij,6.0)*Power(xij,6.0) +
6664 2206410.0*Power(rij,8.0)*Power(xij,8.0) +
6665 7282.0*Power(rij,10.0)*Power(xij,10.0)) -
6666 462.0*rij*Power(xii,25.0)*Power(xij,8.0)*
6667 (40495013164125.0 - 3518150807250.0*Power(rij,2.0)*Power(xij,2.0) +
6668 108840713850.0*Power(rij,4.0)*Power(xij,4.0) -
6669 649652940.0*Power(rij,6.0)*Power(xij,6.0) -
6670 3316830.0*Power(rij,8.0)*Power(xij,8.0) +
6671 8878.0*Power(rij,10.0)*Power(xij,10.0)) +
6672 198.0*rij*Power(xii,27.0)*Power(xij,6.0)*
6673 (-42466116317625.0 - 406603622250.0*Power(rij,2.0)*Power(xij,2.0) -
6674 27736200450.0*Power(rij,4.0)*Power(xij,4.0) +
6675 2056016460.0*Power(rij,6.0)*Power(xij,6.0) -
6676 17679410.0*Power(rij,8.0)*Power(xij,8.0) +
6677 18354.0*Power(rij,10.0)*Power(xij,10.0)) +
6678 2.0*rij*Power(xii,21.0)*Power(xij,12.0)*
6679 (-4202540019025425.0 - 360777507725250.0*Power(rij,2.0)*Power(xij,2.0) +
6680 11255464316250.0*Power(rij,4.0)*Power(xij,4.0) +
6681 55487803140.0*Power(rij,6.0)*Power(xij,6.0) -
6682 628960530.0*Power(rij,8.0)*Power(xij,8.0) +
6683 36974.0*Power(rij,10.0)*Power(xij,10.0)) -
6684 2475.0*Power(xii,28.0)*Power(xij,4.0)*
6685 (324004405725.0 + 1510859435778.0*Power(rij,2.0)*Power(xij,2.0) -
6686 65979118674.0*Power(rij,4.0)*Power(xij,4.0) +
6687 1845131148.0*Power(rij,6.0)*Power(xij,6.0) -
6688 20728198.0*Power(rij,8.0)*Power(xij,8.0) +
6689 49588.0*Power(rij,10.0)*Power(xij,10.0)) +
6690 22.0*rij*Power(xii,23.0)*Power(xij,10.0)*
6691 (-850567767797475.0 + 36188347907250.0*Power(rij,2.0)*Power(xij,2.0) +
6692 847439173350.0*Power(rij,4.0)*Power(xij,4.0) -
6693 23276359260.0*Power(rij,6.0)*Power(xij,6.0) +
6694 45088050.0*Power(rij,8.0)*Power(xij,8.0) +
6695 84778.0*Power(rij,10.0)*Power(xij,10.0)) -
6696 22.0*rij*Power(xii,31.0)*Power(xij,2.0)*
6697 (5035829423625.0 + 11622729957300.0*Power(rij,2.0)*Power(xij,2.0) +
6698 16351979490.0*Power(rij,4.0)*Power(xij,4.0) -
6699 1720091700.0*Power(rij,6.0)*Power(xij,6.0) -
6700 14708670.0*Power(rij,8.0)*Power(xij,8.0) +
6701 103546.0*Power(rij,10.0)*Power(xij,10.0)) +
6702 4.0*rij*Power(xii,33.0)*(-451763061750.0 -
6703 5888319267600.0*Power(rij,2.0)*Power(xij,2.0) -
6704 1360794117375.0*Power(rij,4.0)*Power(xij,4.0) +
6705 28346942250.0*Power(rij,6.0)*Power(xij,6.0) -
6706 234258915.0*Power(rij,8.0)*Power(xij,8.0) +
6707 518489.0*Power(rij,10.0)*Power(xij,10.0)) +
6708 3.0*Power(xii,12.0)*Power(xij,20.0)*
6709 (47220482925.0 - 31480321950.0*Power(rij,2.0)*Power(xij,2.0) +
6710 2761431750.0*Power(rij,4.0)*Power(xij,4.0) -
6711 73638180.0*Power(rij,6.0)*Power(xij,6.0) +
6712 751410.0*Power(rij,8.0)*Power(xij,8.0) -
6713 3036.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) \
6714 + 11.0*Power(xii,14.0)*Power(xij,18.0)*
6715 (-113414642775.0 + 78830888850.0*Power(rij,2.0)*Power(xij,2.0) +
6716 8804234250.0*Power(rij,4.0)*Power(xij,4.0) +
6717 576582300.0*Power(rij,6.0)*Power(xij,6.0) +
6718 5009850.0*Power(rij,8.0)*Power(xij,8.0) +
6719 39684.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)\
6720 ) + 55.0*Power(xii,18.0)*Power(xij,14.0)*
6721 (-14601048860475.0 + 11014160607450.0*Power(rij,2.0)*Power(xij,2.0) +
6722 899524492650.0*Power(rij,4.0)*Power(xij,4.0) +
6723 8911784700.0*Power(rij,6.0)*Power(xij,6.0) -
6724 53799750.0*Power(rij,8.0)*Power(xij,8.0) -
6725 189276.0*Power(rij,10.0)*Power(xij,10.0) +
6726 40.0*Power(rij,12.0)*Power(xij,12.0)) -
6727 11.0*Power(xii,16.0)*Power(xij,16.0)*
6728 (4973277615075.0 - 3535546162050.0*Power(rij,2.0)*Power(xij,2.0) -
6729 536379590250.0*Power(rij,4.0)*Power(xij,4.0) -
6730 13554229500.0*Power(rij,6.0)*Power(xij,6.0) -
6731 104593770.0*Power(rij,8.0)*Power(xij,8.0) +
6732 3228.0*Power(rij,10.0)*Power(xij,10.0) + 88.0*Power(rij,12.0)*Power(xij,12.0)\
6733 ) - 231.0*Power(xii,26.0)*Power(xij,6.0)*
6734 (18199764136125.0 + 21741060926250.0*Power(rij,2.0)*Power(xij,2.0) -
6735 1022330706750.0*Power(rij,4.0)*Power(xij,4.0) +
6736 7759539900.0*Power(rij,6.0)*Power(xij,6.0) +
6737 118181130.0*Power(rij,8.0)*Power(xij,8.0) -
6738 676476.0*Power(rij,10.0)*Power(xij,10.0) +
6739 184.0*Power(rij,12.0)*Power(xij,12.0)) +
6740 11.0*Power(xii,20.0)*Power(xij,12.0)*
6741 (-382049092638675.0 + 278436232062450.0*Power(rij,2.0)*Power(xij,2.0) +
6742 6550223699250.0*Power(rij,4.0)*Power(xij,4.0) -
6743 160205642100.0*Power(rij,6.0)*Power(xij,6.0) -
6744 685586070.0*Power(rij,8.0)*Power(xij,8.0) +
6745 2934804.0*Power(rij,10.0)*Power(xij,10.0) +
6746 248.0*Power(rij,12.0)*Power(xij,12.0)) +
6747 33.0*Power(xii,30.0)*Power(xij,2.0)*
6748 (-1678609807875.0 - 26928208102950.0*Power(rij,2.0)*Power(xij,2.0) -
6749 2249376232950.0*Power(rij,4.0)*Power(xij,4.0) +
6750 75178632060.0*Power(rij,6.0)*Power(xij,6.0) -
6751 585984390.0*Power(rij,8.0)*Power(xij,8.0) +
6752 91908.0*Power(rij,10.0)*Power(xij,10.0) +
6753 1288.0*Power(rij,12.0)*Power(xij,12.0)) -
6754 22.0*Power(xii,32.0)*(41069369250.0 +
6755 3154641699825.0*Power(rij,2.0)*Power(xij,2.0) +
6756 2079992878425.0*Power(rij,4.0)*Power(xij,4.0) -
6757 38081936970.0*Power(rij,6.0)*Power(xij,6.0) +
6758 451881945.0*Power(rij,8.0)*Power(xij,8.0) -
6759 2730774.0*Power(rij,10.0)*Power(xij,10.0) +
6760 2116.0*Power(rij,12.0)*Power(xij,12.0)) +
6761 11.0*Power(xii,24.0)*Power(xij,8.0)*
6762 (-850395276446625.0 + 66465982229850.0*Power(rij,2.0)*Power(xij,2.0) -
6763 19593192890250.0*Power(rij,4.0)*Power(xij,4.0) +
6764 554675026500.0*Power(rij,6.0)*Power(xij,6.0) -
6765 2106396810.0*Power(rij,8.0)*Power(xij,8.0) -
6766 6122508.0*Power(rij,10.0)*Power(xij,10.0) +
6767 4232.0*Power(rij,12.0)*Power(xij,12.0)) -
6768 Power(xii,22.0)*Power(xij,10.0)*
6769 (9356245445772225.0 - 5281430969811150.0*Power(rij,2.0)*Power(xij,2.0) +
6770 186183223899750.0*Power(rij,4.0)*Power(xij,4.0) +
6771 1420112301300.0*Power(rij,6.0)*Power(xij,6.0) -
6772 30664882710.0*Power(rij,8.0)*Power(xij,8.0) +
6773 20787492.0*Power(rij,10.0)*Power(xij,10.0) +
6774 22472.0*Power(rij,12.0)*Power(xij,12.0))) +
6775 Power(E,2.0*rij*xii)*Power(xii,14.0)*
6776 (-302841.0*Power(xii,16.0)*Power(xij,16.0)*
6777 (-180642825.0 - 361285650.0*rij*xij +
6778 2000319750.0*Power(rij,2.0)*Power(xij,2.0) -
6779 1628451000.0*Power(rij,3.0)*Power(xij,3.0) +
6780 237921750.0*Power(rij,4.0)*Power(xij,4.0) +
6781 74332500.0*Power(rij,5.0)*Power(xij,5.0) -
6782 4689300.0*Power(rij,6.0)*Power(xij,6.0) -
6783 1690920.0*Power(rij,7.0)*Power(xij,7.0) -
6784 76510.0*Power(rij,8.0)*Power(xij,8.0) +
6785 5060.0*Power(rij,9.0)*Power(xij,9.0) +
6786 516.0*Power(rij,10.0)*Power(xij,10.0) + 12.0*Power(rij,11.0)*Power(xij,11.0)) \
6787 + Power(xii,10.0)*Power(xij,22.0)*(9356245445772225.0 +
6788 18712490891544450.0*rij*xij -
6789 731125804528350.0*Power(rij,2.0)*Power(xij,2.0) -
6790 1625385672949500.0*Power(rij,3.0)*Power(xij,3.0) -
6791 236158393259250.0*Power(rij,4.0)*Power(xij,4.0) +
6792 5491767689100.0*Power(rij,5.0)*Power(xij,5.0) +
6793 4566699591300.0*Power(rij,6.0)*Power(xij,6.0) +
6794 487444110120.0*Power(rij,7.0)*Power(xij,7.0) +
6795 19337484870.0*Power(rij,8.0)*Power(xij,8.0) -
6796 323590740.0*Power(rij,9.0)*Power(xij,9.0) -
6797 60077028.0*Power(rij,10.0)*Power(xij,10.0) -
6798 2073956.0*Power(rij,11.0)*Power(xij,11.0) -
6799 22472.0*Power(rij,12.0)*Power(xij,12.0)) +
6800 11.0*Power(xii,30.0)*Power(xij,2.0)*
6801 (2934225.0 + 5868450.0*rij*xij + 5868450.0*Power(rij,2.0)*Power(xij,2.0) +
6802 3912300.0*Power(rij,3.0)*Power(xij,3.0) +
6803 1956150.0*Power(rij,4.0)*Power(xij,4.0) +
6804 782460.0*Power(rij,5.0)*Power(xij,5.0) +
6805 260820.0*Power(rij,6.0)*Power(xij,6.0) +
6806 74520.0*Power(rij,7.0)*Power(xij,7.0) +
6807 18630.0*Power(rij,8.0)*Power(xij,8.0) +
6808 4140.0*Power(rij,9.0)*Power(xij,9.0) +
6809 828.0*Power(rij,10.0)*Power(xij,10.0) +
6810 316.0*Power(rij,11.0)*Power(xij,11.0) - 8.0*Power(rij,12.0)*Power(xij,12.0)) +
6811 12.0*Power(xij,32.0)*(75293843625.0 + 150587687250.0*rij*xij +
6812 101936280600.0*Power(rij,2.0)*Power(xij,2.0) +
6813 38226105225.0*Power(rij,3.0)*Power(xij,3.0) +
6814 9418025925.0*Power(rij,4.0)*Power(xij,4.0) +
6815 1651931820.0*Power(rij,5.0)*Power(xij,5.0) +
6816 214885440.0*Power(rij,6.0)*Power(xij,6.0) +
6817 21104820.0*Power(rij,7.0)*Power(xij,7.0) +
6818 1565190.0*Power(rij,8.0)*Power(xij,8.0) +
6819 86020.0*Power(rij,9.0)*Power(xij,9.0) +
6820 3344.0*Power(rij,10.0)*Power(xij,10.0) +
6821 83.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) -
6822 3.0*Power(xii,32.0)*(467775.0 + 935550.0*rij*xij +
6823 935550.0*Power(rij,2.0)*Power(xij,2.0) +
6824 623700.0*Power(rij,3.0)*Power(xij,3.0) +
6825 311850.0*Power(rij,4.0)*Power(xij,4.0) +
6826 124740.0*Power(rij,5.0)*Power(xij,5.0) +
6827 41580.0*Power(rij,6.0)*Power(xij,6.0) +
6828 11880.0*Power(rij,7.0)*Power(xij,7.0) +
6829 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
6830 132.0*Power(rij,10.0)*Power(xij,10.0) +
6831 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
6832 5313.0*Power(xii,14.0)*Power(xij,18.0)*
6833 (-151149574125.0 - 302299148250.0*rij*xij +
6834 576472530150.0*Power(rij,2.0)*Power(xij,2.0) -
6835 135809338500.0*Power(rij,3.0)*Power(xij,3.0) -
6836 35042955750.0*Power(rij,4.0)*Power(xij,4.0) +
6837 3509064900.0*Power(rij,5.0)*Power(xij,5.0) +
6838 1148395500.0*Power(rij,6.0)*Power(xij,6.0) +
6839 56491560.0*Power(rij,7.0)*Power(xij,7.0) -
6840 5138310.0*Power(rij,8.0)*Power(xij,8.0) -
6841 658860.0*Power(rij,9.0)*Power(xij,9.0) -
6842 23100.0*Power(rij,10.0)*Power(xij,10.0) -
6843 60.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
6844 5313.0*Power(xii,18.0)*Power(xij,14.0)*
6845 (234812925.0 + 469625850.0*rij*xij -
6846 7319971350.0*Power(rij,2.0)*Power(xij,2.0) +
6847 15287913000.0*Power(rij,3.0)*Power(xij,3.0) -
6848 9311847750.0*Power(rij,4.0)*Power(xij,4.0) +
6849 1199718900.0*Power(rij,5.0)*Power(xij,5.0) +
6850 331688700.0*Power(rij,6.0)*Power(xij,6.0) -
6851 20887560.0*Power(rij,7.0)*Power(xij,7.0) -
6852 5771670.0*Power(rij,8.0)*Power(xij,8.0) -
6853 186700.0*Power(rij,9.0)*Power(xij,9.0) +
6854 12676.0*Power(rij,10.0)*Power(xij,10.0) +
6855 772.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
6856 11.0*Power(xii,2.0)*Power(xij,30.0)*
6857 (5035829423625.0 + 10071658847250.0*rij*xij +
6858 6309283399650.0*Power(rij,2.0)*Power(xij,2.0) +
6859 2141207006400.0*Power(rij,3.0)*Power(xij,3.0) +
6860 470569487850.0*Power(rij,4.0)*Power(xij,4.0) +
6861 72643847220.0*Power(rij,5.0)*Power(xij,5.0) +
6862 8195882940.0*Power(rij,6.0)*Power(xij,6.0) +
6863 686086200.0*Power(rij,7.0)*Power(xij,7.0) +
6864 42423210.0*Power(rij,8.0)*Power(xij,8.0) +
6865 1887540.0*Power(rij,9.0)*Power(xij,9.0) +
6866 56964.0*Power(rij,10.0)*Power(xij,10.0) +
6867 1028.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) \
6868 + 11.0*Power(xii,28.0)*Power(xij,4.0)*
6869 (-32276475.0 - 64552950.0*rij*xij -
6870 64552950.0*Power(rij,2.0)*Power(xij,2.0) -
6871 43035300.0*Power(rij,3.0)*Power(xij,3.0) -
6872 21517650.0*Power(rij,4.0)*Power(xij,4.0) -
6873 8607060.0*Power(rij,5.0)*Power(xij,5.0) -
6874 2869020.0*Power(rij,6.0)*Power(xij,6.0) -
6875 819720.0*Power(rij,7.0)*Power(xij,7.0) -
6876 204930.0*Power(rij,8.0)*Power(xij,8.0) -
6877 1860.0*Power(rij,9.0)*Power(xij,9.0) -
6878 39684.0*Power(rij,10.0)*Power(xij,10.0) +
6879 892.0*Power(rij,11.0)*Power(xij,11.0) + 88.0*Power(rij,12.0)*Power(xij,12.0)) \
6880 - 11.0*Power(xii,4.0)*Power(xij,28.0)*
6881 (-72900991288125.0 - 145801982576250.0*rij*xij -
6882 80784624308850.0*Power(rij,2.0)*Power(xij,2.0) -
6883 23245459914600.0*Power(rij,3.0)*Power(xij,3.0) -
6884 4159985756850.0*Power(rij,4.0)*Power(xij,4.0) -
6885 494834224500.0*Power(rij,5.0)*Power(xij,5.0) -
6886 39205158300.0*Power(rij,6.0)*Power(xij,6.0) -
6887 1884983400.0*Power(rij,7.0)*Power(xij,7.0) -
6888 28675890.0*Power(rij,8.0)*Power(xij,8.0) +
6889 2810460.0*Power(rij,9.0)*Power(xij,9.0) +
6890 220380.0*Power(rij,10.0)*Power(xij,10.0) +
6891 6940.0*Power(rij,11.0)*Power(xij,11.0) + 88.0*Power(rij,12.0)*Power(xij,12.0)) \
6892 - 253.0*Power(xii,20.0)*Power(xij,12.0)*
6893 (559926675.0 + 1119853350.0*rij*xij +
6894 3427429950.0*Power(rij,2.0)*Power(xij,2.0) -
6895 12970692000.0*Power(rij,3.0)*Power(xij,3.0) +
6896 23320851750.0*Power(rij,4.0)*Power(xij,4.0) -
6897 13185792900.0*Power(rij,5.0)*Power(xij,5.0) +
6898 1937344500.0*Power(rij,6.0)*Power(xij,6.0) +
6899 361775160.0*Power(rij,7.0)*Power(xij,7.0) -
6900 29808090.0*Power(rij,8.0)*Power(xij,8.0) -
6901 4972020.0*Power(rij,9.0)*Power(xij,9.0) -
6902 82164.0*Power(rij,10.0)*Power(xij,10.0) +
6903 7372.0*Power(rij,11.0)*Power(xij,11.0) + 184.0*Power(rij,12.0)*Power(xij,12.0)\
6904 ) + 253.0*Power(xii,12.0)*Power(xij,20.0)*
6905 (16610830114725.0 + 33221660229450.0*rij*xij -
6906 20875221224550.0*Power(rij,2.0)*Power(xij,2.0) -
6907 3146812861500.0*Power(rij,3.0)*Power(xij,3.0) +
6908 851877951750.0*Power(rij,4.0)*Power(xij,4.0) +
6909 198752607900.0*Power(rij,5.0)*Power(xij,5.0) +
6910 7084797300.0*Power(rij,6.0)*Power(xij,6.0) -
6911 1609056360.0*Power(rij,7.0)*Power(xij,7.0) -
6912 202775850.0*Power(rij,8.0)*Power(xij,8.0) -
6913 8506260.0*Power(rij,9.0)*Power(xij,9.0) -
6914 11988.0*Power(rij,10.0)*Power(xij,10.0) +
6915 9004.0*Power(rij,11.0)*Power(xij,11.0) + 184.0*Power(rij,12.0)*Power(xij,12.0)\
6916 ) + 11.0*Power(xii,6.0)*Power(xij,26.0)*
6917 (382195046858625.0 + 764390093717250.0*rij*xij +
6918 339943373050050.0*Power(rij,2.0)*Power(xij,2.0) +
6919 69274467523800.0*Power(rij,3.0)*Power(xij,3.0) +
6920 6748128698850.0*Power(rij,4.0)*Power(xij,4.0) +
6921 32703958980.0*Power(rij,5.0)*Power(xij,5.0) -
6922 76163873940.0*Power(rij,6.0)*Power(xij,6.0) -
6923 10307979000.0*Power(rij,7.0)*Power(xij,7.0) -
6924 715957110.0*Power(rij,8.0)*Power(xij,8.0) -
6925 28034700.0*Power(rij,9.0)*Power(xij,9.0) -
6926 490332.0*Power(rij,10.0)*Power(xij,10.0) +
6927 3236.0*Power(rij,11.0)*Power(xij,11.0) + 200.0*Power(rij,12.0)*Power(xij,12.0)\
6928 ) - 11.0*Power(xii,26.0)*Power(xij,6.0)*
6929 (-225935325.0 - 451870650.0*rij*xij -
6930 451870650.0*Power(rij,2.0)*Power(xij,2.0) -
6931 301247100.0*Power(rij,3.0)*Power(xij,3.0) -
6932 150623550.0*Power(rij,4.0)*Power(xij,4.0) -
6933 60249420.0*Power(rij,5.0)*Power(xij,5.0) -
6934 20083140.0*Power(rij,6.0)*Power(xij,6.0) -
6935 10034280.0*Power(rij,7.0)*Power(xij,7.0) +
6936 5009850.0*Power(rij,8.0)*Power(xij,8.0) -
6937 2655660.0*Power(rij,9.0)*Power(xij,9.0) -
6938 3228.0*Power(rij,10.0)*Power(xij,10.0) +
6939 14564.0*Power(rij,11.0)*Power(xij,11.0) +
6940 200.0*Power(rij,12.0)*Power(xij,12.0)) -
6941 11.0*Power(xii,24.0)*Power(xij,8.0)*
6942 (1129676625.0 + 2259353250.0*rij*xij +
6943 2259353250.0*Power(rij,2.0)*Power(xij,2.0) +
6944 1506235500.0*Power(rij,3.0)*Power(xij,3.0) +
6945 753117750.0*Power(rij,4.0)*Power(xij,4.0) +
6946 142524900.0*Power(rij,5.0)*Power(xij,5.0) +
6947 576582300.0*Power(rij,6.0)*Power(xij,6.0) -
6948 371337480.0*Power(rij,7.0)*Power(xij,7.0) +
6949 104593770.0*Power(rij,8.0)*Power(xij,8.0) +
6950 4412820.0*Power(rij,9.0)*Power(xij,9.0) -
6951 946380.0*Power(rij,10.0)*Power(xij,10.0) -
6952 40060.0*Power(rij,11.0)*Power(xij,11.0) +
6953 248.0*Power(rij,12.0)*Power(xij,12.0)) +
6954 11.0*Power(xii,8.0)*Power(xij,24.0)*
6955 (850395276446625.0 + 1700790552893250.0*rij*xij +
6956 456562279451250.0*Power(rij,2.0)*Power(xij,2.0) +
6957 7318865200500.0*Power(rij,3.0)*Power(xij,3.0) -
6958 14845301701650.0*Power(rij,4.0)*Power(xij,4.0) -
6959 2836692846540.0*Power(rij,5.0)*Power(xij,5.0) -
6960 225535896180.0*Power(rij,6.0)*Power(xij,6.0) -
6961 3440183400.0*Power(rij,7.0)*Power(xij,7.0) +
6962 903763890.0*Power(rij,8.0)*Power(xij,8.0) +
6963 85185060.0*Power(rij,9.0)*Power(xij,9.0) +
6964 3447876.0*Power(rij,10.0)*Power(xij,10.0) +
6965 62132.0*Power(rij,11.0)*Power(xij,11.0) +
6966 248.0*Power(rij,12.0)*Power(xij,12.0)) +
6967 Power(xii,22.0)*Power(xij,10.0)*
6968 (47220482925.0 + 94440965850.0*rij*xij +
6969 94440965850.0*Power(rij,2.0)*Power(xij,2.0) +
6970 81293058000.0*Power(rij,3.0)*Power(xij,3.0) -
6971 96846576750.0*Power(rij,4.0)*Power(xij,4.0) +
6972 251088106500.0*Power(rij,5.0)*Power(xij,5.0) -
6973 149096524500.0*Power(rij,6.0)*Power(xij,6.0) +
6974 28719531720.0*Power(rij,7.0)*Power(xij,7.0) +
6975 2958986250.0*Power(rij,8.0)*Power(xij,8.0) -
6976 358685580.0*Power(rij,9.0)*Power(xij,9.0) -
6977 32282844.0*Power(rij,10.0)*Power(xij,10.0) -
6978 73948.0*Power(rij,11.0)*Power(xij,11.0) +
6979 22472.0*Power(rij,12.0)*Power(xij,12.0))))/
6980 (1.403325e6*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
6981 Power(Power(xii,2.0) - Power(xij,2.0),23.0))
6982 ;
6983 }
6984 return S;
6985 }
6986
6987 double DSlater_6S_1S(double rij,double xii,double xij)
6988 {
6989 return DSlater_1S_6S(rij,xij,xii);
6990 }
6991
6992 double DSlater_6S_2S(double rij,double xii,double xij)
6993 {
6994 return DSlater_2S_6S(rij,xij,xii);
6995 }
6996
6997 double DSlater_6S_3S(double rij,double xii,double xij)
6998 {
6999 return DSlater_3S_6S(rij,xij,xii);
7000 }
7001
7002 double DSlater_6S_4S(double rij,double xii,double xij)
7003 {
7004 return DSlater_4S_6S(rij,xij,xii);
7005 }
7006
7007 double DSlater_6S_5S(double rij,double xii,double xij)
7008 {
7009 return DSlater_5S_6S(rij,xij,xii);
7010 }
7011
7012 double Nuclear_1S(double rij,double xii)
7013 {
7014 double S;
7015
7016 S =
7017 1.0/rij - (1.0 + rij*xii)/(Power(E,2.0*rij*xii)*rij)
7018 ;
7019 return S;
7020 }
7021
7022 double Nuclear_2S(double rij,double xii)
7023 {
7024 double S;
7025
7026 S =
7027 1.0/rij - (6.0 + 9.0*rij*xii + 6.0*Power(rij,2.0)*Power(xii,2.0) +
7028 2.0*Power(rij,3.0)*Power(xii,3.0))/(6.*Power(E,2.0*rij*xii)*rij)
7029 ;
7030 return S;
7031 }
7032
7033 double Nuclear_3S(double rij,double xii)
7034 {
7035 double S;
7036
7037 S =
7038 1.0/rij - (45.0 + 75.0*rij*xii + 60.0*Power(rij,2.0)*Power(xii,2.0) +
7039 30.0*Power(rij,3.0)*Power(xii,3.0) + 10.0*Power(rij,4.0)*Power(xii,4.0) +
7040 2.0*Power(rij,5.0)*Power(xii,5.0))/(45.*Power(E,2.0*rij*xii)*rij)
7041 ;
7042 return S;
7043 }
7044
7045 double Nuclear_4S(double rij,double xii)
7046 {
7047 double S;
7048
7049 S =
7050 1.0/rij - (1260.0 + 2205.0*rij*xii + 1890.0*Power(rij,2.0)*Power(xii,2.0) +
7051 1050.0*Power(rij,3.0)*Power(xii,3.0) + 420.0*Power(rij,4.0)*Power(xii,4.0) +
7052 126.0*Power(rij,5.0)*Power(xii,5.0) + 28.0*Power(rij,6.0)*Power(xii,6.0) +
7053 4.0*Power(rij,7.0)*Power(xii,7.0))/(1260.*Power(E,2.0*rij*xii)*rij)
7054 ;
7055 return S;
7056 }
7057
7058 double Nuclear_5S(double rij,double xii)
7059 {
7060 double S;
7061
7062 S =
7063 1.0/rij - (14175.0 + 25515.0*rij*xii + 22680.0*Power(rij,2.0)*Power(xii,2.0) +
7064 13230.0*Power(rij,3.0)*Power(xii,3.0) + 5670.0*Power(rij,4.0)*Power(xii,4.0) +
7065 1890.0*Power(rij,5.0)*Power(xii,5.0) + 504.0*Power(rij,6.0)*Power(xii,6.0) +
7066 108.0*Power(rij,7.0)*Power(xii,7.0) + 18.0*Power(rij,8.0)*Power(xii,8.0) +
7067 2.0*Power(rij,9.0)*Power(xii,9.0))/(14175.*Power(E,2.0*rij*xii)*rij)
7068 ;
7069 return S;
7070 }
7071
7072 double Nuclear_6S(double rij,double xii)
7073 {
7074 double S;
7075
7076 S =
7077 1.0/rij - (935550.0 + 1715175.0*rij*xii + 1559250.0*Power(rij,2.0)*Power(xii,2.0) +
7078 935550.0*Power(rij,3.0)*Power(xii,3.0) + 415800.0*Power(rij,4.0)*Power(xii,4.0) +
7079 145530.0*Power(rij,5.0)*Power(xii,5.0) + 41580.0*Power(rij,6.0)*Power(xii,6.0) +
7080 9900.0*Power(rij,7.0)*Power(xii,7.0) + 1980.0*Power(rij,8.0)*Power(xii,8.0) +
7081 330.0*Power(rij,9.0)*Power(xii,9.0) + 44.0*Power(rij,10.0)*Power(xii,10.0) +
7082 4.0*Power(rij,11.0)*Power(xii,11.0))/(935550.*Power(E,2.0*rij*xii)*rij)
7083 ;
7084 return S;
7085 }
7086
7087 double DNuclear_1S(double rij,double xii)
7088 {
7089 double S;
7090
7091 S =
7092 Power(rij,-2.0) - (1.0 + 2.0*rij*xii + 2.0*Power(rij,2.0)*Power(xii,2.0))/
7093 (Power(E,2.0*rij*xii)*Power(rij,2.0))
7094 ;
7095 return S;
7096 }
7097
7098 double DNuclear_2S(double rij,double xii)
7099 {
7100 double S;
7101
7102 S =
7103 Power(rij,-2.0) - (3.0 + 6.0*rij*xii + 6.0*Power(rij,2.0)*Power(xii,2.0) +
7104 4.0*Power(rij,3.0)*Power(xii,3.0) + 2.0*Power(rij,4.0)*Power(xii,4.0))/
7105 (3.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7106 ;
7107 return S;
7108 }
7109
7110 double DNuclear_3S(double rij,double xii)
7111 {
7112 double S;
7113
7114 S =
7115 Power(rij,-2.0) - (45.0 + 90.0*rij*xii + 90.0*Power(rij,2.0)*Power(xii,2.0) +
7116 60.0*Power(rij,3.0)*Power(xii,3.0) + 30.0*Power(rij,4.0)*Power(xii,4.0) +
7117 12.0*Power(rij,5.0)*Power(xii,5.0) + 4.0*Power(rij,6.0)*Power(xii,6.0))/
7118 (45.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7119 ;
7120 return S;
7121 }
7122
7123 double DNuclear_4S(double rij,double xii)
7124 {
7125 double S;
7126
7127 S =
7128 Power(rij,-2.0) - (315.0 + 630.0*rij*xii + 630.0*Power(rij,2.0)*Power(xii,2.0) +
7129 420.0*Power(rij,3.0)*Power(xii,3.0) + 210.0*Power(rij,4.0)*Power(xii,4.0) +
7130 84.0*Power(rij,5.0)*Power(xii,5.0) + 28.0*Power(rij,6.0)*Power(xii,6.0) +
7131 8.0*Power(rij,7.0)*Power(xii,7.0) + 2.0*Power(rij,8.0)*Power(xii,8.0))/
7132 (315.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7133 ;
7134 return S;
7135 }
7136
7137 double DNuclear_5S(double rij,double xii)
7138 {
7139 double S;
7140
7141 S =
7142 Power(rij,-2.0) - (14175.0 + 28350.0*rij*xii + 28350.0*Power(rij,2.0)*Power(xii,2.0) +
7143 18900.0*Power(rij,3.0)*Power(xii,3.0) + 9450.0*Power(rij,4.0)*Power(xii,4.0) +
7144 3780.0*Power(rij,5.0)*Power(xii,5.0) + 1260.0*Power(rij,6.0)*Power(xii,6.0) +
7145 360.0*Power(rij,7.0)*Power(xii,7.0) + 90.0*Power(rij,8.0)*Power(xii,8.0) +
7146 20.0*Power(rij,9.0)*Power(xii,9.0) + 4.0*Power(rij,10.0)*Power(xii,10.0))/
7147 (14175.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7148 ;
7149 return S;
7150 }
7151
7152 double DNuclear_6S(double rij,double xii)
7153 {
7154 double S;
7155
7156 S =
7157 Power(rij,-2.0) - (467775.0 + 935550.0*rij*xii +
7158 935550.0*Power(rij,2.0)*Power(xii,2.0) + 623700.0*Power(rij,3.0)*Power(xii,3.0) +
7159 311850.0*Power(rij,4.0)*Power(xii,4.0) + 124740.0*Power(rij,5.0)*Power(xii,5.0) +
7160 41580.0*Power(rij,6.0)*Power(xii,6.0) + 11880.0*Power(rij,7.0)*Power(xii,7.0) +
7161 2970.0*Power(rij,8.0)*Power(xii,8.0) + 660.0*Power(rij,9.0)*Power(xii,9.0) +
7162 132.0*Power(rij,10.0)*Power(xii,10.0) + 24.0*Power(rij,11.0)*Power(xii,11.0) +
7163 4.0*Power(rij,12.0)*Power(xii,12.0))/(467775.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7164 ;
7165 return S;
7166 }
7167
7168 t_slater_SS_func (*Slater_SS[SLATER_MAX][SLATER_MAX]) = {
7169 { Slater_1S_1S, Slater_2S_1S, Slater_3S_1S, Slater_4S_1S, Slater_5S_1S, Slater_6S_1S},
7170 { Slater_1S_2S, Slater_2S_2S, Slater_3S_2S, Slater_4S_2S, Slater_5S_2S, Slater_6S_2S},
7171 { Slater_1S_3S, Slater_2S_3S, Slater_3S_3S, Slater_4S_3S, Slater_5S_3S, Slater_6S_3S},
7172 { Slater_1S_4S, Slater_2S_4S, Slater_3S_4S, Slater_4S_4S, Slater_5S_4S, Slater_6S_4S},
7173 { Slater_1S_5S, Slater_2S_5S, Slater_3S_5S, Slater_4S_5S, Slater_5S_5S, Slater_6S_5S},
7174 { Slater_1S_6S, Slater_2S_6S, Slater_3S_6S, Slater_4S_6S, Slater_5S_6S, Slater_6S_6S}
7175 };
7176
7177 t_slater_SS_func (*DSlater_SS[SLATER_MAX][SLATER_MAX]) = {
7178 { DSlater_1S_1S, DSlater_2S_1S, DSlater_3S_1S, DSlater_4S_1S, DSlater_5S_1S, DSlater_6S_1S},
7179 { DSlater_1S_2S, DSlater_2S_2S, DSlater_3S_2S, DSlater_4S_2S, DSlater_5S_2S, DSlater_6S_2S},
7180 { DSlater_1S_3S, DSlater_2S_3S, DSlater_3S_3S, DSlater_4S_3S, DSlater_5S_3S, DSlater_6S_3S},
7181 { DSlater_1S_4S, DSlater_2S_4S, DSlater_3S_4S, DSlater_4S_4S, DSlater_5S_4S, DSlater_6S_4S},
7182 { DSlater_1S_5S, DSlater_2S_5S, DSlater_3S_5S, DSlater_4S_5S, DSlater_5S_5S, DSlater_6S_5S},
7183 { DSlater_1S_6S, DSlater_2S_6S, DSlater_3S_6S, DSlater_4S_6S, DSlater_5S_6S, DSlater_6S_6S}
7184 };
7185
7186 t_slater_NS_func (*Slater_NS[SLATER_MAX]) = {
7187 Nuclear_1S, Nuclear_2S, Nuclear_3S, Nuclear_4S, Nuclear_5S, Nuclear_6S
7188 };
7189
7190 t_slater_NS_func (*DSlater_NS[SLATER_MAX]) = {
7191 DNuclear_1S, DNuclear_2S, DNuclear_3S, DNuclear_4S, DNuclear_5S, DNuclear_6S
7192 };
7193