?  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/adressmacs.git] / src / kernel / slater_S_integrals.c
blob6c2ef7d88402e444f114fbd22e7f772332eba5ba
1 /* -*- mode: c; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; c-file-style: "stroustrup"; -*-
2 * $Id: gmx_matrix.c,v 1.4 2008/12/02 18:27:57 spoel Exp $
3 *
4 * This source code is part of
5 *
6 * G R O M A C S
7 *
8 * GROningen MAchine for Chemical Simulations
9 *
10 * VERSION 4.5
11 * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
12 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
13 * Copyright (c) 2001-2008, The GROMACS development team,
14 * check out http://www.gromacs.org for more information.
15
16 * This program is free software; you can redistribute it and/or
17 * modify it under the terms of the GNU General Public License
18 * as published by the Free Software Foundation; either version 2
19 * of the License, or (at your option) any later version.
20 *
21 * If you want to redistribute modifications, please consider that
22 * scientific software is very special. Version control is crucial -
23 * bugs must be traceable. We will be happy to consider code for
24 * inclusion in the official distribution, but derived work must not
25 * be called official GROMACS. Details are found in the README & COPYING
26 * files - if they are missing, get the official version at www.gromacs.org.
27 *
28 * To help us fund GROMACS development, we humbly ask that you cite
29 * the papers on the package - you can find them in the top README file.
30 *
31 * For more info, check our website at http://www.gromacs.org
32 *
33 * And Hey:
34 * Groningen Machine for Chemical Simulation
35 */
36 #ifdef HAVE_CONFIG_H
37 #include <config.h>
38 #endif
39
40
41 /* slater_S_integrals.c (c) 2008 Paul J. van Maaren and David van der Spoel */
42 #include <stdio.h>
43 #include <math.h>
44 #include "slater_S_integrals.h"
45
46 #define Power(x, y) (pow((double)(x), (double)(y)))
47 #define Pi 3.14159265358979323846264
48 #define E 2.71828182845904523536029
49
50 static double Slater_1S_1S(double rij,double xij,double xii)
51 {
52 double S;
53
54 if (xii == xij) {
55 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) -
56 4.0*Power(rij,3.0)*Power(xii,3.0))/(24.*Power(E,2.0*rij*xii)*rij)
57 ;
58 }
59 else {
60 S = (Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),3.0) +
61 Power(E,2.0*rij*xij)*Power(xij,4.0)*
62 (-3.0*Power(xii,2.0) - rij*Power(xii,3.0) + Power(xij,2.0) +
63 rij*xii*Power(xij,2.0)) -
64 Power(E,2.0*rij*xii)*Power(xii,4.0)*
65 (Power(xii,2.0)*(1.0 + rij*xij) - Power(xij,2.0)*(3.0 + rij*xij)))/
66 (Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),3.0))
67 ;
68 }
69 return S;
70 }
71
72 static double Slater_1S_2S(double rij,double xij,double xii)
73 {
74 double S;
75
76 if (xii == xij) {
77 S = (-240.0 + 240.0*Power(E,2.0*rij*xii) - 375.0*rij*xii -
78 270.0*Power(rij,2.0)*Power(xii,2.0) - 115.0*Power(rij,3.0)*Power(xii,3.0) -
79 30.0*Power(rij,4.0)*Power(xii,4.0) - 4.0*Power(rij,5.0)*Power(xii,5.0))/
80 (240.*Power(E,2.0*rij*xii)*rij)
81 ;
82 }
83 else {
84 S = (6.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),5.0) +
85 6.0*Power(E,2.0*rij*xij)*Power(xij,6.0)*
86 (-4.0*Power(xii,4.0) - rij*Power(xii,5.0) - 5.0*Power(xii,2.0)*Power(xij,2.0) +
87 Power(xij,4.0) + rij*xii*Power(xij,4.0)) -
88 Power(E,2.0*rij*xii)*Power(xii,4.0)*
89 (Power(xii,6.0)*(6.0 + 9.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
90 2.0*Power(rij,3.0)*Power(xij,3.0)) -
91 3.0*Power(xii,4.0)*Power(xij,2.0)*
92 (10.0 + 15.0*rij*xij + 10.0*Power(rij,2.0)*Power(xij,2.0) +
93 2.0*Power(rij,3.0)*Power(xij,3.0)) +
94 3.0*Power(xii,2.0)*Power(xij,4.0)*
95 (20.0 + 33.0*rij*xij + 14.0*Power(rij,2.0)*Power(xij,2.0) +
96 2.0*Power(rij,3.0)*Power(xij,3.0)) -
97 Power(xij,6.0)*(84.0 + 63.0*rij*xij + 18.0*Power(rij,2.0)*Power(xij,2.0) +
98 2.0*Power(rij,3.0)*Power(xij,3.0))))/
99 (6.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),5.0))
100 ;
101 }
102 return S;
103 }
104
105 static double Slater_1S_3S(double rij,double xij,double xii)
106 {
107 double S;
108
109 if (xii == xij) {
110 S = (-120960.0 + 120960.0*Power(E,2.0*rij*xii) - 203175.0*rij*xii -
111 164430.0*Power(rij,2.0)*Power(xii,2.0) - 84420.0*Power(rij,3.0)*Power(xii,3.0) -
112 30240.0*Power(rij,4.0)*Power(xii,4.0) - 7728.0*Power(rij,5.0)*Power(xii,5.0) -
113 1344.0*Power(rij,6.0)*Power(xii,6.0) - 128.0*Power(rij,7.0)*Power(xii,7.0))/
114 (120960.*Power(E,2.0*rij*xii)*rij)
115 ;
116 }
117 else {
118 S = (45.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) +
119 15.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
120 (-15.0*Power(xii,6.0) - 3.0*rij*Power(xii,7.0) -
121 63.0*Power(xii,4.0)*Power(xij,2.0) - 7.0*rij*Power(xii,5.0)*Power(xij,2.0) -
122 21.0*Power(xii,2.0)*Power(xij,4.0) + 7.0*rij*Power(xii,3.0)*Power(xij,4.0) +
123 3.0*Power(xij,6.0) + 3.0*rij*xii*Power(xij,6.0)) +
124 Power(E,2.0*rij*xii)*Power(xii,4.0)*
125 (-10.0*Power(xii,2.0)*Power(xij,8.0)*
126 (135.0 + 333.0*rij*xij + 228.0*Power(rij,2.0)*Power(xij,2.0) +
127 75.0*Power(rij,3.0)*Power(xij,3.0) + 13.0*Power(rij,4.0)*Power(xij,4.0) +
128 Power(rij,5.0)*Power(xij,5.0)) +
129 2.0*Power(xij,10.0)*(945.0 + 945.0*rij*xij + 420.0*Power(rij,2.0)*Power(xij,2.0) +
130 105.0*Power(rij,3.0)*Power(xij,3.0) + 15.0*Power(rij,4.0)*Power(xij,4.0) +
131 Power(rij,5.0)*Power(xij,5.0)) -
132 Power(xii,10.0)*(45.0 + 75.0*rij*xij + 60.0*Power(rij,2.0)*Power(xij,2.0) +
133 30.0*Power(rij,3.0)*Power(xij,3.0) + 10.0*Power(rij,4.0)*Power(xij,4.0) +
134 2.0*Power(rij,5.0)*Power(xij,5.0)) +
135 5.0*Power(xii,8.0)*Power(xij,2.0)*
136 (63.0 + 105.0*rij*xij + 84.0*Power(rij,2.0)*Power(xij,2.0) +
137 42.0*Power(rij,3.0)*Power(xij,3.0) + 14.0*Power(rij,4.0)*Power(xij,4.0) +
138 2.0*Power(rij,5.0)*Power(xij,5.0)) -
139 5.0*Power(xii,6.0)*Power(xij,4.0)*
140 (189.0 + 315.0*rij*xij + 252.0*Power(rij,2.0)*Power(xij,2.0) +
141 132.0*Power(rij,3.0)*Power(xij,3.0) + 36.0*Power(rij,4.0)*Power(xij,4.0) +
142 4.0*Power(rij,5.0)*Power(xij,5.0)) +
143 5.0*Power(xii,4.0)*Power(xij,6.0)*
144 (315.0 + 513.0*rij*xij + 468.0*Power(rij,2.0)*Power(xij,2.0) +
145 204.0*Power(rij,3.0)*Power(xij,3.0) + 44.0*Power(rij,4.0)*Power(xij,4.0) +
146 4.0*Power(rij,5.0)*Power(xij,5.0))))/
147 (45.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),7.0))
148 ;
149 }
150 return S;
151 }
152
153 static double Slater_1S_4S(double rij,double xij,double xii)
154 {
155 double S;
156
157 if (xii == xij) {
158 S = (-2903040.0 + 2903040.0*Power(E,2.0*rij*xii) - 5088825.0*rij*xii -
159 4371570.0*Power(rij,2.0)*Power(xii,2.0) - 2439990.0*Power(rij,3.0)*Power(xii,3.0) -
160 986580.0*Power(rij,4.0)*Power(xii,4.0) - 303912.0*Power(rij,5.0)*Power(xii,5.0) -
161 72576.0*Power(rij,6.0)*Power(xii,6.0) - 13248.0*Power(rij,7.0)*Power(xii,7.0) -
162 1728.0*Power(rij,8.0)*Power(xii,8.0) - 128.0*Power(rij,9.0)*Power(xii,9.0))/
163 (2.90304e6*Power(E,2.0*rij*xii)*rij)
164 ;
165 }
166 else {
167 S = (1260.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
168 1260.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
169 (-6.0*Power(xii,8.0) - rij*Power(xii,9.0) - 51.0*Power(xii,6.0)*Power(xij,2.0) -
170 6.0*rij*Power(xii,7.0)*Power(xij,2.0) - 63.0*Power(xii,4.0)*Power(xij,4.0) -
171 9.0*Power(xii,2.0)*Power(xij,6.0) + 6.0*rij*Power(xii,3.0)*Power(xij,6.0) +
172 Power(xij,8.0) + rij*xii*Power(xij,8.0)) +
173 Power(E,2.0*rij*xii)*Power(xii,4.0)*
174 (-42.0*Power(xii,10.0)*Power(xij,4.0)*
175 (1080.0 + 1890.0*rij*xij + 1620.0*Power(rij,2.0)*Power(xij,2.0) +
176 900.0*Power(rij,3.0)*Power(xij,3.0) + 360.0*Power(rij,4.0)*Power(xij,4.0) +
177 111.0*Power(rij,5.0)*Power(xij,5.0) + 22.0*Power(rij,6.0)*Power(xij,6.0) +
178 2.0*Power(rij,7.0)*Power(xij,7.0)) +
179 70.0*Power(xii,8.0)*Power(xij,6.0)*
180 (1512.0 + 2646.0*rij*xij + 2268.0*Power(rij,2.0)*Power(xij,2.0) +
181 1248.0*Power(rij,3.0)*Power(xij,3.0) + 528.0*Power(rij,4.0)*Power(xij,4.0) +
182 153.0*Power(rij,5.0)*Power(xij,5.0) + 26.0*Power(rij,6.0)*Power(xij,6.0) +
183 2.0*Power(rij,7.0)*Power(xij,7.0)) -
184 14.0*Power(xii,2.0)*Power(xij,12.0)*
185 (2970.0 + 16335.0*rij*xij + 15390.0*Power(rij,2.0)*Power(xij,2.0) +
186 7110.0*Power(rij,3.0)*Power(xij,3.0) + 1980.0*Power(rij,4.0)*Power(xij,4.0) +
187 351.0*Power(rij,5.0)*Power(xij,5.0) + 38.0*Power(rij,6.0)*Power(xij,6.0) +
188 2.0*Power(rij,7.0)*Power(xij,7.0)) +
189 2.0*Power(xij,14.0)*(62370.0 + 72765.0*rij*xij +
190 39690.0*Power(rij,2.0)*Power(xij,2.0) +
191 13230.0*Power(rij,3.0)*Power(xij,3.0) +
192 2940.0*Power(rij,4.0)*Power(xij,4.0) + 441.0*Power(rij,5.0)*Power(xij,5.0) +
193 42.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,7.0)*Power(xij,7.0)) -
194 Power(xii,14.0)*(1260.0 + 2205.0*rij*xij +
195 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
196 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
197 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
198 7.0*Power(xii,12.0)*Power(xij,2.0)*
199 (1620.0 + 2835.0*rij*xij + 2430.0*Power(rij,2.0)*Power(xij,2.0) +
200 1350.0*Power(rij,3.0)*Power(xij,3.0) + 540.0*Power(rij,4.0)*Power(xij,4.0) +
201 162.0*Power(rij,5.0)*Power(xij,5.0) + 36.0*Power(rij,6.0)*Power(xij,6.0) +
202 4.0*Power(rij,7.0)*Power(xij,7.0)) -
203 35.0*Power(xii,6.0)*Power(xij,8.0)*
204 (4536.0 + 7983.0*rij*xij + 6534.0*Power(rij,2.0)*Power(xij,2.0) +
205 4014.0*Power(rij,3.0)*Power(xij,3.0) + 1644.0*Power(rij,4.0)*Power(xij,4.0) +
206 414.0*Power(rij,5.0)*Power(xij,5.0) + 60.0*Power(rij,6.0)*Power(xij,6.0) +
207 4.0*Power(rij,7.0)*Power(xij,7.0)) +
208 21.0*Power(xii,4.0)*Power(xij,10.0)*
209 (7920.0 + 11385.0*rij*xij + 12330.0*Power(rij,2.0)*Power(xij,2.0) +
210 7410.0*Power(rij,3.0)*Power(xij,3.0) + 2580.0*Power(rij,4.0)*Power(xij,4.0) +
211 546.0*Power(rij,5.0)*Power(xij,5.0) + 68.0*Power(rij,6.0)*Power(xij,6.0) +
212 4.0*Power(rij,7.0)*Power(xij,7.0))))/
213 (1260.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),9.0))
214 ;
215 }
216 return S;
217 }
218
219 static double Slater_1S_5S(double rij,double xij,double xii)
220 {
221 double S;
222
223 if (xii == xij) {
224 S = (-1596672000.0 + 1596672000.0*Power(E,2.0*rij*xii) - 2875101075.0*rij*xii -
225 2556858150.0*Power(rij,2.0)*Power(xii,2.0) -
226 1492929900.0*Power(rij,3.0)*Power(xii,3.0) -
227 641163600.0*Power(rij,4.0)*Power(xii,4.0) -
228 214719120.0*Power(rij,5.0)*Power(xii,5.0) -
229 57879360.0*Power(rij,6.0)*Power(xii,6.0) -
230 12735360.0*Power(rij,7.0)*Power(xii,7.0) - 2280960.0*Power(rij,8.0)*Power(xii,8.0) -
231 323840.0*Power(rij,9.0)*Power(xii,9.0) - 33792.0*Power(rij,10.0)*Power(xii,10.0) -
232 2048.0*Power(rij,11.0)*Power(xii,11.0))/(1.596672e9*Power(E,2.0*rij*xii)*rij)
233 ;
234 }
235 else {
236 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
237 2835.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
238 (-35.0*Power(xii,10.0) - 5.0*rij*Power(xii,11.0) -
239 495.0*Power(xii,8.0)*Power(xij,2.0) - 55.0*rij*Power(xii,9.0)*Power(xij,2.0) -
240 1254.0*Power(xii,6.0)*Power(xij,4.0) - 66.0*rij*Power(xii,7.0)*Power(xij,4.0) -
241 726.0*Power(xii,4.0)*Power(xij,6.0) + 66.0*rij*Power(xii,5.0)*Power(xij,6.0) -
242 55.0*Power(xii,2.0)*Power(xij,8.0) + 55.0*rij*Power(xii,3.0)*Power(xij,8.0) +
243 5.0*Power(xij,10.0) + 5.0*rij*xii*Power(xij,10.0)) +
244 Power(E,2.0*rij*xii)*Power(xii,4.0)*
245 (-(Power(xii,18.0)*(14175.0 + 25515.0*rij*xij +
246 22680.0*Power(rij,2.0)*Power(xij,2.0) +
247 13230.0*Power(rij,3.0)*Power(xij,3.0) +
248 5670.0*Power(rij,4.0)*Power(xij,4.0) +
249 1890.0*Power(rij,5.0)*Power(xij,5.0) +
250 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
251 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0))) +
252 9.0*Power(xii,16.0)*Power(xij,2.0)*
253 (17325.0 + 31185.0*rij*xij + 27720.0*Power(rij,2.0)*Power(xij,2.0) +
254 16170.0*Power(rij,3.0)*Power(xij,3.0) +
255 6930.0*Power(rij,4.0)*Power(xij,4.0) + 2310.0*Power(rij,5.0)*Power(xij,5.0) +
256 616.0*Power(rij,6.0)*Power(xij,6.0) + 132.0*Power(rij,7.0)*Power(xij,7.0) +
257 22.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
258 126.0*Power(xii,10.0)*Power(xij,8.0)*
259 (37125.0 + 66825.0*rij*xij + 59400.0*Power(rij,2.0)*Power(xij,2.0) +
260 34725.0*Power(rij,3.0)*Power(xij,3.0) +
261 14625.0*Power(rij,4.0)*Power(xij,4.0) +
262 5043.0*Power(rij,5.0)*Power(xij,5.0) + 1396.0*Power(rij,6.0)*Power(xij,6.0) +
263 276.0*Power(rij,7.0)*Power(xij,7.0) + 34.0*Power(rij,8.0)*Power(xij,8.0) +
264 2.0*Power(rij,9.0)*Power(xij,9.0)) +
265 126.0*Power(xii,8.0)*Power(xij,10.0)*
266 (51975.0 + 93420.0*rij*xij + 84240.0*Power(rij,2.0)*Power(xij,2.0) +
267 46815.0*Power(rij,3.0)*Power(xij,3.0) +
268 20835.0*Power(rij,4.0)*Power(xij,4.0) +
269 7485.0*Power(rij,5.0)*Power(xij,5.0) + 1964.0*Power(rij,6.0)*Power(xij,6.0) +
270 348.0*Power(rij,7.0)*Power(xij,7.0) + 38.0*Power(rij,8.0)*Power(xij,8.0) +
271 2.0*Power(rij,9.0)*Power(xij,9.0)) -
272 9.0*Power(xii,2.0)*Power(xij,16.0)*
273 (-135135.0 + 405405.0*rij*xij + 582120.0*Power(rij,2.0)*Power(xij,2.0) +
274 346500.0*Power(rij,3.0)*Power(xij,3.0) +
275 124740.0*Power(rij,4.0)*Power(xij,4.0) +
276 30492.0*Power(rij,5.0)*Power(xij,5.0) +
277 5264.0*Power(rij,6.0)*Power(xij,6.0) + 636.0*Power(rij,7.0)*Power(xij,7.0) +
278 50.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) +
279 Power(xij,18.0)*(2837835.0 + 3648645.0*rij*xij +
280 2245320.0*Power(rij,2.0)*Power(xij,2.0) +
281 873180.0*Power(rij,3.0)*Power(xij,3.0) +
282 238140.0*Power(rij,4.0)*Power(xij,4.0) +
283 47628.0*Power(rij,5.0)*Power(xij,5.0) +
284 7056.0*Power(rij,6.0)*Power(xij,6.0) + 756.0*Power(rij,7.0)*Power(xij,7.0) +
285 54.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
286 9.0*Power(xii,14.0)*Power(xij,4.0)*
287 (86625.0 + 155925.0*rij*xij + 138600.0*Power(rij,2.0)*Power(xij,2.0) +
288 80850.0*Power(rij,3.0)*Power(xij,3.0) +
289 34650.0*Power(rij,4.0)*Power(xij,4.0) +
290 11550.0*Power(rij,5.0)*Power(xij,5.0) +
291 3080.0*Power(rij,6.0)*Power(xij,6.0) + 672.0*Power(rij,7.0)*Power(xij,7.0) +
292 104.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0)) +
293 21.0*Power(xii,12.0)*Power(xij,6.0)*
294 (111375.0 + 200475.0*rij*xij + 178200.0*Power(rij,2.0)*Power(xij,2.0) +
295 103950.0*Power(rij,3.0)*Power(xij,3.0) +
296 44550.0*Power(rij,4.0)*Power(xij,4.0) +
297 14778.0*Power(rij,5.0)*Power(xij,5.0) +
298 4056.0*Power(rij,6.0)*Power(xij,6.0) + 864.0*Power(rij,7.0)*Power(xij,7.0) +
299 120.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0)) -
300 21.0*Power(xii,6.0)*Power(xij,12.0)*
301 (307125.0 + 594945.0*rij*xij + 456840.0*Power(rij,2.0)*Power(xij,2.0) +
302 281790.0*Power(rij,3.0)*Power(xij,3.0) +
303 137430.0*Power(rij,4.0)*Power(xij,4.0) +
304 47250.0*Power(rij,5.0)*Power(xij,5.0) +
305 11064.0*Power(rij,6.0)*Power(xij,6.0) +
306 1728.0*Power(rij,7.0)*Power(xij,7.0) + 168.0*Power(rij,8.0)*Power(xij,8.0) +
307 8.0*Power(rij,9.0)*Power(xij,9.0)) +
308 9.0*Power(xii,4.0)*Power(xij,14.0)*
309 (675675.0 + 675675.0*rij*xij + 748440.0*Power(rij,2.0)*Power(xij,2.0) +
310 561330.0*Power(rij,3.0)*Power(xij,3.0) +
311 256410.0*Power(rij,4.0)*Power(xij,4.0) +
312 76230.0*Power(rij,5.0)*Power(xij,5.0) +
313 15400.0*Power(rij,6.0)*Power(xij,6.0) + 2112.0*Power(rij,7.0)*Power(xij,7.0) +
314 184.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0))))/
315 (14175.*Power(E,2.0*rij*(xii + xij))*rij*
316 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
317 ;
318 }
319 return S;
320 }
321
322 static double Slater_1S_6S(double rij,double xij,double xii)
323 {
324 double S;
325
326 if (xii == xij) {
327 S = (-74724249600.0 + 74724249600.0*Power(E,2.0*rij*xii) - 137006619750.0*rij*xii -
328 124564740300.0*Power(rij,2.0)*Power(xii,2.0) -
329 74754654975.0*Power(rij,3.0)*Power(xii,3.0) -
330 33239155950.0*Power(rij,4.0)*Power(xii,4.0) -
331 11644853220.0*Power(rij,5.0)*Power(xii,5.0) -
332 3334050720.0*Power(rij,6.0)*Power(xii,6.0) -
333 797528160.0*Power(rij,7.0)*Power(xii,7.0) -
334 161235360.0*Power(rij,8.0)*Power(xii,8.0) -
335 27593280.0*Power(rij,9.0)*Power(xii,9.0) -
336 3953664.0*Power(rij,10.0)*Power(xii,10.0) -
337 459264.0*Power(rij,11.0)*Power(xii,11.0) - 39936.0*Power(rij,12.0)*Power(xii,12.0) -
338 2048.0*Power(rij,13.0)*Power(xii,13.0))/(7.47242496e10*Power(E,2.0*rij*xii)*rij)
339 ;
340 }
341 else {
342 S = (935550.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
343 311850.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
344 (-24.0*Power(xii,12.0) - 3.0*rij*Power(xii,13.0) -
345 507.0*Power(xii,10.0)*Power(xij,2.0) - 52.0*rij*Power(xii,11.0)*Power(xij,2.0) -
346 2145.0*Power(xii,8.0)*Power(xij,4.0) - 143.0*rij*Power(xii,9.0)*Power(xij,4.0) -
347 2574.0*Power(xii,6.0)*Power(xij,6.0) - 858.0*Power(xii,4.0)*Power(xij,8.0) +
348 143.0*rij*Power(xii,5.0)*Power(xij,8.0) - 39.0*Power(xii,2.0)*Power(xij,10.0) +
349 52.0*rij*Power(xii,3.0)*Power(xij,10.0) + 3.0*Power(xij,12.0) +
350 3.0*rij*xii*Power(xij,12.0)) +
351 Power(E,2.0*rij*xii)*Power(xii,4.0)*
352 (-110.0*Power(xii,18.0)*Power(xij,4.0)*
353 (663390.0 + 1216215.0*rij*xij + 1105650.0*Power(rij,2.0)*Power(xij,2.0) +
354 663390.0*Power(rij,3.0)*Power(xij,3.0) +
355 294840.0*Power(rij,4.0)*Power(xij,4.0) +
356 103194.0*Power(rij,5.0)*Power(xij,5.0) +
357 29484.0*Power(rij,6.0)*Power(xij,6.0) +
358 7020.0*Power(rij,7.0)*Power(xij,7.0) + 1404.0*Power(rij,8.0)*Power(xij,8.0) +
359 237.0*Power(rij,9.0)*Power(xij,9.0) + 30.0*Power(rij,10.0)*Power(xij,10.0) +
360 2.0*Power(rij,11.0)*Power(xij,11.0)) +
361 330.0*Power(xii,16.0)*Power(xij,6.0)*
362 (810810.0 + 1486485.0*rij*xij + 1351350.0*Power(rij,2.0)*Power(xij,2.0) +
363 810810.0*Power(rij,3.0)*Power(xij,3.0) +
364 360360.0*Power(rij,4.0)*Power(xij,4.0) +
365 126126.0*Power(rij,5.0)*Power(xij,5.0) +
366 36036.0*Power(rij,6.0)*Power(xij,6.0) +
367 8556.0*Power(rij,7.0)*Power(xij,7.0) + 1740.0*Power(rij,8.0)*Power(xij,8.0) +
368 291.0*Power(rij,9.0)*Power(xij,9.0) + 34.0*Power(rij,10.0)*Power(xij,10.0) +
369 2.0*Power(rij,11.0)*Power(xij,11.0)) -
370 330.0*Power(xii,6.0)*Power(xij,16.0)*
371 (3169530.0 + 7960680.0*rij*xij + 5798520.0*Power(rij,2.0)*Power(xij,2.0) +
372 3144960.0*Power(rij,3.0)*Power(xij,3.0) +
373 1572480.0*Power(rij,4.0)*Power(xij,4.0) +
374 638001.0*Power(rij,5.0)*Power(xij,5.0) +
375 191646.0*Power(rij,6.0)*Power(xij,6.0) +
376 41886.0*Power(rij,7.0)*Power(xij,7.0) +
377 6630.0*Power(rij,8.0)*Power(xij,8.0) + 741.0*Power(rij,9.0)*Power(xij,9.0) +
378 54.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
379 110.0*Power(xii,4.0)*Power(xij,18.0)*
380 (12162150.0 + 8108100.0*rij*xij + 6486480.0*Power(rij,2.0)*Power(xij,2.0) +
381 5675670.0*Power(rij,3.0)*Power(xij,3.0) +
382 3243240.0*Power(rij,4.0)*Power(xij,4.0) +
383 1216215.0*Power(rij,5.0)*Power(xij,5.0) +
384 319410.0*Power(rij,6.0)*Power(xij,6.0) +
385 61074.0*Power(rij,7.0)*Power(xij,7.0) +
386 8586.0*Power(rij,8.0)*Power(xij,8.0) + 867.0*Power(rij,9.0)*Power(xij,9.0) +
387 58.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) -
388 Power(xii,22.0)*(935550.0 + 1715175.0*rij*xij +
389 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
390 935550.0*Power(rij,3.0)*Power(xij,3.0) +
391 415800.0*Power(rij,4.0)*Power(xij,4.0) +
392 145530.0*Power(rij,5.0)*Power(xij,5.0) +
393 41580.0*Power(rij,6.0)*Power(xij,6.0) +
394 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
395 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
396 4.0*Power(rij,11.0)*Power(xij,11.0)) +
397 11.0*Power(xii,20.0)*Power(xij,2.0)*
398 (1105650.0 + 2027025.0*rij*xij + 1842750.0*Power(rij,2.0)*Power(xij,2.0) +
399 1105650.0*Power(rij,3.0)*Power(xij,3.0) +
400 491400.0*Power(rij,4.0)*Power(xij,4.0) +
401 171990.0*Power(rij,5.0)*Power(xij,5.0) +
402 49140.0*Power(rij,6.0)*Power(xij,6.0) +
403 11700.0*Power(rij,7.0)*Power(xij,7.0) +
404 2340.0*Power(rij,8.0)*Power(xij,8.0) + 390.0*Power(rij,9.0)*Power(xij,9.0) +
405 52.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
406 11.0*Power(xii,2.0)*Power(xij,20.0)*
407 (-48648600.0 + 2027025.0*rij*xij + 44594550.0*Power(rij,2.0)*Power(xij,2.0) +
408 36486450.0*Power(rij,3.0)*Power(xij,3.0) +
409 16216200.0*Power(rij,4.0)*Power(xij,4.0) +
410 4864860.0*Power(rij,5.0)*Power(xij,5.0) +
411 1065960.0*Power(rij,6.0)*Power(xij,6.0) +
412 176040.0*Power(rij,7.0)*Power(xij,7.0) +
413 21960.0*Power(rij,8.0)*Power(xij,8.0) +
414 2010.0*Power(rij,9.0)*Power(xij,9.0) +
415 124.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) +
416 Power(xij,22.0)*(340540200.0 + 468242775.0*rij*xij +
417 312161850.0*Power(rij,2.0)*Power(xij,2.0) +
418 133783650.0*Power(rij,3.0)*Power(xij,3.0) +
419 41164200.0*Power(rij,4.0)*Power(xij,4.0) +
420 9604980.0*Power(rij,5.0)*Power(xij,5.0) +
421 1746360.0*Power(rij,6.0)*Power(xij,6.0) +
422 249480.0*Power(rij,7.0)*Power(xij,7.0) +
423 27720.0*Power(rij,8.0)*Power(xij,8.0) +
424 2310.0*Power(rij,9.0)*Power(xij,9.0) +
425 132.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
426 165.0*Power(xii,14.0)*Power(xij,8.0)*
427 (4054050.0 + 7432425.0*rij*xij + 6756750.0*Power(rij,2.0)*Power(xij,2.0) +
428 4054050.0*Power(rij,3.0)*Power(xij,3.0) +
429 1801800.0*Power(rij,4.0)*Power(xij,4.0) +
430 631260.0*Power(rij,5.0)*Power(xij,5.0) +
431 178920.0*Power(rij,6.0)*Power(xij,6.0) +
432 43176.0*Power(rij,7.0)*Power(xij,7.0) +
433 8904.0*Power(rij,8.0)*Power(xij,8.0) + 1428.0*Power(rij,9.0)*Power(xij,9.0) +
434 152.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
435 231.0*Power(xii,12.0)*Power(xij,10.0)*
436 (5212350.0 + 9555975.0*rij*xij + 8687250.0*Power(rij,2.0)*Power(xij,2.0) +
437 5209650.0*Power(rij,3.0)*Power(xij,3.0) +
438 2327400.0*Power(rij,4.0)*Power(xij,4.0) +
439 801540.0*Power(rij,5.0)*Power(xij,5.0) +
440 230040.0*Power(rij,6.0)*Power(xij,6.0) +
441 57240.0*Power(rij,7.0)*Power(xij,7.0) +
442 11640.0*Power(rij,8.0)*Power(xij,8.0) +
443 1740.0*Power(rij,9.0)*Power(xij,9.0) +
444 168.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) -
445 231.0*Power(xii,10.0)*Power(xij,12.0)*
446 (6949800.0 + 12746025.0*rij*xij + 11535750.0*Power(rij,2.0)*Power(xij,2.0) +
447 7056450.0*Power(rij,3.0)*Power(xij,3.0) +
448 3040200.0*Power(rij,4.0)*Power(xij,4.0) +
449 1051920.0*Power(rij,5.0)*Power(xij,5.0) +
450 316800.0*Power(rij,6.0)*Power(xij,6.0) +
451 79680.0*Power(rij,7.0)*Power(xij,7.0) +
452 15360.0*Power(rij,8.0)*Power(xij,8.0) +
453 2100.0*Power(rij,9.0)*Power(xij,9.0) +
454 184.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
455 165.0*Power(xii,8.0)*Power(xij,14.0)*
456 (9775080.0 + 17424855.0*rij*xij + 17019450.0*Power(rij,2.0)*Power(xij,2.0) +
457 9519930.0*Power(rij,3.0)*Power(xij,3.0) +
458 4059720.0*Power(rij,4.0)*Power(xij,4.0) +
459 1519056.0*Power(rij,5.0)*Power(xij,5.0) +
460 475776.0*Power(rij,6.0)*Power(xij,6.0) +
461 114720.0*Power(rij,7.0)*Power(xij,7.0) +
462 20256.0*Power(rij,8.0)*Power(xij,8.0) + 2508.0*Power(rij,9.0)*Power(xij,9.0) +
463 200.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0))))/
464 (935550.*Power(E,2.0*rij*(xii + xij))*rij*
465 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
466 ;
467 }
468 return S;
469 }
470
471 static double Slater_2S_2S(double rij,double xij,double xii)
472 {
473 double S;
474
475 if (xii == xij) {
476 S = (-80640.0 + 80640.0*Power(E,2.0*rij*xii) - 131985.0*rij*xii -
477 102690.0*Power(rij,2.0)*Power(xii,2.0) - 49980.0*Power(rij,3.0)*Power(xii,3.0) -
478 16800.0*Power(rij,4.0)*Power(xii,4.0) - 4032.0*Power(rij,5.0)*Power(xii,5.0) -
479 672.0*Power(rij,6.0)*Power(xii,6.0) - 64.0*Power(rij,7.0)*Power(xii,7.0))/
480 (80640.*Power(E,2.0*rij*xii)*rij)
481 ;
482 }
483 else {
484 S = (6.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) -
485 Power(E,2.0*rij*xii)*Power(xii,6.0)*
486 (21.0*Power(xii,4.0)*Power(xij,4.0)*
487 (6.0 + 11.0*rij*xij + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
488 2.0*Power(xij,8.0)*(90.0 + 54.0*rij*xij + 12.0*Power(rij,2.0)*Power(xij,2.0) +
489 Power(rij,3.0)*Power(xij,3.0)) +
490 Power(xii,8.0)*(6.0 + 9.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
491 2.0*Power(rij,3.0)*Power(xij,3.0)) +
492 Power(xii,2.0)*Power(xij,6.0)*
493 (-390.0 - 69.0*rij*xij + 18.0*Power(rij,2.0)*Power(xij,2.0) +
494 4.0*Power(rij,3.0)*Power(xij,3.0)) -
495 Power(xii,6.0)*Power(xij,2.0)*
496 (42.0 + 63.0*rij*xij + 42.0*Power(rij,2.0)*Power(xij,2.0) +
497 4.0*Power(rij,3.0)*Power(xij,3.0))) +
498 Power(E,2.0*rij*xij)*Power(xij,6.0)*
499 (-24.0*Power(rij,2.0)*Power(xii,10.0) - 2.0*Power(rij,3.0)*Power(xii,11.0) -
500 69.0*rij*Power(xii,7.0)*Power(xij,2.0) + 6.0*Power(xij,8.0) +
501 9.0*rij*xii*Power(xij,8.0) +
502 4.0*rij*Power(xii,9.0)*(-27.0 + Power(rij,2.0)*Power(xij,2.0)) +
503 18.0*Power(xii,8.0)*(-10.0 + Power(rij,2.0)*Power(xij,2.0)) +
504 6.0*Power(xii,2.0)*Power(xij,6.0)*(-7.0 + Power(rij,2.0)*Power(xij,2.0)) -
505 42.0*Power(xii,4.0)*Power(xij,4.0)*(-3.0 + Power(rij,2.0)*Power(xij,2.0)) +
506 rij*Power(xii,3.0)*Power(xij,6.0)*(-63.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
507 6.0*Power(xii,6.0)*Power(xij,2.0)*(-65.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) +
508 Power(xii,5.0)*(231.0*rij*Power(xij,4.0) - 4.0*Power(rij,3.0)*Power(xij,6.0))))/
509 (6.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),7.0))
510 ;
511 }
512 return S;
513 }
514
515 static double Slater_2S_3S(double rij,double xij,double xii)
516 {
517 double S;
518
519 if (xii == xij) {
520 S = (-4354560.0 + 4354560.0*Power(E,2.0*rij*xii) - 7430535.0*rij*xii -
521 6151950.0*Power(rij,2.0)*Power(xii,2.0) - 3275370.0*Power(rij,3.0)*Power(xii,3.0) -
522 1251180.0*Power(rij,4.0)*Power(xii,4.0) - 361368.0*Power(rij,5.0)*Power(xii,5.0) -
523 80640.0*Power(rij,6.0)*Power(xii,6.0) - 13824.0*Power(rij,7.0)*Power(xii,7.0) -
524 1728.0*Power(rij,8.0)*Power(xii,8.0) - 128.0*Power(rij,9.0)*Power(xii,9.0))/
525 (4.35456e6*Power(E,2.0*rij*xii)*rij)
526 ;
527 }
528 else {
529 S = (90.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
530 5.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
531 (-90.0*Power(rij,2.0)*Power(xii,12.0) - 6.0*Power(rij,3.0)*Power(xii,13.0) +
532 18.0*Power(xij,10.0) + 27.0*rij*xii*Power(xij,10.0) +
533 18.0*Power(xii,2.0)*Power(xij,8.0)*(-9.0 + Power(rij,2.0)*Power(xij,2.0)) -
534 162.0*Power(xii,4.0)*Power(xij,6.0)*(-4.0 + Power(rij,2.0)*Power(xij,2.0)) -
535 198.0*Power(xii,10.0)*(5.0 + Power(rij,2.0)*Power(xij,2.0)) -
536 108.0*Power(xii,6.0)*Power(xij,4.0)*(36.0 + Power(rij,2.0)*Power(xij,2.0)) +
537 2.0*rij*Power(xii,5.0)*Power(xij,6.0)*(675.0 + Power(rij,2.0)*Power(xij,2.0)) -
538 18.0*rij*Power(xii,7.0)*Power(xij,4.0)*
539 (-81.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
540 3.0*rij*Power(xii,3.0)*Power(xij,8.0)*
541 (-81.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
542 rij*Power(xii,11.0)*(495.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
543 9.0*rij*Power(xii,9.0)*Power(xij,2.0)*
544 (-233.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
545 6.0*Power(xii,8.0)*Power(xij,2.0)*(-1063.0 + 90.0*Power(rij,2.0)*Power(xij,2.0))) -
546 2.0*Power(E,2.0*rij*xii)*Power(xii,6.0)*
547 (-90.0*Power(xii,6.0)*Power(xij,6.0)*
548 (42.0 + 65.0*rij*xij + 76.0*Power(rij,2.0)*Power(xij,2.0) +
549 22.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) -
550 2.0*Power(xij,12.0)*(2970.0 + 2475.0*rij*xij +
551 900.0*Power(rij,2.0)*Power(xij,2.0) + 180.0*Power(rij,3.0)*Power(xij,3.0) +
552 20.0*Power(rij,4.0)*Power(xij,4.0) + Power(rij,5.0)*Power(xij,5.0)) +
553 10.0*Power(xii,8.0)*Power(xij,4.0)*
554 (162.0 + 270.0*rij*xij + 216.0*Power(rij,2.0)*Power(xij,2.0) +
555 122.0*Power(rij,3.0)*Power(xij,3.0) + 22.0*Power(rij,4.0)*Power(xij,4.0) +
556 Power(rij,5.0)*Power(xij,5.0)) -
557 5.0*Power(xii,4.0)*Power(xij,8.0)*
558 (-639.0 - 3555.0*rij*xij - 1452.0*Power(rij,2.0)*Power(xij,2.0) -
559 174.0*Power(rij,3.0)*Power(xij,3.0) + 6.0*Power(rij,4.0)*Power(xij,4.0) +
560 2.0*Power(rij,5.0)*Power(xij,5.0)) +
561 Power(xii,12.0)*(45.0 + 75.0*rij*xij + 60.0*Power(rij,2.0)*Power(xij,2.0) +
562 30.0*Power(rij,3.0)*Power(xij,3.0) + 10.0*Power(rij,4.0)*Power(xij,4.0) +
563 2.0*Power(rij,5.0)*Power(xij,5.0)) -
564 Power(xii,10.0)*Power(xij,2.0)*
565 (405.0 + 675.0*rij*xij + 540.0*Power(rij,2.0)*Power(xij,2.0) +
566 270.0*Power(rij,3.0)*Power(xij,3.0) + 90.0*Power(rij,4.0)*Power(xij,4.0) +
567 8.0*Power(rij,5.0)*Power(xij,5.0)) +
568 Power(xii,2.0)*Power(xij,10.0)*
569 (-21615.0 - 9075.0*rij*xij - 300.0*Power(rij,2.0)*Power(xij,2.0) +
570 490.0*Power(rij,3.0)*Power(xij,3.0) + 110.0*Power(rij,4.0)*Power(xij,4.0) +
571 8.0*Power(rij,5.0)*Power(xij,5.0))))/
572 (90.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),9.0))
573 ;
574 }
575 return S;
576 }
577
578 static double Slater_2S_4S(double rij,double xij,double xii)
579 {
580 double S;
581
582 if (xii == xij) {
583 S = (-638668800.0 + 638668800.0*Power(E,2.0*rij*xii) - 1125310725.0*rij*xii -
584 973283850.0*Power(rij,2.0)*Power(xii,2.0) -
585 549063900.0*Power(rij,3.0)*Power(xii,3.0) -
586 226195200.0*Power(rij,4.0)*Power(xii,4.0) -
587 72099720.0*Power(rij,5.0)*Power(xii,5.0) -
588 18350640.0*Power(rij,6.0)*Power(xii,6.0) - 3785760.0*Power(rij,7.0)*Power(xii,7.0) -
589 633600.0*Power(rij,8.0)*Power(xii,8.0) - 84480.0*Power(rij,9.0)*Power(xii,9.0) -
590 8448.0*Power(rij,10.0)*Power(xii,10.0) - 512.0*Power(rij,11.0)*Power(xii,11.0))/
591 (6.386688e8*Power(E,2.0*rij*xii)*rij)
592 ;
593 }
594 else {
595 S = (1260.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
596 210.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
597 (-36.0*Power(rij,2.0)*Power(xii,14.0) - 2.0*Power(rij,3.0)*Power(xii,15.0) -
598 1287.0*rij*Power(xii,9.0)*Power(xij,4.0) + 6.0*Power(xij,12.0) +
599 9.0*rij*xii*Power(xij,12.0) -
600 22.0*rij*Power(xii,7.0)*Power(xij,6.0)*
601 (-135.0 + Power(rij,2.0)*Power(xij,2.0)) +
602 6.0*Power(xii,2.0)*Power(xij,10.0)*(-11.0 + Power(rij,2.0)*Power(xij,2.0)) -
603 66.0*Power(xii,4.0)*Power(xij,8.0)*(-5.0 + Power(rij,2.0)*Power(xij,2.0)) +
604 8.0*rij*Power(xii,5.0)*Power(xij,8.0)*(99.0 + Power(rij,2.0)*Power(xij,2.0)) +
605 rij*Power(xii,3.0)*Power(xij,10.0)*(-99.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
606 132.0*Power(xii,6.0)*Power(xij,6.0)*(27.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
607 78.0*Power(xii,12.0)*(7.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) -
608 2.0*rij*Power(xii,13.0)*(117.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
609 66.0*Power(xii,8.0)*Power(xij,4.0)*(-191.0 + 6.0*Power(rij,2.0)*Power(xij,2.0)) +
610 rij*Power(xii,11.0)*Power(xij,2.0)*
611 (-2151.0 + 22.0*Power(rij,2.0)*Power(xij,2.0)) +
612 6.0*Power(xii,10.0)*Power(xij,2.0)*(-1099.0 + 33.0*Power(rij,2.0)*Power(xij,2.0))) \
613 + Power(E,2.0*rij*xii)*Power(xii,6.0)*
614 (-385.0*Power(xii,8.0)*Power(xij,8.0)*
615 (1080.0 + 1935.0*rij*xij + 1350.0*Power(rij,2.0)*Power(xij,2.0) +
616 1170.0*Power(rij,3.0)*Power(xij,3.0) + 420.0*Power(rij,4.0)*Power(xij,4.0) +
617 66.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
618 7.0*Power(xii,6.0)*Power(xij,10.0)*
619 (99540.0 + 58095.0*rij*xij + 190710.0*Power(rij,2.0)*Power(xij,2.0) +
620 100950.0*Power(rij,3.0)*Power(xij,3.0) +
621 21660.0*Power(rij,4.0)*Power(xij,4.0) +
622 1938.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0) -
623 8.0*Power(rij,7.0)*Power(xij,7.0)) +
624 4.0*Power(xij,16.0)*(135135.0 + 135135.0*rij*xij +
625 62370.0*Power(rij,2.0)*Power(xij,2.0) +
626 17325.0*Power(rij,3.0)*Power(xij,3.0) +
627 3150.0*Power(rij,4.0)*Power(xij,4.0) + 378.0*Power(rij,5.0)*Power(xij,5.0) +
628 28.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,7.0)*Power(xij,7.0)) -
629 Power(xii,16.0)*(1260.0 + 2205.0*rij*xij +
630 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
631 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
632 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
633 7.0*Power(xii,4.0)*Power(xij,12.0)*
634 (114660.0 - 343395.0*rij*xij - 242910.0*Power(rij,2.0)*Power(xij,2.0) -
635 61950.0*Power(rij,3.0)*Power(xij,3.0) -
636 6060.0*Power(rij,4.0)*Power(xij,4.0) + 282.0*Power(rij,5.0)*Power(xij,5.0) +
637 116.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) -
638 7.0*Power(xii,12.0)*Power(xij,4.0)*
639 (9900.0 + 17325.0*rij*xij + 14850.0*Power(rij,2.0)*Power(xij,2.0) +
640 8250.0*Power(rij,3.0)*Power(xij,3.0) + 3300.0*Power(rij,4.0)*Power(xij,4.0) +
641 1074.0*Power(rij,5.0)*Power(xij,5.0) + 164.0*Power(rij,6.0)*Power(xij,6.0) +
642 8.0*Power(rij,7.0)*Power(xij,7.0)) +
643 7.0*Power(xii,10.0)*Power(xij,6.0)*
644 (29700.0 + 51975.0*rij*xij + 44550.0*Power(rij,2.0)*Power(xij,2.0) +
645 23850.0*Power(rij,3.0)*Power(xij,3.0) +
646 11700.0*Power(rij,4.0)*Power(xij,4.0) +
647 2814.0*Power(rij,5.0)*Power(xij,5.0) + 284.0*Power(rij,6.0)*Power(xij,6.0) +
648 8.0*Power(rij,7.0)*Power(xij,7.0)) +
649 Power(xii,14.0)*Power(xij,2.0)*
650 (13860.0 + 24255.0*rij*xij + 20790.0*Power(rij,2.0)*Power(xij,2.0) +
651 11550.0*Power(rij,3.0)*Power(xij,3.0) +
652 4620.0*Power(rij,4.0)*Power(xij,4.0) + 1386.0*Power(rij,5.0)*Power(xij,5.0) +
653 308.0*Power(rij,6.0)*Power(xij,6.0) + 24.0*Power(rij,7.0)*Power(xij,7.0)) -
654 Power(xii,2.0)*Power(xij,14.0)*
655 (-3063060.0 - 1936935.0*rij*xij - 408870.0*Power(rij,2.0)*Power(xij,2.0) +
656 11550.0*Power(rij,3.0)*Power(xij,3.0) +
657 23100.0*Power(rij,4.0)*Power(xij,4.0) + 5082.0*Power(rij,5.0)*Power(xij,5.0) +
658 532.0*Power(rij,6.0)*Power(xij,6.0) + 24.0*Power(rij,7.0)*Power(xij,7.0))))/
659 (1260.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),11.0))
660 ;
661 }
662 return S;
663 }
664
665 static double Slater_2S_5S(double rij,double xij,double xii)
666 {
667 double S;
668
669 if (xii == xij) {
670 S = (-124540416000.0 + 124540416000.0*Power(E,2.0*rij*xii) - 224622748350.0*rij*xii -
671 200164664700.0*Power(rij,2.0)*Power(xii,2.0) -
672 117249207075.0*Power(rij,3.0)*Power(xii,3.0) -
673 50639138550.0*Power(rij,4.0)*Power(xii,4.0) -
674 17132415300.0*Power(rij,5.0)*Power(xii,5.0) -
675 4704860160.0*Power(rij,6.0)*Power(xii,6.0) -
676 1071195840.0*Power(rij,7.0)*Power(xii,7.0) -
677 204478560.0*Power(rij,8.0)*Power(xii,8.0) -
678 32809920.0*Power(rij,9.0)*Power(xii,9.0) -
679 4392960.0*Power(rij,10.0)*Power(xii,10.0) -
680 479232.0*Power(rij,11.0)*Power(xii,11.0) - 39936.0*Power(rij,12.0)*Power(xii,12.0) -
681 2048.0*Power(rij,13.0)*Power(xii,13.0))/(1.24540416e11*Power(E,2.0*rij*xii)*rij)
682 ;
683 }
684 else {
685 S = (28350.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
686 945.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
687 (-210.0*Power(rij,2.0)*Power(xii,16.0) - 10.0*Power(rij,3.0)*Power(xii,17.0) +
688 30.0*Power(xij,14.0) + 45.0*rij*xii*Power(xij,14.0) +
689 39.0*rij*Power(xii,7.0)*Power(xij,8.0)*
690 (1309.0 - 2.0*Power(rij,2.0)*Power(xij,2.0)) +
691 858.0*Power(xii,8.0)*Power(xij,6.0)*(-305.0 + Power(rij,2.0)*Power(xij,2.0)) +
692 30.0*Power(xii,2.0)*Power(xij,12.0)*(-13.0 + Power(rij,2.0)*Power(xij,2.0)) -
693 390.0*Power(xii,4.0)*Power(xij,10.0)*(-6.0 + Power(rij,2.0)*Power(xij,2.0)) -
694 143.0*rij*Power(xii,9.0)*Power(xij,6.0)*
695 (-153.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
696 5.0*rij*Power(xii,3.0)*Power(xij,12.0)*
697 (-117.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
698 45.0*rij*Power(xii,15.0)*(35.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
699 138.0*Power(xii,12.0)*Power(xij,2.0)*
700 (580.0 + 13.0*Power(rij,2.0)*Power(xij,2.0)) -
701 150.0*Power(xii,14.0)*(28.0 + 17.0*Power(rij,2.0)*Power(xij,2.0)) +
702 13.0*rij*Power(xii,11.0)*Power(xij,4.0)*
703 (-4071.0 + 22.0*Power(rij,2.0)*Power(xij,2.0)) +
704 3.0*rij*Power(xii,13.0)*Power(xij,2.0)*
705 (-8135.0 + 26.0*Power(rij,2.0)*Power(xij,2.0)) +
706 3.0*rij*Power(xii,5.0)*Power(xij,10.0)*
707 (2171.0 + 30.0*Power(rij,2.0)*Power(xij,2.0)) +
708 234.0*Power(xii,10.0)*Power(xij,4.0)*
709 (-1235.0 + 33.0*Power(rij,2.0)*Power(xij,2.0)) -
710 78.0*Power(xii,6.0)*Power(xij,8.0)*(550.0 + 47.0*Power(rij,2.0)*Power(xij,2.0))) -
711 2.0*Power(E,2.0*rij*xii)*Power(xii,6.0)*
712 (-819.0*Power(xii,10.0)*Power(xij,10.0)*
713 (22275.0 + 39780.0*rij*xij + 38160.0*Power(rij,2.0)*Power(xij,2.0) +
714 16560.0*Power(rij,3.0)*Power(xij,3.0) +
715 9840.0*Power(rij,4.0)*Power(xij,4.0) + 3900.0*Power(rij,5.0)*Power(xij,5.0) +
716 816.0*Power(rij,6.0)*Power(xij,6.0) + 88.0*Power(rij,7.0)*Power(xij,7.0) +
717 4.0*Power(rij,8.0)*Power(xij,8.0)) +
718 Power(xii,20.0)*(14175.0 + 25515.0*rij*xij +
719 22680.0*Power(rij,2.0)*Power(xij,2.0) +
720 13230.0*Power(rij,3.0)*Power(xij,3.0) +
721 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
722 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
723 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
724 Power(xij,20.0)*(16216200.0 + 18243225.0*rij*xij +
725 9729720.0*Power(rij,2.0)*Power(xij,2.0) +
726 3243240.0*Power(rij,3.0)*Power(xij,3.0) +
727 748440.0*Power(rij,4.0)*Power(xij,4.0) +
728 124740.0*Power(rij,5.0)*Power(xij,5.0) +
729 15120.0*Power(rij,6.0)*Power(xij,6.0) +
730 1296.0*Power(rij,7.0)*Power(xij,7.0) + 72.0*Power(rij,8.0)*Power(xij,8.0) +
731 2.0*Power(rij,9.0)*Power(xij,9.0)) +
732 18.0*Power(xii,16.0)*Power(xij,4.0)*
733 (61425.0 + 110565.0*rij*xij + 98280.0*Power(rij,2.0)*Power(xij,2.0) +
734 57330.0*Power(rij,3.0)*Power(xij,3.0) +
735 24570.0*Power(rij,4.0)*Power(xij,4.0) +
736 8190.0*Power(rij,5.0)*Power(xij,5.0) + 2184.0*Power(rij,6.0)*Power(xij,6.0) +
737 496.0*Power(rij,7.0)*Power(xij,7.0) + 64.0*Power(rij,8.0)*Power(xij,8.0) +
738 3.0*Power(rij,9.0)*Power(xij,9.0)) -
739 18.0*Power(xii,4.0)*Power(xij,16.0)*
740 (6572475.0 - 3161340.0*rij*xij - 4782960.0*Power(rij,2.0)*Power(xij,2.0) -
741 1912365.0*Power(rij,3.0)*Power(xij,3.0) -
742 378105.0*Power(rij,4.0)*Power(xij,4.0) -
743 34125.0*Power(rij,5.0)*Power(xij,5.0) +
744 1092.0*Power(rij,6.0)*Power(xij,6.0) + 650.0*Power(rij,7.0)*Power(xij,7.0) +
745 71.0*Power(rij,8.0)*Power(xij,8.0) + 3.0*Power(rij,9.0)*Power(xij,9.0)) -
746 21.0*Power(xii,8.0)*Power(xij,12.0)*
747 (-1063800.0 - 2775735.0*rij*xij - 862920.0*Power(rij,2.0)*Power(xij,2.0) -
748 1132020.0*Power(rij,3.0)*Power(xij,3.0) -
749 698580.0*Power(rij,4.0)*Power(xij,4.0) -
750 196920.0*Power(rij,5.0)*Power(xij,5.0) -
751 28992.0*Power(rij,6.0)*Power(xij,6.0) -
752 2064.0*Power(rij,7.0)*Power(xij,7.0) - 24.0*Power(rij,8.0)*Power(xij,8.0) +
753 4.0*Power(rij,9.0)*Power(xij,9.0)) +
754 21.0*Power(xii,12.0)*Power(xij,8.0)*
755 (482625.0 + 868725.0*rij*xij + 772200.0*Power(rij,2.0)*Power(xij,2.0) +
756 455400.0*Power(rij,3.0)*Power(xij,3.0) +
757 178200.0*Power(rij,4.0)*Power(xij,4.0) +
758 72180.0*Power(rij,5.0)*Power(xij,5.0) +
759 19920.0*Power(rij,6.0)*Power(xij,6.0) +
760 2952.0*Power(rij,7.0)*Power(xij,7.0) + 204.0*Power(rij,8.0)*Power(xij,8.0) +
761 4.0*Power(rij,9.0)*Power(xij,9.0)) +
762 6.0*Power(xii,6.0)*Power(xij,14.0)*
763 (-10357200.0 + 5071815.0*rij*xij - 6463800.0*Power(rij,2.0)*Power(xij,2.0) -
764 7151130.0*Power(rij,3.0)*Power(xij,3.0) -
765 2572290.0*Power(rij,4.0)*Power(xij,4.0) -
766 468720.0*Power(rij,5.0)*Power(xij,5.0) -
767 42672.0*Power(rij,6.0)*Power(xij,6.0) - 648.0*Power(rij,7.0)*Power(xij,7.0) +
768 228.0*Power(rij,8.0)*Power(xij,8.0) + 16.0*Power(rij,9.0)*Power(xij,9.0)) -
769 Power(xii,18.0)*Power(xij,2.0)*
770 (184275.0 + 331695.0*rij*xij + 294840.0*Power(rij,2.0)*Power(xij,2.0) +
771 171990.0*Power(rij,3.0)*Power(xij,3.0) +
772 73710.0*Power(rij,4.0)*Power(xij,4.0) +
773 24570.0*Power(rij,5.0)*Power(xij,5.0) +
774 6552.0*Power(rij,6.0)*Power(xij,6.0) + 1404.0*Power(rij,7.0)*Power(xij,7.0) +
775 234.0*Power(rij,8.0)*Power(xij,8.0) + 16.0*Power(rij,9.0)*Power(xij,9.0)) +
776 Power(xii,2.0)*Power(xij,18.0)*
777 (-133783650.0 - 107432325.0*rij*xij -
778 35675640.0*Power(rij,2.0)*Power(xij,2.0) -
779 5135130.0*Power(rij,3.0)*Power(xij,3.0) +
780 270270.0*Power(rij,4.0)*Power(xij,4.0) +
781 270270.0*Power(rij,5.0)*Power(xij,5.0) +
782 57960.0*Power(rij,6.0)*Power(xij,6.0) +
783 6948.0*Power(rij,7.0)*Power(xij,7.0) + 486.0*Power(rij,8.0)*Power(xij,8.0) +
784 16.0*Power(rij,9.0)*Power(xij,9.0)) -
785 6.0*Power(xii,14.0)*Power(xij,6.0)*
786 (675675.0 + 1216215.0*rij*xij + 1081080.0*Power(rij,2.0)*Power(xij,2.0) +
787 630630.0*Power(rij,3.0)*Power(xij,3.0) +
788 270270.0*Power(rij,4.0)*Power(xij,4.0) +
789 88200.0*Power(rij,5.0)*Power(xij,5.0) +
790 26544.0*Power(rij,6.0)*Power(xij,6.0) + 5160.0*Power(rij,7.0)*Power(xij,7.0) +
791 492.0*Power(rij,8.0)*Power(xij,8.0) + 16.0*Power(rij,9.0)*Power(xij,9.0))))/
792 (28350.*Power(E,2.0*rij*(xii + xij))*rij*
793 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
794 ;
795 }
796 return S;
797 }
798
799 static double Slater_2S_6S(double rij,double xij,double xii)
800 {
801 double S;
802
803 if (xii == xij) {
804 S = (-125536739328000.0 + 125536739328000.0*Power(E,2.0*rij*xii) -
805 230286692010375.0*rij*xii - 209499905364750.0*Power(rij,2.0)*Power(xii,2.0) -
806 125847482260500.0*Power(rij,3.0)*Power(xii,3.0) -
807 56052916920000.0*Power(rij,4.0)*Power(xii,4.0) -
808 19698207328800.0*Power(rij,5.0)*Power(xii,5.0) -
809 5671583517600.0*Power(rij,6.0)*Power(xii,6.0) -
810 1370593224000.0*Power(rij,7.0)*Power(xii,7.0) -
811 282291609600.0*Power(rij,8.0)*Power(xii,8.0) -
812 49989139200.0*Power(rij,9.0)*Power(xii,9.0) -
813 7633866240.0*Power(rij,10.0)*Power(xii,10.0) -
814 1002193920.0*Power(rij,11.0)*Power(xii,11.0) -
815 111820800.0*Power(rij,12.0)*Power(xii,12.0) -
816 10321920.0*Power(rij,13.0)*Power(xii,13.0) -
817 737280.0*Power(rij,14.0)*Power(xii,14.0) - 32768.0*Power(rij,15.0)*Power(xii,15.0))/
818 (1.25536739328e14*Power(E,2.0*rij*xii)*rij)
819 ;
820 }
821 else {
822 S = (935550.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
823 51975.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
824 (-144.0*Power(rij,2.0)*Power(xii,18.0) - 6.0*Power(rij,3.0)*Power(xii,19.0) -
825 63999.0*rij*Power(xii,11.0)*Power(xij,6.0) + 18.0*Power(xij,16.0) +
826 27.0*rij*xii*Power(xij,16.0) +
827 18.0*Power(xii,2.0)*Power(xij,14.0)*(-15.0 + Power(rij,2.0)*Power(xij,2.0)) -
828 270.0*Power(xii,4.0)*Power(xij,12.0)*(-7.0 + Power(rij,2.0)*Power(xij,2.0)) +
829 3.0*rij*Power(xii,3.0)*Power(xij,14.0)*
830 (-135.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
831 918.0*Power(xii,16.0)*(4.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) -
832 117.0*rij*Power(xii,9.0)*Power(xij,8.0)*
833 (-1045.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
834 4.0*rij*Power(xii,17.0)*(306.0 + 23.0*Power(rij,2.0)*Power(xij,2.0)) -
835 3.0*rij*Power(xii,15.0)*Power(xij,2.0)*
836 (9441.0 + 28.0*Power(rij,2.0)*Power(xij,2.0)) +
837 3.0*rij*Power(xii,7.0)*Power(xij,10.0)*
838 (27261.0 + 28.0*Power(rij,2.0)*Power(xij,2.0)) +
839 9.0*rij*Power(xii,13.0)*Power(xij,4.0)*
840 (-12915.0 + 52.0*Power(rij,2.0)*Power(xij,2.0)) +
841 234.0*Power(xii,10.0)*Power(xij,6.0)*
842 (-4209.0 + 55.0*Power(rij,2.0)*Power(xij,2.0)) -
843 78.0*Power(xii,8.0)*Power(xij,8.0)*(6655.0 + 69.0*Power(rij,2.0)*Power(xij,2.0)) -
844 90.0*Power(xii,14.0)*Power(xij,2.0)*
845 (1117.0 + 77.0*Power(rij,2.0)*Power(xij,2.0)) +
846 rij*Power(xii,5.0)*Power(xij,12.0)*
847 (6111.0 + 92.0*Power(rij,2.0)*Power(xij,2.0)) -
848 18.0*Power(xii,6.0)*Power(xij,10.0)*
849 (3107.0 + 259.0*Power(rij,2.0)*Power(xij,2.0)) +
850 18.0*Power(xii,12.0)*Power(xij,4.0)*
851 (-31885.0 + 403.0*Power(rij,2.0)*Power(xij,2.0))) +
852 Power(E,2.0*rij*xii)*Power(xii,6.0)*
853 (-3465.0*Power(xii,12.0)*Power(xij,12.0)*
854 (1351350.0 + 2483775.0*rij*xij + 2189250.0*Power(rij,2.0)*Power(xij,2.0) +
855 1499400.0*Power(rij,3.0)*Power(xij,3.0) +
856 512400.0*Power(rij,4.0)*Power(xij,4.0) +
857 191940.0*Power(rij,5.0)*Power(xij,5.0) +
858 73080.0*Power(rij,6.0)*Power(xij,6.0) +
859 18200.0*Power(rij,7.0)*Power(xij,7.0) +
860 2680.0*Power(rij,8.0)*Power(xij,8.0) + 220.0*Power(rij,9.0)*Power(xij,9.0) +
861 8.0*Power(rij,10.0)*Power(xij,10.0)) +
862 330.0*Power(xii,8.0)*Power(xij,16.0)*
863 (-2409750.0 - 79762725.0*rij*xij - 9440550.0*Power(rij,2.0)*Power(xij,2.0) -
864 6036975.0*Power(rij,3.0)*Power(xij,3.0) -
865 10098900.0*Power(rij,4.0)*Power(xij,4.0) -
866 4800285.0*Power(rij,5.0)*Power(xij,5.0) -
867 1163190.0*Power(rij,6.0)*Power(xij,6.0) -
868 164670.0*Power(rij,7.0)*Power(xij,7.0) -
869 13110.0*Power(rij,8.0)*Power(xij,8.0) - 365.0*Power(rij,9.0)*Power(xij,9.0) +
870 26.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
871 2.0*Power(xij,24.0)*(1240539300.0 + 1516214700.0*rij*xij +
872 891891000.0*Power(rij,2.0)*Power(xij,2.0) +
873 334459125.0*Power(rij,3.0)*Power(xij,3.0) +
874 89189100.0*Power(rij,4.0)*Power(xij,4.0) +
875 17837820.0*Power(rij,5.0)*Power(xij,5.0) +
876 2744280.0*Power(rij,6.0)*Power(xij,6.0) +
877 326700.0*Power(rij,7.0)*Power(xij,7.0) +
878 29700.0*Power(rij,8.0)*Power(xij,8.0) +
879 1980.0*Power(rij,9.0)*Power(xij,9.0) + 88.0*Power(rij,10.0)*Power(xij,10.0) +
880 2.0*Power(rij,11.0)*Power(xij,11.0)) -
881 Power(xii,24.0)*(935550.0 + 1715175.0*rij*xij +
882 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
883 935550.0*Power(rij,3.0)*Power(xij,3.0) +
884 415800.0*Power(rij,4.0)*Power(xij,4.0) +
885 145530.0*Power(rij,5.0)*Power(xij,5.0) +
886 41580.0*Power(rij,6.0)*Power(xij,6.0) +
887 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
888 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
889 4.0*Power(rij,11.0)*Power(xij,11.0)) -
890 110.0*Power(xii,6.0)*Power(xij,18.0)*
891 (-313749450.0 + 140006475.0*rij*xij +
892 40682250.0*Power(rij,2.0)*Power(xij,2.0) -
893 63603225.0*Power(rij,3.0)*Power(xij,3.0) -
894 41107500.0*Power(rij,4.0)*Power(xij,4.0) -
895 11688705.0*Power(rij,5.0)*Power(xij,5.0) -
896 1918350.0*Power(rij,6.0)*Power(xij,6.0) -
897 179550.0*Power(rij,7.0)*Power(xij,7.0) -
898 5670.0*Power(rij,8.0)*Power(xij,8.0) + 735.0*Power(rij,9.0)*Power(xij,9.0) +
899 98.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
900 10.0*Power(xii,2.0)*Power(xij,22.0)*
901 (-2825672850.0 - 2653375725.0*rij*xij -
902 1114863750.0*Power(rij,2.0)*Power(xij,2.0) -
903 260134875.0*Power(rij,3.0)*Power(xij,3.0) -
904 29729700.0*Power(rij,4.0)*Power(xij,4.0) +
905 1486485.0*Power(rij,5.0)*Power(xij,5.0) +
906 1295910.0*Power(rij,6.0)*Power(xij,6.0) +
907 272250.0*Power(rij,7.0)*Power(xij,7.0) +
908 34650.0*Power(rij,8.0)*Power(xij,8.0) +
909 2915.0*Power(rij,9.0)*Power(xij,9.0) +
910 154.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
911 165.0*Power(xii,16.0)*Power(xij,8.0)*
912 (7739550.0 + 14189175.0*rij*xij + 12899250.0*Power(rij,2.0)*Power(xij,2.0) +
913 7739550.0*Power(rij,3.0)*Power(xij,3.0) +
914 3439800.0*Power(rij,4.0)*Power(xij,4.0) +
915 1210860.0*Power(rij,5.0)*Power(xij,5.0) +
916 330120.0*Power(rij,6.0)*Power(xij,6.0) +
917 86400.0*Power(rij,7.0)*Power(xij,7.0) +
918 18480.0*Power(rij,8.0)*Power(xij,8.0) +
919 2460.0*Power(rij,9.0)*Power(xij,9.0) +
920 168.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) +
921 5.0*Power(xii,22.0)*Power(xij,2.0)*
922 (2806650.0 + 5145525.0*rij*xij + 4677750.0*Power(rij,2.0)*Power(xij,2.0) +
923 2806650.0*Power(rij,3.0)*Power(xij,3.0) +
924 1247400.0*Power(rij,4.0)*Power(xij,4.0) +
925 436590.0*Power(rij,5.0)*Power(xij,5.0) +
926 124740.0*Power(rij,6.0)*Power(xij,6.0) +
927 29700.0*Power(rij,7.0)*Power(xij,7.0) +
928 5940.0*Power(rij,8.0)*Power(xij,8.0) + 990.0*Power(rij,9.0)*Power(xij,9.0) +
929 132.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
930 55.0*Power(xii,18.0)*Power(xij,6.0)*
931 (7739550.0 + 14189175.0*rij*xij + 12899250.0*Power(rij,2.0)*Power(xij,2.0) +
932 7739550.0*Power(rij,3.0)*Power(xij,3.0) +
933 3439800.0*Power(rij,4.0)*Power(xij,4.0) +
934 1203930.0*Power(rij,5.0)*Power(xij,5.0) +
935 343980.0*Power(rij,6.0)*Power(xij,6.0) +
936 80820.0*Power(rij,7.0)*Power(xij,7.0) +
937 17460.0*Power(rij,8.0)*Power(xij,8.0) +
938 2790.0*Power(rij,9.0)*Power(xij,9.0) +
939 244.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
940 22.0*Power(xii,4.0)*Power(xij,20.0)*
941 (2199137850.0 + 366522975.0*rij*xij -
942 665232750.0*Power(rij,2.0)*Power(xij,2.0) -
943 422542575.0*Power(rij,3.0)*Power(xij,3.0) -
944 123095700.0*Power(rij,4.0)*Power(xij,4.0) -
945 20724795.0*Power(rij,5.0)*Power(xij,5.0) -
946 1838970.0*Power(rij,6.0)*Power(xij,6.0) +
947 12150.0*Power(rij,7.0)*Power(xij,7.0) +
948 26910.0*Power(rij,8.0)*Power(xij,8.0) +
949 3735.0*Power(rij,9.0)*Power(xij,9.0) +
950 258.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) -
951 33.0*Power(xii,10.0)*Power(xij,14.0)*
952 (-188215650.0 - 280764225.0*rij*xij -
953 416886750.0*Power(rij,2.0)*Power(xij,2.0) -
954 131922000.0*Power(rij,3.0)*Power(xij,3.0) -
955 59043600.0*Power(rij,4.0)*Power(xij,4.0) -
956 34671420.0*Power(rij,5.0)*Power(xij,5.0) -
957 11740680.0*Power(rij,6.0)*Power(xij,6.0) -
958 2266200.0*Power(rij,7.0)*Power(xij,7.0) -
959 255000.0*Power(rij,8.0)*Power(xij,8.0) -
960 15060.0*Power(rij,9.0)*Power(xij,9.0) -
961 216.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)) \
962 - 11.0*Power(xii,20.0)*Power(xij,4.0)*
963 (8930250.0 + 16372125.0*rij*xij + 14883750.0*Power(rij,2.0)*Power(xij,2.0) +
964 8930250.0*Power(rij,3.0)*Power(xij,3.0) +
965 3969000.0*Power(rij,4.0)*Power(xij,4.0) +
966 1389150.0*Power(rij,5.0)*Power(xij,5.0) +
967 396900.0*Power(rij,6.0)*Power(xij,6.0) +
968 94500.0*Power(rij,7.0)*Power(xij,7.0) +
969 18900.0*Power(rij,8.0)*Power(xij,8.0) +
970 3290.0*Power(rij,9.0)*Power(xij,9.0) +
971 364.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)) \
972 + 33.0*Power(xii,14.0)*Power(xij,10.0)*
973 (85135050.0 + 156080925.0*rij*xij +
974 141891750.0*Power(rij,2.0)*Power(xij,2.0) +
975 84848400.0*Power(rij,3.0)*Power(xij,3.0) +
976 38984400.0*Power(rij,4.0)*Power(xij,4.0) +
977 12157740.0*Power(rij,5.0)*Power(xij,5.0) +
978 3814440.0*Power(rij,6.0)*Power(xij,6.0) +
979 1072200.0*Power(rij,7.0)*Power(xij,7.0) +
980 198120.0*Power(rij,8.0)*Power(xij,8.0) +
981 21020.0*Power(rij,9.0)*Power(xij,9.0) +
982 1096.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)))\
983 )/(935550.*Power(E,2.0*rij*(xii + xij))*rij*
984 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
985 ;
986 }
987 return S;
988 }
989
990 double Slater_2S_1S(double rij,double xii,double xij)
991 {
992 return Slater_1S_2S(rij,xij,xii);
993 }
994
995 static double Slater_3S_3S(double rij,double xij,double xii)
996 {
997 double S;
998
999 if (xii == xij) {
1000 S = (-1437004800.0 + 1437004800.0*Power(E,2.0*rij*xii) - 2503064025.0*rij*xii -
1001 2132118450.0*Power(rij,2.0)*Power(xii,2.0) -
1002 1180664100.0*Power(rij,3.0)*Power(xii,3.0) -
1003 476506800.0*Power(rij,4.0)*Power(xii,4.0) -
1004 148856400.0*Power(rij,5.0)*Power(xii,5.0) -
1005 37255680.0*Power(rij,6.0)*Power(xii,6.0) - 7603200.0*Power(rij,7.0)*Power(xii,7.0) -
1006 1267200.0*Power(rij,8.0)*Power(xii,8.0) - 168960.0*Power(rij,9.0)*Power(xii,9.0) -
1007 16896.0*Power(rij,10.0)*Power(xii,10.0) - 1024.0*Power(rij,11.0)*Power(xii,11.0))/
1008 (1.4370048e9*Power(E,2.0*rij*xii)*rij)
1009 ;
1010 }
1011 else {
1012 S = (135.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
1013 Power(E,2.0*rij*xij)*Power(xij,8.0)*
1014 (-150.0*Power(rij,4.0)*Power(xii,18.0) - 6.0*Power(rij,5.0)*Power(xii,19.0) +
1015 135.0*Power(xij,14.0) + 225.0*rij*xii*Power(xij,14.0) +
1016 10.0*Power(rij,3.0)*Power(xii,17.0)*(-165.0 + Power(rij,2.0)*Power(xij,2.0)) -
1017 30.0*Power(rij,2.0)*Power(xii,16.0)*(330.0 + Power(rij,2.0)*Power(xij,2.0)) +
1018 45.0*rij*Power(xii,3.0)*Power(xij,12.0)*
1019 (-55.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1020 45.0*Power(xii,2.0)*Power(xij,12.0)*(-33.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
1021 rij*Power(xii,9.0)*Power(xij,6.0)*
1022 (234135.0 - 4950.0*Power(rij,2.0)*Power(xij,2.0) -
1023 34.0*Power(rij,4.0)*Power(xij,4.0)) -
1024 5.0*rij*Power(xii,7.0)*Power(xij,8.0)*
1025 (6237.0 - 1242.0*Power(rij,2.0)*Power(xij,2.0) +
1026 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1027 3.0*rij*Power(xii,5.0)*Power(xij,10.0)*
1028 (4125.0 - 330.0*Power(rij,2.0)*Power(xij,2.0) +
1029 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1030 15.0*Power(xii,4.0)*Power(xij,10.0)*
1031 (495.0 - 132.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1032 - 165.0*Power(xii,6.0)*Power(xij,8.0)*
1033 (135.0 - 60.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1034 - 5.0*rij*Power(xii,13.0)*Power(xij,2.0)*
1035 (43875.0 - 3438.0*Power(rij,2.0)*Power(xij,2.0) +
1036 22.0*Power(rij,4.0)*Power(xij,4.0)) +
1037 5.0*rij*Power(xii,11.0)*Power(xij,4.0)*
1038 (7695.0 - 2442.0*Power(rij,2.0)*Power(xij,2.0) +
1039 22.0*Power(rij,4.0)*Power(xij,4.0)) +
1040 15.0*Power(xii,8.0)*Power(xij,6.0)*
1041 (-33.0 - 3564.0*Power(rij,2.0)*Power(xij,2.0) +
1042 26.0*Power(rij,4.0)*Power(xij,4.0)) +
1043 rij*Power(xii,15.0)*(-32175.0 - 3690.0*Power(rij,2.0)*Power(xij,2.0) +
1044 34.0*Power(rij,4.0)*Power(xij,4.0)) +
1045 15.0*Power(xii,10.0)*Power(xij,4.0)*
1046 (-32277.0 + 1364.0*Power(rij,2.0)*Power(xij,2.0) +
1047 66.0*Power(rij,4.0)*Power(xij,4.0)) +
1048 15.0*Power(xii,14.0)*(-3003.0 - 2932.0*Power(rij,2.0)*Power(xij,2.0) +
1049 94.0*Power(rij,4.0)*Power(xij,4.0)) -
1050 15.0*Power(xii,12.0)*Power(xij,2.0)*
1051 (28119.0 - 5252.0*Power(rij,2.0)*Power(xij,2.0) +
1052 154.0*Power(rij,4.0)*Power(xij,4.0))) +
1053 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1054 (-5.0*Power(xii,2.0)*Power(xij,12.0)*
1055 (-84357.0 - 43875.0*rij*xij - 8796.0*Power(rij,2.0)*Power(xij,2.0) -
1056 738.0*Power(rij,3.0)*Power(xij,3.0) - 6.0*Power(rij,4.0)*Power(xij,4.0) +
1057 2.0*Power(rij,5.0)*Power(xij,5.0)) -
1058 3.0*Power(xii,14.0)*(45.0 + 75.0*rij*xij + 60.0*Power(rij,2.0)*Power(xij,2.0) +
1059 30.0*Power(rij,3.0)*Power(xij,3.0) + 10.0*Power(rij,4.0)*Power(xij,4.0) +
1060 2.0*Power(rij,5.0)*Power(xij,5.0)) -
1061 55.0*Power(xii,8.0)*Power(xij,6.0)*
1062 (-405.0 - 567.0*rij*xij - 972.0*Power(rij,2.0)*Power(xij,2.0) -
1063 90.0*Power(rij,3.0)*Power(xij,3.0) + 18.0*Power(rij,4.0)*Power(xij,4.0) +
1064 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1065 55.0*Power(xii,6.0)*Power(xij,8.0)*
1066 (9.0 - 4257.0*rij*xij - 372.0*Power(rij,2.0)*Power(xij,2.0) +
1067 222.0*Power(rij,3.0)*Power(xij,3.0) + 42.0*Power(rij,4.0)*Power(xij,4.0) +
1068 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1069 3.0*Power(xij,14.0)*(15015.0 + 10725.0*rij*xij +
1070 3300.0*Power(rij,2.0)*Power(xij,2.0) + 550.0*Power(rij,3.0)*Power(xij,3.0) +
1071 50.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1072 5.0*Power(xii,12.0)*Power(xij,2.0)*
1073 (297.0 + 495.0*rij*xij + 396.0*Power(rij,2.0)*Power(xij,2.0) +
1074 198.0*Power(rij,3.0)*Power(xij,3.0) + 66.0*Power(rij,4.0)*Power(xij,4.0) +
1075 2.0*Power(rij,5.0)*Power(xij,5.0)) +
1076 Power(xii,10.0)*Power(xij,4.0)*
1077 (-7425.0 - 12375.0*rij*xij - 9900.0*Power(rij,2.0)*Power(xij,2.0) -
1078 6210.0*Power(rij,3.0)*Power(xij,3.0) - 390.0*Power(rij,4.0)*Power(xij,4.0) +
1079 34.0*Power(rij,5.0)*Power(xij,5.0)) -
1080 Power(xii,4.0)*Power(xij,10.0)*
1081 (-484155.0 + 38475.0*rij*xij + 78780.0*Power(rij,2.0)*Power(xij,2.0) +
1082 17190.0*Power(rij,3.0)*Power(xij,3.0) + 1410.0*Power(rij,4.0)*Power(xij,4.0) +
1083 34.0*Power(rij,5.0)*Power(xij,5.0))))/
1084 (135.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),11.0))
1085 ;
1086 }
1087 return S;
1088 }
1089
1090 static double Slater_3S_4S(double rij,double xij,double xii)
1091 {
1092 double S;
1093
1094 if (xii == xij) {
1095 S = (-74724249600.0 + 74724249600.0*Power(E,2.0*rij*xii) - 132871488750.0*rij*xii -
1096 116294478300.0*Power(rij,2.0)*Power(xii,2.0) -
1097 66678987375.0*Power(rij,3.0)*Power(xii,3.0) -
1098 28114836750.0*Power(rij,4.0)*Power(xii,4.0) -
1099 9274044780.0*Power(rij,5.0)*Power(xii,5.0) -
1100 2484321840.0*Power(rij,6.0)*Power(xii,6.0) -
1101 553204080.0*Power(rij,7.0)*Power(xii,7.0) -
1102 103783680.0*Power(rij,8.0)*Power(xii,8.0) -
1103 16473600.0*Power(rij,9.0)*Power(xii,9.0) -
1104 2196480.0*Power(rij,10.0)*Power(xii,10.0) -
1105 239616.0*Power(rij,11.0)*Power(xii,11.0) - 19968.0*Power(rij,12.0)*Power(xii,12.0) -
1106 1024.0*Power(rij,13.0)*Power(xii,13.0))/(7.47242496e10*Power(E,2.0*rij*xii)*rij)
1107 ;
1108 }
1109 else {
1110 S = (3780.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
1111 84.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
1112 (-60.0*Power(rij,4.0)*Power(xii,20.0) - 2.0*Power(rij,5.0)*Power(xii,21.0) +
1113 45.0*Power(xij,16.0) + 75.0*rij*xii*Power(xij,16.0) -
1114 4.0*Power(rij,3.0)*Power(xii,19.0)*(195.0 + Power(rij,2.0)*Power(xij,2.0)) +
1115 15.0*rij*Power(xii,3.0)*Power(xij,14.0)*
1116 (-65.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1117 15.0*Power(xii,2.0)*Power(xij,14.0)*(-39.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
1118 30.0*Power(rij,2.0)*Power(xii,18.0)*(182.0 + 9.0*Power(rij,2.0)*Power(xij,2.0)) +
1119 30.0*rij*Power(xii,13.0)*Power(xij,4.0)*
1120 (-13047.0 + 377.0*Power(rij,2.0)*Power(xij,2.0)) +
1121 2.0*rij*Power(xii,5.0)*Power(xij,12.0)*
1122 (2925.0 - 195.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
1123 + 10.0*Power(xii,4.0)*Power(xij,12.0)*
1124 (351.0 - 78.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) -
1125 130.0*Power(xii,6.0)*Power(xij,10.0)*
1126 (99.0 - 36.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
1127 13.0*rij*Power(xii,11.0)*Power(xij,6.0)*
1128 (30735.0 - 1650.0*Power(rij,2.0)*Power(xij,2.0) +
1129 4.0*Power(rij,4.0)*Power(xij,4.0)) +
1130 rij*Power(xii,7.0)*Power(xij,10.0)*
1131 (-15015.0 + 3330.0*Power(rij,2.0)*Power(xij,2.0) +
1132 4.0*Power(rij,4.0)*Power(xij,4.0)) +
1133 210.0*Power(xii,16.0)*(-156.0 - 262.0*Power(rij,2.0)*Power(xij,2.0) +
1134 5.0*Power(rij,4.0)*Power(xij,4.0)) -
1135 6.0*rij*Power(xii,9.0)*Power(xij,8.0)*
1136 (-48620.0 - 715.0*Power(rij,2.0)*Power(xij,2.0) +
1137 6.0*Power(rij,4.0)*Power(xij,4.0)) +
1138 3.0*rij*Power(xii,17.0)*(-6825.0 - 1870.0*Power(rij,2.0)*Power(xij,2.0) +
1139 12.0*Power(rij,4.0)*Power(xij,4.0)) -
1140 30.0*Power(xii,14.0)*Power(xij,2.0)*
1141 (17934.0 - 12.0*Power(rij,2.0)*Power(xij,2.0) +
1142 13.0*Power(rij,4.0)*Power(xij,4.0)) -
1143 15.0*Power(xii,8.0)*Power(xij,8.0)*
1144 (2145.0 + 2860.0*Power(rij,2.0)*Power(xij,2.0) +
1145 14.0*Power(rij,4.0)*Power(xij,4.0)) +
1146 65.0*Power(xii,10.0)*Power(xij,6.0)*
1147 (-13725.0 - 792.0*Power(rij,2.0)*Power(xij,2.0) +
1148 22.0*Power(rij,4.0)*Power(xij,4.0)) -
1149 10.0*Power(xii,12.0)*Power(xij,4.0)*
1150 (153630.0 - 15054.0*Power(rij,2.0)*Power(xij,2.0) +
1151 143.0*Power(rij,4.0)*Power(xij,4.0)) +
1152 Power(xii,15.0)*(-269325.0*rij*Power(xij,2.0) +
1153 9270.0*Power(rij,3.0)*Power(xij,4.0) - 52.0*Power(rij,5.0)*Power(xij,6.0))) +
1154 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1155 (Power(xii,2.0)*Power(xij,16.0)*
1156 (70073640.0 + 47669895.0*rij*xij + 13931190.0*Power(rij,2.0)*Power(xij,2.0) +
1157 2170350.0*Power(rij,3.0)*Power(xij,3.0) +
1158 169260.0*Power(rij,4.0)*Power(xij,4.0) +
1159 1638.0*Power(rij,5.0)*Power(xij,5.0) - 756.0*Power(rij,6.0)*Power(xij,6.0) -
1160 44.0*Power(rij,7.0)*Power(xij,7.0)) +
1161 364.0*Power(xii,10.0)*Power(xij,8.0)*
1162 (-7425.0 - 13860.0*rij*xij - 5940.0*Power(rij,2.0)*Power(xij,2.0) -
1163 11880.0*Power(rij,3.0)*Power(xij,3.0) -
1164 2640.0*Power(rij,4.0)*Power(xij,4.0) - 45.0*Power(rij,5.0)*Power(xij,5.0) +
1165 30.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,7.0)*Power(xij,7.0)) -
1166 364.0*Power(xii,8.0)*Power(xij,10.0)*
1167 (-20925.0 + 18270.0*rij*xij - 58320.0*Power(rij,2.0)*Power(xij,2.0) -
1168 17730.0*Power(rij,3.0)*Power(xij,3.0) - 300.0*Power(rij,4.0)*Power(xij,4.0) +
1169 423.0*Power(rij,5.0)*Power(xij,5.0) + 54.0*Power(rij,6.0)*Power(xij,6.0) +
1170 2.0*Power(rij,7.0)*Power(xij,7.0)) -
1171 3.0*Power(xii,18.0)*(1260.0 + 2205.0*rij*xij +
1172 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
1173 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
1174 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
1175 3.0*Power(xij,18.0)*(1801800.0 + 1576575.0*rij*xij +
1176 630630.0*Power(rij,2.0)*Power(xij,2.0) +
1177 150150.0*Power(rij,3.0)*Power(xij,3.0) +
1178 23100.0*Power(rij,4.0)*Power(xij,4.0) +
1179 2310.0*Power(rij,5.0)*Power(xij,5.0) + 140.0*Power(rij,6.0)*Power(xij,6.0) +
1180 4.0*Power(rij,7.0)*Power(xij,7.0)) +
1181 2.0*Power(xii,14.0)*Power(xij,4.0)*
1182 (-147420.0 - 257985.0*rij*xij - 221130.0*Power(rij,2.0)*Power(xij,2.0) -
1183 122850.0*Power(rij,3.0)*Power(xij,3.0) -
1184 49140.0*Power(rij,4.0)*Power(xij,4.0) -
1185 17388.0*Power(rij,5.0)*Power(xij,5.0) -
1186 1512.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) -
1187 42.0*Power(xii,12.0)*Power(xij,6.0)*
1188 (-25740.0 - 45045.0*rij*xij - 38610.0*Power(rij,2.0)*Power(xij,2.0) -
1189 19470.0*Power(rij,3.0)*Power(xij,3.0) -
1190 12540.0*Power(rij,4.0)*Power(xij,4.0) -
1191 1836.0*Power(rij,5.0)*Power(xij,5.0) - 8.0*Power(rij,6.0)*Power(xij,6.0) +
1192 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1193 42.0*Power(xii,6.0)*Power(xij,12.0)*
1194 (921600.0 - 1640835.0*rij*xij - 546030.0*Power(rij,2.0)*Power(xij,2.0) +
1195 20730.0*Power(rij,3.0)*Power(xij,3.0) +
1196 30180.0*Power(rij,4.0)*Power(xij,4.0) +
1197 5028.0*Power(rij,5.0)*Power(xij,5.0) + 344.0*Power(rij,6.0)*Power(xij,6.0) +
1198 8.0*Power(rij,7.0)*Power(xij,7.0)) -
1199 2.0*Power(xii,4.0)*Power(xij,14.0)*
1200 (-67767840.0 - 13377735.0*rij*xij + 6601770.0*Power(rij,2.0)*Power(xij,2.0) +
1201 3115350.0*Power(rij,3.0)*Power(xij,3.0) +
1202 548940.0*Power(rij,4.0)*Power(xij,4.0) +
1203 48132.0*Power(rij,5.0)*Power(xij,5.0) +
1204 1848.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1205 Power(xii,16.0)*Power(xij,2.0)*
1206 (49140.0 + 85995.0*rij*xij + 73710.0*Power(rij,2.0)*Power(xij,2.0) +
1207 40950.0*Power(rij,3.0)*Power(xij,3.0) +
1208 16380.0*Power(rij,4.0)*Power(xij,4.0) + 4914.0*Power(rij,5.0)*Power(xij,5.0) +
1209 1092.0*Power(rij,6.0)*Power(xij,6.0) + 44.0*Power(rij,7.0)*Power(xij,7.0))))/
1210 (3780.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),13.0))
1211 ;
1212 }
1213 return S;
1214 }
1215
1216 static double Slater_3S_5S(double rij,double xij,double xii)
1217 {
1218 double S;
1219
1220 if (xii == xij) {
1221 S = (-313841848320000.0 + 313841848320000.0*Power(E,2.0*rij*xii) -
1222 568188982486125.0*rij*xii - 508694268332250.0*Power(rij,2.0)*Power(xii,2.0) -
1223 299892470377500.0*Power(rij,3.0)*Power(xii,3.0) -
1224 130753815192000.0*Power(rij,4.0)*Power(xii,4.0) -
1225 44881155118800.0*Power(rij,5.0)*Power(xii,5.0) -
1226 12601803614400.0*Power(rij,6.0)*Power(xii,6.0) -
1227 2967953788800.0*Power(rij,7.0)*Power(xii,7.0) -
1228 596237241600.0*Power(rij,8.0)*Power(xii,8.0) -
1229 103264761600.0*Power(rij,9.0)*Power(xii,9.0) -
1230 15498362880.0*Power(rij,10.0)*Power(xii,10.0) -
1231 2012774400.0*Power(rij,11.0)*Power(xii,11.0) -
1232 223641600.0*Power(rij,12.0)*Power(xii,12.0) -
1233 20643840.0*Power(rij,13.0)*Power(xii,13.0) -
1234 1474560.0*Power(rij,14.0)*Power(xii,14.0) - 65536.0*Power(rij,15.0)*Power(xii,15.0))/
1235 (3.1384184832e14*Power(E,2.0*rij*xii)*rij)
1236 ;
1237 }
1238 else {
1239 S = (42525.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
1240 189.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
1241 (-350.0*Power(rij,4.0)*Power(xii,22.0) - 10.0*Power(rij,5.0)*Power(xii,23.0) +
1242 225.0*Power(xij,18.0) + 375.0*rij*xii*Power(xij,18.0) -
1243 70.0*Power(rij,3.0)*Power(xii,21.0)*(75.0 + Power(rij,2.0)*Power(xij,2.0)) +
1244 75.0*rij*Power(xii,3.0)*Power(xij,16.0)*
1245 (-75.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1246 75.0*Power(xii,2.0)*Power(xij,16.0)*(-45.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
1247 50.0*Power(rij,2.0)*Power(xii,20.0)*(840.0 + 71.0*Power(rij,2.0)*Power(xij,2.0)) +
1248 rij*Power(xii,9.0)*Power(xij,10.0)*
1249 (4694625.0 + 124800.0*Power(rij,2.0)*Power(xij,2.0) -
1250 248.0*Power(rij,4.0)*Power(xij,4.0)) +
1251 20.0*rij*Power(xii,17.0)*Power(xij,2.0)*
1252 (-185895.0 - 948.0*Power(rij,2.0)*Power(xij,2.0) +
1253 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1254 5.0*rij*Power(xii,5.0)*Power(xij,14.0)*
1255 (7875.0 - 450.0*Power(rij,2.0)*Power(xij,2.0) +
1256 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1257 25.0*Power(xii,4.0)*Power(xij,14.0)*
1258 (945.0 - 180.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1259 - 375.0*Power(xii,6.0)*Power(xij,12.0)*
1260 (273.0 - 84.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1261 - 5.0*rij*Power(xii,11.0)*Power(xij,8.0)*
1262 (-2803125.0 + 49140.0*Power(rij,2.0)*Power(xij,2.0) +
1263 8.0*Power(rij,4.0)*Power(xij,4.0)) +
1264 5.0*rij*Power(xii,7.0)*Power(xij,12.0)*
1265 (-16965.0 + 5152.0*Power(rij,2.0)*Power(xij,2.0) +
1266 14.0*Power(rij,4.0)*Power(xij,4.0)) +
1267 325.0*Power(xii,10.0)*Power(xij,8.0)*
1268 (-60117.0 - 5340.0*Power(rij,2.0)*Power(xij,2.0) +
1269 40.0*Power(rij,4.0)*Power(xij,4.0)) -
1270 15.0*rij*Power(xii,15.0)*Power(xij,4.0)*
1271 (845085.0 - 22960.0*Power(rij,2.0)*Power(xij,2.0) +
1272 52.0*Power(rij,4.0)*Power(xij,4.0)) +
1273 15.0*rij*Power(xii,13.0)*Power(xij,6.0)*
1274 (-139125.0 - 10140.0*Power(rij,2.0)*Power(xij,2.0) +
1275 52.0*Power(rij,4.0)*Power(xij,4.0)) +
1276 75.0*Power(xii,12.0)*Power(xij,6.0)*
1277 (-729687.0 + 25532.0*Power(rij,2.0)*Power(xij,2.0) +
1278 52.0*Power(rij,4.0)*Power(xij,4.0)) +
1279 60.0*Power(xii,18.0)*(-5355.0 - 11940.0*Power(rij,2.0)*Power(xij,2.0) +
1280 86.0*Power(rij,4.0)*Power(xij,4.0)) +
1281 2.0*rij*Power(xii,19.0)*(-89250.0 - 35425.0*Power(rij,2.0)*Power(xij,2.0) +
1282 124.0*Power(rij,4.0)*Power(xij,4.0)) +
1283 100.0*Power(xii,16.0)*Power(xij,2.0)*
1284 (-79713.0 - 13311.0*Power(rij,2.0)*Power(xij,2.0) +
1285 146.0*Power(rij,4.0)*Power(xij,4.0)) -
1286 5.0*Power(xii,8.0)*Power(xij,10.0)*
1287 (157365.0 + 95940.0*Power(rij,2.0)*Power(xij,2.0) +
1288 952.0*Power(rij,4.0)*Power(xij,4.0)) -
1289 15.0*Power(xii,14.0)*Power(xij,4.0)*
1290 (2638467.0 - 157500.0*Power(rij,2.0)*Power(xij,2.0) +
1291 1820.0*Power(rij,4.0)*Power(xij,4.0))) +
1292 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1293 (2.0*Power(xii,2.0)*Power(xij,20.0)*
1294 (1782492075.0 + 1449175455.0*rij*xij +
1295 533365560.0*Power(rij,2.0)*Power(xij,2.0) +
1296 114631335.0*Power(rij,3.0)*Power(xij,3.0) +
1297 15221115.0*Power(rij,4.0)*Power(xij,4.0) +
1298 1142505.0*Power(rij,5.0)*Power(xij,5.0) +
1299 18396.0*Power(rij,6.0)*Power(xij,6.0) -
1300 5238.0*Power(rij,7.0)*Power(xij,7.0) - 513.0*Power(rij,8.0)*Power(xij,8.0) -
1301 17.0*Power(rij,9.0)*Power(xij,9.0)) +
1302 42.0*Power(xii,4.0)*Power(xij,18.0)*
1303 (251336925.0 + 104824125.0*rij*xij + 340200.0*Power(rij,2.0)*Power(xij,2.0) -
1304 9122085.0*Power(rij,3.0)*Power(xij,3.0) -
1305 2798145.0*Power(rij,4.0)*Power(xij,4.0) -
1306 433755.0*Power(rij,5.0)*Power(xij,5.0) -
1307 39060.0*Power(rij,6.0)*Power(xij,6.0) -
1308 1890.0*Power(rij,7.0)*Power(xij,7.0) - 27.0*Power(rij,8.0)*Power(xij,8.0) +
1309 Power(rij,9.0)*Power(xij,9.0)) +
1310 6.0*Power(xij,22.0)*(34459425.0 + 34459425.0*rij*xij +
1311 16216200.0*Power(rij,2.0)*Power(xij,2.0) +
1312 4729725.0*Power(rij,3.0)*Power(xij,3.0) +
1313 945945.0*Power(rij,4.0)*Power(xij,4.0) +
1314 135135.0*Power(rij,5.0)*Power(xij,5.0) +
1315 13860.0*Power(rij,6.0)*Power(xij,6.0) + 990.0*Power(rij,7.0)*Power(xij,7.0) +
1316 45.0*Power(rij,8.0)*Power(xij,8.0) + Power(rij,9.0)*Power(xij,9.0)) -
1317 3.0*Power(xii,22.0)*(14175.0 + 25515.0*rij*xij +
1318 22680.0*Power(rij,2.0)*Power(xij,2.0) +
1319 13230.0*Power(rij,3.0)*Power(xij,3.0) +
1320 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
1321 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
1322 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
1323 21.0*Power(xii,18.0)*Power(xij,4.0)*
1324 (212625.0 + 382725.0*rij*xij + 340200.0*Power(rij,2.0)*Power(xij,2.0) +
1325 198450.0*Power(rij,3.0)*Power(xij,3.0) +
1326 85050.0*Power(rij,4.0)*Power(xij,4.0) +
1327 28350.0*Power(rij,5.0)*Power(xij,5.0) +
1328 7560.0*Power(rij,6.0)*Power(xij,6.0) + 1836.0*Power(rij,7.0)*Power(xij,7.0) +
1329 162.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) +
1330 54.0*Power(xii,6.0)*Power(xij,16.0)*
1331 (133451955.0 - 73700865.0*rij*xij -
1332 54096840.0*Power(rij,2.0)*Power(xij,2.0) -
1333 8306235.0*Power(rij,3.0)*Power(xij,3.0) +
1334 966945.0*Power(rij,4.0)*Power(xij,4.0) +
1335 516747.0*Power(rij,5.0)*Power(xij,5.0) +
1336 80724.0*Power(rij,6.0)*Power(xij,6.0) +
1337 6434.0*Power(rij,7.0)*Power(xij,7.0) + 251.0*Power(rij,8.0)*Power(xij,8.0) +
1338 3.0*Power(rij,9.0)*Power(xij,9.0)) -
1339 315.0*Power(xii,12.0)*Power(xij,10.0)*
1340 (-405405.0 - 710073.0*rij*xij - 805896.0*Power(rij,2.0)*Power(xij,2.0) -
1341 101556.0*Power(rij,3.0)*Power(xij,3.0) -
1342 258804.0*Power(rij,4.0)*Power(xij,4.0) -
1343 90972.0*Power(rij,5.0)*Power(xij,5.0) -
1344 9744.0*Power(rij,6.0)*Power(xij,6.0) + 120.0*Power(rij,7.0)*Power(xij,7.0) +
1345 84.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) +
1346 315.0*Power(xii,10.0)*Power(xij,12.0)*
1347 (-482895.0 - 2656395.0*rij*xij + 1186920.0*Power(rij,2.0)*Power(xij,2.0) -
1348 1155420.0*Power(rij,3.0)*Power(xij,3.0) -
1349 643356.0*Power(rij,4.0)*Power(xij,4.0) -
1350 93492.0*Power(rij,5.0)*Power(xij,5.0) + 336.0*Power(rij,6.0)*Power(xij,6.0) +
1351 1368.0*Power(rij,7.0)*Power(xij,7.0) + 132.0*Power(rij,8.0)*Power(xij,8.0) +
1352 4.0*Power(rij,9.0)*Power(xij,9.0)) -
1353 27.0*Power(xii,16.0)*Power(xij,6.0)*
1354 (-716625.0 - 1289925.0*rij*xij - 1146600.0*Power(rij,2.0)*Power(xij,2.0) -
1355 668850.0*Power(rij,3.0)*Power(xij,3.0) -
1356 286650.0*Power(rij,4.0)*Power(xij,4.0) -
1357 90006.0*Power(rij,5.0)*Power(xij,5.0) -
1358 32872.0*Power(rij,6.0)*Power(xij,6.0) -
1359 4812.0*Power(rij,7.0)*Power(xij,7.0) - 178.0*Power(rij,8.0)*Power(xij,8.0) +
1360 6.0*Power(rij,9.0)*Power(xij,9.0)) +
1361 Power(xii,20.0)*Power(xij,2.0)*
1362 (637875.0 + 1148175.0*rij*xij + 1020600.0*Power(rij,2.0)*Power(xij,2.0) +
1363 595350.0*Power(rij,3.0)*Power(xij,3.0) +
1364 255150.0*Power(rij,4.0)*Power(xij,4.0) +
1365 85050.0*Power(rij,5.0)*Power(xij,5.0) +
1366 22680.0*Power(rij,6.0)*Power(xij,6.0) +
1367 4860.0*Power(rij,7.0)*Power(xij,7.0) + 810.0*Power(rij,8.0)*Power(xij,8.0) +
1368 34.0*Power(rij,9.0)*Power(xij,9.0)) +
1369 3.0*Power(xii,14.0)*Power(xij,8.0)*
1370 (-19348875.0 - 34827975.0*rij*xij -
1371 30958200.0*Power(rij,2.0)*Power(xij,2.0) -
1372 18689580.0*Power(rij,3.0)*Power(xij,3.0) -
1373 5847660.0*Power(rij,4.0)*Power(xij,4.0) -
1374 3723300.0*Power(rij,5.0)*Power(xij,5.0) -
1375 845040.0*Power(rij,6.0)*Power(xij,6.0) -
1376 58680.0*Power(rij,7.0)*Power(xij,7.0) +
1377 1548.0*Power(rij,8.0)*Power(xij,8.0) + 236.0*Power(rij,9.0)*Power(xij,9.0)) -
1378 3.0*Power(xii,8.0)*Power(xij,14.0)*
1379 (-593408025.0 + 946053675.0*rij*xij -
1380 394427880.0*Power(rij,2.0)*Power(xij,2.0) -
1381 315870660.0*Power(rij,3.0)*Power(xij,3.0) -
1382 53891460.0*Power(rij,4.0)*Power(xij,4.0) +
1383 910980.0*Power(rij,5.0)*Power(xij,5.0) +
1384 1409520.0*Power(rij,6.0)*Power(xij,6.0) +
1385 192168.0*Power(rij,7.0)*Power(xij,7.0) +
1386 11196.0*Power(rij,8.0)*Power(xij,8.0) + 236.0*Power(rij,9.0)*Power(xij,9.0))))/
1387 (42525.*Power(E,2.0*rij*(xii + xij))*rij*
1388 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
1389 ;
1390 }
1391 return S;
1392 }
1393
1394 static double Slater_3S_6S(double rij,double xij,double xii)
1395 {
1396 double S;
1397
1398 if (xii == xij) {
1399 S = (-12804747411456000.0 + 12804747411456000.0*Power(E,2.0*rij*xii) -
1400 23523793155237375.0*rij*xii -
1401 21438091487562750.0*Power(rij,2.0)*Power(xii,2.0) -
1402 12909495448599750.0*Power(rij,3.0)*Power(xii,3.0) -
1403 5771367188086500.0*Power(rij,4.0)*Power(xii,4.0) -
1404 2040067705876200.0*Power(rij,5.0)*Power(xii,5.0) -
1405 592812380160000.0*Power(rij,6.0)*Power(xii,6.0) -
1406 145331660073600.0*Power(rij,7.0)*Power(xii,7.0) -
1407 30604380206400.0*Power(rij,8.0)*Power(xii,8.0) -
1408 5606134934400.0*Power(rij,9.0)*Power(xii,9.0) -
1409 900980720640.0*Power(rij,10.0)*Power(xii,10.0) -
1410 127672796160.0*Power(rij,11.0)*Power(xii,11.0) -
1411 15968010240.0*Power(rij,12.0)*Power(xii,12.0) -
1412 1754726400.0*Power(rij,13.0)*Power(xii,13.0) -
1413 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
1414 13369344.0*Power(rij,15.0)*Power(xii,15.0) -
1415 835584.0*Power(rij,16.0)*Power(xii,16.0) - 32768.0*Power(rij,17.0)*Power(xii,17.0))/
1416 (1.2804747411456e16*Power(E,2.0*rij*xii)*rij)
1417 ;
1418 }
1419 else {
1420 S = (2806650.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
1421 20790.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
1422 (-240.0*Power(rij,4.0)*Power(xii,24.0) - 6.0*Power(rij,5.0)*Power(xii,25.0) +
1423 135.0*Power(xij,20.0) + 225.0*rij*xii*Power(xij,20.0) -
1424 80.0*Power(rij,3.0)*Power(xii,23.0)*(51.0 + Power(rij,2.0)*Power(xij,2.0)) +
1425 45.0*rij*Power(xii,3.0)*Power(xij,18.0)*
1426 (-85.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1427 45.0*Power(xii,2.0)*Power(xij,18.0)*(-51.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
1428 30.0*Power(rij,2.0)*Power(xii,22.0)*
1429 (1224.0 + 137.0*Power(rij,2.0)*Power(xij,2.0)) +
1430 3060.0*rij*Power(xii,15.0)*Power(xij,6.0)*
1431 (-11875.0 + 146.0*Power(rij,2.0)*Power(xij,2.0)) +
1432 2.0*rij*Power(xii,9.0)*Power(xij,12.0)*
1433 (3977235.0 + 115260.0*Power(rij,2.0)*Power(xij,2.0) -
1434 47.0*Power(rij,4.0)*Power(xij,4.0)) +
1435 1020.0*rij*Power(xii,13.0)*Power(xij,8.0)*
1436 (23775.0 - 741.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
1437 + 6.0*rij*Power(xii,5.0)*Power(xij,16.0)*
1438 (5100.0 - 255.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
1439 + 30.0*Power(xii,4.0)*Power(xij,16.0)*
1440 (612.0 - 102.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) -
1441 510.0*Power(xii,6.0)*Power(xij,14.0)*
1442 (180.0 - 48.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
1443 20.0*rij*Power(xii,7.0)*Power(xij,14.0)*
1444 (-1683.0 + 1158.0*Power(rij,2.0)*Power(xij,2.0) +
1445 4.0*Power(rij,4.0)*Power(xij,4.0)) +
1446 510.0*Power(xii,10.0)*Power(xij,10.0)*
1447 (-83889.0 - 7948.0*Power(rij,2.0)*Power(xij,2.0) +
1448 12.0*Power(rij,4.0)*Power(xij,4.0)) -
1449 34.0*rij*Power(xii,11.0)*Power(xij,10.0)*
1450 (-1158885.0 + 3450.0*Power(rij,2.0)*Power(xij,2.0) +
1451 16.0*Power(rij,4.0)*Power(xij,4.0)) -
1452 90.0*Power(xii,20.0)*(3876.0 + 10354.0*Power(rij,2.0)*Power(xij,2.0) +
1453 29.0*Power(rij,4.0)*Power(xij,4.0)) +
1454 1020.0*Power(xii,12.0)*Power(xij,8.0)*
1455 (-172098.0 - 26.0*Power(rij,2.0)*Power(xij,2.0) +
1456 31.0*Power(rij,4.0)*Power(xij,4.0)) -
1457 1020.0*Power(xii,14.0)*Power(xij,6.0)*
1458 (210168.0 - 8596.0*Power(rij,2.0)*Power(xij,2.0) +
1459 39.0*Power(rij,4.0)*Power(xij,4.0)) +
1460 2.0*rij*Power(xii,21.0)*(-87210.0 - 43125.0*Power(rij,2.0)*Power(xij,2.0) +
1461 47.0*Power(rij,4.0)*Power(xij,4.0)) -
1462 15.0*rij*Power(xii,17.0)*Power(xij,4.0)*
1463 (1992273.0 - 31144.0*Power(rij,2.0)*Power(xij,2.0) +
1464 68.0*Power(rij,4.0)*Power(xij,4.0)) -
1465 90.0*Power(xii,8.0)*Power(xij,12.0)*
1466 (17425.0 + 6664.0*Power(rij,2.0)*Power(xij,2.0) +
1467 76.0*Power(rij,4.0)*Power(xij,4.0)) +
1468 rij*Power(xii,19.0)*Power(xij,2.0)*
1469 (-5204385.0 - 202710.0*Power(rij,2.0)*Power(xij,2.0) +
1470 544.0*Power(rij,4.0)*Power(xij,4.0)) +
1471 45.0*Power(xii,18.0)*Power(xij,2.0)*
1472 (-267615.0 - 83676.0*Power(rij,2.0)*Power(xij,2.0) +
1473 680.0*Power(rij,4.0)*Power(xij,4.0)) -
1474 15.0*Power(xii,16.0)*Power(xij,4.0)*
1475 (6000651.0 - 41616.0*Power(rij,2.0)*Power(xij,2.0) +
1476 952.0*Power(rij,4.0)*Power(xij,4.0))) +
1477 Power(E,2.0*rij*xii)*Power(xii,8.0)*
1478 (2.0*Power(xii,2.0)*Power(xij,24.0)*
1479 (436049563950.0 + 402658381125.0*rij*xij +
1480 173330907750.0*Power(rij,2.0)*Power(xij,2.0) +
1481 45555359850.0*Power(rij,3.0)*Power(xij,3.0) +
1482 7994586600.0*Power(rij,4.0)*Power(xij,4.0) +
1483 948782835.0*Power(rij,5.0)*Power(xij,5.0) +
1484 69999930.0*Power(rij,6.0)*Power(xij,6.0) +
1485 1737450.0*Power(rij,7.0)*Power(xij,7.0) -
1486 254430.0*Power(rij,8.0)*Power(xij,8.0) -
1487 34155.0*Power(rij,9.0)*Power(xij,9.0) -
1488 1914.0*Power(rij,10.0)*Power(xij,10.0) - 46.0*Power(rij,11.0)*Power(xij,11.0)) \
1489 - 44.0*Power(xii,20.0)*Power(xij,6.0)*
1490 (-43375500.0 - 79521750.0*rij*xij -
1491 72292500.0*Power(rij,2.0)*Power(xij,2.0) -
1492 43375500.0*Power(rij,3.0)*Power(xij,3.0) -
1493 19278000.0*Power(rij,4.0)*Power(xij,4.0) -
1494 6747300.0*Power(rij,5.0)*Power(xij,5.0) -
1495 1927800.0*Power(rij,6.0)*Power(xij,6.0) -
1496 441180.0*Power(rij,7.0)*Power(xij,7.0) -
1497 109620.0*Power(rij,8.0)*Power(xij,8.0) -
1498 14715.0*Power(rij,9.0)*Power(xij,9.0) -
1499 690.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
1500 6.0*Power(xij,26.0)*(6547290750.0 + 7202019825.0*rij*xij +
1501 3790536750.0*Power(rij,2.0)*Power(xij,2.0) +
1502 1263512250.0*Power(rij,3.0)*Power(xij,3.0) +
1503 297297000.0*Power(rij,4.0)*Power(xij,4.0) +
1504 52026975.0*Power(rij,5.0)*Power(xij,5.0) +
1505 6936930.0*Power(rij,6.0)*Power(xij,6.0) +
1506 707850.0*Power(rij,7.0)*Power(xij,7.0) +
1507 54450.0*Power(rij,8.0)*Power(xij,8.0) +
1508 3025.0*Power(rij,9.0)*Power(xij,9.0) +
1509 110.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
1510 44.0*Power(xii,6.0)*Power(xij,20.0)*
1511 (100049928300.0 - 5205782925.0*rij*xij -
1512 25852279950.0*Power(rij,2.0)*Power(xij,2.0) -
1513 8238935250.0*Power(rij,3.0)*Power(xij,3.0) -
1514 784614600.0*Power(rij,4.0)*Power(xij,4.0) +
1515 136745280.0*Power(rij,5.0)*Power(xij,5.0) +
1516 52950240.0*Power(rij,6.0)*Power(xij,6.0) +
1517 7931520.0*Power(rij,7.0)*Power(xij,7.0) +
1518 685440.0*Power(rij,8.0)*Power(xij,8.0) +
1519 34425.0*Power(rij,9.0)*Power(xij,9.0) +
1520 822.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) -
1521 3.0*Power(xii,26.0)*(935550.0 + 1715175.0*rij*xij +
1522 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
1523 935550.0*Power(rij,3.0)*Power(xij,3.0) +
1524 415800.0*Power(rij,4.0)*Power(xij,4.0) +
1525 145530.0*Power(rij,5.0)*Power(xij,5.0) +
1526 41580.0*Power(rij,6.0)*Power(xij,6.0) +
1527 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
1528 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
1529 4.0*Power(rij,11.0)*Power(xij,11.0)) +
1530 2244.0*Power(xii,14.0)*Power(xij,12.0)*
1531 (-15479100.0 - 28676025.0*rij*xij -
1532 22821750.0*Power(rij,2.0)*Power(xij,2.0) -
1533 22689450.0*Power(rij,3.0)*Power(xij,3.0) -
1534 1852200.0*Power(rij,4.0)*Power(xij,4.0) -
1535 2372580.0*Power(rij,5.0)*Power(xij,5.0) -
1536 1252440.0*Power(rij,6.0)*Power(xij,6.0) -
1537 228600.0*Power(rij,7.0)*Power(xij,7.0) -
1538 15000.0*Power(rij,8.0)*Power(xij,8.0) + 450.0*Power(rij,9.0)*Power(xij,9.0) +
1539 108.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
1540 2244.0*Power(xii,12.0)*Power(xij,14.0)*
1541 (-27556200.0 - 14104125.0*rij*xij -
1542 108438750.0*Power(rij,2.0)*Power(xij,2.0) +
1543 15375150.0*Power(rij,3.0)*Power(xij,3.0) -
1544 5632200.0*Power(rij,4.0)*Power(xij,4.0) -
1545 8370180.0*Power(rij,5.0)*Power(xij,5.0) -
1546 2119320.0*Power(rij,6.0)*Power(xij,6.0) -
1547 198000.0*Power(rij,7.0)*Power(xij,7.0) +
1548 2400.0*Power(rij,8.0)*Power(xij,8.0) + 2010.0*Power(rij,9.0)*Power(xij,9.0) +
1549 156.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) +
1550 330.0*Power(xii,18.0)*Power(xij,8.0)*
1551 (-20241900.0 - 37110150.0*rij*xij -
1552 33736500.0*Power(rij,2.0)*Power(xij,2.0) -
1553 20241900.0*Power(rij,3.0)*Power(xij,3.0) -
1554 8996400.0*Power(rij,4.0)*Power(xij,4.0) -
1555 3211803.0*Power(rij,5.0)*Power(xij,5.0) -
1556 773514.0*Power(rij,6.0)*Power(xij,6.0) -
1557 263898.0*Power(rij,7.0)*Power(xij,7.0) -
1558 53202.0*Power(rij,8.0)*Power(xij,8.0) -
1559 4393.0*Power(rij,9.0)*Power(xij,9.0) - 62.0*Power(rij,10.0)*Power(xij,10.0) +
1560 6.0*Power(rij,11.0)*Power(xij,11.0)) -
1561 165.0*Power(xii,8.0)*Power(xij,18.0)*
1562 (-11754743490.0 + 11330341155.0*rij*xij +
1563 1384290810.0*Power(rij,2.0)*Power(xij,2.0) -
1564 2116476810.0*Power(rij,3.0)*Power(xij,3.0) -
1565 782225640.0*Power(rij,4.0)*Power(xij,4.0) -
1566 97437186.0*Power(rij,5.0)*Power(xij,5.0) +
1567 2679012.0*Power(rij,6.0)*Power(xij,6.0) +
1568 2436804.0*Power(rij,7.0)*Power(xij,7.0) +
1569 347316.0*Power(rij,8.0)*Power(xij,8.0) +
1570 25014.0*Power(rij,9.0)*Power(xij,9.0) +
1571 916.0*Power(rij,10.0)*Power(xij,10.0) + 12.0*Power(rij,11.0)*Power(xij,11.0)) \
1572 + 4.0*Power(xii,4.0)*Power(xij,22.0)*
1573 (921052717200.0 + 543777678675.0*rij*xij +
1574 99905825250.0*Power(rij,2.0)*Power(xij,2.0) -
1575 10883876850.0*Power(rij,3.0)*Power(xij,3.0) -
1576 9266934600.0*Power(rij,4.0)*Power(xij,4.0) -
1577 2236505040.0*Power(rij,5.0)*Power(xij,5.0) -
1578 316673280.0*Power(rij,6.0)*Power(xij,6.0) -
1579 28779300.0*Power(rij,7.0)*Power(xij,7.0) -
1580 1601820.0*Power(rij,8.0)*Power(xij,8.0) -
1581 40095.0*Power(rij,9.0)*Power(xij,9.0) +
1582 726.0*Power(rij,10.0)*Power(xij,10.0) + 58.0*Power(rij,11.0)*Power(xij,11.0)) \
1583 - 4.0*Power(xii,22.0)*Power(xij,4.0)*
1584 (95426100.0 + 174947850.0*rij*xij +
1585 159043500.0*Power(rij,2.0)*Power(xij,2.0) +
1586 95426100.0*Power(rij,3.0)*Power(xij,3.0) +
1587 42411600.0*Power(rij,4.0)*Power(xij,4.0) +
1588 14844060.0*Power(rij,5.0)*Power(xij,5.0) +
1589 4241160.0*Power(rij,6.0)*Power(xij,6.0) +
1590 1009800.0*Power(rij,7.0)*Power(xij,7.0) +
1591 201960.0*Power(rij,8.0)*Power(xij,8.0) +
1592 37125.0*Power(rij,9.0)*Power(xij,9.0) +
1593 3102.0*Power(rij,10.0)*Power(xij,10.0) + 58.0*Power(rij,11.0)*Power(xij,11.0)) \
1594 - 66.0*Power(xii,16.0)*Power(xij,10.0)*
1595 (-263144700.0 - 482431950.0*rij*xij -
1596 438574500.0*Power(rij,2.0)*Power(xij,2.0) -
1597 259704900.0*Power(rij,3.0)*Power(xij,3.0) -
1598 130712400.0*Power(rij,4.0)*Power(xij,4.0) -
1599 27031095.0*Power(rij,5.0)*Power(xij,5.0) -
1600 13816530.0*Power(rij,6.0)*Power(xij,6.0) -
1601 4240170.0*Power(rij,7.0)*Power(xij,7.0) -
1602 537330.0*Power(rij,8.0)*Power(xij,8.0) -
1603 20565.0*Power(rij,9.0)*Power(xij,9.0) +
1604 1146.0*Power(rij,10.0)*Power(xij,10.0) + 86.0*Power(rij,11.0)*Power(xij,11.0)) \
1605 + Power(xii,24.0)*Power(xij,2.0)*(47713050.0 + 87473925.0*rij*xij +
1606 79521750.0*Power(rij,2.0)*Power(xij,2.0) +
1607 47713050.0*Power(rij,3.0)*Power(xij,3.0) +
1608 21205800.0*Power(rij,4.0)*Power(xij,4.0) +
1609 7422030.0*Power(rij,5.0)*Power(xij,5.0) +
1610 2120580.0*Power(rij,6.0)*Power(xij,6.0) +
1611 504900.0*Power(rij,7.0)*Power(xij,7.0) +
1612 100980.0*Power(rij,8.0)*Power(xij,8.0) +
1613 16830.0*Power(rij,9.0)*Power(xij,9.0) +
1614 2244.0*Power(rij,10.0)*Power(xij,10.0) + 92.0*Power(rij,11.0)*Power(xij,11.0)) \
1615 + 33.0*Power(xii,10.0)*Power(xij,16.0)*
1616 (5519319750.0 - 27722883825.0*rij*xij +
1617 11646151650.0*Power(rij,2.0)*Power(xij,2.0) +
1618 955234350.0*Power(rij,3.0)*Power(xij,3.0) -
1619 2729953800.0*Power(rij,4.0)*Power(xij,4.0) -
1620 902572650.0*Power(rij,5.0)*Power(xij,5.0) -
1621 105286860.0*Power(rij,6.0)*Power(xij,6.0) +
1622 622260.0*Power(rij,7.0)*Power(xij,7.0) +
1623 1538340.0*Power(rij,8.0)*Power(xij,8.0) +
1624 178830.0*Power(rij,9.0)*Power(xij,9.0) +
1625 9060.0*Power(rij,10.0)*Power(xij,10.0) + 172.0*Power(rij,11.0)*Power(xij,11.0))\
1626 ))/(2.80665e6*Power(E,2.0*rij*(xii + xij))*rij*
1627 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
1628 ;
1629 }
1630 return S;
1631 }
1632
1633 double Slater_3S_1S(double rij,double xii,double xij)
1634 {
1635 return Slater_1S_3S(rij,xij,xii);
1636 }
1637
1638 double Slater_3S_2S(double rij,double xii,double xij)
1639 {
1640 return Slater_2S_3S(rij,xij,xii);
1641 }
1642
1643 static double Slater_4S_4S(double rij,double xij,double xii)
1644 {
1645 double S;
1646
1647 if (xii == xij) {
1648 S = (-83691159552000.0 + 83691159552000.0*Power(E,2.0*rij*xii) -
1649 150568359566625.0*rij*xii - 133754400029250.0*Power(rij,2.0)*Power(xii,2.0) -
1650 78142908343500.0*Power(rij,3.0)*Power(xii,3.0) -
1651 33740723016000.0*Power(rij,4.0)*Power(xii,4.0) -
1652 11470756096800.0*Power(rij,5.0)*Power(xii,5.0) -
1653 3193358968800.0*Power(rij,6.0)*Power(xii,6.0) -
1654 747112766400.0*Power(rij,7.0)*Power(xii,7.0) -
1655 149448499200.0*Power(rij,8.0)*Power(xii,8.0) -
1656 25830604800.0*Power(rij,9.0)*Power(xii,9.0) -
1657 3874590720.0*Power(rij,10.0)*Power(xii,10.0) -
1658 503193600.0*Power(rij,11.0)*Power(xii,11.0) -
1659 55910400.0*Power(rij,12.0)*Power(xii,12.0) -
1660 5160960.0*Power(rij,13.0)*Power(xii,13.0) -
1661 368640.0*Power(rij,14.0)*Power(xii,14.0) - 16384.0*Power(rij,15.0)*Power(xii,15.0))/
1662 (8.3691159552e13*Power(E,2.0*rij*xii)*rij)
1663 ;
1664 }
1665 else {
1666 S = (1260.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
1667 Power(E,2.0*rij*xij)*Power(xij,10.0)*
1668 (-3276.0*Power(rij,5.0)*Power(xii,25.0) - 168.0*Power(rij,6.0)*Power(xii,26.0) -
1669 4.0*Power(rij,7.0)*Power(xii,27.0) + 1260.0*Power(xij,20.0) +
1670 2205.0*rij*xii*Power(xij,20.0) +
1671 1890.0*Power(xii,2.0)*Power(xij,18.0)*(-10.0 + Power(rij,2.0)*Power(xij,2.0)) -
1672 420.0*Power(rij,4.0)*Power(xii,24.0)*(91.0 + Power(rij,2.0)*Power(xij,2.0)) +
1673 525.0*rij*Power(xii,3.0)*Power(xij,18.0)*
1674 (-63.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1675 42.0*Power(rij,3.0)*Power(xii,23.0)*
1676 (-6825.0 - 405.0*Power(rij,2.0)*Power(xij,2.0) +
1677 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1678 63.0*rij*Power(xii,5.0)*Power(xij,16.0)*
1679 (3675.0 - 250.0*Power(rij,2.0)*Power(xij,2.0) +
1680 2.0*Power(rij,4.0)*Power(xij,4.0)) +
1681 210.0*Power(xii,4.0)*Power(xij,16.0)*
1682 (630.0 - 135.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1683 + 252.0*Power(rij,2.0)*Power(xii,22.0)*
1684 (-5460.0 - 1225.0*Power(rij,2.0)*Power(xij,2.0) +
1685 17.0*Power(rij,4.0)*Power(xij,4.0)) -
1686 1260.0*rij*Power(xii,17.0)*Power(xij,4.0)*
1687 (141729.0 - 10145.0*Power(rij,2.0)*Power(xij,2.0) +
1688 116.0*Power(rij,4.0)*Power(xij,4.0)) +
1689 21.0*rij*Power(xii,9.0)*Power(xij,12.0)*
1690 (164775.0 - 18460.0*Power(rij,2.0)*Power(xij,2.0) +
1691 828.0*Power(rij,4.0)*Power(xij,4.0)) +
1692 14.0*Power(xii,6.0)*Power(xij,14.0)*
1693 (-40950.0 + 14175.0*Power(rij,2.0)*Power(xij,2.0) -
1694 450.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
1695 210.0*Power(xii,8.0)*Power(xij,12.0)*
1696 (-8190.0 + 4095.0*Power(rij,2.0)*Power(xij,2.0) -
1697 210.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
1698 42.0*Power(xii,10.0)*Power(xij,10.0)*
1699 (-209430.0 - 2925.0*Power(rij,2.0)*Power(xij,2.0) -
1700 8840.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
1701 rij*Power(xii,7.0)*Power(xij,14.0)*
1702 (-1003275.0 + 110250.0*Power(rij,2.0)*Power(xij,2.0) -
1703 1890.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
1704 21.0*rij*Power(xii,11.0)*Power(xij,10.0)*
1705 (-1033695.0 - 218400.0*Power(rij,2.0)*Power(xij,2.0) +
1706 552.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
1707 280.0*Power(xii,18.0)*Power(xij,2.0)*
1708 (-385560.0 - 73953.0*Power(rij,2.0)*Power(xij,2.0) +
1709 2370.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
1710 35.0*rij*Power(xii,15.0)*Power(xij,6.0)*
1711 (-1565613.0 + 359520.0*Power(rij,2.0)*Power(xij,2.0) -
1712 7020.0*Power(rij,4.0)*Power(xij,4.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
1713 14.0*rij*Power(xii,19.0)*Power(xij,2.0)*
1714 (-4980150.0 + 126765.0*Power(rij,2.0)*Power(xij,2.0) -
1715 3852.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
1716 630.0*Power(xii,14.0)*Power(xij,6.0)*
1717 (708714.0 - 14385.0*Power(rij,2.0)*Power(xij,2.0) -
1718 2340.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) +
1719 210.0*Power(xii,16.0)*Power(xij,4.0)*
1720 (-2087532.0 + 328491.0*Power(rij,2.0)*Power(xij,2.0) -
1721 11740.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) -
1722 84.0*Power(xii,20.0)*(59670.0 + 236250.0*Power(rij,2.0)*Power(xij,2.0) -
1723 8745.0*Power(rij,4.0)*Power(xij,4.0) + 92.0*Power(rij,6.0)*Power(xij,6.0)) -
1724 2.0*rij*Power(xii,21.0)*(1949220.0 + 1598625.0*Power(rij,2.0)*Power(xij,2.0) -
1725 41391.0*Power(rij,4.0)*Power(xij,4.0) + 128.0*Power(rij,6.0)*Power(xij,6.0)) \
1726 + rij*Power(xii,13.0)*Power(xij,8.0)*
1727 (173037375.0 - 2784600.0*Power(rij,2.0)*Power(xij,2.0) -
1728 112140.0*Power(rij,4.0)*Power(xij,4.0) + 256.0*Power(rij,6.0)*Power(xij,6.0)) \
1729 + 14.0*Power(xii,12.0)*Power(xij,8.0)*
1730 (-7260750.0 - 2521935.0*Power(rij,2.0)*Power(xij,2.0) +
1731 19500.0*Power(rij,4.0)*Power(xij,4.0) + 344.0*Power(rij,6.0)*Power(xij,6.0))) \
1732 + Power(E,2.0*rij*xii)*Power(xii,10.0)*
1733 (210.0*Power(xii,2.0)*Power(xij,18.0)*
1734 (514080.0 + 332010.0*rij*xij + 94500.0*Power(rij,2.0)*Power(xij,2.0) +
1735 15225.0*Power(rij,3.0)*Power(xij,3.0) +
1736 1470.0*Power(rij,4.0)*Power(xij,4.0) + 81.0*Power(rij,5.0)*Power(xij,5.0) +
1737 2.0*Power(rij,6.0)*Power(xij,6.0)) +
1738 105.0*Power(xii,18.0)*Power(xij,2.0)*
1739 (180.0 + 315.0*rij*xij + 270.0*Power(rij,2.0)*Power(xij,2.0) +
1740 150.0*Power(rij,3.0)*Power(xij,3.0) + 60.0*Power(rij,4.0)*Power(xij,4.0) +
1741 18.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
1742 1365.0*Power(xii,10.0)*Power(xij,10.0)*
1743 (-6444.0 + 15903.0*rij*xij - 25866.0*Power(rij,2.0)*Power(xij,2.0) -
1744 2040.0*Power(rij,3.0)*Power(xij,3.0) + 1080.0*Power(rij,4.0)*Power(xij,4.0) +
1745 180.0*Power(rij,5.0)*Power(xij,5.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
1746 Power(xii,14.0)*Power(xij,6.0)*
1747 (573300.0 + 1003275.0*rij*xij + 859950.0*Power(rij,2.0)*Power(xij,2.0) +
1748 387660.0*Power(rij,3.0)*Power(xij,3.0) +
1749 371280.0*Power(rij,4.0)*Power(xij,4.0) +
1750 11592.0*Power(rij,5.0)*Power(xij,5.0) -
1751 4816.0*Power(rij,6.0)*Power(xij,6.0) - 256.0*Power(rij,7.0)*Power(xij,7.0)) +
1752 2.0*Power(xij,20.0)*(2506140.0 + 1949220.0*rij*xij +
1753 687960.0*Power(rij,2.0)*Power(xij,2.0) +
1754 143325.0*Power(rij,3.0)*Power(xij,3.0) +
1755 19110.0*Power(rij,4.0)*Power(xij,4.0) +
1756 1638.0*Power(rij,5.0)*Power(xij,5.0) + 84.0*Power(rij,6.0)*Power(xij,6.0) +
1757 2.0*Power(rij,7.0)*Power(xij,7.0)) -
1758 42.0*Power(xii,4.0)*Power(xij,16.0)*
1759 (-10437660.0 - 4251870.0*rij*xij - 493020.0*Power(rij,2.0)*Power(xij,2.0) +
1760 42255.0*Power(rij,3.0)*Power(xij,3.0) +
1761 17490.0*Power(rij,4.0)*Power(xij,4.0) +
1762 1971.0*Power(rij,5.0)*Power(xij,5.0) + 102.0*Power(rij,6.0)*Power(xij,6.0) +
1763 2.0*Power(rij,7.0)*Power(xij,7.0)) +
1764 21.0*Power(xii,16.0)*Power(xij,4.0)*
1765 (-6300.0 - 11025.0*rij*xij - 9450.0*Power(rij,2.0)*Power(xij,2.0) -
1766 5250.0*Power(rij,3.0)*Power(xij,3.0) - 2100.0*Power(rij,4.0)*Power(xij,4.0) -
1767 828.0*Power(rij,5.0)*Power(xij,5.0) - 8.0*Power(rij,6.0)*Power(xij,6.0) +
1768 4.0*Power(rij,7.0)*Power(xij,7.0)) -
1769 Power(xii,20.0)*(1260.0 + 2205.0*rij*xij +
1770 1890.0*Power(rij,2.0)*Power(xij,2.0) + 1050.0*Power(rij,3.0)*Power(xij,3.0) +
1771 420.0*Power(rij,4.0)*Power(xij,4.0) + 126.0*Power(rij,5.0)*Power(xij,5.0) +
1772 28.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) -
1773 35.0*Power(xii,8.0)*Power(xij,12.0)*
1774 (-2904300.0 + 4943925.0*rij*xij + 258930.0*Power(rij,2.0)*Power(xij,2.0) -
1775 359520.0*Power(rij,3.0)*Power(xij,3.0) -
1776 70440.0*Power(rij,4.0)*Power(xij,4.0) -
1777 4176.0*Power(rij,5.0)*Power(xij,5.0) + 32.0*Power(rij,6.0)*Power(xij,6.0) +
1778 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1779 35.0*Power(xii,12.0)*Power(xij,8.0)*
1780 (-49140.0 - 98865.0*rij*xij + 3510.0*Power(rij,2.0)*Power(xij,2.0) -
1781 131040.0*Power(rij,3.0)*Power(xij,3.0) -
1782 7800.0*Power(rij,4.0)*Power(xij,4.0) + 3204.0*Power(rij,5.0)*Power(xij,5.0) +
1783 360.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,7.0)*Power(xij,7.0)) +
1784 Power(xii,6.0)*Power(xij,14.0)*
1785 (446489820.0 - 54796455.0*rij*xij - 68983110.0*Power(rij,2.0)*Power(xij,2.0) -
1786 12782700.0*Power(rij,3.0)*Power(xij,3.0) -
1787 663600.0*Power(rij,4.0)*Power(xij,4.0) +
1788 53928.0*Power(rij,5.0)*Power(xij,5.0) + 7728.0*Power(rij,6.0)*Power(xij,6.0) +
1789 256.0*Power(rij,7.0)*Power(xij,7.0))))/
1790 (1260.*Power(E,2.0*rij*(xii + xij))*rij*Power(Power(xii,2.0) - Power(xij,2.0),15.0))
1791 ;
1792 }
1793 return S;
1794 }
1795
1796 static double Slater_4S_5S(double rij,double xij,double xii)
1797 {
1798 double S;
1799
1800 if (xii == xij) {
1801 S = (-14227497123840000.0 + 14227497123840000.0*Power(E,2.0*rij*xii) -
1802 25913502934444125.0*rij*xii -
1803 23372011621208250.0*Power(rij,2.0)*Power(xii,2.0) -
1804 13907709869303250.0*Power(rij,3.0)*Power(xii,3.0) -
1805 6137735659555500.0*Power(rij,4.0)*Power(xii,4.0) -
1806 2140857388870200.0*Power(rij,5.0)*Power(xii,5.0) -
1807 614116575072000.0*Power(rij,6.0)*Power(xii,6.0) -
1808 148809580920000.0*Power(rij,7.0)*Power(xii,7.0) -
1809 31036639233600.0*Power(rij,8.0)*Power(xii,8.0) -
1810 5645342102400.0*Power(rij,9.0)*Power(xii,9.0) -
1811 903333150720.0*Power(rij,10.0)*Power(xii,10.0) -
1812 127744081920.0*Power(rij,11.0)*Power(xii,11.0) -
1813 15968010240.0*Power(rij,12.0)*Power(xii,12.0) -
1814 1754726400.0*Power(rij,13.0)*Power(xii,13.0) -
1815 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
1816 13369344.0*Power(rij,15.0)*Power(xii,15.0) -
1817 835584.0*Power(rij,16.0)*Power(xii,16.0) - 32768.0*Power(rij,17.0)*Power(xii,17.0))/
1818 (1.422749712384e16*Power(E,2.0*rij*xii)*rij)
1819 ;
1820 }
1821 else {
1822 S = (56700.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
1823 9.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
1824 (-980.0*Power(rij,6.0)*Power(xii,28.0) - 20.0*Power(rij,7.0)*Power(xii,29.0) +
1825 6300.0*Power(xij,22.0) + 11025.0*rij*xii*Power(xij,22.0) -
1826 50.0*Power(rij,5.0)*Power(xii,27.0)*(441.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
1827 3150.0*Power(xii,2.0)*Power(xij,20.0)*
1828 (-34.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) +
1829 525.0*rij*Power(xii,3.0)*Power(xij,20.0)*
1830 (-357.0 + 10.0*Power(rij,2.0)*Power(xij,2.0)) -
1831 420.0*Power(rij,4.0)*Power(xii,26.0)*
1832 (700.0 + 19.0*Power(rij,2.0)*Power(xij,2.0)) +
1833 1050.0*Power(xii,4.0)*Power(xij,18.0)*
1834 (816.0 - 153.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
1835 + 210.0*rij*Power(xii,5.0)*Power(xij,18.0)*
1836 (7140.0 - 425.0*Power(rij,2.0)*Power(xij,2.0) +
1837 3.0*Power(rij,4.0)*Power(xij,4.0)) +
1838 42.0*Power(rij,3.0)*Power(xii,25.0)*
1839 (-59500.0 - 6035.0*Power(rij,2.0)*Power(xij,2.0) +
1840 18.0*Power(rij,4.0)*Power(xij,4.0)) +
1841 84.0*Power(rij,2.0)*Power(xii,24.0)*
1842 (-160650.0 - 52700.0*Power(rij,2.0)*Power(xij,2.0) +
1843 397.0*Power(rij,4.0)*Power(xij,4.0)) -
1844 28.0*Power(xii,12.0)*Power(xij,10.0)*
1845 (100849950.0 + 27100125.0*Power(rij,2.0)*Power(xij,2.0) +
1846 186150.0*Power(rij,4.0)*Power(xij,4.0) - 2177.0*Power(rij,6.0)*Power(xij,6.0)\
1847 ) + 140.0*Power(xii,6.0)*Power(xij,16.0)*
1848 (-30600.0 + 9180.0*Power(rij,2.0)*Power(xij,2.0) -
1849 255.0*Power(rij,4.0)*Power(xij,4.0) + Power(rij,6.0)*Power(xij,6.0)) -
1850 2380.0*Power(xii,8.0)*Power(xij,14.0)*
1851 (-6300.0 + 2700.0*Power(rij,2.0)*Power(xij,2.0) -
1852 120.0*Power(rij,4.0)*Power(xij,4.0) + Power(rij,6.0)*Power(xij,6.0)) +
1853 10.0*rij*Power(xii,7.0)*Power(xij,16.0)*
1854 (-749700.0 + 71400.0*Power(rij,2.0)*Power(xij,2.0) -
1855 1071.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
1856 204.0*rij*Power(xii,15.0)*Power(xij,8.0)*
1857 (28962255.0 - 1744750.0*Power(rij,2.0)*Power(xij,2.0) +
1858 9555.0*Power(rij,4.0)*Power(xij,4.0) + 6.0*Power(rij,6.0)*Power(xij,6.0)) -
1859 42.0*rij*Power(xii,11.0)*Power(xij,12.0)*
1860 (-12911925.0 - 1634550.0*Power(rij,2.0)*Power(xij,2.0) -
1861 7103.0*Power(rij,4.0)*Power(xij,4.0) + 18.0*Power(rij,6.0)*Power(xij,6.0)) +
1862 2.0*rij*Power(xii,9.0)*Power(xij,14.0)*
1863 (16948575.0 - 1184400.0*Power(rij,2.0)*Power(xij,2.0) +
1864 63861.0*Power(rij,4.0)*Power(xij,4.0) + 50.0*Power(rij,6.0)*Power(xij,6.0)) +
1865 28.0*Power(xii,22.0)*(-2180250.0 - 10993050.0*Power(rij,2.0)*Power(xij,2.0) +
1866 14925.0*Power(rij,4.0)*Power(xij,4.0) + 73.0*Power(rij,6.0)*Power(xij,6.0)) -
1867 952.0*Power(xii,14.0)*Power(xij,8.0)*
1868 (16966215.0 + 725175.0*Power(rij,2.0)*Power(xij,2.0) -
1869 36075.0*Power(rij,4.0)*Power(xij,4.0) + 79.0*Power(rij,6.0)*Power(xij,6.0)) -
1870 84.0*Power(xii,10.0)*Power(xij,12.0)*
1871 (1723800.0 + 279225.0*Power(rij,2.0)*Power(xij,2.0) +
1872 45600.0*Power(rij,4.0)*Power(xij,4.0) + 107.0*Power(rij,6.0)*Power(xij,6.0)) \
1873 - 35.0*rij*Power(xii,17.0)*Power(xij,6.0)*
1874 (132637869.0 - 2205240.0*Power(rij,2.0)*Power(xij,2.0) -
1875 48348.0*Power(rij,4.0)*Power(xij,4.0) + 136.0*Power(rij,6.0)*Power(xij,6.0)) \
1876 - 6.0*rij*Power(xii,21.0)*Power(xij,2.0)*
1877 (192298050.0 + 12644275.0*Power(rij,2.0)*Power(xij,2.0) -
1878 218029.0*Power(rij,4.0)*Power(xij,4.0) + 204.0*Power(rij,6.0)*Power(xij,6.0)) \
1879 + 4.0*rij*Power(xii,13.0)*Power(xij,10.0)*
1880 (1259522775.0 + 15895425.0*Power(rij,2.0)*Power(xij,2.0) -
1881 493017.0*Power(rij,4.0)*Power(xij,4.0) + 263.0*Power(rij,6.0)*Power(xij,6.0)) \
1882 - 140.0*Power(xii,16.0)*Power(xij,6.0)*
1883 (180826281.0 - 15101406.0*Power(rij,2.0)*Power(xij,2.0) +
1884 160140.0*Power(rij,4.0)*Power(xij,4.0) + 442.0*Power(rij,6.0)*Power(xij,6.0)) \
1885 - 2.0*rij*Power(xii,23.0)*(21366450.0 + 23526300.0*Power(rij,2.0)*Power(xij,2.0) -
1886 246729.0*Power(rij,4.0)*Power(xij,4.0) + 526.0*Power(rij,6.0)*Power(xij,6.0)) \
1887 + 7.0*rij*Power(xii,19.0)*Power(xij,4.0)*
1888 (-811081215.0 + 39095550.0*Power(rij,2.0)*Power(xij,2.0) -
1889 515916.0*Power(rij,4.0)*Power(xij,4.0) + 680.0*Power(rij,6.0)*Power(xij,6.0)) \
1890 + 70.0*Power(xii,18.0)*Power(xij,4.0)*
1891 (-180554454.0 + 9873711.0*Power(rij,2.0)*Power(xij,2.0) -
1892 414120.0*Power(rij,4.0)*Power(xij,4.0) + 2924.0*Power(rij,6.0)*Power(xij,6.0)\
1893 ) - 14.0*Power(xii,20.0)*Power(xij,2.0)*
1894 (136919700.0 + 71867115.0*Power(rij,2.0)*Power(xij,2.0) -
1895 2154150.0*Power(rij,4.0)*Power(xij,4.0) +
1896 10268.0*Power(rij,6.0)*Power(xij,6.0))) -
1897 4.0*Power(E,2.0*rij*xii)*Power(xii,10.0)*
1898 (-10710.0*Power(xii,12.0)*Power(xij,12.0)*
1899 (-3555.0 - 127008.0*rij*xij + 138384.0*Power(rij,2.0)*Power(xij,2.0) -
1900 74556.0*Power(rij,3.0)*Power(xij,3.0) -
1901 22284.0*Power(rij,4.0)*Power(xij,4.0) + 408.0*Power(rij,5.0)*Power(xij,5.0) +
1902 576.0*Power(rij,6.0)*Power(xij,6.0) + 60.0*Power(rij,7.0)*Power(xij,7.0) +
1903 2.0*Power(rij,8.0)*Power(xij,8.0)) +
1904 2.0*Power(xii,20.0)*Power(xij,4.0)*
1905 (963900.0 + 1735020.0*rij*xij + 1542240.0*Power(rij,2.0)*Power(xij,2.0) +
1906 899640.0*Power(rij,3.0)*Power(xij,3.0) +
1907 385560.0*Power(rij,4.0)*Power(xij,4.0) +
1908 128520.0*Power(rij,5.0)*Power(xij,5.0) +
1909 34272.0*Power(rij,6.0)*Power(xij,6.0) +
1910 9126.0*Power(rij,7.0)*Power(xij,7.0) + 333.0*Power(rij,8.0)*Power(xij,8.0) -
1911 20.0*Power(rij,9.0)*Power(xij,9.0)) -
1912 2.0*Power(xij,24.0)*(119041650.0 + 107137485.0*rij*xij +
1913 45110520.0*Power(rij,2.0)*Power(xij,2.0) +
1914 11695320.0*Power(rij,3.0)*Power(xij,3.0) +
1915 2063880.0*Power(rij,4.0)*Power(xij,4.0) +
1916 257985.0*Power(rij,5.0)*Power(xij,5.0) +
1917 22932.0*Power(rij,6.0)*Power(xij,6.0) +
1918 1404.0*Power(rij,7.0)*Power(xij,7.0) + 54.0*Power(rij,8.0)*Power(xij,8.0) +
1919 Power(rij,9.0)*Power(xij,9.0)) +
1920 2.0*Power(xii,2.0)*Power(xij,22.0)*
1921 (-3264488325.0 - 2505368880.0*rij*xij -
1922 881390160.0*Power(rij,2.0)*Power(xij,2.0) -
1923 185775660.0*Power(rij,3.0)*Power(xij,3.0) -
1924 25639740.0*Power(rij,4.0)*Power(xij,4.0) -
1925 2361555.0*Power(rij,5.0)*Power(xij,5.0) -
1926 139356.0*Power(rij,6.0)*Power(xij,6.0) -
1927 4482.0*Power(rij,7.0)*Power(xij,7.0) - 27.0*Power(rij,8.0)*Power(xij,8.0) +
1928 2.0*Power(rij,9.0)*Power(xij,9.0)) +
1929 Power(xii,24.0)*(14175.0 + 25515.0*rij*xij +
1930 22680.0*Power(rij,2.0)*Power(xij,2.0) +
1931 13230.0*Power(rij,3.0)*Power(xij,3.0) +
1932 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
1933 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
1934 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
1935 102.0*Power(xii,10.0)*Power(xij,14.0)*
1936 (44986725.0 - 97433280.0*rij*xij + 44467920.0*Power(rij,2.0)*Power(xij,2.0) +
1937 15857100.0*Power(rij,3.0)*Power(xij,3.0) -
1938 457380.0*Power(rij,4.0)*Power(xij,4.0) -
1939 620550.0*Power(rij,5.0)*Power(xij,5.0) -
1940 83160.0*Power(rij,6.0)*Power(xij,6.0) -
1941 4068.0*Power(rij,7.0)*Power(xij,7.0) - 6.0*Power(rij,8.0)*Power(xij,8.0) +
1942 4.0*Power(rij,9.0)*Power(xij,9.0)) +
1943 102.0*Power(xii,14.0)*Power(xij,10.0)*
1944 (-859950.0 - 1437345.0*rij*xij - 2260440.0*Power(rij,2.0)*Power(xij,2.0) +
1945 810810.0*Power(rij,3.0)*Power(xij,3.0) -
1946 1056510.0*Power(rij,4.0)*Power(xij,4.0) -
1947 217854.0*Power(rij,5.0)*Power(xij,5.0) +
1948 6552.0*Power(rij,6.0)*Power(xij,6.0) + 3852.0*Power(rij,7.0)*Power(xij,7.0) +
1949 258.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) -
1950 Power(xii,22.0)*Power(xij,2.0)*
1951 (240975.0 + 433755.0*rij*xij + 385560.0*Power(rij,2.0)*Power(xij,2.0) +
1952 224910.0*Power(rij,3.0)*Power(xij,3.0) +
1953 96390.0*Power(rij,4.0)*Power(xij,4.0) +
1954 32130.0*Power(rij,5.0)*Power(xij,5.0) +
1955 8568.0*Power(rij,6.0)*Power(xij,6.0) + 1836.0*Power(rij,7.0)*Power(xij,7.0) +
1956 306.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) +
1957 2.0*Power(xii,4.0)*Power(xij,20.0)*
1958 (-18032978565.0 - 9823683240.0*rij*xij -
1959 2047323600.0*Power(rij,2.0)*Power(xij,2.0) -
1960 129098340.0*Power(rij,3.0)*Power(xij,3.0) +
1961 26410860.0*Power(rij,4.0)*Power(xij,4.0) +
1962 7094304.0*Power(rij,5.0)*Power(xij,5.0) +
1963 788256.0*Power(rij,6.0)*Power(xij,6.0) +
1964 48654.0*Power(rij,7.0)*Power(xij,7.0) +
1965 1593.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0)) -
1966 6.0*Power(xii,16.0)*Power(xij,8.0)*
1967 (-5622750.0 - 10120950.0*rij*xij - 8996400.0*Power(rij,2.0)*Power(xij,2.0) -
1968 5698350.0*Power(rij,3.0)*Power(xij,3.0) -
1969 897750.0*Power(rij,4.0)*Power(xij,4.0) -
1970 1641591.0*Power(rij,5.0)*Power(xij,5.0) -
1971 211932.0*Power(rij,6.0)*Power(xij,6.0) +
1972 10224.0*Power(rij,7.0)*Power(xij,7.0) +
1973 2364.0*Power(rij,8.0)*Power(xij,8.0) + 73.0*Power(rij,9.0)*Power(xij,9.0)) +
1974 2.0*Power(xii,18.0)*Power(xij,6.0)*
1975 (-4819500.0 - 8675100.0*rij*xij - 7711200.0*Power(rij,2.0)*Power(xij,2.0) -
1976 4498200.0*Power(rij,3.0)*Power(xij,3.0) -
1977 1927800.0*Power(rij,4.0)*Power(xij,4.0) -
1978 561519.0*Power(rij,5.0)*Power(xij,5.0) -
1979 279468.0*Power(rij,6.0)*Power(xij,6.0) -
1980 20682.0*Power(rij,7.0)*Power(xij,7.0) +
1981 1305.0*Power(rij,8.0)*Power(xij,8.0) + 106.0*Power(rij,9.0)*Power(xij,9.0)) +
1982 3.0*Power(xii,8.0)*Power(xij,16.0)*
1983 (-9364244085.0 + 6940428705.0*rij*xij +
1984 2117684520.0*Power(rij,2.0)*Power(xij,2.0) -
1985 230268150.0*Power(rij,3.0)*Power(xij,3.0) -
1986 149610510.0*Power(rij,4.0)*Power(xij,4.0) -
1987 21824334.0*Power(rij,5.0)*Power(xij,5.0) -
1988 1223208.0*Power(rij,6.0)*Power(xij,6.0) +
1989 12708.0*Power(rij,7.0)*Power(xij,7.0) +
1990 4470.0*Power(rij,8.0)*Power(xij,8.0) + 146.0*Power(rij,9.0)*Power(xij,9.0)) -
1991 Power(xii,6.0)*Power(xij,18.0)*
1992 (57304872765.0 + 7147185255.0*rij*xij -
1993 5801702760.0*Power(rij,2.0)*Power(xij,2.0) -
1994 2053388610.0*Power(rij,3.0)*Power(xij,3.0) -
1995 271655370.0*Power(rij,4.0)*Power(xij,4.0) -
1996 10864854.0*Power(rij,5.0)*Power(xij,5.0) +
1997 1337112.0*Power(rij,6.0)*Power(xij,6.0) +
1998 202716.0*Power(rij,7.0)*Power(xij,7.0) +
1999 10746.0*Power(rij,8.0)*Power(xij,8.0) + 212.0*Power(rij,9.0)*Power(xij,9.0))))/
2000 (56700.*Power(E,2.0*rij*(xii + xij))*rij*
2001 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
2002 ;
2003 }
2004 return S;
2005 }
2006
2007 static double Slater_4S_6S(double rij,double xij,double xii)
2008 {
2009 double S;
2010
2011 if (xii == xij) {
2012 S = (-2919482409811968000.0 + 2919482409811968000.0*Power(E,2.0*rij*xii) -
2013 5378825373422626125.0*rij*xii -
2014 4918685927221316250.0*Power(rij,2.0)*Power(xii,2.0) -
2015 2974825584766035000.0*Power(rij,3.0)*Power(xii,3.0) -
2016 1337724873111627000.0*Power(rij,4.0)*Power(xii,4.0) -
2017 476688322649038500.0*Power(rij,5.0)*Power(xii,5.0) -
2018 140080945989184200.0*Power(rij,6.0)*Power(xii,6.0) -
2019 34878402537778800.0*Power(rij,7.0)*Power(xii,7.0) -
2020 7501749557702400.0*Power(rij,8.0)*Power(xii,8.0) -
2021 1413711970070400.0*Power(rij,9.0)*Power(xii,9.0) -
2022 235878458175360.0*Power(rij,10.0)*Power(xii,10.0) -
2023 35103763618560.0*Power(rij,11.0)*Power(xii,11.0) -
2024 4680908144640.0*Power(rij,12.0)*Power(xii,12.0) -
2025 560108666880.0*Power(rij,13.0)*Power(xii,13.0) -
2026 60011642880.0*Power(rij,14.0)*Power(xii,14.0) -
2027 5715394560.0*Power(rij,15.0)*Power(xii,15.0) -
2028 476282880.0*Power(rij,16.0)*Power(xii,16.0) -
2029 33619968.0*Power(rij,17.0)*Power(xii,17.0) -
2030 1867776.0*Power(rij,18.0)*Power(xii,18.0) - 65536.0*Power(rij,19.0)*Power(xii,19.0))/
2031 (2.919482409811968e18*Power(E,2.0*rij*xii)*rij)
2032 ;
2033 }
2034 else {
2035 S = (1871100.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
2036 495.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
2037 (-672.0*Power(rij,6.0)*Power(xii,30.0) - 12.0*Power(rij,7.0)*Power(xii,31.0) +
2038 3780.0*Power(xij,24.0) + 6615.0*rij*xii*Power(xij,24.0) -
2039 136.0*Power(rij,5.0)*Power(xii,29.0)*(126.0 + Power(rij,2.0)*Power(xij,2.0)) +
2040 1890.0*Power(xii,2.0)*Power(xij,22.0)*
2041 (-38.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) +
2042 315.0*rij*Power(xii,3.0)*Power(xij,22.0)*
2043 (-399.0 + 10.0*Power(rij,2.0)*Power(xij,2.0)) -
2044 84.0*Power(rij,4.0)*Power(xii,28.0)*
2045 (3060.0 + 121.0*Power(rij,2.0)*Power(xij,2.0)) +
2046 630.0*Power(xii,4.0)*Power(xij,20.0)*
2047 (1026.0 - 171.0*Power(rij,2.0)*Power(xij,2.0) +
2048 2.0*Power(rij,4.0)*Power(xij,4.0)) +
2049 63.0*rij*Power(xii,5.0)*Power(xij,20.0)*
2050 (17955.0 - 950.0*Power(rij,2.0)*Power(xij,2.0) +
2051 6.0*Power(rij,4.0)*Power(xij,4.0)) +
2052 84.0*Power(rij,2.0)*Power(xii,26.0)*
2053 (-174420.0 - 71535.0*Power(rij,2.0)*Power(xij,2.0) +
2054 179.0*Power(rij,4.0)*Power(xij,4.0)) -
2055 63.0*rij*Power(xii,19.0)*Power(xij,6.0)*
2056 (468377895.0 - 14898090.0*Power(rij,2.0)*Power(xij,2.0) +
2057 78812.0*Power(rij,4.0)*Power(xij,4.0)) +
2058 Power(xii,27.0)*(-2441880.0*Power(rij,3.0) -
2059 327978.0*Power(rij,5.0)*Power(xij,2.0) + 496.0*Power(rij,7.0)*Power(xij,4.0)) \
2060 + 2.0*rij*Power(xii,11.0)*Power(xij,14.0)*
2061 (613624095.0 + 56366730.0*Power(rij,2.0)*Power(xij,2.0) +
2062 383607.0*Power(rij,4.0)*Power(xij,4.0) - 248.0*Power(rij,6.0)*Power(xij,6.0)) \
2063 + 42.0*Power(xii,6.0)*Power(xij,18.0)*
2064 (-87210.0 + 23085.0*Power(rij,2.0)*Power(xij,2.0) -
2065 570.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
2066 798.0*Power(xii,8.0)*Power(xij,16.0)*
2067 (-18360.0 + 6885.0*Power(rij,2.0)*Power(xij,2.0) -
2068 270.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
2069 3.0*rij*Power(xii,7.0)*Power(xij,18.0)*
2070 (-2136645.0 + 179550.0*Power(rij,2.0)*Power(xij,2.0) -
2071 2394.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
2072 1596.0*Power(xii,14.0)*Power(xij,10.0)*
2073 (-34484670.0 - 2408985.0*Power(rij,2.0)*Power(xij,2.0) +
2074 32810.0*Power(rij,4.0)*Power(xij,4.0) + 22.0*Power(rij,6.0)*Power(xij,6.0)) -
2075 7980.0*Power(xii,16.0)*Power(xij,8.0)*
2076 (15696909.0 - 494343.0*Power(rij,2.0)*Power(xij,2.0) -
2077 4182.0*Power(rij,4.0)*Power(xij,4.0) + 34.0*Power(rij,6.0)*Power(xij,6.0)) +
2078 2.0*rij*Power(xii,9.0)*Power(xij,16.0)*
2079 (19433295.0 - 690795.0*Power(rij,2.0)*Power(xij,2.0) +
2080 55251.0*Power(rij,4.0)*Power(xij,4.0) + 68.0*Power(rij,6.0)*Power(xij,6.0)) +
2081 6.0*rij*Power(xii,25.0)*(-8546580.0 -
2082 11329605.0*Power(rij,2.0)*Power(xij,2.0) -
2083 24003.0*Power(rij,4.0)*Power(xij,4.0) + 92.0*Power(rij,6.0)*Power(xij,6.0)) -
2084 6.0*rij*Power(xii,13.0)*Power(xij,12.0)*
2085 (-2361196215.0 - 54738810.0*Power(rij,2.0)*Power(xij,2.0) +
2086 388626.0*Power(rij,4.0)*Power(xij,4.0) + 92.0*Power(rij,6.0)*Power(xij,6.0)) \
2087 + 38.0*rij*Power(xii,15.0)*Power(xij,10.0)*
2088 (808181955.0 - 17168130.0*Power(rij,2.0)*Power(xij,2.0) -
2089 32130.0*Power(rij,4.0)*Power(xij,4.0) + 106.0*Power(rij,6.0)*Power(xij,6.0)) \
2090 - 84.0*Power(xii,10.0)*Power(xij,14.0)*
2091 (3168630.0 + 683145.0*Power(rij,2.0)*Power(xij,2.0) +
2092 54315.0*Power(rij,4.0)*Power(xij,4.0) + 193.0*Power(rij,6.0)*Power(xij,6.0)) \
2093 - 19.0*rij*Power(xii,17.0)*Power(xij,8.0)*
2094 (-2525985.0 + 33479460.0*Power(rij,2.0)*Power(xij,2.0) -
2095 406980.0*Power(rij,4.0)*Power(xij,4.0) + 272.0*Power(rij,6.0)*Power(xij,6.0)) \
2096 + 84.0*Power(xii,12.0)*Power(xij,12.0)*
2097 (-88925130.0 - 19869345.0*Power(rij,2.0)*Power(xij,2.0) -
2098 235790.0*Power(rij,4.0)*Power(xij,4.0) + 643.0*Power(rij,6.0)*Power(xij,6.0)) \
2099 + 210.0*Power(xii,18.0)*Power(xij,6.0)*
2100 (-496605582.0 + 32638599.0*Power(rij,2.0)*Power(xij,2.0) -
2101 564604.0*Power(rij,4.0)*Power(xij,4.0) + 1292.0*Power(rij,6.0)*Power(xij,6.0)\
2102 ) + 42.0*Power(xii,20.0)*Power(xij,4.0)*
2103 (-777723210.0 - 46394505.0*Power(rij,2.0)*Power(xij,2.0) +
2104 625670.0*Power(rij,4.0)*Power(xij,4.0) + 1292.0*Power(rij,6.0)*Power(xij,6.0)\
2105 ) + 42.0*Power(xii,24.0)*(-1918620.0 - 11344995.0*Power(rij,2.0)*Power(xij,2.0) -
2106 323070.0*Power(rij,4.0)*Power(xij,4.0) + 2114.0*Power(rij,6.0)*Power(xij,6.0)\
2107 ) - rij*Power(xii,23.0)*Power(xij,2.0)*
2108 (1919335635.0 + 275096430.0*Power(rij,2.0)*Power(xij,2.0) -
2109 3302586.0*Power(rij,4.0)*Power(xij,4.0) +
2110 4028.0*Power(rij,6.0)*Power(xij,6.0)) +
2111 rij*Power(xii,21.0)*Power(xij,4.0)*
2112 (-14708379735.0 + 255168270.0*Power(rij,2.0)*Power(xij,2.0) -
2113 2899134.0*Power(rij,4.0)*Power(xij,4.0) +
2114 5168.0*Power(rij,6.0)*Power(xij,6.0)) -
2115 42.0*Power(xii,22.0)*Power(xij,2.0)*
2116 (81654210.0 + 66273255.0*Power(rij,2.0)*Power(xij,2.0) -
2117 1203870.0*Power(rij,4.0)*Power(xij,4.0) + 5206.0*Power(rij,6.0)*Power(xij,6.0)\
2118 )) - 2.0*Power(E,2.0*rij*xii)*Power(xii,10.0)*
2119 (21318.0*Power(xii,14.0)*Power(xij,14.0)*
2120 (-3146850.0 + 4890375.0*rij*xij - 24522750.0*Power(rij,2.0)*Power(xij,2.0) +
2121 12162150.0*Power(rij,3.0)*Power(xij,3.0) -
2122 1549800.0*Power(rij,4.0)*Power(xij,4.0) -
2123 1615950.0*Power(rij,5.0)*Power(xij,5.0) -
2124 185220.0*Power(rij,6.0)*Power(xij,6.0) +
2125 12240.0*Power(rij,7.0)*Power(xij,7.0) +
2126 3960.0*Power(rij,8.0)*Power(xij,8.0) + 300.0*Power(rij,9.0)*Power(xij,9.0) +
2127 8.0*Power(rij,10.0)*Power(xij,10.0)) +
2128 3.0*Power(xii,24.0)*Power(xij,4.0)*
2129 (53326350.0 + 97764975.0*rij*xij + 88877250.0*Power(rij,2.0)*Power(xij,2.0) +
2130 53326350.0*Power(rij,3.0)*Power(xij,3.0) +
2131 23700600.0*Power(rij,4.0)*Power(xij,4.0) +
2132 8295210.0*Power(rij,5.0)*Power(xij,5.0) +
2133 2370060.0*Power(rij,6.0)*Power(xij,6.0) +
2134 564300.0*Power(rij,7.0)*Power(xij,7.0) +
2135 112860.0*Power(rij,8.0)*Power(xij,8.0) +
2136 22440.0*Power(rij,9.0)*Power(xij,9.0) +
2137 1056.0*Power(rij,10.0)*Power(xij,10.0) - 20.0*Power(rij,11.0)*Power(xij,11.0)) \
2138 - 4.0*Power(xij,28.0)*(13749310575.0 + 13749310575.0*rij*xij +
2139 6547290750.0*Power(rij,2.0)*Power(xij,2.0) +
2140 1964187225.0*Power(rij,3.0)*Power(xij,3.0) +
2141 413513100.0*Power(rij,4.0)*Power(xij,4.0) +
2142 64324260.0*Power(rij,5.0)*Power(xij,5.0) +
2143 7567560.0*Power(rij,6.0)*Power(xij,6.0) +
2144 675675.0*Power(rij,7.0)*Power(xij,7.0) +
2145 45045.0*Power(rij,8.0)*Power(xij,8.0) +
2146 2145.0*Power(rij,9.0)*Power(xij,9.0) + 66.0*Power(rij,10.0)*Power(xij,10.0) +
2147 Power(rij,11.0)*Power(xij,11.0)) -
2148 1254.0*Power(xii,16.0)*Power(xij,12.0)*
2149 (-20241900.0 - 38315025.0*rij*xij -
2150 21687750.0*Power(rij,2.0)*Power(xij,2.0) -
2151 50122800.0*Power(rij,3.0)*Power(xij,3.0) +
2152 14137200.0*Power(rij,4.0)*Power(xij,4.0) -
2153 5853330.0*Power(rij,5.0)*Power(xij,5.0) -
2154 2687580.0*Power(rij,6.0)*Power(xij,6.0) -
2155 208530.0*Power(rij,7.0)*Power(xij,7.0) +
2156 19530.0*Power(rij,8.0)*Power(xij,8.0) +
2157 3630.0*Power(rij,9.0)*Power(xij,9.0) +
2158 172.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
2159 627.0*Power(xii,12.0)*Power(xij,16.0)*
2160 (-1240964550.0 + 4740389325.0*rij*xij -
2161 3311818650.0*Power(rij,2.0)*Power(xij,2.0) +
2162 134804250.0*Power(rij,3.0)*Power(xij,3.0) +
2163 407673000.0*Power(rij,4.0)*Power(xij,4.0) +
2164 58641030.0*Power(rij,5.0)*Power(xij,5.0) -
2165 3549420.0*Power(rij,6.0)*Power(xij,6.0) -
2166 1641060.0*Power(rij,7.0)*Power(xij,7.0) -
2167 167940.0*Power(rij,8.0)*Power(xij,8.0) -
2168 6990.0*Power(rij,9.0)*Power(xij,9.0) - 36.0*Power(rij,10.0)*Power(xij,10.0) +
2169 4.0*Power(rij,11.0)*Power(xij,11.0)) +
2170 Power(xii,28.0)*(935550.0 + 1715175.0*rij*xij +
2171 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
2172 935550.0*Power(rij,3.0)*Power(xij,3.0) +
2173 415800.0*Power(rij,4.0)*Power(xij,4.0) +
2174 145530.0*Power(rij,5.0)*Power(xij,5.0) +
2175 41580.0*Power(rij,6.0)*Power(xij,6.0) +
2176 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
2177 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
2178 4.0*Power(rij,11.0)*Power(xij,11.0)) +
2179 2.0*Power(xii,2.0)*Power(xij,26.0)*
2180 (-937068397650.0 - 815439881025.0*rij*xij -
2181 332904552750.0*Power(rij,2.0)*Power(xij,2.0) -
2182 84006776700.0*Power(rij,3.0)*Power(xij,3.0) -
2183 14504767200.0*Power(rij,4.0)*Power(xij,4.0) -
2184 1786235220.0*Power(rij,5.0)*Power(xij,5.0) -
2185 157754520.0*Power(rij,6.0)*Power(xij,6.0) -
2186 9667350.0*Power(rij,7.0)*Power(xij,7.0) -
2187 367290.0*Power(rij,8.0)*Power(xij,8.0) -
2188 5115.0*Power(rij,9.0)*Power(xij,9.0) +
2189 198.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
2190 6.0*Power(xii,4.0)*Power(xij,24.0)*
2191 (-2262441500550.0 - 1503711230175.0*rij*xij -
2192 426178264050.0*Power(rij,2.0)*Power(xij,2.0) -
2193 60134347350.0*Power(rij,3.0)*Power(xij,3.0) -
2194 2014551000.0*Power(rij,4.0)*Power(xij,4.0) +
2195 846111420.0*Power(rij,5.0)*Power(xij,5.0) +
2196 184864680.0*Power(rij,6.0)*Power(xij,6.0) +
2197 20183130.0*Power(rij,7.0)*Power(xij,7.0) +
2198 1367190.0*Power(rij,8.0)*Power(xij,8.0) +
2199 57255.0*Power(rij,9.0)*Power(xij,9.0) +
2200 1298.0*Power(rij,10.0)*Power(xij,10.0) + 10.0*Power(rij,11.0)*Power(xij,11.0)) \
2201 - Power(xii,26.0)*Power(xij,2.0)*(17775450.0 + 32588325.0*rij*xij +
2202 29625750.0*Power(rij,2.0)*Power(xij,2.0) +
2203 17775450.0*Power(rij,3.0)*Power(xij,3.0) +
2204 7900200.0*Power(rij,4.0)*Power(xij,4.0) +
2205 2765070.0*Power(rij,5.0)*Power(xij,5.0) +
2206 790020.0*Power(rij,6.0)*Power(xij,6.0) +
2207 188100.0*Power(rij,7.0)*Power(xij,7.0) +
2208 37620.0*Power(rij,8.0)*Power(xij,8.0) +
2209 6270.0*Power(rij,9.0)*Power(xij,9.0) +
2210 836.0*Power(rij,10.0)*Power(xij,10.0) + 16.0*Power(rij,11.0)*Power(xij,11.0)) \
2211 + 9.0*Power(xii,22.0)*Power(xij,6.0)*
2212 (-100727550.0 - 184667175.0*rij*xij -
2213 167879250.0*Power(rij,2.0)*Power(xij,2.0) -
2214 100727550.0*Power(rij,3.0)*Power(xij,3.0) -
2215 44767800.0*Power(rij,4.0)*Power(xij,4.0) -
2216 15668730.0*Power(rij,5.0)*Power(xij,5.0) -
2217 4476780.0*Power(rij,6.0)*Power(xij,6.0) -
2218 971520.0*Power(rij,7.0)*Power(xij,7.0) -
2219 307560.0*Power(rij,8.0)*Power(xij,8.0) -
2220 27060.0*Power(rij,9.0)*Power(xij,9.0) +
2221 264.0*Power(rij,10.0)*Power(xij,10.0) + 64.0*Power(rij,11.0)*Power(xij,11.0)) \
2222 - 9.0*Power(xii,6.0)*Power(xij,22.0)*
2223 (3452543428950.0 + 1097992509075.0*rij*xij -
2224 101420792550.0*Power(rij,2.0)*Power(xij,2.0) -
2225 110557373850.0*Power(rij,3.0)*Power(xij,3.0) -
2226 24909330600.0*Power(rij,4.0)*Power(xij,4.0) -
2227 2686726350.0*Power(rij,5.0)*Power(xij,5.0) -
2228 93485700.0*Power(rij,6.0)*Power(xij,6.0) +
2229 12941280.0*Power(rij,7.0)*Power(xij,7.0) +
2230 2081640.0*Power(rij,8.0)*Power(xij,8.0) +
2231 137940.0*Power(rij,9.0)*Power(xij,9.0) +
2232 4664.0*Power(rij,10.0)*Power(xij,10.0) + 64.0*Power(rij,11.0)*Power(xij,11.0)) \
2233 - 22.0*Power(xii,20.0)*Power(xij,8.0)*
2234 (-164826900.0 - 302182650.0*rij*xij -
2235 274711500.0*Power(rij,2.0)*Power(xij,2.0) -
2236 164826900.0*Power(rij,3.0)*Power(xij,3.0) -
2237 73256400.0*Power(rij,4.0)*Power(xij,4.0) -
2238 26991090.0*Power(rij,5.0)*Power(xij,5.0) -
2239 4622940.0*Power(rij,6.0)*Power(xij,6.0) -
2240 2941110.0*Power(rij,7.0)*Power(xij,7.0) -
2241 438930.0*Power(rij,8.0)*Power(xij,8.0) -
2242 5505.0*Power(rij,9.0)*Power(xij,9.0) +
2243 2082.0*Power(rij,10.0)*Power(xij,10.0) + 82.0*Power(rij,11.0)*Power(xij,11.0)) \
2244 + 22.0*Power(xii,18.0)*Power(xij,10.0)*
2245 (-494480700.0 - 906547950.0*rij*xij -
2246 824134500.0*Power(rij,2.0)*Power(xij,2.0) -
2247 475684650.0*Power(rij,3.0)*Power(xij,3.0) -
2248 294953400.0*Power(rij,4.0)*Power(xij,4.0) +
2249 2663010.0*Power(rij,5.0)*Power(xij,5.0) -
2250 40797540.0*Power(rij,6.0)*Power(xij,6.0) -
2251 10248390.0*Power(rij,7.0)*Power(xij,7.0) -
2252 434610.0*Power(rij,8.0)*Power(xij,8.0) +
2253 65865.0*Power(rij,9.0)*Power(xij,9.0) +
2254 6366.0*Power(rij,10.0)*Power(xij,10.0) + 136.0*Power(rij,11.0)*Power(xij,11.0)\
2255 ) + 11.0*Power(xii,8.0)*Power(xij,20.0)*
2256 (-2338604626050.0 + 656001834075.0*rij*xij +
2257 504510561450.0*Power(rij,2.0)*Power(xij,2.0) +
2258 51560967150.0*Power(rij,3.0)*Power(xij,3.0) -
2259 15574998600.0*Power(rij,4.0)*Power(xij,4.0) -
2260 5055778350.0*Power(rij,5.0)*Power(xij,5.0) -
2261 626213700.0*Power(rij,6.0)*Power(xij,6.0) -
2262 34768620.0*Power(rij,7.0)*Power(xij,7.0) +
2263 207540.0*Power(rij,8.0)*Power(xij,8.0) +
2264 150240.0*Power(rij,9.0)*Power(xij,9.0) +
2265 8464.0*Power(rij,10.0)*Power(xij,10.0) + 164.0*Power(rij,11.0)*Power(xij,11.0)\
2266 ) - 11.0*Power(xii,10.0)*Power(xij,18.0)*
2267 (742805182350.0 - 933111659025.0*rij*xij +
2268 57080542050.0*Power(rij,2.0)*Power(xij,2.0) +
2269 129505209750.0*Power(rij,3.0)*Power(xij,3.0) +
2270 19066887000.0*Power(rij,4.0)*Power(xij,4.0) -
2271 1817573310.0*Power(rij,5.0)*Power(xij,5.0) -
2272 810647460.0*Power(rij,6.0)*Power(xij,6.0) -
2273 97669980.0*Power(rij,7.0)*Power(xij,7.0) -
2274 5173020.0*Power(rij,8.0)*Power(xij,8.0) -
2275 37770.0*Power(rij,9.0)*Power(xij,9.0) +
2276 8212.0*Power(rij,10.0)*Power(xij,10.0) + 272.0*Power(rij,11.0)*Power(xij,11.0))\
2277 ))/(1.8711e6*Power(E,2.0*rij*(xii + xij))*rij*
2278 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
2279 ;
2280 }
2281 return S;
2282 }
2283
2284 double Slater_4S_1S(double rij,double xii,double xij)
2285 {
2286 return Slater_1S_4S(rij,xij,xii);
2287 }
2288
2289 double Slater_4S_2S(double rij,double xii,double xij)
2290 {
2291 return Slater_2S_4S(rij,xij,xii);
2292 }
2293
2294 double Slater_4S_3S(double rij,double xii,double xij)
2295 {
2296 return Slater_3S_4S(rij,xij,xii);
2297 }
2298
2299 static double Slater_5S_5S(double rij,double xij,double xii)
2300 {
2301 double S;
2302
2303 if (xii == xij) {
2304 S = (-12164510040883200000.0 + 12164510040883200000.0*Power(E,2.0*rij*xii) -
2305 22324788235240115625.0*rij*xii -
2306 20320556388713831250.0*Power(rij,2.0)*Power(xii,2.0) -
2307 12225924086428552500.0*Power(rij,3.0)*Power(xii,3.0) -
2308 5467446348494130000.0*Power(rij,4.0)*Power(xii,4.0) -
2309 1937619942864606000.0*Power(rij,5.0)*Power(xii,5.0) -
2310 566528792821992000.0*Power(rij,6.0)*Power(xii,6.0) -
2311 140462831126217600.0*Power(rij,7.0)*Power(xii,7.0) -
2312 30115609927603200.0*Power(rij,8.0)*Power(xii,8.0) -
2313 5663731244371200.0*Power(rij,9.0)*Power(xii,9.0) -
2314 943983142502400.0*Power(rij,10.0)*Power(xii,10.0) -
2315 140427244339200.0*Power(rij,11.0)*Power(xii,11.0) -
2316 18723632578560.0*Power(rij,12.0)*Power(xii,12.0) -
2317 2240434667520.0*Power(rij,13.0)*Power(xii,13.0) -
2318 240046571520.0*Power(rij,14.0)*Power(xii,14.0) -
2319 22861578240.0*Power(rij,15.0)*Power(xii,15.0) -
2320 1905131520.0*Power(rij,16.0)*Power(xii,16.0) -
2321 134479872.0*Power(rij,17.0)*Power(xii,17.0) -
2322 7471104.0*Power(rij,18.0)*Power(xii,18.0) - 262144.0*Power(rij,19.0)*Power(xii,19.0))/
2323 (1.21645100408832e19*Power(E,2.0*rij*xii)*rij)
2324 ;
2325 }
2326 else {
2327 S = (70875.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
2328 Power(E,2.0*rij*xij)*Power(xij,12.0)*
2329 (-630.0*Power(rij,8.0)*Power(xii,34.0) - 10.0*Power(rij,9.0)*Power(xii,35.0) +
2330 70875.0*Power(xij,26.0) + 127575.0*rij*xii*Power(xij,26.0) -
2331 30.0*Power(rij,7.0)*Power(xii,33.0)*(630.0 + Power(rij,2.0)*Power(xij,2.0)) +
2332 14175.0*Power(xii,2.0)*Power(xij,24.0)*
2333 (-95.0 + 8.0*Power(rij,2.0)*Power(xij,2.0)) +
2334 4725.0*rij*Power(xii,3.0)*Power(xij,24.0)*
2335 (-513.0 + 14.0*Power(rij,2.0)*Power(xij,2.0)) -
2336 90.0*Power(rij,6.0)*Power(xii,32.0)*
2337 (3920.0 + 43.0*Power(rij,2.0)*Power(xij,2.0)) +
2338 4725.0*rij*Power(xii,5.0)*Power(xij,22.0)*
2339 (4617.0 - 266.0*Power(rij,2.0)*Power(xij,2.0) +
2340 2.0*Power(rij,4.0)*Power(xij,4.0)) +
2341 14175.0*Power(xii,4.0)*Power(xij,22.0)*
2342 (855.0 - 152.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
2343 + 36.0*Power(rij,5.0)*Power(xii,31.0)*
2344 (-124950.0 - 4985.0*Power(rij,2.0)*Power(xij,2.0) +
2345 13.0*Power(rij,4.0)*Power(xij,4.0)) +
2346 36.0*Power(rij,4.0)*Power(xii,30.0)*
2347 (-1124550.0 - 127960.0*Power(rij,2.0)*Power(xij,2.0) +
2348 863.0*Power(rij,4.0)*Power(xij,4.0)) +
2349 135.0*rij*Power(xii,7.0)*Power(xij,20.0)*
2350 (-915705.0 + 83790.0*Power(rij,2.0)*Power(xij,2.0) -
2351 1330.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
2352 315.0*Power(xii,6.0)*Power(xij,20.0)*
2353 (-218025.0 + 61560.0*Power(rij,2.0)*Power(xij,2.0) -
2354 1710.0*Power(rij,4.0)*Power(xij,4.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) -
2355 36.0*Power(rij,3.0)*Power(xii,29.0)*
2356 (7122150.0 + 2102730.0*Power(rij,2.0)*Power(xij,2.0) -
2357 23294.0*Power(rij,4.0)*Power(xij,4.0) + 37.0*Power(rij,6.0)*Power(xij,6.0)) -
2358 36.0*Power(rij,2.0)*Power(xii,28.0)*
2359 (30523500.0 + 23401350.0*Power(rij,2.0)*Power(xij,2.0) -
2360 299250.0*Power(rij,4.0)*Power(xij,4.0) + 1297.0*Power(rij,6.0)*Power(xij,6.0)\
2361 ) + rij*Power(xii,17.0)*Power(xij,10.0)*
2362 (1073961177975.0 - 21753487980.0*Power(rij,2.0)*Power(xij,2.0) -
2363 745994340.0*Power(rij,4.0)*Power(xij,4.0) +
2364 5307156.0*Power(rij,6.0)*Power(xij,6.0) - 818.0*Power(rij,8.0)*Power(xij,8.0)\
2365 ) + 10.0*rij*Power(xii,9.0)*Power(xij,18.0)*
2366 (49448070.0 - 6409935.0*Power(rij,2.0)*Power(xij,2.0) +
2367 161595.0*Power(rij,4.0)*Power(xij,4.0) -
2368 1026.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
2369 90.0*Power(xii,8.0)*Power(xij,18.0)*
2370 (3052350.0 - 1220940.0*Power(rij,2.0)*Power(xij,2.0) +
2371 53865.0*Power(rij,4.0)*Power(xij,4.0) -
2372 532.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) -
2373 1710.0*Power(xii,10.0)*Power(xij,16.0)*
2374 (481950.0 - 257040.0*Power(rij,2.0)*Power(xij,2.0) +
2375 16065.0*Power(rij,4.0)*Power(xij,4.0) -
2376 252.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
2377 6.0*rij*Power(xii,11.0)*Power(xij,16.0)*
2378 (-207559800.0 + 50390550.0*Power(rij,2.0)*Power(xij,2.0) -
2379 1165815.0*Power(rij,4.0)*Power(xij,4.0) +
2380 21396.0*Power(rij,6.0)*Power(xij,6.0) + 5.0*Power(rij,8.0)*Power(xij,8.0)) -
2381 18.0*rij*Power(xii,13.0)*Power(xij,14.0)*
2382 (-1703720025.0 - 155669850.0*Power(rij,2.0)*Power(xij,2.0) -
2383 7410270.0*Power(rij,4.0)*Power(xij,4.0) -
2384 1532.0*Power(rij,6.0)*Power(xij,6.0) + 26.0*Power(rij,8.0)*Power(xij,8.0)) +
2385 18.0*rij*Power(xii,15.0)*Power(xij,12.0)*
2386 (19380896325.0 + 1329128850.0*Power(rij,2.0)*Power(xij,2.0) -
2387 7608930.0*Power(rij,4.0)*Power(xij,4.0) -
2388 116238.0*Power(rij,6.0)*Power(xij,6.0) + 74.0*Power(rij,8.0)*Power(xij,8.0)) \
2389 - 18.0*Power(xii,12.0)*Power(xij,14.0)*
2390 (89026875.0 + 179071200.0*Power(rij,2.0)*Power(xij,2.0) +
2391 1552950.0*Power(rij,4.0)*Power(xij,4.0) +
2392 295820.0*Power(rij,6.0)*Power(xij,6.0) + 146.0*Power(rij,8.0)*Power(xij,8.0)) \
2393 + 18.0*rij*Power(xii,25.0)*Power(xij,2.0)*
2394 (-5449970925.0 - 1137574935.0*Power(rij,2.0)*Power(xij,2.0) +
2395 37834755.0*Power(rij,4.0)*Power(xij,4.0) -
2396 273062.0*Power(rij,6.0)*Power(xij,6.0) + 171.0*Power(rij,8.0)*Power(xij,8.0)) \
2397 - 9.0*rij*Power(xii,19.0)*Power(xij,8.0)*
2398 (-37914907275.0 + 7613889570.0*Power(rij,2.0)*Power(xij,2.0) -
2399 170524620.0*Power(rij,4.0)*Power(xij,4.0) +
2400 397936.0*Power(rij,6.0)*Power(xij,6.0) + 342.0*Power(rij,8.0)*Power(xij,8.0)) \
2401 - 3.0*rij*Power(xii,23.0)*Power(xij,4.0)*
2402 (219130630425.0 - 11118046590.0*Power(rij,2.0)*Power(xij,2.0) +
2403 327611970.0*Power(rij,4.0)*Power(xij,4.0) -
2404 2920908.0*Power(rij,6.0)*Power(xij,6.0) +
2405 2584.0*Power(rij,8.0)*Power(xij,8.0)) +
2406 3.0*rij*Power(xii,21.0)*Power(xij,6.0)*
2407 (-345162539925.0 + 19030764690.0*Power(rij,2.0)*Power(xij,2.0) -
2408 141976170.0*Power(rij,4.0)*Power(xij,4.0) -
2409 1441872.0*Power(rij,6.0)*Power(xij,6.0) +
2410 2584.0*Power(rij,8.0)*Power(xij,8.0)) +
2411 63.0*Power(xii,20.0)*Power(xij,6.0)*
2412 (-50980542525.0 + 6240202920.0*Power(rij,2.0)*Power(xij,2.0) -
2413 201314310.0*Power(rij,4.0)*Power(xij,4.0) +
2414 956080.0*Power(rij,6.0)*Power(xij,6.0) + 2584.0*Power(rij,8.0)*Power(xij,8.0)\
2415 ) + 18.0*Power(xii,14.0)*Power(xij,12.0)*
2416 (-7803332775.0 - 2519206200.0*Power(rij,2.0)*Power(xij,2.0) -
2417 119719950.0*Power(rij,4.0)*Power(xij,4.0) +
2418 182280.0*Power(rij,6.0)*Power(xij,6.0) + 2734.0*Power(rij,8.0)*Power(xij,8.0)\
2419 ) - 18.0*Power(xii,26.0)*(195859125.0 + 1794781800.0*Power(rij,2.0)*Power(xij,2.0) +
2420 67337235.0*Power(rij,4.0)*Power(xij,4.0) -
2421 1659700.0*Power(rij,6.0)*Power(xij,6.0) +
2422 4089.0*Power(rij,8.0)*Power(xij,8.0)) +
2423 9.0*Power(xii,18.0)*Power(xij,8.0)*
2424 (-357591274425.0 + 8328390840.0*Power(rij,2.0)*Power(xij,2.0) +
2425 912042180.0*Power(rij,4.0)*Power(xij,4.0) -
2426 12842480.0*Power(rij,6.0)*Power(xij,6.0) +
2427 10678.0*Power(rij,8.0)*Power(xij,8.0)) -
2428 9.0*Power(xii,16.0)*Power(xij,10.0)*
2429 (128599724925.0 + 21298077360.0*Power(rij,2.0)*Power(xij,2.0) -
2430 267928500.0*Power(rij,4.0)*Power(xij,4.0) -
2431 5458320.0*Power(rij,6.0)*Power(xij,6.0) +
2432 14722.0*Power(rij,8.0)*Power(xij,8.0)) +
2433 18.0*Power(xii,24.0)*Power(xij,2.0)*
2434 (-7604930025.0 - 8866107180.0*Power(rij,2.0)*Power(xij,2.0) +
2435 399272265.0*Power(rij,4.0)*Power(xij,4.0) -
2436 5925780.0*Power(rij,6.0)*Power(xij,6.0) +
2437 17651.0*Power(rij,8.0)*Power(xij,8.0)) -
2438 9.0*Power(xii,22.0)*Power(xij,4.0)*
2439 (129194933175.0 + 3909863160.0*Power(rij,2.0)*Power(xij,2.0) +
2440 91420770.0*Power(rij,4.0)*Power(xij,4.0) -
2441 8762040.0*Power(rij,6.0)*Power(xij,6.0) +
2442 43928.0*Power(rij,8.0)*Power(xij,8.0)) +
2443 Power(xii,27.0)*(-2884470750.0*rij -
2444 6409935000.0*Power(rij,3.0)*Power(xij,2.0) +
2445 28332990.0*Power(rij,5.0)*Power(xij,4.0) +
2446 58104.0*Power(rij,7.0)*Power(xij,6.0) + 818.0*Power(rij,9.0)*Power(xij,8.0))) \
2447 + Power(E,2.0*rij*xii)*Power(xii,12.0)*
2448 (Power(xii,8.0)*Power(xij,18.0)*
2449 (3218321469825.0 - 341234165475.0*rij*xij -
2450 393132783960.0*Power(rij,2.0)*Power(xij,2.0) -
2451 57092294070.0*Power(rij,3.0)*Power(xij,3.0) +
2452 822786930.0*Power(rij,4.0)*Power(xij,4.0) +
2453 982835910.0*Power(rij,5.0)*Power(xij,5.0) +
2454 106664040.0*Power(rij,6.0)*Power(xij,6.0) +
2455 4915116.0*Power(rij,7.0)*Power(xij,7.0) +
2456 73602.0*Power(rij,8.0)*Power(xij,8.0) - 818.0*Power(rij,9.0)*Power(xij,9.0)) +
2457 10.0*Power(xij,26.0)*(352546425.0 + 288447075.0*rij*xij +
2458 109884600.0*Power(rij,2.0)*Power(xij,2.0) +
2459 25639740.0*Power(rij,3.0)*Power(xij,3.0) +
2460 4048380.0*Power(rij,4.0)*Power(xij,4.0) +
2461 449820.0*Power(rij,5.0)*Power(xij,5.0) +
2462 35280.0*Power(rij,6.0)*Power(xij,6.0) +
2463 1890.0*Power(rij,7.0)*Power(xij,7.0) + 63.0*Power(rij,8.0)*Power(xij,8.0) +
2464 Power(rij,9.0)*Power(xij,9.0)) +
2465 30.0*Power(xii,2.0)*Power(xij,24.0)*
2466 (4562958015.0 + 3269982555.0*rij*xij +
2467 1076869080.0*Power(rij,2.0)*Power(xij,2.0) +
2468 213664500.0*Power(rij,3.0)*Power(xij,3.0) +
2469 28081620.0*Power(rij,4.0)*Power(xij,4.0) +
2470 2523276.0*Power(rij,5.0)*Power(xij,5.0) +
2471 153552.0*Power(rij,6.0)*Power(xij,6.0) +
2472 5982.0*Power(rij,7.0)*Power(xij,7.0) + 129.0*Power(rij,8.0)*Power(xij,8.0) +
2473 Power(rij,9.0)*Power(xij,9.0)) -
2474 15.0*Power(xii,24.0)*Power(xij,2.0)*
2475 (-89775.0 - 161595.0*rij*xij - 143640.0*Power(rij,2.0)*Power(xij,2.0) -
2476 83790.0*Power(rij,3.0)*Power(xij,3.0) -
2477 35910.0*Power(rij,4.0)*Power(xij,4.0) -
2478 11970.0*Power(rij,5.0)*Power(xij,5.0) -
2479 3192.0*Power(rij,6.0)*Power(xij,6.0) - 684.0*Power(rij,7.0)*Power(xij,7.0) -
2480 114.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
2481 5.0*Power(xii,26.0)*(14175.0 + 25515.0*rij*xij +
2482 22680.0*Power(rij,2.0)*Power(xij,2.0) +
2483 13230.0*Power(rij,3.0)*Power(xij,3.0) +
2484 5670.0*Power(rij,4.0)*Power(xij,4.0) + 1890.0*Power(rij,5.0)*Power(xij,5.0) +
2485 504.0*Power(rij,6.0)*Power(xij,6.0) + 108.0*Power(rij,7.0)*Power(xij,7.0) +
2486 18.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,9.0)*Power(xij,9.0)) -
2487 1938.0*Power(xii,14.0)*Power(xij,12.0)*
2488 (-826875.0 + 15824025.0*rij*xij - 23398200.0*Power(rij,2.0)*Power(xij,2.0) +
2489 12344850.0*Power(rij,3.0)*Power(xij,3.0) +
2490 1244250.0*Power(rij,4.0)*Power(xij,4.0) -
2491 384930.0*Power(rij,5.0)*Power(xij,5.0) -
2492 59640.0*Power(rij,6.0)*Power(xij,6.0) -
2493 1848.0*Power(rij,7.0)*Power(xij,7.0) + 84.0*Power(rij,8.0)*Power(xij,8.0) +
2494 4.0*Power(rij,9.0)*Power(xij,9.0)) +
2495 1938.0*Power(xii,12.0)*Power(xij,14.0)*
2496 (72476775.0 - 180008325.0*rij*xij +
2497 98907480.0*Power(rij,2.0)*Power(xij,2.0) +
2498 11224710.0*Power(rij,3.0)*Power(xij,3.0) -
2499 4235490.0*Power(rij,4.0)*Power(xij,4.0) -
2500 791910.0*Power(rij,5.0)*Power(xij,5.0) -
2501 31080.0*Power(rij,6.0)*Power(xij,6.0) +
2502 2232.0*Power(rij,7.0)*Power(xij,7.0) + 204.0*Power(rij,8.0)*Power(xij,8.0) +
2503 4.0*Power(rij,9.0)*Power(xij,9.0)) +
2504 342.0*Power(xii,16.0)*Power(xij,10.0)*
2505 (2409750.0 + 3641400.0*rij*xij + 9424800.0*Power(rij,2.0)*Power(xij,2.0) -
2506 8193150.0*Power(rij,3.0)*Power(xij,3.0) +
2507 6301050.0*Power(rij,4.0)*Power(xij,4.0) +
2508 400470.0*Power(rij,5.0)*Power(xij,5.0) -
2509 143640.0*Power(rij,6.0)*Power(xij,6.0) -
2510 15518.0*Power(rij,7.0)*Power(xij,7.0) - 281.0*Power(rij,8.0)*Power(xij,8.0) +
2511 9.0*Power(rij,9.0)*Power(xij,9.0)) -
2512 171.0*Power(xii,10.0)*Power(xij,16.0)*
2513 (-6768406575.0 + 6280474725.0*rij*xij +
2514 438336360.0*Power(rij,2.0)*Power(xij,2.0) -
2515 400731030.0*Power(rij,3.0)*Power(xij,3.0) -
2516 74168430.0*Power(rij,4.0)*Power(xij,4.0) -
2517 2490810.0*Power(rij,5.0)*Power(xij,5.0) +
2518 461160.0*Power(rij,6.0)*Power(xij,6.0) +
2519 51244.0*Power(rij,7.0)*Power(xij,7.0) +
2520 1858.0*Power(rij,8.0)*Power(xij,8.0) + 18.0*Power(rij,9.0)*Power(xij,9.0)) +
2521 9.0*Power(xii,22.0)*Power(xij,4.0)*
2522 (-1346625.0 - 2423925.0*rij*xij - 2154600.0*Power(rij,2.0)*Power(xij,2.0) -
2523 1256850.0*Power(rij,3.0)*Power(xij,3.0) -
2524 538650.0*Power(rij,4.0)*Power(xij,4.0) -
2525 179550.0*Power(rij,5.0)*Power(xij,5.0) -
2526 47880.0*Power(rij,6.0)*Power(xij,6.0) -
2527 14264.0*Power(rij,7.0)*Power(xij,7.0) + 292.0*Power(rij,8.0)*Power(xij,8.0) +
2528 52.0*Power(rij,9.0)*Power(xij,9.0)) -
2529 9.0*Power(xii,4.0)*Power(xij,22.0)*
2530 (-129194933175.0 - 73043543475.0*rij*xij -
2531 17732214360.0*Power(rij,2.0)*Power(xij,2.0) -
2532 2275149870.0*Power(rij,3.0)*Power(xij,3.0) -
2533 134674470.0*Power(rij,4.0)*Power(xij,4.0) +
2534 3148110.0*Power(rij,5.0)*Power(xij,5.0) +
2535 1197000.0*Power(rij,6.0)*Power(xij,6.0) +
2536 93176.0*Power(rij,7.0)*Power(xij,7.0) +
2537 3452.0*Power(rij,8.0)*Power(xij,8.0) + 52.0*Power(rij,9.0)*Power(xij,9.0)) +
2538 9.0*Power(xii,6.0)*Power(xij,20.0)*
2539 (356863797675.0 + 115054179975.0*rij*xij +
2540 3909863160.0*Power(rij,2.0)*Power(xij,2.0) -
2541 3706015530.0*Power(rij,3.0)*Power(xij,3.0) -
2542 798544530.0*Power(rij,4.0)*Power(xij,4.0) -
2543 75669510.0*Power(rij,5.0)*Power(xij,5.0) -
2544 3319400.0*Power(rij,6.0)*Power(xij,6.0) -
2545 6456.0*Power(rij,7.0)*Power(xij,7.0) + 5188.0*Power(rij,8.0)*Power(xij,8.0) +
2546 148.0*Power(rij,9.0)*Power(xij,9.0)) -
2547 9.0*Power(xii,20.0)*Power(xij,6.0)*
2548 (-7630875.0 - 13735575.0*rij*xij - 12209400.0*Power(rij,2.0)*Power(xij,2.0) -
2549 7122150.0*Power(rij,3.0)*Power(xij,3.0) -
2550 3052350.0*Power(rij,4.0)*Power(xij,4.0) -
2551 777210.0*Power(rij,5.0)*Power(xij,5.0) -
2552 591640.0*Power(rij,6.0)*Power(xij,6.0) +
2553 3064.0*Power(rij,7.0)*Power(xij,7.0) + 5468.0*Power(rij,8.0)*Power(xij,8.0) +
2554 148.0*Power(rij,9.0)*Power(xij,9.0)) +
2555 2.0*Power(xii,18.0)*Power(xij,8.0)*
2556 (-137355750.0 - 247240350.0*rij*xij -
2557 219769200.0*Power(rij,2.0)*Power(xij,2.0) -
2558 151171650.0*Power(rij,3.0)*Power(xij,3.0) +
2559 13976550.0*Power(rij,4.0)*Power(xij,4.0) -
2560 66692430.0*Power(rij,5.0)*Power(xij,5.0) -
2561 1640520.0*Power(rij,6.0)*Power(xij,6.0) +
2562 1046142.0*Power(rij,7.0)*Power(xij,7.0) +
2563 66249.0*Power(rij,8.0)*Power(xij,8.0) + 409.0*Power(rij,9.0)*Power(xij,9.0))))/
2564 (70875.*Power(E,2.0*rij*(xii + xij))*rij*
2565 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
2566 ;
2567 }
2568 return S;
2569 }
2570
2571 static double Slater_5S_6S(double rij,double xij,double xii)
2572 {
2573 double S;
2574
2575 if (xii == xij) {
2576 S = (-1532728265151283200000.0 + 1532728265151283200000.0*Power(E,2.0*rij*xii) -
2577 2836013677800293615625.0*rij*xii -
2578 2606570825298020831250.0*Power(rij,2.0)*Power(xii,2.0) -
2579 1586115932378174071875.0*Power(rij,3.0)*Power(xii,3.0) -
2580 718622941126509168750.0*Power(rij,4.0)*Power(xii,4.0) -
2581 258482050835109601500.0*Power(rij,5.0)*Power(xii,5.0) -
2582 76853380678272198000.0*Power(rij,6.0)*Power(xii,6.0) -
2583 19417985233400754000.0*Power(rij,7.0)*Power(xii,7.0) -
2584 4253183134704504000.0*Power(rij,8.0)*Power(xii,8.0) -
2585 819670099680432000.0*Power(rij,9.0)*Power(xii,9.0) -
2586 140553592289510400.0*Power(rij,10.0)*Power(xii,10.0) -
2587 21625475644281600.0*Power(rij,11.0)*Power(xii,11.0) -
2588 3003582726144000.0*Power(rij,12.0)*Power(xii,12.0) -
2589 378073350144000.0*Power(rij,13.0)*Power(xii,13.0) -
2590 43208382873600.0*Power(rij,14.0)*Power(xii,14.0) -
2591 4480869335040.0*Power(rij,15.0)*Power(xii,15.0) -
2592 420081500160.0*Power(rij,16.0)*Power(xii,16.0) -
2593 35300966400.0*Power(rij,17.0)*Power(xii,17.0) -
2594 2614886400.0*Power(rij,18.0)*Power(xii,18.0) -
2595 165150720.0*Power(rij,19.0)*Power(xii,19.0) -
2596 8257536.0*Power(rij,20.0)*Power(xii,20.0) - 262144.0*Power(rij,21.0)*Power(xii,21.0))/
2597 (1.5327282651512832e21*Power(E,2.0*rij*xii)*rij)
2598 ;
2599 }
2600 else {
2601 S = (4677750.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),21.0) +
2602 110.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
2603 (-432.0*Power(rij,8.0)*Power(xii,36.0) - 6.0*Power(rij,9.0)*Power(xii,37.0) +
2604 42525.0*Power(xij,28.0) + 76545.0*rij*xii*Power(xij,28.0) +
2605 19845.0*rij*Power(xii,3.0)*Power(xij,26.0)*
2606 (-81.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
2607 1134.0*Power(rij,6.0)*Power(xii,34.0)*
2608 (272.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) -
2609 8.0*Power(rij,7.0)*Power(xii,35.0)*(1836.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) +
2610 8505.0*Power(xii,2.0)*Power(xij,26.0)*
2611 (-105.0 + 8.0*Power(rij,2.0)*Power(xij,2.0)) +
2612 378.0*Power(rij,5.0)*Power(xii,33.0)*
2613 (-11628.0 - 666.0*Power(rij,2.0)*Power(xij,2.0) +
2614 Power(rij,4.0)*Power(xij,4.0)) +
2615 5670.0*rij*Power(xii,5.0)*Power(xij,24.0)*
2616 (2835.0 - 147.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
2617 + 17010.0*Power(xii,4.0)*Power(xij,24.0)*
2618 (525.0 - 84.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
2619 378.0*Power(rij,4.0)*Power(xii,32.0)*
2620 (-116280.0 - 17444.0*Power(rij,2.0)*Power(xij,2.0) +
2621 59.0*Power(rij,4.0)*Power(xij,4.0)) +
2622 162.0*rij*Power(xii,7.0)*Power(xij,22.0)*
2623 (-628425.0 + 51450.0*Power(rij,2.0)*Power(xij,2.0) -
2624 735.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
2625 378.0*Power(xii,6.0)*Power(xij,22.0)*
2626 (-149625.0 + 37800.0*Power(rij,2.0)*Power(xij,2.0) -
2627 945.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
2628 18.0*Power(rij,3.0)*Power(xii,31.0)*
2629 (17093160.0 + 6309387.0*Power(rij,2.0)*Power(xij,2.0) -
2630 23562.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) +
2631 54.0*Power(rij,2.0)*Power(xii,30.0)*
2632 (-26860680.0 - 24843735.0*Power(rij,2.0)*Power(xij,2.0) -
2633 40180.0*Power(rij,4.0)*Power(xij,4.0) + 578.0*Power(rij,6.0)*Power(xij,6.0)) \
2634 + 378.0*rij*Power(xii,23.0)*Power(xij,6.0)*
2635 (-14625683325.0 + 704051250.0*Power(rij,2.0)*Power(xij,2.0) -
2636 10752861.0*Power(rij,4.0)*Power(xij,4.0) +
2637 33478.0*Power(rij,6.0)*Power(xij,6.0)) +
2638 3.0*rij*Power(xii,9.0)*Power(xij,20.0)*
2639 (152707275.0 - 17595900.0*Power(rij,2.0)*Power(xij,2.0) +
2640 396900.0*Power(rij,4.0)*Power(xij,4.0) -
2641 2268.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
2642 27.0*Power(xii,8.0)*Power(xij,20.0)*
2643 (9426375.0 - 3351600.0*Power(rij,2.0)*Power(xij,2.0) +
2644 132300.0*Power(rij,4.0)*Power(xij,4.0) -
2645 1176.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
2646 567.0*Power(xii,10.0)*Power(xij,18.0)*
2647 (1526175.0 - 718200.0*Power(rij,2.0)*Power(xij,2.0) +
2648 39900.0*Power(rij,4.0)*Power(xij,4.0) -
2649 560.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
2650 54.0*rij*Power(xii,13.0)*Power(xij,16.0)*
2651 (-1356769575.0 - 127011675.0*Power(rij,2.0)*Power(xij,2.0) -
2652 3867843.0*Power(rij,4.0)*Power(xij,4.0) -
2653 8556.0*Power(rij,6.0)*Power(xij,6.0) + 7.0*Power(rij,8.0)*Power(xij,8.0)) +
2654 7.0*rij*Power(xii,11.0)*Power(xij,18.0)*
2655 (-151091325.0 + 45272250.0*Power(rij,2.0)*Power(xij,2.0) -
2656 647676.0*Power(rij,4.0)*Power(xij,4.0) +
2657 15336.0*Power(rij,6.0)*Power(xij,6.0) + 8.0*Power(rij,8.0)*Power(xij,8.0)) +
2658 18.0*rij*Power(xii,15.0)*Power(xij,14.0)*
2659 (63046289250.0 + 3917182500.0*Power(rij,2.0)*Power(xij,2.0) +
2660 10158435.0*Power(rij,4.0)*Power(xij,4.0) -
2661 178842.0*Power(rij,6.0)*Power(xij,6.0) + 16.0*Power(rij,8.0)*Power(xij,8.0)) \
2662 + 378.0*rij*Power(xii,21.0)*Power(xij,8.0)*
2663 (-8559820125.0 + 17573325.0*Power(rij,2.0)*Power(xij,2.0) +
2664 7421001.0*Power(rij,4.0)*Power(xij,4.0) -
2665 49096.0*Power(rij,6.0)*Power(xij,6.0) + 19.0*Power(rij,8.0)*Power(xij,8.0)) -
2666 378.0*Power(xii,12.0)*Power(xij,16.0)*
2667 (17296650.0 + 14244300.0*Power(rij,2.0)*Power(xij,2.0) +
2668 360525.0*Power(rij,4.0)*Power(xij,4.0) +
2669 15928.0*Power(rij,6.0)*Power(xij,6.0) + 22.0*Power(rij,8.0)*Power(xij,8.0)) -
2670 189.0*rij*Power(xii,25.0)*Power(xij,4.0)*
2671 (9994948425.0 + 63821700.0*Power(rij,2.0)*Power(xij,2.0) -
2672 1458540.0*Power(rij,4.0)*Power(xij,4.0) -
2673 18756.0*Power(rij,6.0)*Power(xij,6.0) + 38.0*Power(rij,8.0)*Power(xij,8.0)) -
2674 189.0*Power(xii,24.0)*Power(xij,4.0)*
2675 (17962854525.0 + 4036942800.0*Power(rij,2.0)*Power(xij,2.0) -
2676 126472500.0*Power(rij,4.0)*Power(xij,4.0) +
2677 765464.0*Power(rij,6.0)*Power(xij,6.0) + 190.0*Power(rij,8.0)*Power(xij,8.0)) \
2678 - 21.0*rij*Power(xii,19.0)*Power(xij,10.0)*
2679 (-228066210225.0 + 13487616450.0*Power(rij,2.0)*Power(xij,2.0) -
2680 85465800.0*Power(rij,4.0)*Power(xij,4.0) -
2681 320112.0*Power(rij,6.0)*Power(xij,6.0) + 328.0*Power(rij,8.0)*Power(xij,8.0)) \
2682 - 189.0*Power(xii,18.0)*Power(xij,10.0)*
2683 (86069971575.0 + 2157712200.0*Power(rij,2.0)*Power(xij,2.0) -
2684 158179560.0*Power(rij,4.0)*Power(xij,4.0) +
2685 578816.0*Power(rij,6.0)*Power(xij,6.0) + 978.0*Power(rij,8.0)*Power(xij,8.0)) \
2686 - 2.0*rij*Power(xii,29.0)*(2085060285.0 + 5450330025.0*Power(rij,2.0)*Power(xij,2.0) +
2687 127424745.0*Power(rij,4.0)*Power(xij,4.0) -
2688 1398276.0*Power(rij,6.0)*Power(xij,6.0) +
2689 1159.0*Power(rij,8.0)*Power(xij,8.0)) -
2690 378.0*Power(xii,22.0)*Power(xij,6.0)*
2691 (37244490525.0 - 2411839800.0*Power(rij,2.0)*Power(xij,2.0) +
2692 92951775.0*Power(rij,4.0)*Power(xij,4.0) -
2693 942172.0*Power(rij,6.0)*Power(xij,6.0) + 1292.0*Power(rij,8.0)*Power(xij,8.0)\
2694 ) - 27.0*Power(xii,16.0)*Power(xij,12.0)*
2695 (164245367475.0 + 26909517600.0*Power(rij,2.0)*Power(xij,2.0) +
2696 62674920.0*Power(rij,4.0)*Power(xij,4.0) -
2697 3885112.0*Power(rij,6.0)*Power(xij,6.0) +
2698 2122.0*Power(rij,8.0)*Power(xij,8.0)) +
2699 3.0*rij*Power(xii,27.0)*Power(xij,2.0)*
2700 (-63819198135.0 - 21841975890.0*Power(rij,2.0)*Power(xij,2.0) +
2701 442430100.0*Power(rij,4.0)*Power(xij,4.0) -
2702 2756664.0*Power(rij,6.0)*Power(xij,6.0) +
2703 2296.0*Power(rij,8.0)*Power(xij,8.0)) +
2704 rij*Power(xii,17.0)*Power(xij,12.0)*
2705 (4851990871875.0 + 21622847400.0*Power(rij,2.0)*Power(xij,2.0) -
2706 2153738160.0*Power(rij,4.0)*Power(xij,4.0) +
2707 3608388.0*Power(rij,6.0)*Power(xij,6.0) +
2708 2318.0*Power(rij,8.0)*Power(xij,8.0)) +
2709 18.0*Power(xii,14.0)*Power(xij,14.0)*
2710 (-23418646650.0 - 6922729800.0*Power(rij,2.0)*Power(xij,2.0) -
2711 259958475.0*Power(rij,4.0)*Power(xij,4.0) -
2712 697732.0*Power(rij,6.0)*Power(xij,6.0) + 3030.0*Power(rij,8.0)*Power(xij,8.0)\
2713 ) + 126.0*Power(xii,20.0)*Power(xij,8.0)*
2714 (-186637212225.0 + 13028280300.0*Power(rij,2.0)*Power(xij,2.0) -
2715 116198775.0*Power(rij,4.0)*Power(xij,4.0) -
2716 1266160.0*Power(rij,6.0)*Power(xij,6.0) +
2717 4332.0*Power(rij,8.0)*Power(xij,8.0)) -
2718 54.0*Power(xii,28.0)*(102965940.0 +
2719 1089437580.0*Power(rij,2.0)*Power(xij,2.0) +
2720 102508245.0*Power(rij,4.0)*Power(xij,4.0) -
2721 1593144.0*Power(rij,6.0)*Power(xij,6.0) +
2722 4538.0*Power(rij,8.0)*Power(xij,8.0)) +
2723 63.0*Power(xii,26.0)*Power(xij,2.0)*
2724 (-4544129205.0 - 7396000920.0*Power(rij,2.0)*Power(xij,2.0) +
2725 149614020.0*Power(rij,4.0)*Power(xij,4.0) -
2726 1684112.0*Power(rij,6.0)*Power(xij,6.0) + 5922.0*Power(rij,8.0)*Power(xij,8.0)\
2727 )) + Power(E,2.0*rij*xii)*Power(xii,12.0)*
2728 (6.0*Power(xii,24.0)*Power(xij,6.0)*
2729 (1036901250.0 + 1900985625.0*rij*xij +
2730 1728168750.0*Power(rij,2.0)*Power(xij,2.0) +
2731 1036901250.0*Power(rij,3.0)*Power(xij,3.0) +
2732 460845000.0*Power(rij,4.0)*Power(xij,4.0) +
2733 161295750.0*Power(rij,5.0)*Power(xij,5.0) +
2734 46084500.0*Power(rij,6.0)*Power(xij,6.0) +
2735 9084900.0*Power(rij,7.0)*Power(xij,7.0) +
2736 4082100.0*Power(rij,8.0)*Power(xij,8.0) +
2737 121935.0*Power(rij,9.0)*Power(xij,9.0) -
2738 21494.0*Power(rij,10.0)*Power(xij,10.0) -
2739 766.0*Power(rij,11.0)*Power(xij,11.0)) +
2740 5.0*Power(xii,28.0)*Power(xij,2.0)*
2741 (19646550.0 + 36018675.0*rij*xij + 32744250.0*Power(rij,2.0)*Power(xij,2.0) +
2742 19646550.0*Power(rij,3.0)*Power(xij,3.0) +
2743 8731800.0*Power(rij,4.0)*Power(xij,4.0) +
2744 3056130.0*Power(rij,5.0)*Power(xij,5.0) +
2745 873180.0*Power(rij,6.0)*Power(xij,6.0) +
2746 207900.0*Power(rij,7.0)*Power(xij,7.0) +
2747 41580.0*Power(rij,8.0)*Power(xij,8.0) +
2748 6930.0*Power(rij,9.0)*Power(xij,9.0) +
2749 924.0*Power(rij,10.0)*Power(xij,10.0) - 4.0*Power(rij,11.0)*Power(xij,11.0)) +
2750 26334.0*Power(xii,16.0)*Power(xij,14.0)*
2751 (43880400.0 - 186686775.0*rij*xij +
2752 576771750.0*Power(rij,2.0)*Power(xij,2.0) -
2753 398603250.0*Power(rij,3.0)*Power(xij,3.0) +
2754 72552600.0*Power(rij,4.0)*Power(xij,4.0) +
2755 27903120.0*Power(rij,5.0)*Power(xij,5.0) -
2756 342720.0*Power(rij,6.0)*Power(xij,6.0) -
2757 574800.0*Power(rij,7.0)*Power(xij,7.0) -
2758 50800.0*Power(rij,8.0)*Power(xij,8.0) - 945.0*Power(rij,9.0)*Power(xij,9.0) +
2759 58.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
2760 10.0*Power(xij,30.0)*(97302813300.0 + 89194245525.0*rij*xij +
2761 38780106750.0*Power(rij,2.0)*Power(xij,2.0) +
2762 10576392750.0*Power(rij,3.0)*Power(xij,3.0) +
2763 2014551000.0*Power(rij,4.0)*Power(xij,4.0) +
2764 282037140.0*Power(rij,5.0)*Power(xij,5.0) +
2765 29688120.0*Power(rij,6.0)*Power(xij,6.0) +
2766 2356200.0*Power(rij,7.0)*Power(xij,7.0) +
2767 138600.0*Power(rij,8.0)*Power(xij,8.0) +
2768 5775.0*Power(rij,9.0)*Power(xij,9.0) +
2769 154.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) +
2770 10.0*Power(xii,2.0)*Power(xij,28.0)*
2771 (4582499159700.0 + 3733416276975.0*rij*xij +
2772 1428215931450.0*Power(rij,2.0)*Power(xij,2.0) +
2773 338545295550.0*Power(rij,3.0)*Power(xij,3.0) +
2774 55198697400.0*Power(rij,4.0)*Power(xij,4.0) +
2775 6486854220.0*Power(rij,5.0)*Power(xij,5.0) +
2776 558419400.0*Power(rij,6.0)*Power(xij,6.0) +
2777 34939080.0*Power(rij,7.0)*Power(xij,7.0) +
2778 1532520.0*Power(rij,8.0)*Power(xij,8.0) +
2779 43285.0*Power(rij,9.0)*Power(xij,9.0) +
2780 638.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) -
2781 110.0*Power(xii,10.0)*Power(xij,20.0)*
2782 (-14063418170550.0 + 6795156458475.0*rij*xij +
2783 2067471236250.0*Power(rij,2.0)*Power(xij,2.0) -
2784 214664924250.0*Power(rij,3.0)*Power(xij,3.0) -
2785 124416469800.0*Power(rij,4.0)*Power(xij,4.0) -
2786 14935545450.0*Power(rij,5.0)*Power(xij,5.0) -
2787 256688460.0*Power(rij,6.0)*Power(xij,6.0) +
2788 105750900.0*Power(rij,7.0)*Power(xij,7.0) +
2789 11502180.0*Power(rij,8.0)*Power(xij,8.0) +
2790 518085.0*Power(rij,9.0)*Power(xij,9.0) +
2791 9294.0*Power(rij,10.0)*Power(xij,10.0) + 2.0*Power(rij,11.0)*Power(xij,11.0)) \
2792 + 55.0*Power(xii,20.0)*Power(xij,10.0)*
2793 (1730682450.0 + 3172917825.0*rij*xij +
2794 2884470750.0*Power(rij,2.0)*Power(xij,2.0) +
2795 1571960250.0*Power(rij,3.0)*Power(xij,3.0) +
2796 1404081000.0*Power(rij,4.0)*Power(xij,4.0) -
2797 426654270.0*Power(rij,5.0)*Power(xij,5.0) +
2798 283536540.0*Power(rij,6.0)*Power(xij,6.0) +
2799 39116700.0*Power(rij,7.0)*Power(xij,7.0) -
2800 2659860.0*Power(rij,8.0)*Power(xij,8.0) -
2801 528850.0*Power(rij,9.0)*Power(xij,9.0) -
2802 18236.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) \
2803 - 5.0*Power(xii,30.0)*(935550.0 + 1715175.0*rij*xij +
2804 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
2805 935550.0*Power(rij,3.0)*Power(xij,3.0) +
2806 415800.0*Power(rij,4.0)*Power(xij,4.0) +
2807 145530.0*Power(rij,5.0)*Power(xij,5.0) +
2808 41580.0*Power(rij,6.0)*Power(xij,6.0) +
2809 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
2810 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
2811 4.0*Power(rij,11.0)*Power(xij,11.0)) -
2812 13167.0*Power(xii,14.0)*Power(xij,16.0)*
2813 (-2319354450.0 + 8540029575.0*rij*xij -
2814 7335672750.0*Power(rij,2.0)*Power(xij,2.0) +
2815 1133154750.0*Power(rij,3.0)*Power(xij,3.0) +
2816 575014200.0*Power(rij,4.0)*Power(xij,4.0) -
2817 913710.0*Power(rij,5.0)*Power(xij,5.0) -
2818 14863940.0*Power(rij,6.0)*Power(xij,6.0) -
2819 1687300.0*Power(rij,7.0)*Power(xij,7.0) -
2820 46900.0*Power(rij,8.0)*Power(xij,8.0) +
2821 3210.0*Power(rij,9.0)*Power(xij,9.0) +
2822 236.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,11.0)*Power(xij,11.0)) -
2823 770.0*Power(xii,18.0)*Power(xij,12.0)*
2824 (329653800.0 + 654729075.0*rij*xij +
2825 45785250.0*Power(rij,2.0)*Power(xij,2.0) +
2826 1602483750.0*Power(rij,3.0)*Power(xij,3.0) -
2827 915705000.0*Power(rij,4.0)*Power(xij,4.0) +
2828 266036400.0*Power(rij,5.0)*Power(xij,5.0) +
2829 63745920.0*Power(rij,6.0)*Power(xij,6.0) -
2830 2304000.0*Power(rij,7.0)*Power(xij,7.0) -
2831 1074240.0*Power(rij,8.0)*Power(xij,8.0) -
2832 64635.0*Power(rij,9.0)*Power(xij,9.0) -
2833 514.0*Power(rij,10.0)*Power(xij,10.0) + 34.0*Power(rij,11.0)*Power(xij,11.0)) \
2834 + 385.0*Power(xii,12.0)*Power(xij,18.0)*
2835 (973565393850.0 - 1429122323475.0*rij*xij +
2836 298281831750.0*Power(rij,2.0)*Power(xij,2.0) +
2837 138841148250.0*Power(rij,3.0)*Power(xij,3.0) -
2838 2454240600.0*Power(rij,4.0)*Power(xij,4.0) -
2839 4925394810.0*Power(rij,5.0)*Power(xij,5.0) -
2840 623832300.0*Power(rij,6.0)*Power(xij,6.0) -
2841 19098540.0*Power(rij,7.0)*Power(xij,7.0) +
2842 2083140.0*Power(rij,8.0)*Power(xij,8.0) +
2843 212430.0*Power(rij,9.0)*Power(xij,9.0) +
2844 7012.0*Power(rij,10.0)*Power(xij,10.0) + 68.0*Power(rij,11.0)*Power(xij,11.0)) \
2845 + 14.0*Power(xii,26.0)*Power(xij,4.0)*
2846 (-70166250.0 - 128638125.0*rij*xij -
2847 116943750.0*Power(rij,2.0)*Power(xij,2.0) -
2848 70166250.0*Power(rij,3.0)*Power(xij,3.0) -
2849 31185000.0*Power(rij,4.0)*Power(xij,4.0) -
2850 10914750.0*Power(rij,5.0)*Power(xij,5.0) -
2851 3118500.0*Power(rij,6.0)*Power(xij,6.0) -
2852 742500.0*Power(rij,7.0)*Power(xij,7.0) -
2853 148500.0*Power(rij,8.0)*Power(xij,8.0) -
2854 32615.0*Power(rij,9.0)*Power(xij,9.0) -
2855 154.0*Power(rij,10.0)*Power(xij,10.0) + 74.0*Power(rij,11.0)*Power(xij,11.0)) \
2856 - 7.0*Power(xii,4.0)*Power(xij,26.0)*
2857 (-69822945249750.0 - 46669577290875.0*rij*xij -
2858 14025037430250.0*Power(rij,2.0)*Power(xij,2.0) -
2859 2430881664750.0*Power(rij,3.0)*Power(xij,3.0) -
2860 251629270200.0*Power(rij,4.0)*Power(xij,4.0) -
2861 12434519790.0*Power(rij,5.0)*Power(xij,5.0) +
2862 452930940.0*Power(rij,6.0)*Power(xij,6.0) +
2863 131125500.0*Power(rij,7.0)*Power(xij,7.0) +
2864 11018700.0*Power(rij,8.0)*Power(xij,8.0) +
2865 514470.0*Power(rij,9.0)*Power(xij,9.0) +
2866 13332.0*Power(rij,10.0)*Power(xij,10.0) +
2867 148.0*Power(rij,11.0)*Power(xij,11.0)) -
2868 50.0*Power(xii,8.0)*Power(xij,22.0)*
2869 (-51768833574150.0 - 5003280391725.0*rij*xij +
2870 4493439477450.0*Power(rij,2.0)*Power(xij,2.0) +
2871 1286866176750.0*Power(rij,3.0)*Power(xij,3.0) +
2872 111437476920.0*Power(rij,4.0)*Power(xij,4.0) -
2873 6620313546.0*Power(rij,5.0)*Power(xij,5.0) -
2874 2406603276.0*Power(rij,6.0)*Power(xij,6.0) -
2875 242686620.0*Power(rij,7.0)*Power(xij,7.0) -
2876 12228876.0*Power(rij,8.0)*Power(xij,8.0) -
2877 256223.0*Power(rij,9.0)*Power(xij,9.0) +
2878 2486.0*Power(rij,10.0)*Power(xij,10.0) + 158.0*Power(rij,11.0)*Power(xij,11.0)\
2879 ) + 25.0*Power(xii,22.0)*Power(xij,8.0)*
2880 (-1119853350.0 - 2053064475.0*rij*xij -
2881 1866422250.0*Power(rij,2.0)*Power(xij,2.0) -
2882 1119853350.0*Power(rij,3.0)*Power(xij,3.0) -
2883 497712600.0*Power(rij,4.0)*Power(xij,4.0) -
2884 194415606.0*Power(rij,5.0)*Power(xij,5.0) -
2885 9338868.0*Power(rij,6.0)*Power(xij,6.0) -
2886 31217076.0*Power(rij,7.0)*Power(xij,7.0) -
2887 2256804.0*Power(rij,8.0)*Power(xij,8.0) +
2888 246774.0*Power(rij,9.0)*Power(xij,9.0) +
2889 22836.0*Power(rij,10.0)*Power(xij,10.0) +
2890 316.0*Power(rij,11.0)*Power(xij,11.0)) +
2891 3.0*Power(xii,6.0)*Power(xij,24.0)*
2892 (596006592662250.0 + 266778699697125.0*rij*xij +
2893 37515651153750.0*Power(rij,2.0)*Power(xij,2.0) -
2894 2214626163750.0*Power(rij,3.0)*Power(xij,3.0) -
2895 1538075107800.0*Power(rij,4.0)*Power(xij,4.0) -
2896 248955308910.0*Power(rij,5.0)*Power(xij,5.0) -
2897 21434337540.0*Power(rij,6.0)*Power(xij,6.0) -
2898 957980100.0*Power(rij,7.0)*Power(xij,7.0) -
2899 4874100.0*Power(rij,8.0)*Power(xij,8.0) +
2900 1831830.0*Power(rij,9.0)*Power(xij,9.0) +
2901 91828.0*Power(rij,10.0)*Power(xij,10.0) +
2902 1532.0*Power(rij,11.0)*Power(xij,11.0))))/
2903 (4.67775e6*Power(E,2.0*rij*(xii + xij))*rij*
2904 Power(Power(xii,2.0) - Power(xij,2.0),21.0))
2905 ;
2906 }
2907 return S;
2908 }
2909
2910 double Slater_5S_1S(double rij,double xii,double xij)
2911 {
2912 return Slater_1S_5S(rij,xij,xii);
2913 }
2914
2915 double Slater_5S_2S(double rij,double xii,double xij)
2916 {
2917 return Slater_2S_5S(rij,xij,xii);
2918 }
2919
2920 double Slater_5S_3S(double rij,double xii,double xij)
2921 {
2922 return Slater_3S_5S(rij,xij,xii);
2923 }
2924
2925 double Slater_5S_4S(double rij,double xii,double xij)
2926 {
2927 return Slater_4S_5S(rij,xij,xii);
2928 }
2929
2930 static double Slater_6S_6S(double rij,double xij,double xii)
2931 {
2932 double S;
2933
2934 if (xii == xij) {
2935 S = -(3722690410399436636160000.0 - 3722690410399436636160000.0*Power(E,2.0*rij*xii) +
2936 6924936452406883646360625.0*rij*xii +
2937 6404492084014894020401250.0*Power(rij,2.0)*Power(xii,2.0) +
2938 3925597144715015967697500.0*Power(rij,3.0)*Power(xii,3.0) +
2939 1793665117676464332300000.0*Power(rij,4.0)*Power(xii,4.0) +
2940 651524259419605812240000.0*Power(rij,5.0)*Power(xii,5.0) +
2941 195930326813816174580000.0*Power(rij,6.0)*Power(xii,6.0) +
2942 50160444229615663944000.0*Power(rij,7.0)*Power(xii,7.0) +
2943 11155494661051156416000.0*Power(rij,8.0)*Power(xii,8.0) +
2944 2188143143401479264000.0*Power(rij,9.0)*Power(xii,9.0) +
2945 382976811299821939200.0*Power(rij,10.0)*Power(xii,10.0) +
2946 60350063176103500800.0*Power(rij,11.0)*Power(xii,11.0) +
2947 8621483857123737600.0*Power(rij,12.0)*Power(xii,12.0) +
2948 1122323342347468800.0*Power(rij,13.0)*Power(xii,13.0) +
2949 133609921708032000.0*Power(rij,14.0)*Power(xii,14.0) +
2950 14575627822694400.0*Power(rij,15.0)*Power(xii,15.0) +
2951 1457562782269440.0*Power(rij,16.0)*Power(xii,16.0) +
2952 133371757854720.0*Power(rij,17.0)*Power(xii,17.0) +
2953 11114313154560.0*Power(rij,18.0)*Power(xii,18.0) +
2954 835662643200.0*Power(rij,19.0)*Power(xii,19.0) +
2955 55710842880.0*Power(rij,20.0)*Power(xii,20.0) +
2956 3183476736.0*Power(rij,21.0)*Power(xii,21.0) +
2957 144703488.0*Power(rij,22.0)*Power(xii,22.0) +
2958 4194304.0*Power(rij,23.0)*Power(xii,23.0))/
2959 (3.7226904103994365e24*Power(E,2.0*rij*xii)*rij)
2960 ;
2961 }
2962 else {
2963 S = (2806650.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),23.0) +
2964 Power(E,2.0*rij*xij)*Power(xij,14.0)*
2965 (-1056.0*Power(rij,10.0)*Power(xii,42.0) - 12.0*Power(rij,11.0)*Power(xii,43.0) +
2966 2806650.0*Power(xij,32.0) + 5145525.0*rij*xii*Power(xij,32.0) -
2967 88.0*Power(rij,9.0)*Power(xii,41.0)*(510.0 + Power(rij,2.0)*Power(xij,2.0)) +
2968 935550.0*Power(xii,2.0)*Power(xij,30.0)*
2969 (-69.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) +
2970 467775.0*rij*Power(xii,3.0)*Power(xij,30.0)*
2971 (-253.0 + 6.0*Power(rij,2.0)*Power(xij,2.0)) -
2972 132.0*Power(rij,8.0)*Power(xii,40.0)*
2973 (9180.0 + 89.0*Power(rij,2.0)*Power(xij,2.0)) +
2974 311850.0*Power(xii,4.0)*Power(xij,28.0)*
2975 (2277.0 - 345.0*Power(rij,2.0)*Power(xij,2.0) +
2976 4.0*Power(rij,4.0)*Power(xij,4.0)) +
2977 31185.0*rij*Power(xii,5.0)*Power(xij,28.0)*
2978 (41745.0 - 2070.0*Power(rij,2.0)*Power(xij,2.0) +
2979 14.0*Power(rij,4.0)*Power(xij,4.0)) +
2980 1980.0*Power(rij,6.0)*Power(xii,38.0)*
2981 (-162792.0 - 11859.0*Power(rij,2.0)*Power(xij,2.0) +
2982 41.0*Power(rij,4.0)*Power(xij,4.0)) +
2983 22.0*Power(rij,7.0)*Power(xii,39.0)*
2984 (-1046520.0 - 30885.0*Power(rij,2.0)*Power(xij,2.0) +
2985 44.0*Power(rij,4.0)*Power(xij,4.0)) +
2986 62370.0*Power(xii,6.0)*Power(xij,26.0)*
2987 (-79695.0 + 18975.0*Power(rij,2.0)*Power(xij,2.0) -
2988 460.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
2989 110.0*Power(rij,5.0)*Power(xii,37.0)*
2990 (30767688.0 + 4989438.0*Power(rij,2.0)*Power(xij,2.0) -
2991 25359.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) +
2992 1485.0*rij*Power(xii,7.0)*Power(xij,26.0)*
2993 (-6136515.0 + 478170.0*Power(rij,2.0)*Power(xij,2.0) -
2994 6762.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
2995 132.0*Power(rij,4.0)*Power(xii,36.0)*
2996 (201455100.0 + 69647445.0*Power(rij,2.0)*Power(xij,2.0) -
2997 318735.0*Power(rij,4.0)*Power(xij,4.0) + 353.0*Power(rij,6.0)*Power(xij,6.0)) \
2998 + 495.0*rij*Power(xii,9.0)*Power(xij,24.0)*
2999 (92047725.0 - 10041570.0*Power(rij,2.0)*Power(xij,2.0) +
3000 223146.0*Power(rij,4.0)*Power(xij,4.0) -
3001 1380.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
3002 2970.0*Power(xii,8.0)*Power(xij,24.0)*
3003 (8367975.0 - 2789325.0*Power(rij,2.0)*Power(xij,2.0) +
3004 106260.0*Power(rij,4.0)*Power(xij,4.0) -
3005 966.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
3006 22.0*Power(rij,3.0)*Power(xii,35.0)*
3007 (6950200950.0 + 5142653145.0*Power(rij,2.0)*Power(xij,2.0) +
3008 7644510.0*Power(rij,4.0)*Power(xij,4.0) -
3009 235635.0*Power(rij,6.0)*Power(xij,6.0) + 124.0*Power(rij,8.0)*Power(xij,8.0)) \
3010 - 132.0*Power(rij,2.0)*Power(xii,34.0)*
3011 (4633467300.0 + 7767871650.0*Power(rij,2.0)*Power(xij,2.0) +
3012 160904205.0*Power(rij,4.0)*Power(xij,4.0) -
3013 2493315.0*Power(rij,6.0)*Power(xij,6.0) +
3014 5281.0*Power(rij,8.0)*Power(xij,8.0)) -
3015 495.0*rij*Power(xii,27.0)*Power(xij,6.0)*
3016 (8395934795325.0 - 439434024750.0*Power(rij,2.0)*Power(xij,2.0) +
3017 11948496210.0*Power(rij,4.0)*Power(xij,4.0) -
3018 118623972.0*Power(rij,6.0)*Power(xij,6.0) +
3019 248906.0*Power(rij,8.0)*Power(xij,8.0)) +
3020 11.0*rij*Power(xii,15.0)*Power(xij,18.0)*
3021 (1488922594425.0 + 252796524750.0*Power(rij,2.0)*Power(xij,2.0) +
3022 6172031250.0*Power(rij,4.0)*Power(xij,4.0) +
3023 104343660.0*Power(rij,6.0)*Power(xij,6.0) +
3024 66810.0*Power(rij,8.0)*Power(xij,8.0) - 88.0*Power(rij,10.0)*Power(xij,10.0)) \
3025 + 66.0*Power(xii,10.0)*Power(xij,22.0)*
3026 (-1430923725.0 + 627598125.0*Power(rij,2.0)*Power(xij,2.0) -
3027 33471900.0*Power(rij,4.0)*Power(xij,4.0) +
3028 478170.0*Power(rij,6.0)*Power(xij,6.0) -
3029 2070.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) -
3030 1518.0*Power(xii,12.0)*Power(xij,20.0)*
3031 (-186642225.0 + 103690125.0*Power(rij,2.0)*Power(xij,2.0) -
3032 7276500.0*Power(rij,4.0)*Power(xij,4.0) +
3033 145530.0*Power(rij,6.0)*Power(xij,6.0) -
3034 990.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) +
3035 3.0*rij*Power(xii,11.0)*Power(xij,22.0)*
3036 (-57713923575.0 + 8284295250.0*Power(rij,2.0)*Power(xij,2.0) -
3037 257733630.0*Power(rij,4.0)*Power(xij,4.0) +
3038 2504700.0*Power(rij,6.0)*Power(xij,6.0) -
3039 7590.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
3040 11.0*rij*Power(xii,13.0)*Power(xij,20.0)*
3041 (56066193225.0 - 6918959250.0*Power(rij,2.0)*Power(xij,2.0) +
3042 430816050.0*Power(rij,4.0)*Power(xij,4.0) -
3043 3349620.0*Power(rij,6.0)*Power(xij,6.0) +
3044 33690.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) \
3045 + 55.0*rij*Power(xii,17.0)*Power(xij,16.0)*
3046 (7416068831325.0 + 658162968750.0*Power(rij,2.0)*Power(xij,2.0) +
3047 11421785970.0*Power(rij,4.0)*Power(xij,4.0) -
3048 22800852.0*Power(rij,6.0)*Power(xij,6.0) -
3049 224214.0*Power(rij,8.0)*Power(xij,8.0) + 40.0*Power(rij,10.0)*Power(xij,10.0)\
3050 ) - 198.0*Power(xii,14.0)*Power(xij,18.0)*
3051 (12601626975.0 + 2529410625.0*Power(rij,2.0)*Power(xij,2.0) +
3052 582340500.0*Power(rij,4.0)*Power(xij,4.0) +
3053 3239250.0*Power(rij,6.0)*Power(xij,6.0) +
3054 132690.0*Power(rij,8.0)*Power(xij,8.0) + 74.0*Power(rij,10.0)*Power(xij,10.0)\
3055 ) - 231.0*rij*Power(xii,25.0)*Power(xij,8.0)*
3056 (21444497452125.0 - 909858116250.0*Power(rij,2.0)*Power(xij,2.0) +
3057 1447333650.0*Power(rij,4.0)*Power(xij,4.0) +
3058 178686540.0*Power(rij,6.0)*Power(xij,6.0) -
3059 747270.0*Power(rij,8.0)*Power(xij,8.0) +
3060 184.0*Power(rij,10.0)*Power(xij,10.0)) -
3061 198.0*Power(xii,20.0)*Power(xij,12.0)*
3062 (42449899182075.0 + 4344172457625.0*Power(rij,2.0)*Power(xij,2.0) -
3063 85249741500.0*Power(rij,4.0)*Power(xij,4.0) -
3064 1059301110.0*Power(rij,6.0)*Power(xij,6.0) +
3065 6582370.0*Power(rij,8.0)*Power(xij,8.0) +
3066 194.0*Power(rij,10.0)*Power(xij,10.0)) +
3067 11.0*rij*Power(xii,19.0)*Power(xij,14.0)*
3068 (239338679943825.0 + 8851966719750.0*Power(rij,2.0)*Power(xij,2.0) -
3069 112537092150.0*Power(rij,4.0)*Power(xij,4.0) -
3070 1100275380.0*Power(rij,6.0)*Power(xij,6.0) +
3071 2919090.0*Power(rij,8.0)*Power(xij,8.0) +
3072 248.0*Power(rij,10.0)*Power(xij,10.0)) -
3073 330.0*Power(xii,28.0)*Power(xij,4.0)*
3074 (4860066085875.0 + 2524912849305.0*Power(rij,2.0)*Power(xij,2.0) -
3075 109538431380.0*Power(rij,4.0)*Power(xij,4.0) +
3076 1633704282.0*Power(rij,6.0)*Power(xij,6.0) -
3077 6421278.0*Power(rij,8.0)*Power(xij,8.0) +
3078 322.0*Power(rij,10.0)*Power(xij,10.0)) +
3079 33.0*rij*Power(xii,29.0)*Power(xij,4.0)*
3080 (-31641507079875.0 - 2157639318450.0*Power(rij,2.0)*Power(xij,2.0) +
3081 74910015810.0*Power(rij,4.0)*Power(xij,4.0) -
3082 522003060.0*Power(rij,6.0)*Power(xij,6.0) -
3083 250470.0*Power(rij,8.0)*Power(xij,8.0) +
3084 1288.0*Power(rij,10.0)*Power(xij,10.0)) -
3085 330.0*Power(xii,18.0)*Power(xij,14.0)*
3086 (4867016286825.0 + 1199363925375.0*Power(rij,2.0)*Power(xij,2.0) +
3087 26817947100.0*Power(rij,4.0)*Power(xij,4.0) -
3088 167333418.0*Power(rij,6.0)*Power(xij,6.0) -
3089 1476138.0*Power(rij,8.0)*Power(xij,8.0) +
3090 1294.0*Power(rij,10.0)*Power(xij,10.0)) +
3091 66.0*Power(xii,16.0)*Power(xij,16.0)*
3092 (-1657759205025.0 - 682207855875.0*Power(rij,2.0)*Power(xij,2.0) -
3093 31509229500.0*Power(rij,4.0)*Power(xij,4.0) -
3094 492146550.0*Power(rij,6.0)*Power(xij,6.0) -
3095 11910.0*Power(rij,8.0)*Power(xij,8.0) +
3096 2594.0*Power(rij,10.0)*Power(xij,10.0)) +
3097 1386.0*Power(xii,26.0)*Power(xij,6.0)*
3098 (-6066588045375.0 + 98854491375.0*Power(rij,2.0)*Power(xij,2.0) -
3099 12496954500.0*Power(rij,4.0)*Power(xij,4.0) +
3100 420813750.0*Power(rij,6.0)*Power(xij,6.0) -
3101 2881210.0*Power(rij,8.0)*Power(xij,8.0) +
3102 2622.0*Power(rij,10.0)*Power(xij,10.0)) +
3103 11.0*rij*Power(xii,23.0)*Power(xij,10.0)*
3104 (149900659402725.0 - 26541339882750.0*Power(rij,2.0)*Power(xij,2.0) +
3105 594745455150.0*Power(rij,4.0)*Power(xij,4.0) -
3106 1399125420.0*Power(rij,6.0)*Power(xij,6.0) -
3107 7887390.0*Power(rij,8.0)*Power(xij,8.0) +
3108 4232.0*Power(rij,10.0)*Power(xij,10.0)) -
3109 11.0*rij*Power(xii,31.0)*Power(xij,2.0)*
3110 (7685082491625.0 + 5034333946950.0*Power(rij,2.0)*Power(xij,2.0) -
3111 108088893990.0*Power(rij,4.0)*Power(xij,4.0) +
3112 1254174300.0*Power(rij,6.0)*Power(xij,6.0) -
3113 6355950.0*Power(rij,8.0)*Power(xij,8.0) +
3114 4232.0*Power(rij,10.0)*Power(xij,10.0)) -
3115 462.0*Power(xii,24.0)*Power(xij,8.0)*
3116 (40495013164125.0 - 3973079865375.0*Power(rij,2.0)*Power(xij,2.0) +
3117 110288047500.0*Power(rij,4.0)*Power(xij,4.0) -
3118 381623130.0*Power(rij,6.0)*Power(xij,6.0) -
3119 4811370.0*Power(rij,8.0)*Power(xij,8.0) +
3120 9338.0*Power(rij,10.0)*Power(xij,10.0)) +
3121 198.0*Power(xii,32.0)*(-9126526500.0 -
3122 152866565775.0*Power(rij,2.0)*Power(xij,2.0) -
3123 32383266300.0*Power(rij,4.0)*Power(xij,4.0) +
3124 709444890.0*Power(rij,6.0)*Power(xij,6.0) -
3125 5562070.0*Power(rij,8.0)*Power(xij,8.0) +
3126 11042.0*Power(rij,10.0)*Power(xij,10.0)) +
3127 2.0*rij*Power(xii,33.0)*(-764522104500.0 -
3128 3357151476525.0*Power(rij,2.0)*Power(xij,2.0) -
3129 242177564475.0*Power(rij,4.0)*Power(xij,4.0) +
3130 4513719870.0*Power(rij,6.0)*Power(xij,6.0) -
3131 20531775.0*Power(rij,8.0)*Power(xij,8.0) +
3132 11236.0*Power(rij,10.0)*Power(xij,10.0)) -
3133 rij*Power(xii,21.0)*Power(xij,12.0)*
3134 (-5533525427435775.0 + 138591131159250.0*Power(rij,2.0)*Power(xij,2.0) +
3135 2815739907750.0*Power(rij,4.0)*Power(xij,4.0) -
3136 32922004500.0*Power(rij,6.0)*Power(xij,6.0) +
3137 11347050.0*Power(rij,8.0)*Power(xij,8.0) +
3138 22472.0*Power(rij,10.0)*Power(xij,10.0)) +
3139 66.0*Power(xii,22.0)*Power(xij,10.0)*
3140 (-283522589265825.0 + 7639225988625.0*Power(rij,2.0)*Power(xij,2.0) +
3141 480728209500.0*Power(rij,4.0)*Power(xij,4.0) -
3142 8458349130.0*Power(rij,6.0)*Power(xij,6.0) +
3143 9771090.0*Power(rij,8.0)*Power(xij,8.0) +
3144 31786.0*Power(rij,10.0)*Power(xij,10.0)) -
3145 66.0*Power(xii,30.0)*Power(xij,2.0)*
3146 (1678609807875.0 + 4713298976925.0*Power(rij,2.0)*Power(xij,2.0) -
3147 30578971500.0*Power(rij,4.0)*Power(xij,4.0) +
3148 53723250.0*Power(rij,6.0)*Power(xij,6.0) -
3149 9140190.0*Power(rij,8.0)*Power(xij,8.0) +
3150 38042.0*Power(rij,10.0)*Power(xij,10.0))) +
3151 Power(E,2.0*rij*xii)*Power(xii,14.0)*
3152 (-302841.0*Power(xii,16.0)*Power(xij,16.0)*
3153 (-361285650.0 + 1346857875.0*rij*xij -
3154 1306923750.0*Power(rij,2.0)*Power(xij,2.0) +
3155 321527250.0*Power(rij,3.0)*Power(xij,3.0) +
3156 55737000.0*Power(rij,4.0)*Power(xij,4.0) -
3157 9297750.0*Power(rij,5.0)*Power(xij,5.0) -
3158 1843380.0*Power(rij,6.0)*Power(xij,6.0) -
3159 50820.0*Power(rij,7.0)*Power(xij,7.0) +
3160 7340.0*Power(rij,8.0)*Power(xij,8.0) + 570.0*Power(rij,9.0)*Power(xij,9.0) +
3161 12.0*Power(rij,10.0)*Power(xij,10.0)) +
3162 12.0*Power(xij,32.0)*(150587687250.0 + 127420350750.0*rij*xij +
3163 50968140300.0*Power(rij,2.0)*Power(xij,2.0) +
3164 12742035075.0*Power(rij,3.0)*Power(xij,3.0) +
3165 2216006100.0*Power(rij,4.0)*Power(xij,4.0) +
3166 282037140.0*Power(rij,5.0)*Power(xij,5.0) +
3167 26860680.0*Power(rij,6.0)*Power(xij,6.0) +
3168 1918620.0*Power(rij,7.0)*Power(xij,7.0) +
3169 100980.0*Power(rij,8.0)*Power(xij,8.0) +
3170 3740.0*Power(rij,9.0)*Power(xij,9.0) + 88.0*Power(rij,10.0)*Power(xij,10.0) +
3171 Power(rij,11.0)*Power(xij,11.0)) -
3172 3.0*Power(xii,32.0)*(935550.0 + 1715175.0*rij*xij +
3173 1559250.0*Power(rij,2.0)*Power(xij,2.0) +
3174 935550.0*Power(rij,3.0)*Power(xij,3.0) +
3175 415800.0*Power(rij,4.0)*Power(xij,4.0) +
3176 145530.0*Power(rij,5.0)*Power(xij,5.0) +
3177 41580.0*Power(rij,6.0)*Power(xij,6.0) +
3178 9900.0*Power(rij,7.0)*Power(xij,7.0) + 1980.0*Power(rij,8.0)*Power(xij,8.0) +
3179 330.0*Power(rij,9.0)*Power(xij,9.0) + 44.0*Power(rij,10.0)*Power(xij,10.0) +
3180 4.0*Power(rij,11.0)*Power(xij,11.0)) -
3181 11.0*Power(xii,30.0)*Power(xij,2.0)*
3182 (-5868450.0 - 10758825.0*rij*xij - 9780750.0*Power(rij,2.0)*Power(xij,2.0) -
3183 5868450.0*Power(rij,3.0)*Power(xij,3.0) -
3184 2608200.0*Power(rij,4.0)*Power(xij,4.0) -
3185 912870.0*Power(rij,5.0)*Power(xij,5.0) -
3186 260820.0*Power(rij,6.0)*Power(xij,6.0) -
3187 62100.0*Power(rij,7.0)*Power(xij,7.0) -
3188 12420.0*Power(rij,8.0)*Power(xij,8.0) -
3189 2070.0*Power(rij,9.0)*Power(xij,9.0) -
3190 276.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) -
3191 5313.0*Power(xii,14.0)*Power(xij,18.0)*
3192 (-302299148250.0 + 495525217275.0*rij*xij -
3193 161894625750.0*Power(rij,2.0)*Power(xij,2.0) -
3194 26085287250.0*Power(rij,3.0)*Power(xij,3.0) +
3195 5971779000.0*Power(rij,4.0)*Power(xij,4.0) +
3196 1231357050.0*Power(rij,5.0)*Power(xij,5.0) +
3197 33184620.0*Power(rij,6.0)*Power(xij,6.0) -
3198 7768980.0*Power(rij,7.0)*Power(xij,7.0) -
3199 751620.0*Power(rij,8.0)*Power(xij,8.0) -
3200 23190.0*Power(rij,9.0)*Power(xij,9.0) -
3201 20.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
3202 5313.0*Power(xii,18.0)*Power(xij,14.0)*
3203 (469625850.0 - 3082655475.0*rij*xij +
3204 8474631750.0*Power(rij,2.0)*Power(xij,2.0) -
3205 6813281250.0*Power(rij,3.0)*Power(xij,3.0) +
3206 1665711000.0*Power(rij,4.0)*Power(xij,4.0) +
3207 232996050.0*Power(rij,5.0)*Power(xij,5.0) -
3208 39477060.0*Power(rij,6.0)*Power(xij,6.0) -
3209 6196500.0*Power(rij,7.0)*Power(xij,7.0) -
3210 121380.0*Power(rij,8.0)*Power(xij,8.0) +
3211 16330.0*Power(rij,9.0)*Power(xij,9.0) +
3212 812.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
3213 11.0*Power(xii,2.0)*Power(xij,30.0)*
3214 (10071658847250.0 + 7685082491625.0*rij*xij +
3215 2751598183950.0*Power(rij,2.0)*Power(xij,2.0) +
3216 610391177550.0*Power(rij,3.0)*Power(xij,3.0) +
3217 93214459800.0*Power(rij,4.0)*Power(xij,4.0) +
3218 10285306290.0*Power(rij,5.0)*Power(xij,5.0) +
3219 835769340.0*Power(rij,6.0)*Power(xij,6.0) +
3220 49894380.0*Power(rij,7.0)*Power(xij,7.0) +
3221 2134620.0*Power(rij,8.0)*Power(xij,8.0) +
3222 61770.0*Power(rij,9.0)*Power(xij,9.0) +
3223 1068.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) \
3224 + 11.0*Power(xii,28.0)*Power(xij,4.0)*
3225 (-64552950.0 - 118347075.0*rij*xij -
3226 107588250.0*Power(rij,2.0)*Power(xij,2.0) -
3227 64552950.0*Power(rij,3.0)*Power(xij,3.0) -
3228 28690200.0*Power(rij,4.0)*Power(xij,4.0) -
3229 10041570.0*Power(rij,5.0)*Power(xij,5.0) -
3230 2869020.0*Power(rij,6.0)*Power(xij,6.0) -
3231 683100.0*Power(rij,7.0)*Power(xij,7.0) -
3232 136620.0*Power(rij,8.0)*Power(xij,8.0) -
3233 33690.0*Power(rij,9.0)*Power(xij,9.0) +
3234 1332.0*Power(rij,10.0)*Power(xij,10.0) + 88.0*Power(rij,11.0)*Power(xij,11.0)) \
3235 - 11.0*Power(xii,4.0)*Power(xij,28.0)*
3236 (-145801982576250.0 - 94924521239625.0*rij*xij -
3237 28279793861550.0*Power(rij,2.0)*Power(xij,2.0) -
3238 5034333946950.0*Power(rij,3.0)*Power(xij,3.0) -
3239 582898793400.0*Power(rij,4.0)*Power(xij,4.0) -
3240 44032284450.0*Power(rij,5.0)*Power(xij,5.0) -
3241 1930850460.0*Power(rij,6.0)*Power(xij,6.0) -
3242 15289020.0*Power(rij,7.0)*Power(xij,7.0) +
3243 3824820.0*Power(rij,8.0)*Power(xij,8.0) +
3244 253590.0*Power(rij,9.0)*Power(xij,9.0) +
3245 7380.0*Power(rij,10.0)*Power(xij,10.0) + 88.0*Power(rij,11.0)*Power(xij,11.0)) \
3246 - 253.0*Power(xii,20.0)*Power(xij,12.0)*
3247 (1119853350.0 + 2437660575.0*rij*xij -
3248 1979538750.0*Power(rij,2.0)*Power(xij,2.0) +
3249 10991153250.0*Power(rij,3.0)*Power(xij,3.0) -
3250 8219799000.0*Power(rij,4.0)*Power(xij,4.0) +
3251 2482996950.0*Power(rij,5.0)*Power(xij,5.0) +
3252 218260980.0*Power(rij,6.0)*Power(xij,6.0) -
3253 47838060.0*Power(rij,7.0)*Power(xij,7.0) -
3254 5151420.0*Power(rij,8.0)*Power(xij,8.0) -
3255 44850.0*Power(rij,9.0)*Power(xij,9.0) +
3256 8292.0*Power(rij,10.0)*Power(xij,10.0) + 184.0*Power(rij,11.0)*Power(xij,11.0)\
3257 ) + 253.0*Power(xii,12.0)*Power(xij,20.0)*
3258 (33221660229450.0 - 21871642005675.0*rij*xij -
3259 1992841562250.0*Power(rij,2.0)*Power(xij,2.0) +
3260 1153971299250.0*Power(rij,3.0)*Power(xij,3.0) +
3261 201395565000.0*Power(rij,4.0)*Power(xij,4.0) +
3262 1321478550.0*Power(rij,5.0)*Power(xij,5.0) -
3263 2305327500.0*Power(rij,6.0)*Power(xij,6.0) -
3264 232090380.0*Power(rij,7.0)*Power(xij,7.0) -
3265 8375580.0*Power(rij,8.0)*Power(xij,8.0) +
3266 32670.0*Power(rij,9.0)*Power(xij,9.0) +
3267 9924.0*Power(rij,10.0)*Power(xij,10.0) + 184.0*Power(rij,11.0)*Power(xij,11.0)\
3268 ) + 11.0*Power(xii,6.0)*Power(xij,26.0)*
3269 (764390093717250.0 + 377817065789625.0*rij*xij +
3270 75747385479150.0*Power(rij,2.0)*Power(xij,2.0) +
3271 6472917955350.0*Power(rij,3.0)*Power(xij,3.0) -
3272 183473829000.0*Power(rij,4.0)*Power(xij,4.0) -
3273 108088893990.0*Power(rij,5.0)*Power(xij,5.0) -
3274 12770008020.0*Power(rij,6.0)*Power(xij,6.0) -
3275 820676340.0*Power(rij,7.0)*Power(xij,7.0) -
3276 29919780.0*Power(rij,8.0)*Power(xij,8.0) -
3277 471270.0*Power(rij,9.0)*Power(xij,9.0) +
3278 4236.0*Power(rij,10.0)*Power(xij,10.0) + 200.0*Power(rij,11.0)*Power(xij,11.0)\
3279 ) - 11.0*Power(xii,26.0)*Power(xij,6.0)*
3280 (-451870650.0 - 828429525.0*rij*xij -
3281 753117750.0*Power(rij,2.0)*Power(xij,2.0) -
3282 451870650.0*Power(rij,3.0)*Power(xij,3.0) -
3283 200831400.0*Power(rij,4.0)*Power(xij,4.0) -
3284 70290990.0*Power(rij,5.0)*Power(xij,5.0) -
3285 20083140.0*Power(rij,6.0)*Power(xij,6.0) -
3286 3349620.0*Power(rij,7.0)*Power(xij,7.0) -
3287 2388420.0*Power(rij,8.0)*Power(xij,8.0) +
3288 66810.0*Power(rij,9.0)*Power(xij,9.0) +
3289 15564.0*Power(rij,10.0)*Power(xij,10.0) +
3290 200.0*Power(rij,11.0)*Power(xij,11.0)) -
3291 11.0*Power(xii,24.0)*Power(xij,8.0)*
3292 (2259353250.0 + 4142147625.0*rij*xij +
3293 3765588750.0*Power(rij,2.0)*Power(xij,2.0) +
3294 2259353250.0*Power(rij,3.0)*Power(xij,3.0) +
3295 1004157000.0*Power(rij,4.0)*Power(xij,4.0) +
3296 430816050.0*Power(rij,5.0)*Power(xij,5.0) -
3297 58306500.0*Power(rij,6.0)*Power(xij,6.0) +
3298 104343660.0*Power(rij,7.0)*Power(xij,7.0) -
3299 71460.0*Power(rij,8.0)*Power(xij,8.0) -
3300 1121070.0*Power(rij,9.0)*Power(xij,9.0) -
3301 38820.0*Power(rij,10.0)*Power(xij,10.0) +
3302 248.0*Power(rij,11.0)*Power(xij,11.0)) +
3303 11.0*Power(xii,8.0)*Power(xij,24.0)*
3304 (1700790552893250.0 + 450334446494625.0*rij*xij -
3305 12455665913250.0*Power(rij,2.0)*Power(xij,2.0) -
3306 19774531113750.0*Power(rij,3.0)*Power(xij,3.0) -
3307 3286152941400.0*Power(rij,4.0)*Power(xij,4.0) -
3308 224730047430.0*Power(rij,5.0)*Power(xij,5.0) +
3309 322339500.0*Power(rij,6.0)*Power(xij,6.0) +
3310 1254174300.0*Power(rij,7.0)*Power(xij,7.0) +
3311 100117260.0*Power(rij,8.0)*Power(xij,8.0) +
3312 3733050.0*Power(rij,9.0)*Power(xij,9.0) +
3313 63372.0*Power(rij,10.0)*Power(xij,10.0) +
3314 248.0*Power(rij,11.0)*Power(xij,11.0)) +
3315 Power(xii,22.0)*Power(xij,10.0)*
3316 (94440965850.0 + 173141770725.0*rij*xij +
3317 157401609750.0*Power(rij,2.0)*Power(xij,2.0) +
3318 76108551750.0*Power(rij,3.0)*Power(xij,3.0) +
3319 115303419000.0*Power(rij,4.0)*Power(xij,4.0) -
3320 67892343750.0*Power(rij,5.0)*Power(xij,5.0) +
3321 32481672300.0*Power(rij,6.0)*Power(xij,6.0) +
3322 1254046860.0*Power(rij,7.0)*Power(xij,7.0) -
3323 487125540.0*Power(rij,8.0)*Power(xij,8.0) -
3324 32109990.0*Power(rij,9.0)*Power(xij,9.0) +
3325 38412.0*Power(rij,10.0)*Power(xij,10.0) +
3326 22472.0*Power(rij,11.0)*Power(xij,11.0)) -
3327 Power(xii,10.0)*Power(xij,22.0)*
3328 (-18712490891544450.0 + 1648907253429975.0*rij*xij +
3329 1835562897803250.0*Power(rij,2.0)*Power(xij,2.0) +
3330 210177224853750.0*Power(rij,3.0)*Power(xij,3.0) -
3331 17320778937000.0*Power(rij,4.0)*Power(xij,4.0) -
3332 5914505623950.0*Power(rij,5.0)*Power(xij,5.0) -
3333 539122413060.0*Power(rij,6.0)*Power(xij,6.0) -
3334 17226100980.0*Power(rij,7.0)*Power(xij,7.0) +
3335 603252540.0*Power(rij,8.0)*Power(xij,8.0) +
3336 69915450.0*Power(rij,9.0)*Power(xij,9.0) +
3337 2186316.0*Power(rij,10.0)*Power(xij,10.0) +
3338 22472.0*Power(rij,11.0)*Power(xij,11.0))))/
3339 (2.80665e6*Power(E,2.0*rij*(xii + xij))*rij*
3340 Power(Power(xii,2.0) - Power(xij,2.0),23.0))
3341 ;
3342 }
3343 return S;
3344 }
3345
3346 double Slater_6S_1S(double rij,double xii,double xij)
3347 {
3348 return Slater_1S_6S(rij,xij,xii);
3349 }
3350
3351 double Slater_6S_2S(double rij,double xii,double xij)
3352 {
3353 return Slater_2S_6S(rij,xij,xii);
3354 }
3355
3356 double Slater_6S_3S(double rij,double xii,double xij)
3357 {
3358 return Slater_3S_6S(rij,xij,xii);
3359 }
3360
3361 double Slater_6S_4S(double rij,double xii,double xij)
3362 {
3363 return Slater_4S_6S(rij,xij,xii);
3364 }
3365
3366 double Slater_6S_5S(double rij,double xii,double xij)
3367 {
3368 return Slater_5S_6S(rij,xij,xii);
3369 }
3370
3371 static double DSlater_1S_1S(double rij,double xij,double xii)
3372 {
3373 double S;
3374
3375 if (xii == xij) {
3376 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) -
3377 7.0*Power(rij,3.0)*Power(xii,3.0) - 2.0*Power(rij,4.0)*Power(xii,4.0))/
3378 (6.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3379 ;
3380 }
3381 else {
3382 S = (Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),3.0) +
3383 Power(E,2.0*rij*xij)*Power(xij,4.0)*
3384 (-6.0*rij*Power(xii,3.0) - 2.0*Power(rij,2.0)*Power(xii,4.0) + Power(xij,2.0) +
3385 2.0*rij*xii*Power(xij,2.0) +
3386 Power(xii,2.0)*(-3.0 + 2.0*Power(rij,2.0)*Power(xij,2.0))) -
3387 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3388 (Power(xii,2.0)*(1.0 + 2.0*rij*xij + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3389 Power(xij,2.0)*(3.0 + 6.0*rij*xij + 2.0*Power(rij,2.0)*Power(xij,2.0))))/
3390 (Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3391 Power(Power(xii,2.0) - Power(xij,2.0),3.0))
3392 ;
3393 }
3394 return S;
3395 }
3396
3397 static double DSlater_1S_2S(double rij,double xij,double xii)
3398 {
3399 double S;
3400
3401 if (xii == xij) {
3402 S = (-120.0 + 120.0*Power(E,2.0*rij*xii) - 240.0*rij*xii -
3403 240.0*Power(rij,2.0)*Power(xii,2.0) - 155.0*Power(rij,3.0)*Power(xii,3.0) -
3404 70.0*Power(rij,4.0)*Power(xii,4.0) - 22.0*Power(rij,5.0)*Power(xii,5.0) -
3405 4.0*Power(rij,6.0)*Power(xii,6.0))/(120.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3406 ;
3407 }
3408 else {
3409 S = (3.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),5.0) +
3410 3.0*Power(E,2.0*rij*xij)*Power(xij,6.0)*
3411 (-4.0*Power(xii,4.0) - 8.0*rij*Power(xii,5.0) - 2.0*Power(rij,2.0)*Power(xii,6.0) -
3412 10.0*rij*Power(xii,3.0)*Power(xij,2.0) + Power(xij,4.0) +
3413 2.0*rij*xii*Power(xij,4.0) +
3414 Power(xii,2.0)*Power(xij,2.0)*(-5.0 + 2.0*Power(rij,2.0)*Power(xij,2.0))) +
3415 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3416 (-6.0*Power(xii,2.0)*Power(xij,4.0)*
3417 (5.0 + 10.0*rij*xij + 13.0*Power(rij,2.0)*Power(xij,2.0) +
3418 6.0*Power(rij,3.0)*Power(xij,3.0) + Power(rij,4.0)*Power(xij,4.0)) +
3419 2.0*Power(xij,6.0)*(21.0 + 42.0*rij*xij + 27.0*Power(rij,2.0)*Power(xij,2.0) +
3420 8.0*Power(rij,3.0)*Power(xij,3.0) + Power(rij,4.0)*Power(xij,4.0)) -
3421 Power(xii,6.0)*(3.0 + 6.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
3422 4.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) +
3423 3.0*Power(xii,4.0)*Power(xij,2.0)*
3424 (5.0 + 10.0*rij*xij + 10.0*Power(rij,2.0)*Power(xij,2.0) +
3425 8.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0))))/
3426 (3.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3427 Power(Power(xii,2.0) - Power(xij,2.0),5.0))
3428 ;
3429 }
3430 return S;
3431 }
3432
3433 static double DSlater_1S_3S(double rij,double xij,double xii)
3434 {
3435 double S;
3436
3437 if (xii == xij) {
3438 S = (-30240.0 + 30240.0*Power(E,2.0*rij*xii) - 60480.0*rij*xii -
3439 60480.0*Power(rij,2.0)*Power(xii,2.0) - 40005.0*Power(rij,3.0)*Power(xii,3.0) -
3440 19530.0*Power(rij,4.0)*Power(xii,4.0) - 7392.0*Power(rij,5.0)*Power(xii,5.0) -
3441 2184.0*Power(rij,6.0)*Power(xii,6.0) - 480.0*Power(rij,7.0)*Power(xii,7.0) -
3442 64.0*Power(rij,8.0)*Power(xii,8.0))/(30240.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3443 ;
3444 }
3445 else {
3446 S = (45.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) +
3447 15.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
3448 (-30.0*rij*Power(xii,7.0) - 6.0*Power(rij,2.0)*Power(xii,8.0) -
3449 126.0*rij*Power(xii,5.0)*Power(xij,2.0) -
3450 42.0*rij*Power(xii,3.0)*Power(xij,4.0) + 3.0*Power(xij,6.0) +
3451 6.0*rij*xii*Power(xij,6.0) +
3452 7.0*Power(xii,4.0)*Power(xij,2.0)*(-9.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3453 3.0*Power(xii,2.0)*Power(xij,4.0)*(-7.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3454 Power(xii,6.0)*(15.0 + 14.0*Power(rij,2.0)*Power(xij,2.0))) +
3455 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3456 (-10.0*Power(xii,2.0)*Power(xij,8.0)*
3457 (135.0 + 270.0*rij*xij + 438.0*Power(rij,2.0)*Power(xij,2.0) +
3458 306.0*Power(rij,3.0)*Power(xij,3.0) + 111.0*Power(rij,4.0)*Power(xij,4.0) +
3459 22.0*Power(rij,5.0)*Power(xij,5.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
3460 2.0*Power(xij,10.0)*(945.0 + 1890.0*rij*xij +
3461 1470.0*Power(rij,2.0)*Power(xij,2.0) + 630.0*Power(rij,3.0)*Power(xij,3.0) +
3462 165.0*Power(rij,4.0)*Power(xij,4.0) + 26.0*Power(rij,5.0)*Power(xij,5.0) +
3463 2.0*Power(rij,6.0)*Power(xij,6.0)) -
3464 Power(xii,10.0)*(45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
3465 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
3466 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
3467 5.0*Power(xii,8.0)*Power(xij,2.0)*
3468 (63.0 + 126.0*rij*xij + 126.0*Power(rij,2.0)*Power(xij,2.0) +
3469 84.0*Power(rij,3.0)*Power(xij,3.0) + 42.0*Power(rij,4.0)*Power(xij,4.0) +
3470 20.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
3471 5.0*Power(xii,6.0)*Power(xij,4.0)*
3472 (189.0 + 378.0*rij*xij + 378.0*Power(rij,2.0)*Power(xij,2.0) +
3473 240.0*Power(rij,3.0)*Power(xij,3.0) + 156.0*Power(rij,4.0)*Power(xij,4.0) +
3474 56.0*Power(rij,5.0)*Power(xij,5.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
3475 5.0*Power(xii,4.0)*Power(xij,6.0)*
3476 (315.0 + 630.0*rij*xij + 558.0*Power(rij,2.0)*Power(xij,2.0) +
3477 528.0*Power(rij,3.0)*Power(xij,3.0) + 276.0*Power(rij,4.0)*Power(xij,4.0) +
3478 72.0*Power(rij,5.0)*Power(xij,5.0) + 8.0*Power(rij,6.0)*Power(xij,6.0))))/
3479 (45.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3480 Power(Power(xii,2.0) - Power(xij,2.0),7.0))
3481 ;
3482 }
3483 return S;
3484 }
3485
3486 static double DSlater_1S_4S(double rij,double xij,double xii)
3487 {
3488 double S;
3489
3490 if (xii == xij) {
3491 S = (-362880.0 + 362880.0*Power(E,2.0*rij*xii) - 725760.0*rij*xii -
3492 725760.0*Power(rij,2.0)*Power(xii,2.0) - 482895.0*Power(rij,3.0)*Power(xii,3.0) -
3493 240030.0*Power(rij,4.0)*Power(xii,4.0) - 94689.0*Power(rij,5.0)*Power(xii,5.0) -
3494 30618.0*Power(rij,6.0)*Power(xii,6.0) - 8208.0*Power(rij,7.0)*Power(xii,7.0) -
3495 1800.0*Power(rij,8.0)*Power(xii,8.0) - 304.0*Power(rij,9.0)*Power(xii,9.0) -
3496 32.0*Power(rij,10.0)*Power(xii,10.0))/(362880.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3497 ;
3498 }
3499 else {
3500 S = (315.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
3501 315.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
3502 (-12.0*rij*Power(xii,9.0) - 2.0*Power(rij,2.0)*Power(xii,10.0) -
3503 51.0*Power(xii,6.0)*Power(xij,2.0) - 102.0*rij*Power(xii,7.0)*Power(xij,2.0) -
3504 126.0*rij*Power(xii,5.0)*Power(xij,4.0) -
3505 18.0*rij*Power(xii,3.0)*Power(xij,6.0) + Power(xij,8.0) +
3506 2.0*rij*xii*Power(xij,8.0) +
3507 Power(xii,2.0)*Power(xij,6.0)*(-9.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3508 6.0*Power(xii,8.0)*(1.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3509 3.0*Power(xii,4.0)*Power(xij,4.0)*(-21.0 + 4.0*Power(rij,2.0)*Power(xij,2.0))) +
3510 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3511 (-42.0*Power(xii,10.0)*Power(xij,4.0)*
3512 (270.0 + 540.0*rij*xij + 540.0*Power(rij,2.0)*Power(xij,2.0) +
3513 360.0*Power(rij,3.0)*Power(xij,3.0) + 180.0*Power(rij,4.0)*Power(xij,4.0) +
3514 69.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
3515 8.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) +
3516 70.0*Power(xii,8.0)*Power(xij,6.0)*
3517 (378.0 + 756.0*rij*xij + 756.0*Power(rij,2.0)*Power(xij,2.0) +
3518 510.0*Power(rij,3.0)*Power(xij,3.0) + 228.0*Power(rij,4.0)*Power(xij,4.0) +
3519 111.0*Power(rij,5.0)*Power(xij,5.0) + 44.0*Power(rij,6.0)*Power(xij,6.0) +
3520 10.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) -
3521 70.0*Power(xii,6.0)*Power(xij,8.0)*
3522 (567.0 + 1134.0*rij*xij + 1179.0*Power(rij,2.0)*Power(xij,2.0) +
3523 630.0*Power(rij,3.0)*Power(xij,3.0) + 387.0*Power(rij,4.0)*Power(xij,4.0) +
3524 204.0*Power(rij,5.0)*Power(xij,5.0) + 66.0*Power(rij,6.0)*Power(xij,6.0) +
3525 12.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) +
3526 42.0*Power(xii,4.0)*Power(xij,10.0)*
3527 (990.0 + 1980.0*rij*xij + 1305.0*Power(rij,2.0)*Power(xij,2.0) +
3528 1230.0*Power(rij,3.0)*Power(xij,3.0) + 885.0*Power(rij,4.0)*Power(xij,4.0) +
3529 372.0*Power(rij,5.0)*Power(xij,5.0) + 94.0*Power(rij,6.0)*Power(xij,6.0) +
3530 14.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) -
3531 Power(xii,14.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
3532 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
3533 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
3534 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
3535 7.0*Power(xii,12.0)*Power(xij,2.0)*
3536 (405.0 + 810.0*rij*xij + 810.0*Power(rij,2.0)*Power(xij,2.0) +
3537 540.0*Power(rij,3.0)*Power(xij,3.0) + 270.0*Power(rij,4.0)*Power(xij,4.0) +
3538 108.0*Power(rij,5.0)*Power(xij,5.0) + 36.0*Power(rij,6.0)*Power(xij,6.0) +
3539 12.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
3540 7.0*Power(xii,2.0)*Power(xij,12.0)*
3541 (1485.0 + 2970.0*rij*xij + 8640.0*Power(rij,2.0)*Power(xij,2.0) +
3542 8280.0*Power(rij,3.0)*Power(xij,3.0) + 4140.0*Power(rij,4.0)*Power(xij,4.0) +
3543 1278.0*Power(rij,5.0)*Power(xij,5.0) + 256.0*Power(rij,6.0)*Power(xij,6.0) +
3544 32.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
3545 Power(xij,14.0)*(31185.0 + 62370.0*rij*xij +
3546 52920.0*Power(rij,2.0)*Power(xij,2.0) +
3547 26460.0*Power(rij,3.0)*Power(xij,3.0) + 8820.0*Power(rij,4.0)*Power(xij,4.0) +
3548 2058.0*Power(rij,5.0)*Power(xij,5.0) + 336.0*Power(rij,6.0)*Power(xij,6.0) +
3549 36.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0))))/
3550 (315.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3551 Power(Power(xii,2.0) - Power(xij,2.0),9.0))
3552 ;
3553 }
3554 return S;
3555 }
3556
3557 static double DSlater_1S_5S(double rij,double xij,double xii)
3558 {
3559 double S;
3560
3561 if (xii == xij) {
3562 S = (-399168000.0 + 399168000.0*Power(E,2.0*rij*xii) - 798336000.0*rij*xii -
3563 798336000.0*Power(rij,2.0)*Power(xii,2.0) -
3564 531964125.0*Power(rij,3.0)*Power(xii,3.0) -
3565 265592250.0*Power(rij,4.0)*Power(xii,4.0) -
3566 105862680.0*Power(rij,5.0)*Power(xii,5.0) -
3567 35010360.0*Power(rij,6.0)*Power(xii,6.0) - 9836640.0*Power(rij,7.0)*Power(xii,7.0) -
3568 2376000.0*Power(rij,8.0)*Power(xii,8.0) - 492800.0*Power(rij,9.0)*Power(xii,9.0) -
3569 85888.0*Power(rij,10.0)*Power(xii,10.0) - 11776.0*Power(rij,11.0)*Power(xii,11.0) -
3570 1024.0*Power(rij,12.0)*Power(xii,12.0))/
3571 (3.99168e8*Power(E,2.0*rij*xii)*Power(rij,2.0))
3572 ;
3573 }
3574 else {
3575 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
3576 2835.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
3577 (-70.0*rij*Power(xii,11.0) - 10.0*Power(rij,2.0)*Power(xii,12.0) -
3578 990.0*rij*Power(xii,9.0)*Power(xij,2.0) -
3579 2508.0*rij*Power(xii,7.0)*Power(xij,4.0) -
3580 1452.0*rij*Power(xii,5.0)*Power(xij,6.0) -
3581 110.0*rij*Power(xii,3.0)*Power(xij,8.0) + 5.0*Power(xij,10.0) +
3582 10.0*rij*xii*Power(xij,10.0) +
3583 66.0*Power(xii,6.0)*Power(xij,4.0)*(-19.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3584 5.0*Power(xii,2.0)*Power(xij,8.0)*(-11.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
3585 33.0*Power(xii,8.0)*Power(xij,2.0)*(15.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) +
3586 22.0*Power(xii,4.0)*Power(xij,6.0)*(-33.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) -
3587 5.0*Power(xii,10.0)*(7.0 + 22.0*Power(rij,2.0)*Power(xij,2.0))) +
3588 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3589 (-(Power(xii,18.0)*(14175.0 + 28350.0*rij*xij +
3590 28350.0*Power(rij,2.0)*Power(xij,2.0) +
3591 18900.0*Power(rij,3.0)*Power(xij,3.0) +
3592 9450.0*Power(rij,4.0)*Power(xij,4.0) +
3593 3780.0*Power(rij,5.0)*Power(xij,5.0) +
3594 1260.0*Power(rij,6.0)*Power(xij,6.0) +
3595 360.0*Power(rij,7.0)*Power(xij,7.0) + 90.0*Power(rij,8.0)*Power(xij,8.0) +
3596 20.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0))) +
3597 9.0*Power(xii,16.0)*Power(xij,2.0)*
3598 (17325.0 + 34650.0*rij*xij + 34650.0*Power(rij,2.0)*Power(xij,2.0) +
3599 23100.0*Power(rij,3.0)*Power(xij,3.0) +
3600 11550.0*Power(rij,4.0)*Power(xij,4.0) +
3601 4620.0*Power(rij,5.0)*Power(xij,5.0) + 1540.0*Power(rij,6.0)*Power(xij,6.0) +
3602 440.0*Power(rij,7.0)*Power(xij,7.0) + 110.0*Power(rij,8.0)*Power(xij,8.0) +
3603 28.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
3604 126.0*Power(xii,10.0)*Power(xij,8.0)*
3605 (37125.0 + 74250.0*rij*xij + 74250.0*Power(rij,2.0)*Power(xij,2.0) +
3606 49350.0*Power(rij,3.0)*Power(xij,3.0) +
3607 25575.0*Power(rij,4.0)*Power(xij,4.0) +
3608 9078.0*Power(rij,5.0)*Power(xij,5.0) + 3106.0*Power(rij,6.0)*Power(xij,6.0) +
3609 1136.0*Power(rij,7.0)*Power(xij,7.0) + 314.0*Power(rij,8.0)*Power(xij,8.0) +
3610 52.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
3611 126.0*Power(xii,8.0)*Power(xij,10.0)*
3612 (51975.0 + 103950.0*rij*xij + 102600.0*Power(rij,2.0)*Power(xij,2.0) +
3613 74850.0*Power(rij,3.0)*Power(xij,3.0) +
3614 31125.0*Power(rij,4.0)*Power(xij,4.0) +
3615 11730.0*Power(rij,5.0)*Power(xij,5.0) +
3616 5150.0*Power(rij,6.0)*Power(xij,6.0) + 1840.0*Power(rij,7.0)*Power(xij,7.0) +
3617 430.0*Power(rij,8.0)*Power(xij,8.0) + 60.0*Power(rij,9.0)*Power(xij,9.0) +
3618 4.0*Power(rij,10.0)*Power(xij,10.0)) -
3619 9.0*Power(xii,2.0)*Power(xij,16.0)*
3620 (-135135.0 - 270270.0*rij*xij + 228690.0*Power(rij,2.0)*Power(xij,2.0) +
3621 471240.0*Power(rij,3.0)*Power(xij,3.0) +
3622 318780.0*Power(rij,4.0)*Power(xij,4.0) +
3623 127512.0*Power(rij,5.0)*Power(xij,5.0) +
3624 34664.0*Power(rij,6.0)*Power(xij,6.0) +
3625 6712.0*Power(rij,7.0)*Power(xij,7.0) + 922.0*Power(rij,8.0)*Power(xij,8.0) +
3626 84.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
3627 Power(xij,18.0)*(2837835.0 + 5675670.0*rij*xij +
3628 5051970.0*Power(rij,2.0)*Power(xij,2.0) +
3629 2744280.0*Power(rij,3.0)*Power(xij,3.0) +
3630 1031940.0*Power(rij,4.0)*Power(xij,4.0) +
3631 285768.0*Power(rij,5.0)*Power(xij,5.0) +
3632 59976.0*Power(rij,6.0)*Power(xij,6.0) +
3633 9576.0*Power(rij,7.0)*Power(xij,7.0) + 1134.0*Power(rij,8.0)*Power(xij,8.0) +
3634 92.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
3635 9.0*Power(xii,14.0)*Power(xij,4.0)*
3636 (86625.0 + 173250.0*rij*xij + 173250.0*Power(rij,2.0)*Power(xij,2.0) +
3637 115500.0*Power(rij,3.0)*Power(xij,3.0) +
3638 57750.0*Power(rij,4.0)*Power(xij,4.0) +
3639 23100.0*Power(rij,5.0)*Power(xij,5.0) +
3640 7700.0*Power(rij,6.0)*Power(xij,6.0) + 2128.0*Power(rij,7.0)*Power(xij,7.0) +
3641 616.0*Power(rij,8.0)*Power(xij,8.0) + 144.0*Power(rij,9.0)*Power(xij,9.0) +
3642 16.0*Power(rij,10.0)*Power(xij,10.0)) +
3643 21.0*Power(xii,12.0)*Power(xij,6.0)*
3644 (111375.0 + 222750.0*rij*xij + 222750.0*Power(rij,2.0)*Power(xij,2.0) +
3645 148500.0*Power(rij,3.0)*Power(xij,3.0) +
3646 74250.0*Power(rij,4.0)*Power(xij,4.0) +
3647 29988.0*Power(rij,5.0)*Power(xij,5.0) +
3648 9276.0*Power(rij,6.0)*Power(xij,6.0) + 2928.0*Power(rij,7.0)*Power(xij,7.0) +
3649 888.0*Power(rij,8.0)*Power(xij,8.0) + 176.0*Power(rij,9.0)*Power(xij,9.0) +
3650 16.0*Power(rij,10.0)*Power(xij,10.0)) -
3651 21.0*Power(xii,6.0)*Power(xij,12.0)*
3652 (307125.0 + 614250.0*rij*xij + 733050.0*Power(rij,2.0)*Power(xij,2.0) +
3653 350100.0*Power(rij,3.0)*Power(xij,3.0) +
3654 151290.0*Power(rij,4.0)*Power(xij,4.0) +
3655 85860.0*Power(rij,5.0)*Power(xij,5.0) +
3656 39180.0*Power(rij,6.0)*Power(xij,6.0) +
3657 11760.0*Power(rij,7.0)*Power(xij,7.0) +
3658 2280.0*Power(rij,8.0)*Power(xij,8.0) + 272.0*Power(rij,9.0)*Power(xij,9.0) +
3659 16.0*Power(rij,10.0)*Power(xij,10.0)) +
3660 9.0*Power(xii,4.0)*Power(xij,14.0)*
3661 (675675.0 + 1351350.0*rij*xij + 602910.0*Power(rij,2.0)*Power(xij,2.0) +
3662 374220.0*Power(rij,3.0)*Power(xij,3.0) +
3663 353430.0*Power(rij,4.0)*Power(xij,4.0) +
3664 207900.0*Power(rij,5.0)*Power(xij,5.0) +
3665 75460.0*Power(rij,6.0)*Power(xij,6.0) +
3666 18128.0*Power(rij,7.0)*Power(xij,7.0) + 2936.0*Power(rij,8.0)*Power(xij,8.0) +
3667 304.0*Power(rij,9.0)*Power(xij,9.0) + 16.0*Power(rij,10.0)*Power(xij,10.0))))/
3668 (14175.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3669 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
3670 ;
3671 }
3672 return S;
3673 }
3674
3675 static double DSlater_1S_6S(double rij,double xij,double xii)
3676 {
3677 double S;
3678
3679 if (xii == xij) {
3680 S = (-37362124800.0 + 37362124800.0*Power(E,2.0*rij*xii) - 74724249600.0*rij*xii -
3681 74724249600.0*Power(rij,2.0)*Power(xii,2.0) -
3682 49810085325.0*Power(rij,3.0)*Power(xii,3.0) -
3683 24895921050.0*Power(rij,4.0)*Power(xii,4.0) -
3684 9949449510.0*Power(rij,5.0)*Power(xii,5.0) -
3685 3309726420.0*Power(rij,6.0)*Power(xii,6.0) -
3686 941466240.0*Power(rij,7.0)*Power(xii,7.0) -
3687 233204400.0*Power(rij,8.0)*Power(xii,8.0) -
3688 50862240.0*Power(rij,9.0)*Power(xii,9.0) -
3689 9801792.0*Power(rij,10.0)*Power(xii,10.0) -
3690 1657344.0*Power(rij,11.0)*Power(xii,11.0) -
3691 239616.0*Power(rij,12.0)*Power(xii,12.0) - 27648.0*Power(rij,13.0)*Power(xii,13.0) -
3692 2048.0*Power(rij,14.0)*Power(xii,14.0))/
3693 (3.73621248e10*Power(E,2.0*rij*xii)*Power(rij,2.0))
3694 ;
3695 }
3696 else {
3697 S = (467775.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
3698 155925.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
3699 (-48.0*rij*Power(xii,13.0) - 6.0*Power(rij,2.0)*Power(xii,14.0) -
3700 1014.0*rij*Power(xii,11.0)*Power(xij,2.0) -
3701 2145.0*Power(xii,8.0)*Power(xij,4.0) -
3702 4290.0*rij*Power(xii,9.0)*Power(xij,4.0) -
3703 5148.0*rij*Power(xii,7.0)*Power(xij,6.0) -
3704 1716.0*rij*Power(xii,5.0)*Power(xij,8.0) -
3705 78.0*rij*Power(xii,3.0)*Power(xij,10.0) + 3.0*Power(xij,12.0) +
3706 6.0*rij*xii*Power(xij,12.0) +
3707 286.0*Power(xii,6.0)*Power(xij,6.0)*(-9.0 + Power(rij,2.0)*Power(xij,2.0)) +
3708 3.0*Power(xii,2.0)*Power(xij,10.0)*(-13.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3709 26.0*Power(xii,4.0)*Power(xij,8.0)*(-33.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
3710 8.0*Power(xii,12.0)*(3.0 + 13.0*Power(rij,2.0)*Power(xij,2.0)) -
3711 13.0*Power(xii,10.0)*Power(xij,2.0)*(39.0 + 22.0*Power(rij,2.0)*Power(xij,2.0))) +
3712 Power(E,2.0*rij*xii)*Power(xii,4.0)*
3713 (-110.0*Power(xii,18.0)*Power(xij,4.0)*
3714 (331695.0 + 663390.0*rij*xij + 663390.0*Power(rij,2.0)*Power(xij,2.0) +
3715 442260.0*Power(rij,3.0)*Power(xij,3.0) +
3716 221130.0*Power(rij,4.0)*Power(xij,4.0) +
3717 88452.0*Power(rij,5.0)*Power(xij,5.0) +
3718 29484.0*Power(rij,6.0)*Power(xij,6.0) +
3719 8424.0*Power(rij,7.0)*Power(xij,7.0) + 2106.0*Power(rij,8.0)*Power(xij,8.0) +
3720 456.0*Power(rij,9.0)*Power(xij,9.0) + 102.0*Power(rij,10.0)*Power(xij,10.0) +
3721 20.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
3722 330.0*Power(xii,16.0)*Power(xij,6.0)*
3723 (405405.0 + 810810.0*rij*xij + 810810.0*Power(rij,2.0)*Power(xij,2.0) +
3724 540540.0*Power(rij,3.0)*Power(xij,3.0) +
3725 270270.0*Power(rij,4.0)*Power(xij,4.0) +
3726 108108.0*Power(rij,5.0)*Power(xij,5.0) +
3727 36036.0*Power(rij,6.0)*Power(xij,6.0) +
3728 10368.0*Power(rij,7.0)*Power(xij,7.0) +
3729 2466.0*Power(rij,8.0)*Power(xij,8.0) + 576.0*Power(rij,9.0)*Power(xij,9.0) +
3730 138.0*Power(rij,10.0)*Power(xij,10.0) +
3731 24.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
3732 330.0*Power(xii,6.0)*Power(xij,16.0)*
3733 (1584765.0 + 3169530.0*rij*xij + 5061420.0*Power(rij,2.0)*Power(xij,2.0) +
3734 2653560.0*Power(rij,3.0)*Power(xij,3.0) +
3735 786240.0*Power(rij,4.0)*Power(xij,4.0) +
3736 296478.0*Power(rij,5.0)*Power(xij,5.0) +
3737 158886.0*Power(rij,6.0)*Power(xij,6.0) +
3738 65988.0*Power(rij,7.0)*Power(xij,7.0) +
3739 18681.0*Power(rij,8.0)*Power(xij,8.0) +
3740 3666.0*Power(rij,9.0)*Power(xij,9.0) +
3741 498.0*Power(rij,10.0)*Power(xij,10.0) +
3742 44.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
3743 110.0*Power(xii,4.0)*Power(xij,18.0)*
3744 (6081075.0 + 12162150.0*rij*xij + 4864860.0*Power(rij,2.0)*Power(xij,2.0) +
3745 810810.0*Power(rij,3.0)*Power(xij,3.0) +
3746 810810.0*Power(rij,4.0)*Power(xij,4.0) +
3747 810810.0*Power(rij,5.0)*Power(xij,5.0) +
3748 417690.0*Power(rij,6.0)*Power(xij,6.0) +
3749 136188.0*Power(rij,7.0)*Power(xij,7.0) +
3750 31023.0*Power(rij,8.0)*Power(xij,8.0) +
3751 5118.0*Power(rij,9.0)*Power(xij,9.0) +
3752 606.0*Power(rij,10.0)*Power(xij,10.0) +
3753 48.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
3754 22.0*Power(xii,2.0)*Power(xij,20.0)*
3755 (-12162150.0 - 24324300.0*rij*xij -
3756 10135125.0*Power(rij,2.0)*Power(xij,2.0) +
3757 4054050.0*Power(rij,3.0)*Power(xij,3.0) +
3758 6081075.0*Power(rij,4.0)*Power(xij,4.0) +
3759 3243240.0*Power(rij,5.0)*Power(xij,5.0) +
3760 1099980.0*Power(rij,6.0)*Power(xij,6.0) +
3761 268920.0*Power(rij,7.0)*Power(xij,7.0) +
3762 49590.0*Power(rij,8.0)*Power(xij,8.0) +
3763 6960.0*Power(rij,9.0)*Power(xij,9.0) +
3764 726.0*Power(rij,10.0)*Power(xij,10.0) +
3765 52.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
3766 2.0*Power(xij,22.0)*(85135050.0 + 170270100.0*rij*xij +
3767 156080925.0*Power(rij,2.0)*Power(xij,2.0) +
3768 89189100.0*Power(rij,3.0)*Power(xij,3.0) +
3769 36018675.0*Power(rij,4.0)*Power(xij,4.0) +
3770 10977120.0*Power(rij,5.0)*Power(xij,5.0) +
3771 2619540.0*Power(rij,6.0)*Power(xij,6.0) +
3772 498960.0*Power(rij,7.0)*Power(xij,7.0) +
3773 76230.0*Power(rij,8.0)*Power(xij,8.0) +
3774 9240.0*Power(rij,9.0)*Power(xij,9.0) +
3775 858.0*Power(rij,10.0)*Power(xij,10.0) +
3776 56.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
3777 Power(xii,22.0)*(467775.0 + 935550.0*rij*xij +
3778 935550.0*Power(rij,2.0)*Power(xij,2.0) +
3779 623700.0*Power(rij,3.0)*Power(xij,3.0) +
3780 311850.0*Power(rij,4.0)*Power(xij,4.0) +
3781 124740.0*Power(rij,5.0)*Power(xij,5.0) +
3782 41580.0*Power(rij,6.0)*Power(xij,6.0) +
3783 11880.0*Power(rij,7.0)*Power(xij,7.0) +
3784 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
3785 132.0*Power(rij,10.0)*Power(xij,10.0) +
3786 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
3787 11.0*Power(xii,20.0)*Power(xij,2.0)*
3788 (552825.0 + 1105650.0*rij*xij + 1105650.0*Power(rij,2.0)*Power(xij,2.0) +
3789 737100.0*Power(rij,3.0)*Power(xij,3.0) +
3790 368550.0*Power(rij,4.0)*Power(xij,4.0) +
3791 147420.0*Power(rij,5.0)*Power(xij,5.0) +
3792 49140.0*Power(rij,6.0)*Power(xij,6.0) +
3793 14040.0*Power(rij,7.0)*Power(xij,7.0) +
3794 3510.0*Power(rij,8.0)*Power(xij,8.0) + 780.0*Power(rij,9.0)*Power(xij,9.0) +
3795 156.0*Power(rij,10.0)*Power(xij,10.0) +
3796 32.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
3797 462.0*Power(xii,10.0)*Power(xij,12.0)*
3798 (1737450.0 + 3474900.0*rij*xij + 3489075.0*Power(rij,2.0)*Power(xij,2.0) +
3799 2239650.0*Power(rij,3.0)*Power(xij,3.0) +
3800 1248075.0*Power(rij,4.0)*Power(xij,4.0) +
3801 468180.0*Power(rij,5.0)*Power(xij,5.0) +
3802 129960.0*Power(rij,6.0)*Power(xij,6.0) +
3803 38880.0*Power(rij,7.0)*Power(xij,7.0) +
3804 12960.0*Power(rij,8.0)*Power(xij,8.0) +
3805 3480.0*Power(rij,9.0)*Power(xij,9.0) +
3806 636.0*Power(rij,10.0)*Power(xij,10.0) +
3807 72.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
3808 330.0*Power(xii,8.0)*Power(xij,14.0)*
3809 (2443770.0 + 4887540.0*rij*xij + 4457565.0*Power(rij,2.0)*Power(xij,2.0) +
3810 3749760.0*Power(rij,3.0)*Power(xij,3.0) +
3811 1715175.0*Power(rij,4.0)*Power(xij,4.0) +
3812 510804.0*Power(rij,5.0)*Power(xij,5.0) +
3813 164808.0*Power(rij,6.0)*Power(xij,6.0) +
3814 65808.0*Power(rij,7.0)*Power(xij,7.0) +
3815 21912.0*Power(rij,8.0)*Power(xij,8.0) +
3816 5112.0*Power(rij,9.0)*Power(xij,9.0) +
3817 804.0*Power(rij,10.0)*Power(xij,10.0) +
3818 80.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
3819 165.0*Power(xii,14.0)*Power(xij,8.0)*
3820 (2027025.0 + 4054050.0*rij*xij + 4054050.0*Power(rij,2.0)*Power(xij,2.0) +
3821 2702700.0*Power(rij,3.0)*Power(xij,3.0) +
3822 1351350.0*Power(rij,4.0)*Power(xij,4.0) +
3823 539280.0*Power(rij,5.0)*Power(xij,5.0) +
3824 183960.0*Power(rij,6.0)*Power(xij,6.0) +
3825 49392.0*Power(rij,7.0)*Power(xij,7.0) +
3826 12012.0*Power(rij,8.0)*Power(xij,8.0) +
3827 3192.0*Power(rij,9.0)*Power(xij,9.0) +
3828 744.0*Power(rij,10.0)*Power(xij,10.0) +
3829 112.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
3830 231.0*Power(xii,12.0)*Power(xij,10.0)*
3831 (2606175.0 + 5212350.0*rij*xij + 5212350.0*Power(rij,2.0)*Power(xij,2.0) +
3832 3477600.0*Power(rij,3.0)*Power(xij,3.0) +
3833 1718550.0*Power(rij,4.0)*Power(xij,4.0) +
3834 724320.0*Power(rij,5.0)*Power(xij,5.0) +
3835 226440.0*Power(rij,6.0)*Power(xij,6.0) +
3836 58320.0*Power(rij,7.0)*Power(xij,7.0) +
3837 16500.0*Power(rij,8.0)*Power(xij,8.0) + 4680.0*Power(rij,9.0)*Power(xij,9.0) +
3838 984.0*Power(rij,10.0)*Power(xij,10.0) +
3839 128.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0))))/
3840 (467775.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3841 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
3842 ;
3843 }
3844 return S;
3845 }
3846
3847 static double DSlater_2S_2S(double rij,double xij,double xii)
3848 {
3849 double S;
3850
3851 if (xii == xij) {
3852 S = (-20160.0 + 20160.0*Power(E,2.0*rij*xii) - 40320.0*rij*xii -
3853 40320.0*Power(rij,2.0)*Power(xii,2.0) - 26355.0*Power(rij,3.0)*Power(xii,3.0) -
3854 12390.0*Power(rij,4.0)*Power(xii,4.0) - 4368.0*Power(rij,5.0)*Power(xii,5.0) -
3855 1176.0*Power(rij,6.0)*Power(xii,6.0) - 240.0*Power(rij,7.0)*Power(xii,7.0) -
3856 32.0*Power(rij,8.0)*Power(xii,8.0))/(20160.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3857 ;
3858 }
3859 else {
3860 S = (3.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),7.0) +
3861 Power(E,2.0*rij*xii)*Power(xii,6.0)*
3862 (-21.0*Power(xii,4.0)*Power(xij,4.0)*
3863 (3.0 + 6.0*rij*xij + 10.0*Power(rij,2.0)*Power(xij,2.0) +
3864 2.0*Power(rij,3.0)*Power(xij,3.0)) +
3865 Power(xii,2.0)*Power(xij,6.0)*
3866 (195.0 + 390.0*rij*xij + 78.0*Power(rij,2.0)*Power(xij,2.0) -
3867 14.0*Power(rij,3.0)*Power(xij,3.0) - 4.0*Power(rij,4.0)*Power(xij,4.0)) +
3868 2.0*Power(xij,8.0)*(45.0 + 90.0*rij*xij + 48.0*Power(rij,2.0)*Power(xij,2.0) +
3869 11.0*Power(rij,3.0)*Power(xij,3.0) + Power(rij,4.0)*Power(xij,4.0)) -
3870 Power(xii,8.0)*(3.0 + 6.0*rij*xij + 6.0*Power(rij,2.0)*Power(xij,2.0) +
3871 4.0*Power(rij,3.0)*Power(xij,3.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) +
3872 Power(xii,6.0)*Power(xij,2.0)*
3873 (21.0 + 42.0*rij*xij + 42.0*Power(rij,2.0)*Power(xij,2.0) +
3874 38.0*Power(rij,3.0)*Power(xij,3.0) + 4.0*Power(rij,4.0)*Power(xij,4.0))) +
3875 Power(E,2.0*rij*xij)*Power(xij,6.0)*
3876 (-22.0*Power(rij,3.0)*Power(xii,11.0) - 2.0*Power(rij,4.0)*Power(xii,12.0) +
3877 3.0*Power(xij,8.0) + 6.0*rij*xii*Power(xij,8.0) +
3878 4.0*Power(rij,2.0)*Power(xii,10.0)*(-24.0 + Power(rij,2.0)*Power(xij,2.0)) +
3879 3.0*Power(xii,2.0)*Power(xij,6.0)*(-7.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3880 2.0*rij*Power(xii,9.0)*(-90.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) +
3881 6.0*rij*Power(xii,7.0)*Power(xij,2.0)*(-65.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) -
3882 6.0*Power(xii,8.0)*(15.0 + 13.0*Power(rij,2.0)*Power(xij,2.0)) +
3883 Power(xii,4.0)*Power(xij,4.0)*
3884 (63.0 - 42.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) +
3885 Power(xii,5.0)*(126.0*rij*Power(xij,4.0) - 38.0*Power(rij,3.0)*Power(xij,6.0)) +
3886 Power(xii,6.0)*(-195.0*Power(xij,2.0) + 210.0*Power(rij,2.0)*Power(xij,4.0) -
3887 4.0*Power(rij,4.0)*Power(xij,6.0)) +
3888 Power(xii,3.0)*(-42.0*rij*Power(xij,6.0) + 4.0*Power(rij,3.0)*Power(xij,8.0))))/
3889 (3.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3890 Power(Power(xii,2.0) - Power(xij,2.0),7.0))
3891 ;
3892 }
3893 return S;
3894 }
3895
3896 static double DSlater_2S_3S(double rij,double xij,double xii)
3897 {
3898 double S;
3899
3900 if (xii == xij) {
3901 S = (-544320.0 + 544320.0*Power(E,2.0*rij*xii) - 1088640.0*rij*xii -
3902 1088640.0*Power(rij,2.0)*Power(xii,2.0) - 719145.0*Power(rij,3.0)*Power(xii,3.0) -
3903 349650.0*Power(rij,4.0)*Power(xii,4.0) - 132111.0*Power(rij,5.0)*Power(xii,5.0) -
3904 39942.0*Power(rij,6.0)*Power(xii,6.0) - 9792.0*Power(rij,7.0)*Power(xii,7.0) -
3905 1944.0*Power(rij,8.0)*Power(xii,8.0) - 304.0*Power(rij,9.0)*Power(xii,9.0) -
3906 32.0*Power(rij,10.0)*Power(xii,10.0))/(544320.*Power(E,2.0*rij*xii)*Power(rij,2.0))
3907 ;
3908 }
3909 else {
3910 S = (45.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),9.0) +
3911 Power(E,2.0*rij*xii)*Power(xii,6.0)*
3912 (180.0*Power(xii,6.0)*Power(xij,6.0)*
3913 (21.0 + 42.0*rij*xij + 27.0*Power(rij,2.0)*Power(xij,2.0) +
3914 54.0*Power(rij,3.0)*Power(xij,3.0) + 19.0*Power(rij,4.0)*Power(xij,4.0) +
3915 2.0*Power(rij,5.0)*Power(xij,5.0)) +
3916 Power(xii,2.0)*Power(xij,10.0)*
3917 (21615.0 + 43230.0*rij*xij + 17850.0*Power(rij,2.0)*Power(xij,2.0) +
3918 1580.0*Power(rij,3.0)*Power(xij,3.0) - 650.0*Power(rij,4.0)*Power(xij,4.0) -
3919 188.0*Power(rij,5.0)*Power(xij,5.0) - 16.0*Power(rij,6.0)*Power(xij,6.0)) +
3920 4.0*Power(xij,12.0)*(1485.0 + 2970.0*rij*xij +
3921 2025.0*Power(rij,2.0)*Power(xij,2.0) + 720.0*Power(rij,3.0)*Power(xij,3.0) +
3922 150.0*Power(rij,4.0)*Power(xij,4.0) + 18.0*Power(rij,5.0)*Power(xij,5.0) +
3923 Power(rij,6.0)*Power(xij,6.0)) -
3924 20.0*Power(xii,8.0)*Power(xij,4.0)*
3925 (81.0 + 162.0*rij*xij + 162.0*Power(rij,2.0)*Power(xij,2.0) +
3926 94.0*Power(rij,3.0)*Power(xij,3.0) + 89.0*Power(rij,4.0)*Power(xij,4.0) +
3927 20.0*Power(rij,5.0)*Power(xij,5.0) + Power(rij,6.0)*Power(xij,6.0)) +
3928 5.0*Power(xii,4.0)*Power(xij,8.0)*
3929 (-639.0 - 1278.0*rij*xij - 5658.0*Power(rij,2.0)*Power(xij,2.0) -
3930 2556.0*Power(rij,3.0)*Power(xij,3.0) - 366.0*Power(rij,4.0)*Power(xij,4.0) +
3931 4.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
3932 Power(xii,12.0)*(45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
3933 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
3934 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
3935 Power(xii,10.0)*Power(xij,2.0)*
3936 (405.0 + 810.0*rij*xij + 810.0*Power(rij,2.0)*Power(xij,2.0) +
3937 540.0*Power(rij,3.0)*Power(xij,3.0) + 270.0*Power(rij,4.0)*Power(xij,4.0) +
3938 148.0*Power(rij,5.0)*Power(xij,5.0) + 16.0*Power(rij,6.0)*Power(xij,6.0))) +
3939 5.0*Power(E,2.0*rij*xij)*Power(xij,8.0)*
3940 (-84.0*Power(rij,3.0)*Power(xii,13.0) - 6.0*Power(rij,4.0)*Power(xii,14.0) +
3941 9.0*Power(xij,10.0) + 18.0*rij*xii*Power(xij,10.0) -
3942 72.0*rij*Power(xii,7.0)*Power(xij,4.0)*(54.0 + Power(rij,2.0)*Power(xij,2.0)) -
3943 2.0*Power(rij,2.0)*Power(xii,12.0)*(225.0 + Power(rij,2.0)*Power(xij,2.0)) +
3944 6.0*rij*Power(xii,3.0)*Power(xij,8.0)*(-27.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3945 9.0*Power(xii,2.0)*Power(xij,8.0)*(-9.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
3946 6.0*rij*Power(xii,9.0)*Power(xij,2.0)*
3947 (-1063.0 + 84.0*Power(rij,2.0)*Power(xij,2.0)) -
3948 2.0*rij*Power(xii,11.0)*(495.0 + 98.0*Power(rij,2.0)*Power(xij,2.0)) +
3949 6.0*Power(xii,4.0)*Power(xij,6.0)*
3950 (54.0 - 27.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
3951 2.0*Power(xii,6.0)*Power(xij,4.0)*
3952 (-972.0 + 702.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
3953 9.0*Power(xii,10.0)*(-55.0 - 222.0*Power(rij,2.0)*Power(xij,2.0) +
3954 4.0*Power(rij,4.0)*Power(xij,4.0)) -
3955 3.0*Power(xii,8.0)*Power(xij,2.0)*
3956 (1063.0 - 396.0*Power(rij,2.0)*Power(xij,2.0) +
3957 12.0*Power(rij,4.0)*Power(xij,4.0)) +
3958 Power(xii,5.0)*(648.0*rij*Power(xij,6.0) - 164.0*Power(rij,3.0)*Power(xij,8.0))))/
3959 (45.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
3960 Power(Power(xii,2.0) - Power(xij,2.0),9.0))
3961 ;
3962 }
3963 return S;
3964 }
3965
3966 static double DSlater_2S_4S(double rij,double xij,double xii)
3967 {
3968 double S;
3969
3970 if (xii == xij) {
3971 S = (-159667200.0 + 159667200.0*Power(E,2.0*rij*xii) - 319334400.0*rij*xii -
3972 319334400.0*Power(rij,2.0)*Power(xii,2.0) -
3973 212109975.0*Power(rij,3.0)*Power(xii,3.0) -
3974 104885550.0*Power(rij,4.0)*Power(xii,4.0) -
3975 40997880.0*Power(rij,5.0)*Power(xii,5.0) -
3976 13111560.0*Power(rij,6.0)*Power(xii,6.0) - 3496680.0*Power(rij,7.0)*Power(xii,7.0) -
3977 784080.0*Power(rij,8.0)*Power(xii,8.0) - 147840.0*Power(rij,9.0)*Power(xii,9.0) -
3978 23232.0*Power(rij,10.0)*Power(xii,10.0) - 2944.0*Power(rij,11.0)*Power(xii,11.0) -
3979 256.0*Power(rij,12.0)*Power(xii,12.0))/
3980 (1.596672e8*Power(E,2.0*rij*xii)*Power(rij,2.0))
3981 ;
3982 }
3983 else {
3984 S = (315.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
3985 Power(E,2.0*rij*xii)*Power(xii,6.0)*
3986 (-770.0*Power(xii,8.0)*Power(xij,8.0)*
3987 (135.0 + 270.0*rij*xij + 315.0*Power(rij,2.0)*Power(xij,2.0) +
3988 45.0*Power(rij,3.0)*Power(xij,3.0) + 135.0*Power(rij,4.0)*Power(xij,4.0) +
3989 72.0*Power(rij,5.0)*Power(xij,5.0) + 14.0*Power(rij,6.0)*Power(xij,6.0) +
3990 Power(rij,7.0)*Power(xij,7.0)) +
3991 Power(xii,2.0)*Power(xij,14.0)*
3992 (765765.0 + 1531530.0*rij*xij + 866250.0*Power(rij,2.0)*Power(xij,2.0) +
3993 210210.0*Power(rij,3.0)*Power(xij,3.0) +
3994 11550.0*Power(rij,4.0)*Power(xij,4.0) -
3995 6468.0*Power(rij,5.0)*Power(xij,5.0) -
3996 1876.0*Power(rij,6.0)*Power(xij,6.0) - 230.0*Power(rij,7.0)*Power(xij,7.0) -
3997 12.0*Power(rij,8.0)*Power(xij,8.0)) -
3998 Power(xii,16.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
3999 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
4000 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
4001 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
4002 Power(xij,16.0)*(135135.0 + 270270.0*rij*xij +
4003 207900.0*Power(rij,2.0)*Power(xij,2.0) +
4004 90090.0*Power(rij,3.0)*Power(xij,3.0) +
4005 25200.0*Power(rij,4.0)*Power(xij,4.0) +
4006 4788.0*Power(rij,5.0)*Power(xij,5.0) + 616.0*Power(rij,6.0)*Power(xij,6.0) +
4007 50.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
4008 7.0*Power(xii,6.0)*Power(xij,10.0)*
4009 (-24885.0 - 49770.0*rij*xij + 18630.0*Power(rij,2.0)*Power(xij,2.0) -
4010 44880.0*Power(rij,3.0)*Power(xij,3.0) -
4011 34230.0*Power(rij,4.0)*Power(xij,4.0) -
4012 8892.0*Power(rij,5.0)*Power(xij,5.0) - 964.0*Power(rij,6.0)*Power(xij,6.0) -
4013 14.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4014 7.0*Power(xii,4.0)*Power(xij,12.0)*
4015 (28665.0 + 57330.0*rij*xij - 110970.0*Power(rij,2.0)*Power(xij,2.0) -
4016 90480.0*Power(rij,3.0)*Power(xij,3.0) -
4017 26430.0*Power(rij,4.0)*Power(xij,4.0) -
4018 3312.0*Power(rij,5.0)*Power(xij,5.0) - 4.0*Power(rij,6.0)*Power(xij,6.0) +
4019 46.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) -
4020 7.0*Power(xii,12.0)*Power(xij,4.0)*
4021 (2475.0 + 4950.0*rij*xij + 4950.0*Power(rij,2.0)*Power(xij,2.0) +
4022 3300.0*Power(rij,3.0)*Power(xij,3.0) +
4023 1650.0*Power(rij,4.0)*Power(xij,4.0) + 576.0*Power(rij,5.0)*Power(xij,5.0) +
4024 332.0*Power(rij,6.0)*Power(xij,6.0) + 70.0*Power(rij,7.0)*Power(xij,7.0) +
4025 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4026 7.0*Power(xii,10.0)*Power(xij,6.0)*
4027 (7425.0 + 14850.0*rij*xij + 14850.0*Power(rij,2.0)*Power(xij,2.0) +
4028 10350.0*Power(rij,3.0)*Power(xij,3.0) +
4029 3150.0*Power(rij,4.0)*Power(xij,4.0) +
4030 3036.0*Power(rij,5.0)*Power(xij,5.0) +
4031 1052.0*Power(rij,6.0)*Power(xij,6.0) + 130.0*Power(rij,7.0)*Power(xij,7.0) +
4032 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4033 Power(xii,14.0)*Power(xij,2.0)*
4034 (3465.0 + 6930.0*rij*xij + 6930.0*Power(rij,2.0)*Power(xij,2.0) +
4035 4620.0*Power(rij,3.0)*Power(xij,3.0) + 2310.0*Power(rij,4.0)*Power(xij,4.0) +
4036 924.0*Power(rij,5.0)*Power(xij,5.0) + 308.0*Power(rij,6.0)*Power(xij,6.0) +
4037 118.0*Power(rij,7.0)*Power(xij,7.0) + 12.0*Power(rij,8.0)*Power(xij,8.0))) +
4038 105.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
4039 (-34.0*Power(rij,3.0)*Power(xii,15.0) - 2.0*Power(rij,4.0)*Power(xii,16.0) +
4040 3.0*Power(xij,12.0) + 6.0*rij*xii*Power(xij,12.0) -
4041 8.0*Power(rij,2.0)*Power(xii,14.0)*(27.0 + Power(rij,2.0)*Power(xij,2.0)) +
4042 2.0*rij*Power(xii,3.0)*Power(xij,10.0)*
4043 (-33.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4044 3.0*Power(xii,2.0)*Power(xij,10.0)*(-11.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4045 66.0*rij*Power(xii,9.0)*Power(xij,4.0)*
4046 (-191.0 + 6.0*Power(rij,2.0)*Power(xij,2.0)) -
4047 22.0*rij*Power(xii,7.0)*Power(xij,6.0)*
4048 (162.0 + 11.0*Power(rij,2.0)*Power(xij,2.0)) -
4049 21.0*Power(xii,10.0)*Power(xij,2.0)*(157.0 + 66.0*Power(rij,2.0)*Power(xij,2.0)) +
4050 2.0*rij*Power(xii,11.0)*Power(xij,2.0)*
4051 (-3297.0 + 88.0*Power(rij,2.0)*Power(xij,2.0)) -
4052 2.0*rij*Power(xii,13.0)*(273.0 + 113.0*Power(rij,2.0)*Power(xij,2.0)) -
4053 11.0*Power(xii,8.0)*Power(xij,4.0)*
4054 (573.0 - 252.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4055 + Power(xii,4.0)*Power(xij,8.0)*(165.0 - 66.0*Power(rij,2.0)*Power(xij,2.0) +
4056 2.0*Power(rij,4.0)*Power(xij,4.0)) +
4057 2.0*Power(xii,6.0)*Power(xij,6.0)*
4058 (-891.0 + 462.0*Power(rij,2.0)*Power(xij,2.0) + 4.0*Power(rij,4.0)*Power(xij,4.0)) \
4059 + Power(xii,12.0)*(-273.0 - 2034.0*Power(rij,2.0)*Power(xij,2.0) +
4060 22.0*Power(rij,4.0)*Power(xij,4.0)) +
4061 Power(xii,5.0)*(330.0*rij*Power(xij,8.0) - 74.0*Power(rij,3.0)*Power(xij,10.0))))/
4062 (315.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4063 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
4064 ;
4065 }
4066 return S;
4067 }
4068
4069 static double DSlater_2S_5S(double rij,double xij,double xii)
4070 {
4071 double S;
4072
4073 if (xii == xij) {
4074 S = (-62270208000.0 + 62270208000.0*Power(E,2.0*rij*xii) - 124540416000.0*rij*xii -
4075 124540416000.0*Power(rij,2.0)*Power(xii,2.0) -
4076 82915457625.0*Power(rij,3.0)*Power(xii,3.0) -
4077 41290499250.0*Power(rij,4.0)*Power(xii,4.0) -
4078 16374307950.0*Power(rij,5.0)*Power(xii,5.0) -
4079 5370264900.0*Power(rij,6.0)*Power(xii,6.0) -
4080 1491272640.0*Power(rij,7.0)*Power(xii,7.0) -
4081 355520880.0*Power(rij,8.0)*Power(xii,8.0) -
4082 73238880.0*Power(rij,9.0)*Power(xii,9.0) -
4083 13041600.0*Power(rij,10.0)*Power(xii,10.0) -
4084 1996800.0*Power(rij,11.0)*Power(xii,11.0) -
4085 259584.0*Power(rij,12.0)*Power(xii,12.0) - 27648.0*Power(rij,13.0)*Power(xii,13.0) -
4086 2048.0*Power(rij,14.0)*Power(xii,14.0))/
4087 (6.2270208e10*Power(E,2.0*rij*xii)*Power(rij,2.0))
4088 ;
4089 }
4090 else {
4091 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
4092 945.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
4093 (-200.0*Power(rij,3.0)*Power(xii,17.0) - 10.0*Power(rij,4.0)*Power(xii,18.0) +
4094 15.0*Power(xij,14.0) + 30.0*rij*xii*Power(xij,14.0) +
4095 10.0*rij*Power(xii,3.0)*Power(xij,12.0)*
4096 (-39.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4097 15.0*Power(xii,2.0)*Power(xij,12.0)*(-13.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4098 30.0*Power(rij,2.0)*Power(xii,16.0)*(49.0 + 3.0*Power(rij,2.0)*Power(xij,2.0)) +
4099 286.0*rij*Power(xii,9.0)*Power(xij,6.0)*
4100 (-915.0 + 4.0*Power(rij,2.0)*Power(xij,2.0)) -
4101 60.0*rij*Power(xii,5.0)*Power(xij,10.0)*
4102 (-39.0 + 8.0*Power(rij,2.0)*Power(xij,2.0)) +
4103 338.0*rij*Power(xii,11.0)*Power(xij,4.0)*
4104 (-855.0 + 22.0*Power(rij,2.0)*Power(xij,2.0)) -
4105 156.0*rij*Power(xii,7.0)*Power(xij,8.0)*
4106 (275.0 + 23.0*Power(rij,2.0)*Power(xij,2.0)) -
4107 60.0*rij*Power(xii,15.0)*(70.0 + 41.0*Power(rij,2.0)*Power(xij,2.0)) -
4108 24.0*rij*Power(xii,13.0)*Power(xij,2.0)*
4109 (3335.0 + 78.0*Power(rij,2.0)*Power(xij,2.0)) +
4110 10.0*Power(xii,4.0)*Power(xij,10.0)*
4111 (117.0 - 39.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) -
4112 39.0*Power(xii,8.0)*Power(xij,6.0)*
4113 (3355.0 - 1298.0*Power(rij,2.0)*Power(xij,2.0) +
4114 2.0*Power(rij,4.0)*Power(xij,4.0)) +
4115 6.0*Power(xii,14.0)*(-350.0 - 3855.0*Power(rij,2.0)*Power(xij,2.0) +
4116 13.0*Power(rij,4.0)*Power(xij,4.0)) +
4117 6.0*Power(xii,6.0)*Power(xij,8.0)*
4118 (-3575.0 + 1391.0*Power(rij,2.0)*Power(xij,2.0) +
4119 15.0*Power(rij,4.0)*Power(xij,4.0)) -
4120 13.0*Power(xii,10.0)*Power(xij,4.0)*
4121 (11115.0 - 1386.0*Power(rij,2.0)*Power(xij,2.0) +
4122 22.0*Power(rij,4.0)*Power(xij,4.0)) +
4123 Power(xii,12.0)*(-40020.0*Power(xij,2.0) -
4124 52026.0*Power(rij,2.0)*Power(xij,4.0) + 286.0*Power(rij,4.0)*Power(xij,6.0))) \
4125 + Power(E,2.0*rij*xii)*Power(xii,6.0)*
4126 (819.0*Power(xii,10.0)*Power(xij,10.0)*
4127 (22275.0 + 44550.0*rij*xij + 41400.0*Power(rij,2.0)*Power(xij,2.0) +
4128 43200.0*Power(rij,3.0)*Power(xij,3.0) +
4129 3600.0*Power(rij,4.0)*Power(xij,4.0) + 4080.0*Power(rij,5.0)*Power(xij,5.0) +
4130 3720.0*Power(rij,6.0)*Power(xij,6.0) + 1104.0*Power(rij,7.0)*Power(xij,7.0) +
4131 148.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,9.0)*Power(xij,9.0)) +
4132 2.0*Power(xij,20.0)*(8108100.0 + 16216200.0*rij*xij +
4133 13378365.0*Power(rij,2.0)*Power(xij,2.0) +
4134 6486480.0*Power(rij,3.0)*Power(xij,3.0) +
4135 2120580.0*Power(rij,4.0)*Power(xij,4.0) +
4136 498960.0*Power(rij,5.0)*Power(xij,5.0) +
4137 86940.0*Power(rij,6.0)*Power(xij,6.0) +
4138 11232.0*Power(rij,7.0)*Power(xij,7.0) +
4139 1044.0*Power(rij,8.0)*Power(xij,8.0) + 64.0*Power(rij,9.0)*Power(xij,9.0) +
4140 2.0*Power(rij,10.0)*Power(xij,10.0)) +
4141 42.0*Power(xii,8.0)*Power(xij,12.0)*
4142 (-531900.0 - 1063800.0*rij*xij - 2344275.0*Power(rij,2.0)*Power(xij,2.0) +
4143 269100.0*Power(rij,3.0)*Power(xij,3.0) -
4144 84150.0*Power(rij,4.0)*Power(xij,4.0) -
4145 304740.0*Power(rij,5.0)*Power(xij,5.0) -
4146 124440.0*Power(rij,6.0)*Power(xij,6.0) -
4147 22800.0*Power(rij,7.0)*Power(xij,7.0) -
4148 1980.0*Power(rij,8.0)*Power(xij,8.0) - 40.0*Power(rij,9.0)*Power(xij,9.0) +
4149 4.0*Power(rij,10.0)*Power(xij,10.0)) -
4150 Power(xii,20.0)*(14175.0 + 28350.0*rij*xij +
4151 28350.0*Power(rij,2.0)*Power(xij,2.0) +
4152 18900.0*Power(rij,3.0)*Power(xij,3.0) +
4153 9450.0*Power(rij,4.0)*Power(xij,4.0) + 3780.0*Power(rij,5.0)*Power(xij,5.0) +
4154 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
4155 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
4156 4.0*Power(rij,10.0)*Power(xij,10.0)) -
4157 18.0*Power(xii,16.0)*Power(xij,4.0)*
4158 (61425.0 + 122850.0*rij*xij + 122850.0*Power(rij,2.0)*Power(xij,2.0) +
4159 81900.0*Power(rij,3.0)*Power(xij,3.0) +
4160 40950.0*Power(rij,4.0)*Power(xij,4.0) +
4161 16380.0*Power(rij,5.0)*Power(xij,5.0) +
4162 5460.0*Power(rij,6.0)*Power(xij,6.0) + 1392.0*Power(rij,7.0)*Power(xij,7.0) +
4163 544.0*Power(rij,8.0)*Power(xij,8.0) + 104.0*Power(rij,9.0)*Power(xij,9.0) +
4164 6.0*Power(rij,10.0)*Power(xij,10.0)) +
4165 18.0*Power(xii,4.0)*Power(xij,16.0)*
4166 (6572475.0 + 13144950.0*rij*xij - 1539720.0*Power(rij,2.0)*Power(xij,2.0) -
4167 5741190.0*Power(rij,3.0)*Power(xij,3.0) -
4168 2690415.0*Power(rij,4.0)*Power(xij,4.0) -
4169 619710.0*Power(rij,5.0)*Power(xij,5.0) -
4170 73710.0*Power(rij,6.0)*Power(xij,6.0) -
4171 1716.0*Power(rij,7.0)*Power(xij,7.0) + 803.0*Power(rij,8.0)*Power(xij,8.0) +
4172 118.0*Power(rij,9.0)*Power(xij,9.0) + 6.0*Power(rij,10.0)*Power(xij,10.0)) -
4173 21.0*Power(xii,12.0)*Power(xij,8.0)*
4174 (482625.0 + 965250.0*rij*xij + 965250.0*Power(rij,2.0)*Power(xij,2.0) +
4175 633600.0*Power(rij,3.0)*Power(xij,3.0) +
4176 376200.0*Power(rij,4.0)*Power(xij,4.0) +
4177 67680.0*Power(rij,5.0)*Power(xij,5.0) +
4178 44760.0*Power(rij,6.0)*Power(xij,6.0) +
4179 22128.0*Power(rij,7.0)*Power(xij,7.0) +
4180 4476.0*Power(rij,8.0)*Power(xij,8.0) + 376.0*Power(rij,9.0)*Power(xij,9.0) +
4181 8.0*Power(rij,10.0)*Power(xij,10.0)) -
4182 12.0*Power(xii,6.0)*Power(xij,14.0)*
4183 (-5178600.0 - 10357200.0*rij*xij + 8303715.0*Power(rij,2.0)*Power(xij,2.0) +
4184 687330.0*Power(rij,3.0)*Power(xij,3.0) -
4185 3292695.0*Power(rij,4.0)*Power(xij,4.0) -
4186 1634850.0*Power(rij,5.0)*Power(xij,5.0) -
4187 362040.0*Power(rij,6.0)*Power(xij,6.0) -
4188 40728.0*Power(rij,7.0)*Power(xij,7.0) -
4189 1446.0*Power(rij,8.0)*Power(xij,8.0) + 164.0*Power(rij,9.0)*Power(xij,9.0) +
4190 16.0*Power(rij,10.0)*Power(xij,10.0)) -
4191 2.0*Power(xii,2.0)*Power(xij,18.0)*
4192 (-66891825.0 - 133783650.0*rij*xij -
4193 89594505.0*Power(rij,2.0)*Power(xij,2.0) -
4194 30540510.0*Power(rij,3.0)*Power(xij,3.0) -
4195 5540535.0*Power(rij,4.0)*Power(xij,4.0) -
4196 270270.0*Power(rij,5.0)*Power(xij,5.0) +
4197 125370.0*Power(rij,6.0)*Power(xij,6.0) +
4198 37116.0*Power(rij,7.0)*Power(xij,7.0) +
4199 5247.0*Power(rij,8.0)*Power(xij,8.0) + 422.0*Power(rij,9.0)*Power(xij,9.0) +
4200 16.0*Power(rij,10.0)*Power(xij,10.0)) +
4201 Power(xii,18.0)*Power(xij,2.0)*
4202 (184275.0 + 368550.0*rij*xij + 368550.0*Power(rij,2.0)*Power(xij,2.0) +
4203 245700.0*Power(rij,3.0)*Power(xij,3.0) +
4204 122850.0*Power(rij,4.0)*Power(xij,4.0) +
4205 49140.0*Power(rij,5.0)*Power(xij,5.0) +
4206 16380.0*Power(rij,6.0)*Power(xij,6.0) +
4207 4680.0*Power(rij,7.0)*Power(xij,7.0) + 1170.0*Power(rij,8.0)*Power(xij,8.0) +
4208 340.0*Power(rij,9.0)*Power(xij,9.0) + 32.0*Power(rij,10.0)*Power(xij,10.0)) +
4209 6.0*Power(xii,14.0)*Power(xij,6.0)*
4210 (675675.0 + 1351350.0*rij*xij + 1351350.0*Power(rij,2.0)*Power(xij,2.0) +
4211 900900.0*Power(rij,3.0)*Power(xij,3.0) +
4212 450450.0*Power(rij,4.0)*Power(xij,4.0) +
4213 187740.0*Power(rij,5.0)*Power(xij,5.0) +
4214 43680.0*Power(rij,6.0)*Power(xij,6.0) +
4215 22128.0*Power(rij,7.0)*Power(xij,7.0) + 6876.0*Power(rij,8.0)*Power(xij,8.0) +
4216 856.0*Power(rij,9.0)*Power(xij,9.0) + 32.0*Power(rij,10.0)*Power(xij,10.0))))/
4217 (14175.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4218 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
4219 ;
4220 }
4221 return S;
4222 }
4223
4224 static double DSlater_2S_6S(double rij,double xij,double xii)
4225 {
4226 double S;
4227
4228 if (xii == xij) {
4229 S = (-31384184832000.0 + 31384184832000.0*Power(E,2.0*rij*xii) -
4230 62768369664000.0*rij*xii - 62768369664000.0*Power(rij,2.0)*Power(xii,2.0) -
4231 41826211552125.0*Power(rij,3.0)*Power(xii,3.0) -
4232 20884053440250.0*Power(rij,4.0)*Power(xii,4.0) -
4233 8328251131200.0*Power(rij,5.0)*Power(xii,5.0) -
4234 2759624267400.0*Power(rij,6.0)*Power(xii,6.0) -
4235 779901922800.0*Power(rij,7.0)*Power(xii,7.0) -
4236 191286295200.0*Power(rij,8.0)*Power(xii,8.0) -
4237 41167526400.0*Power(rij,9.0)*Power(xii,9.0) -
4238 7818370560.0*Power(rij,10.0)*Power(xii,10.0) -
4239 1311448320.0*Power(rij,11.0)*Power(xii,11.0) -
4240 193589760.0*Power(rij,12.0)*Power(xii,12.0) -
4241 24944640.0*Power(rij,13.0)*Power(xii,13.0) -
4242 2764800.0*Power(rij,14.0)*Power(xii,14.0) -
4243 253952.0*Power(rij,15.0)*Power(xii,15.0) - 16384.0*Power(rij,16.0)*Power(xii,16.0))/
4244 (3.1384184832e13*Power(E,2.0*rij*xii)*Power(rij,2.0))
4245 ;
4246 }
4247 else {
4248 S = (467775.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
4249 51975.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
4250 (-138.0*Power(rij,3.0)*Power(xii,19.0) - 6.0*Power(rij,4.0)*Power(xii,20.0) +
4251 9.0*Power(xij,16.0) + 18.0*rij*xii*Power(xij,16.0) +
4252 2.0*rij*Power(xii,5.0)*Power(xij,12.0)*
4253 (945.0 - 181.0*Power(rij,2.0)*Power(xij,2.0)) +
4254 6.0*rij*Power(xii,3.0)*Power(xij,14.0)*
4255 (-45.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4256 9.0*Power(xii,2.0)*Power(xij,14.0)*(-15.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4257 4.0*Power(rij,2.0)*Power(xii,18.0)*(288.0 + 23.0*Power(rij,2.0)*Power(xij,2.0)) +
4258 234.0*rij*Power(xii,11.0)*Power(xij,6.0)*
4259 (-4209.0 + 55.0*Power(rij,2.0)*Power(xij,2.0)) -
4260 78.0*rij*Power(xii,9.0)*Power(xij,8.0)*
4261 (6655.0 + 63.0*Power(rij,2.0)*Power(xij,2.0)) +
4262 18.0*rij*Power(xii,13.0)*Power(xij,4.0)*
4263 (-31885.0 + 377.0*Power(rij,2.0)*Power(xij,2.0)) -
4264 6.0*rij*Power(xii,7.0)*Power(xij,10.0)*
4265 (9321.0 + 791.0*Power(rij,2.0)*Power(xij,2.0)) -
4266 6.0*rij*Power(xii,15.0)*Power(xij,2.0)*
4267 (16755.0 + 1141.0*Power(rij,2.0)*Power(xij,2.0)) -
4268 2.0*rij*Power(xii,17.0)*(1836.0 + 1331.0*Power(rij,2.0)*Power(xij,2.0)) -
4269 9.0*Power(xii,12.0)*Power(xij,4.0)*
4270 (31885.0 + 7514.0*Power(rij,2.0)*Power(xij,2.0)) +
4271 3.0*Power(xii,4.0)*Power(xij,12.0)*
4272 (315.0 - 90.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4273 - 117.0*Power(xii,10.0)*Power(xij,6.0)*
4274 (4209.0 - 990.0*Power(rij,2.0)*Power(xij,2.0) +
4275 4.0*Power(rij,4.0)*Power(xij,4.0)) -
4276 6.0*Power(xii,16.0)*(306.0 + 4491.0*Power(rij,2.0)*Power(xij,2.0) +
4277 14.0*Power(rij,4.0)*Power(xij,4.0)) +
4278 3.0*Power(xii,8.0)*Power(xij,8.0)*
4279 (-86515.0 + 28158.0*Power(rij,2.0)*Power(xij,2.0) +
4280 28.0*Power(rij,4.0)*Power(xij,4.0)) +
4281 9.0*Power(xii,14.0)*Power(xij,2.0)*
4282 (-5585.0 - 12530.0*Power(rij,2.0)*Power(xij,2.0) +
4283 52.0*Power(rij,4.0)*Power(xij,4.0)) +
4284 Power(xii,6.0)*Power(xij,10.0)*
4285 (-27963.0 + 8442.0*Power(rij,2.0)*Power(xij,2.0) +
4286 92.0*Power(rij,4.0)*Power(xij,4.0))) +
4287 Power(E,2.0*rij*xii)*Power(xii,6.0)*
4288 (-3465.0*Power(xii,12.0)*Power(xij,12.0)*
4289 (675675.0 + 1351350.0*rij*xij + 1389150.0*Power(rij,2.0)*Power(xij,2.0) +
4290 689850.0*Power(rij,3.0)*Power(xij,3.0) +
4291 730800.0*Power(rij,4.0)*Power(xij,4.0) +
4292 128520.0*Power(rij,5.0)*Power(xij,5.0) +
4293 9240.0*Power(rij,6.0)*Power(xij,6.0) +
4294 18480.0*Power(rij,7.0)*Power(xij,7.0) +
4295 8820.0*Power(rij,8.0)*Power(xij,8.0) + 1800.0*Power(rij,9.0)*Power(xij,9.0) +
4296 184.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
4297 330.0*Power(xii,8.0)*Power(xij,16.0)*
4298 (-1204875.0 - 2409750.0*rij*xij - 75042450.0*Power(rij,2.0)*Power(xij,2.0) -
4299 3403575.0*Power(rij,3.0)*Power(xij,3.0) +
4300 9111375.0*Power(rij,4.0)*Power(xij,4.0) -
4301 498330.0*Power(rij,5.0)*Power(xij,5.0) -
4302 1892310.0*Power(rij,6.0)*Power(xij,6.0) -
4303 669180.0*Power(rij,7.0)*Power(xij,7.0) -
4304 118785.0*Power(rij,8.0)*Power(xij,8.0) -
4305 11650.0*Power(rij,9.0)*Power(xij,9.0) -
4306 482.0*Power(rij,10.0)*Power(xij,10.0) +
4307 16.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
4308 2.0*Power(xij,24.0)*(620269650.0 + 1240539300.0*rij*xij +
4309 1070269200.0*Power(rij,2.0)*Power(xij,2.0) +
4310 557431875.0*Power(rij,3.0)*Power(xij,3.0) +
4311 200675475.0*Power(rij,4.0)*Power(xij,4.0) +
4312 53513460.0*Power(rij,5.0)*Power(xij,5.0) +
4313 10977120.0*Power(rij,6.0)*Power(xij,6.0) +
4314 1764180.0*Power(rij,7.0)*Power(xij,7.0) +
4315 222750.0*Power(rij,8.0)*Power(xij,8.0) +
4316 21780.0*Power(rij,9.0)*Power(xij,9.0) +
4317 1584.0*Power(rij,10.0)*Power(xij,10.0) +
4318 78.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
4319 Power(xii,24.0)*(467775.0 + 935550.0*rij*xij +
4320 935550.0*Power(rij,2.0)*Power(xij,2.0) +
4321 623700.0*Power(rij,3.0)*Power(xij,3.0) +
4322 311850.0*Power(rij,4.0)*Power(xij,4.0) +
4323 124740.0*Power(rij,5.0)*Power(xij,5.0) +
4324 41580.0*Power(rij,6.0)*Power(xij,6.0) +
4325 11880.0*Power(rij,7.0)*Power(xij,7.0) +
4326 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
4327 132.0*Power(rij,10.0)*Power(xij,10.0) +
4328 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
4329 110.0*Power(xii,6.0)*Power(xij,18.0)*
4330 (-156874725.0 - 313749450.0*rij*xij +
4331 119665350.0*Power(rij,2.0)*Power(xij,2.0) +
4332 104285475.0*Power(rij,3.0)*Power(xij,3.0) -
4333 1941975.0*Power(rij,4.0)*Power(xij,4.0) -
4334 17730090.0*Power(rij,5.0)*Power(xij,5.0) -
4335 6892830.0*Power(rij,6.0)*Power(xij,6.0) -
4336 1379700.0*Power(rij,7.0)*Power(xij,7.0) -
4337 159705.0*Power(rij,8.0)*Power(xij,8.0) -
4338 8610.0*Power(rij,9.0)*Power(xij,9.0) +
4339 294.0*Power(rij,10.0)*Power(xij,10.0) +
4340 78.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
4341 10.0*Power(xii,2.0)*Power(xij,22.0)*
4342 (-1412836425.0 - 2825672850.0*rij*xij -
4343 2095943850.0*Power(rij,2.0)*Power(xij,2.0) -
4344 854728875.0*Power(rij,3.0)*Power(xij,3.0) -
4345 215540325.0*Power(rij,4.0)*Power(xij,4.0) -
4346 32702670.0*Power(rij,5.0)*Power(xij,5.0) -
4347 1753290.0*Power(rij,6.0)*Power(xij,6.0) +
4348 479160.0*Power(rij,7.0)*Power(xij,7.0) +
4349 150975.0*Power(rij,8.0)*Power(xij,8.0) +
4350 22990.0*Power(rij,9.0)*Power(xij,9.0) +
4351 2222.0*Power(rij,10.0)*Power(xij,10.0) +
4352 134.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
4353 165.0*Power(xii,16.0)*Power(xij,8.0)*
4354 (3869775.0 + 7739550.0*rij*xij + 7739550.0*Power(rij,2.0)*Power(xij,2.0) +
4355 5159700.0*Power(rij,3.0)*Power(xij,3.0) +
4356 2579850.0*Power(rij,4.0)*Power(xij,4.0) +
4357 1018080.0*Power(rij,5.0)*Power(xij,5.0) +
4358 385560.0*Power(rij,6.0)*Power(xij,6.0) +
4359 70920.0*Power(rij,7.0)*Power(xij,7.0) +
4360 21720.0*Power(rij,8.0)*Power(xij,8.0) +
4361 8640.0*Power(rij,9.0)*Power(xij,9.0) +
4362 1704.0*Power(rij,10.0)*Power(xij,10.0) +
4363 148.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
4364 5.0*Power(xii,22.0)*Power(xij,2.0)*
4365 (1403325.0 + 2806650.0*rij*xij + 2806650.0*Power(rij,2.0)*Power(xij,2.0) +
4366 1871100.0*Power(rij,3.0)*Power(xij,3.0) +
4367 935550.0*Power(rij,4.0)*Power(xij,4.0) +
4368 374220.0*Power(rij,5.0)*Power(xij,5.0) +
4369 124740.0*Power(rij,6.0)*Power(xij,6.0) +
4370 35640.0*Power(rij,7.0)*Power(xij,7.0) +
4371 8910.0*Power(rij,8.0)*Power(xij,8.0) + 1980.0*Power(rij,9.0)*Power(xij,9.0) +
4372 396.0*Power(rij,10.0)*Power(xij,10.0) +
4373 92.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
4374 55.0*Power(xii,18.0)*Power(xij,6.0)*
4375 (3869775.0 + 7739550.0*rij*xij + 7739550.0*Power(rij,2.0)*Power(xij,2.0) +
4376 5159700.0*Power(rij,3.0)*Power(xij,3.0) +
4377 2579850.0*Power(rij,4.0)*Power(xij,4.0) +
4378 1031940.0*Power(rij,5.0)*Power(xij,5.0) +
4379 343980.0*Power(rij,6.0)*Power(xij,6.0) +
4380 101520.0*Power(rij,7.0)*Power(xij,7.0) +
4381 19710.0*Power(rij,8.0)*Power(xij,8.0) +
4382 6300.0*Power(rij,9.0)*Power(xij,9.0) +
4383 1692.0*Power(rij,10.0)*Power(xij,10.0) +
4384 204.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
4385 22.0*Power(xii,4.0)*Power(xij,20.0)*
4386 (1099568925.0 + 2199137850.0*rij*xij +
4387 699139350.0*Power(rij,2.0)*Power(xij,2.0) -
4388 242690175.0*Power(rij,3.0)*Power(xij,3.0) -
4389 237899025.0*Power(rij,4.0)*Power(xij,4.0) -
4390 81646110.0*Power(rij,5.0)*Power(xij,5.0) -
4391 16127370.0*Power(rij,6.0)*Power(xij,6.0) -
4392 1875420.0*Power(rij,7.0)*Power(xij,7.0) -
4393 82035.0*Power(rij,8.0)*Power(xij,8.0) +
4394 11970.0*Power(rij,9.0)*Power(xij,9.0) +
4395 2574.0*Power(rij,10.0)*Power(xij,10.0) +
4396 218.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) -
4397 33.0*Power(xii,10.0)*Power(xij,14.0)*
4398 (-94107825.0 - 188215650.0*rij*xij -
4399 72320850.0*Power(rij,2.0)*Power(xij,2.0) -
4400 284964750.0*Power(rij,3.0)*Power(xij,3.0) -
4401 43356600.0*Power(rij,4.0)*Power(xij,4.0) +
4402 10299240.0*Power(rij,5.0)*Power(xij,5.0) -
4403 5319720.0*Power(rij,6.0)*Power(xij,6.0) -
4404 4942080.0*Power(rij,7.0)*Power(xij,7.0) -
4405 1373700.0*Power(rij,8.0)*Power(xij,8.0) -
4406 194760.0*Power(rij,9.0)*Power(xij,9.0) -
4407 14088.0*Power(rij,10.0)*Power(xij,10.0) -
4408 296.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)) \
4409 - 11.0*Power(xii,20.0)*Power(xij,4.0)*
4410 (4465125.0 + 8930250.0*rij*xij + 8930250.0*Power(rij,2.0)*Power(xij,2.0) +
4411 5953500.0*Power(rij,3.0)*Power(xij,3.0) +
4412 2976750.0*Power(rij,4.0)*Power(xij,4.0) +
4413 1190700.0*Power(rij,5.0)*Power(xij,5.0) +
4414 396900.0*Power(rij,6.0)*Power(xij,6.0) +
4415 113400.0*Power(rij,7.0)*Power(xij,7.0) +
4416 28350.0*Power(rij,8.0)*Power(xij,8.0) +
4417 5740.0*Power(rij,9.0)*Power(xij,9.0) +
4418 1652.0*Power(rij,10.0)*Power(xij,10.0) +
4419 284.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)) \
4420 + 33.0*Power(xii,14.0)*Power(xij,10.0)*
4421 (42567525.0 + 85135050.0*rij*xij + 85135050.0*Power(rij,2.0)*Power(xij,2.0) +
4422 57043350.0*Power(rij,3.0)*Power(xij,3.0) +
4423 26371800.0*Power(rij,4.0)*Power(xij,4.0) +
4424 14668920.0*Power(rij,5.0)*Power(xij,5.0) +
4425 2621640.0*Power(rij,6.0)*Power(xij,6.0) +
4426 597840.0*Power(rij,7.0)*Power(xij,7.0) +
4427 378780.0*Power(rij,8.0)*Power(xij,8.0) +
4428 114040.0*Power(rij,9.0)*Power(xij,9.0) +
4429 16088.0*Power(rij,10.0)*Power(xij,10.0) +
4430 1016.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)))\
4431 )/(467775.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4432 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
4433 ;
4434 }
4435 return S;
4436 }
4437
4438 double DSlater_2S_1S(double rij,double xii,double xij)
4439 {
4440 return DSlater_1S_2S(rij,xij,xii);
4441 }
4442
4443 static double DSlater_3S_3S(double rij,double xij,double xii)
4444 {
4445 double S;
4446
4447 if (xii == xij) {
4448 S = (-359251200.0 + 359251200.0*Power(E,2.0*rij*xii) - 718502400.0*rij*xii -
4449 718502400.0*Power(rij,2.0)*Power(xii,2.0) -
4450 475727175.0*Power(rij,3.0)*Power(xii,3.0) -
4451 232951950.0*Power(rij,4.0)*Power(xii,4.0) -
4452 89397000.0*Power(rij,5.0)*Power(xii,5.0) -
4453 27858600.0*Power(rij,6.0)*Power(xii,6.0) - 7223040.0*Power(rij,7.0)*Power(xii,7.0) -
4454 1584000.0*Power(rij,8.0)*Power(xii,8.0) - 295680.0*Power(rij,9.0)*Power(xii,9.0) -
4455 46464.0*Power(rij,10.0)*Power(xii,10.0) - 5888.0*Power(rij,11.0)*Power(xii,11.0) -
4456 512.0*Power(rij,12.0)*Power(xii,12.0))/
4457 (3.592512e8*Power(E,2.0*rij*xii)*Power(rij,2.0))
4458 ;
4459 }
4460 else {
4461 S = (135.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),11.0) +
4462 Power(E,2.0*rij*xij)*Power(xij,8.0)*
4463 (-276.0*Power(rij,5.0)*Power(xii,19.0) - 12.0*Power(rij,6.0)*Power(xii,20.0) +
4464 135.0*Power(xij,14.0) + 270.0*rij*xii*Power(xij,14.0) -
4465 100.0*Power(rij,3.0)*Power(xii,17.0)*(165.0 + Power(rij,2.0)*Power(xij,2.0)) +
4466 10.0*Power(rij,4.0)*Power(xii,18.0)*(-285.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4467 90.0*rij*Power(xii,3.0)*Power(xij,12.0)*
4468 (-33.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4469 135.0*Power(xii,2.0)*Power(xij,12.0)*(-11.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4470 18.0*rij*Power(xii,5.0)*Power(xij,10.0)*
4471 (825.0 - 110.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4472 + 45.0*Power(xii,4.0)*Power(xij,10.0)*
4473 (165.0 - 66.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4474 - 10.0*rij*Power(xii,7.0)*Power(xij,8.0)*
4475 (4455.0 - 738.0*Power(rij,2.0)*Power(xij,2.0) +
4476 62.0*Power(rij,4.0)*Power(xij,4.0)) +
4477 10.0*rij*Power(xii,11.0)*Power(xij,4.0)*
4478 (-96831.0 + 6534.0*Power(rij,2.0)*Power(xij,2.0) +
4479 154.0*Power(rij,4.0)*Power(xij,4.0)) -
4480 10.0*rij*Power(xii,13.0)*Power(xij,2.0)*
4481 (84357.0 - 12318.0*Power(rij,2.0)*Power(xij,2.0) +
4482 418.0*Power(rij,4.0)*Power(xij,4.0)) +
4483 2.0*rij*Power(xii,9.0)*Power(xij,6.0)*
4484 (-495.0 - 48510.0*Power(rij,2.0)*Power(xij,2.0) +
4485 458.0*Power(rij,4.0)*Power(xij,4.0)) +
4486 Power(xii,15.0)*(-90090.0*rij - 80580.0*Power(rij,3.0)*Power(xij,2.0) +
4487 2684.0*Power(rij,5.0)*Power(xij,4.0)) +
4488 Power(xii,16.0)*(-54450.0*Power(rij,2.0) -
4489 7290.0*Power(rij,4.0)*Power(xij,2.0) + 68.0*Power(rij,6.0)*Power(xij,4.0)) -
4490 5.0*Power(xii,8.0)*Power(xij,6.0)*
4491 (99.0 + 1782.0*Power(rij,2.0)*Power(xij,2.0) -
4492 2250.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4493 3.0*Power(xii,6.0)*Power(xij,8.0)*
4494 (-7425.0 + 4950.0*Power(rij,2.0)*Power(xij,2.0) -
4495 330.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4496 5.0*Power(xii,14.0)*(9009.0 + 78954.0*Power(rij,2.0)*Power(xij,2.0) -
4497 6030.0*Power(rij,4.0)*Power(xij,4.0) + 44.0*Power(rij,6.0)*Power(xij,6.0)) +
4498 5.0*Power(xii,12.0)*Power(xij,2.0)*
4499 (-84357.0 - 366.0*Power(rij,2.0)*Power(xij,2.0) -
4500 3498.0*Power(rij,4.0)*Power(xij,4.0) + 44.0*Power(rij,6.0)*Power(xij,6.0)) -
4501 Power(xii,10.0)*Power(xij,4.0)*
4502 (484155.0 - 447810.0*Power(rij,2.0)*Power(xij,2.0) +
4503 12870.0*Power(rij,4.0)*Power(xij,4.0) + 68.0*Power(rij,6.0)*Power(xij,6.0))) +
4504 Power(E,2.0*rij*xii)*Power(xii,8.0)*
4505 (Power(xii,4.0)*Power(xij,10.0)*
4506 (484155.0 + 968310.0*rij*xij + 1830.0*Power(rij,2.0)*Power(xij,2.0) -
4507 123180.0*Power(rij,3.0)*Power(xij,3.0) -
4508 30150.0*Power(rij,4.0)*Power(xij,4.0) -
4509 2684.0*Power(rij,5.0)*Power(xij,5.0) - 68.0*Power(rij,6.0)*Power(xij,6.0)) +
4510 5.0*Power(xii,2.0)*Power(xij,12.0)*
4511 (84357.0 + 168714.0*rij*xij + 78954.0*Power(rij,2.0)*Power(xij,2.0) +
4512 16116.0*Power(rij,3.0)*Power(xij,3.0) +
4513 1458.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,5.0)*Power(xij,5.0) -
4514 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4515 3.0*Power(xii,14.0)*(45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
4516 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
4517 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4518 55.0*Power(xii,8.0)*Power(xij,6.0)*
4519 (-405.0 - 810.0*rij*xij - 162.0*Power(rij,2.0)*Power(xij,2.0) -
4520 1764.0*Power(rij,3.0)*Power(xij,3.0) - 234.0*Power(rij,4.0)*Power(xij,4.0) +
4521 28.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4522 55.0*Power(xii,6.0)*Power(xij,8.0)*
4523 (9.0 + 18.0*rij*xij - 8142.0*Power(rij,2.0)*Power(xij,2.0) -
4524 1188.0*Power(rij,3.0)*Power(xij,3.0) + 318.0*Power(rij,4.0)*Power(xij,4.0) +
4525 76.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4526 3.0*Power(xij,14.0)*(15015.0 + 30030.0*rij*xij +
4527 18150.0*Power(rij,2.0)*Power(xij,2.0) +
4528 5500.0*Power(rij,3.0)*Power(xij,3.0) + 950.0*Power(rij,4.0)*Power(xij,4.0) +
4529 92.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4530 5.0*Power(xii,12.0)*Power(xij,2.0)*
4531 (297.0 + 594.0*rij*xij + 594.0*Power(rij,2.0)*Power(xij,2.0) +
4532 396.0*Power(rij,3.0)*Power(xij,3.0) + 198.0*Power(rij,4.0)*Power(xij,4.0) +
4533 124.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4534 Power(xii,10.0)*Power(xij,4.0)*
4535 (-7425.0 - 14850.0*rij*xij - 14850.0*Power(rij,2.0)*Power(xij,2.0) -
4536 7380.0*Power(rij,3.0)*Power(xij,3.0) - 11250.0*Power(rij,4.0)*Power(xij,4.0) -
4537 916.0*Power(rij,5.0)*Power(xij,5.0) + 68.0*Power(rij,6.0)*Power(xij,6.0))))/
4538 (135.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4539 Power(Power(xii,2.0) - Power(xij,2.0),11.0))
4540 ;
4541 }
4542 return S;
4543 }
4544
4545 static double DSlater_3S_4S(double rij,double xij,double xii)
4546 {
4547 double S;
4548
4549 if (xii == xij) {
4550 S = (-37362124800.0 + 37362124800.0*Power(E,2.0*rij*xii) - 74724249600.0*rij*xii -
4551 74724249600.0*Power(rij,2.0)*Power(xii,2.0) -
4552 49615490925.0*Power(rij,3.0)*Power(xii,3.0) -
4553 24506732250.0*Power(rij,4.0)*Power(xii,4.0) -
4554 9566747190.0*Power(rij,5.0)*Power(xii,5.0) -
4555 3063240180.0*Power(rij,6.0)*Power(xii,6.0) -
4556 824709600.0*Power(rij,7.0)*Power(xii,7.0) -
4557 189961200.0*Power(rij,8.0)*Power(xii,8.0) -
4558 37889280.0*Power(rij,9.0)*Power(xii,9.0) -
4559 6589440.0*Power(rij,10.0)*Power(xii,10.0) -
4560 998400.0*Power(rij,11.0)*Power(xii,11.0) -
4561 129792.0*Power(rij,12.0)*Power(xii,12.0) - 13824.0*Power(rij,13.0)*Power(xii,13.0) -
4562 1024.0*Power(rij,14.0)*Power(xii,14.0))/
4563 (3.73621248e10*Power(E,2.0*rij*xii)*Power(rij,2.0))
4564 ;
4565 }
4566 else {
4567 S = (945.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),13.0) +
4568 21.0*Power(E,2.0*rij*xij)*Power(xij,10.0)*
4569 (-112.0*Power(rij,5.0)*Power(xii,21.0) - 4.0*Power(rij,6.0)*Power(xii,22.0) +
4570 45.0*Power(xij,16.0) + 90.0*rij*xii*Power(xij,16.0) +
4571 30.0*rij*Power(xii,3.0)*Power(xij,14.0)*
4572 (-39.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4573 45.0*Power(xii,2.0)*Power(xij,14.0)*(-13.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4574 4.0*Power(rij,4.0)*Power(xii,20.0)*(345.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4575 4.0*Power(rij,3.0)*Power(xii,19.0)*
4576 (2340.0 + 131.0*Power(rij,2.0)*Power(xij,2.0)) +
4577 12.0*rij*Power(xii,5.0)*Power(xij,12.0)*
4578 (585.0 - 65.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4579 30.0*Power(xii,4.0)*Power(xij,12.0)*
4580 (117.0 - 39.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4581 6.0*Power(rij,2.0)*Power(xii,18.0)*
4582 (-5915.0 - 1735.0*Power(rij,2.0)*Power(xij,2.0) +
4583 12.0*Power(rij,4.0)*Power(xij,4.0)) -
4584 12.0*rij*Power(xii,7.0)*Power(xij,10.0)*
4585 (2145.0 - 225.0*Power(rij,2.0)*Power(xij,2.0) +
4586 23.0*Power(rij,4.0)*Power(xij,4.0)) +
4587 78.0*rij*Power(xii,11.0)*Power(xij,6.0)*
4588 (-22875.0 - 770.0*Power(rij,2.0)*Power(xij,2.0) +
4589 34.0*Power(rij,4.0)*Power(xij,4.0)) -
4590 6.0*rij*Power(xii,9.0)*Power(xij,8.0)*
4591 (10725.0 + 15730.0*Power(rij,2.0)*Power(xij,2.0) +
4592 46.0*Power(rij,4.0)*Power(xij,4.0)) -
4593 20.0*rij*Power(xii,13.0)*Power(xij,4.0)*
4594 (153630.0 - 13923.0*Power(rij,2.0)*Power(xij,2.0) +
4595 143.0*Power(rij,4.0)*Power(xij,4.0)) -
4596 4.0*rij*Power(xii,15.0)*Power(xij,2.0)*
4597 (269010.0 + 4455.0*Power(rij,2.0)*Power(xij,2.0) +
4598 143.0*Power(rij,4.0)*Power(xij,4.0)) +
4599 12.0*rij*Power(xii,17.0)*(-5460.0 - 8235.0*Power(rij,2.0)*Power(xij,2.0) +
4600 163.0*Power(rij,4.0)*Power(xij,4.0)) +
4601 30.0*Power(xii,14.0)*Power(xij,2.0)*
4602 (-17934.0 - 26106.0*Power(rij,2.0)*Power(xij,2.0) +
4603 793.0*Power(rij,4.0)*Power(xij,4.0)) +
4604 3.0*Power(xii,10.0)*Power(xij,6.0)*
4605 (-297375.0 + 211640.0*Power(rij,2.0)*Power(xij,2.0) +
4606 1430.0*Power(rij,4.0)*Power(xij,4.0) - 24.0*Power(rij,6.0)*Power(xij,6.0)) +
4607 2.0*Power(xii,6.0)*Power(xij,10.0)*
4608 (-6435.0 + 3510.0*Power(rij,2.0)*Power(xij,2.0) -
4609 195.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
4610 Power(xii,8.0)*Power(xij,8.0)*
4611 (-32175.0 + 12870.0*Power(rij,2.0)*Power(xij,2.0) +
4612 7290.0*Power(rij,4.0)*Power(xij,4.0) + 8.0*Power(rij,6.0)*Power(xij,6.0)) +
4613 2.0*Power(xii,12.0)*Power(xij,4.0)*
4614 (-768150.0 + 324285.0*Power(rij,2.0)*Power(xij,2.0) -
4615 19305.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) -
4616 2.0*Power(xii,16.0)*(16380.0 + 241815.0*Power(rij,2.0)*Power(xij,2.0) -
4617 7695.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0))) +
4618 Power(E,2.0*rij*xii)*Power(xii,8.0)*
4619 (2.0*Power(xii,2.0)*Power(xij,16.0)*
4620 (8759205.0 + 17518410.0*rij*xij + 10176075.0*Power(rij,2.0)*Power(xij,2.0) +
4621 2940210.0*Power(rij,3.0)*Power(xij,3.0) +
4622 479115.0*Power(rij,4.0)*Power(xij,4.0) +
4623 41496.0*Power(rij,5.0)*Power(xij,5.0) + 882.0*Power(rij,6.0)*Power(xij,6.0) -
4624 156.0*Power(rij,7.0)*Power(xij,7.0) - 11.0*Power(rij,8.0)*Power(xij,8.0)) +
4625 6.0*Power(xij,18.0)*(225225.0 + 450450.0*rij*xij +
4626 315315.0*Power(rij,2.0)*Power(xij,2.0) +
4627 120120.0*Power(rij,3.0)*Power(xij,3.0) +
4628 28875.0*Power(rij,4.0)*Power(xij,4.0) +
4629 4620.0*Power(rij,5.0)*Power(xij,5.0) + 490.0*Power(rij,6.0)*Power(xij,6.0) +
4630 32.0*Power(rij,7.0)*Power(xij,7.0) + Power(rij,8.0)*Power(xij,8.0)) -
4631 3.0*Power(xii,18.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
4632 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
4633 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
4634 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
4635 84.0*Power(xii,6.0)*Power(xij,12.0)*
4636 (115200.0 + 230400.0*rij*xij - 341955.0*Power(rij,2.0)*Power(xij,2.0) -
4637 141690.0*Power(rij,3.0)*Power(xij,3.0) -
4638 6135.0*Power(rij,4.0)*Power(xij,4.0) + 5031.0*Power(rij,5.0)*Power(xij,5.0) +
4639 1042.0*Power(rij,6.0)*Power(xij,6.0) + 80.0*Power(rij,7.0)*Power(xij,7.0) +
4640 2.0*Power(rij,8.0)*Power(xij,8.0)) -
4641 4.0*Power(xii,4.0)*Power(xij,14.0)*
4642 (-8470980.0 - 16941960.0*rij*xij - 4169655.0*Power(rij,2.0)*Power(xij,2.0) +
4643 871605.0*Power(rij,3.0)*Power(xij,3.0) +
4644 572985.0*Power(rij,4.0)*Power(xij,4.0) +
4645 113169.0*Power(rij,5.0)*Power(xij,5.0) +
4646 10878.0*Power(rij,6.0)*Power(xij,6.0) + 456.0*Power(rij,7.0)*Power(xij,7.0) +
4647 2.0*Power(rij,8.0)*Power(xij,8.0)) +
4648 2.0*Power(xii,14.0)*Power(xij,4.0)*
4649 (-36855.0 - 73710.0*rij*xij - 73710.0*Power(rij,2.0)*Power(xij,2.0) -
4650 49140.0*Power(rij,3.0)*Power(xij,3.0) -
4651 24570.0*Power(rij,4.0)*Power(xij,4.0) -
4652 7182.0*Power(rij,5.0)*Power(xij,5.0) - 6804.0*Power(rij,6.0)*Power(xij,6.0) -
4653 768.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) -
4654 42.0*Power(xii,12.0)*Power(xij,6.0)*
4655 (-6435.0 - 12870.0*rij*xij - 12870.0*Power(rij,2.0)*Power(xij,2.0) -
4656 9570.0*Power(rij,3.0)*Power(xij,3.0) - 330.0*Power(rij,4.0)*Power(xij,4.0) -
4657 4434.0*Power(rij,5.0)*Power(xij,5.0) - 908.0*Power(rij,6.0)*Power(xij,6.0) -
4658 16.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4659 91.0*Power(xii,10.0)*Power(xij,8.0)*
4660 (-7425.0 - 14850.0*rij*xij - 21780.0*Power(rij,2.0)*Power(xij,2.0) +
4661 11880.0*Power(rij,3.0)*Power(xij,3.0) -
4662 15840.0*Power(rij,4.0)*Power(xij,4.0) -
4663 5100.0*Power(rij,5.0)*Power(xij,5.0) - 240.0*Power(rij,6.0)*Power(xij,6.0) +
4664 48.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) -
4665 91.0*Power(xii,8.0)*Power(xij,10.0)*
4666 (-20925.0 - 41850.0*rij*xij + 94860.0*Power(rij,2.0)*Power(xij,2.0) -
4667 81180.0*Power(rij,3.0)*Power(xij,3.0) -
4668 34560.0*Power(rij,4.0)*Power(xij,4.0) -
4669 2292.0*Power(rij,5.0)*Power(xij,5.0) + 576.0*Power(rij,6.0)*Power(xij,6.0) +
4670 96.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
4671 Power(xii,16.0)*Power(xij,2.0)*
4672 (12285.0 + 24570.0*rij*xij + 24570.0*Power(rij,2.0)*Power(xij,2.0) +
4673 16380.0*Power(rij,3.0)*Power(xij,3.0) + 8190.0*Power(rij,4.0)*Power(xij,4.0) +
4674 3276.0*Power(rij,5.0)*Power(xij,5.0) + 1092.0*Power(rij,6.0)*Power(xij,6.0) +
4675 480.0*Power(rij,7.0)*Power(xij,7.0) + 22.0*Power(rij,8.0)*Power(xij,8.0))))/
4676 (945.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4677 Power(Power(xii,2.0) - Power(xij,2.0),13.0))
4678 ;
4679 }
4680 return S;
4681 }
4682
4683 static double DSlater_3S_5S(double rij,double xij,double xii)
4684 {
4685 double S;
4686
4687 if (xii == xij) {
4688 S = (-78460462080000.0 + 78460462080000.0*Power(E,2.0*rij*xii) -
4689 156920924160000.0*rij*xii - 156920924160000.0*Power(rij,2.0)*Power(xii,2.0) -
4690 104400898977375.0*Power(rij,3.0)*Power(xii,3.0) -
4691 51880873794750.0*Power(rij,4.0)*Power(xii,4.0) -
4692 20495752477200.0*Power(rij,5.0)*Power(xii,5.0) -
4693 6688323041400.0*Power(rij,6.0)*Power(xii,6.0) -
4694 1848971124000.0*Power(rij,7.0)*Power(xii,7.0) -
4695 440561721600.0*Power(rij,8.0)*Power(xii,8.0) -
4696 91589097600.0*Power(rij,9.0)*Power(xii,9.0) -
4697 16761064320.0*Power(rij,10.0)*Power(xii,10.0) -
4698 2717245440.0*Power(rij,11.0)*Power(xii,11.0) -
4699 391372800.0*Power(rij,12.0)*Power(xii,12.0) -
4700 49889280.0*Power(rij,13.0)*Power(xii,13.0) -
4701 5529600.0*Power(rij,14.0)*Power(xii,14.0) -
4702 507904.0*Power(rij,15.0)*Power(xii,15.0) - 32768.0*Power(rij,16.0)*Power(xii,16.0))/
4703 (7.846046208e13*Power(E,2.0*rij*xii)*Power(rij,2.0))
4704 ;
4705 }
4706 else {
4707 S = (42525.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
4708 189.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
4709 (-660.0*Power(rij,5.0)*Power(xii,23.0) - 20.0*Power(rij,6.0)*Power(xii,24.0) +
4710 225.0*Power(xij,18.0) + 450.0*rij*xii*Power(xij,18.0) +
4711 150.0*rij*Power(xii,3.0)*Power(xij,16.0)*
4712 (-45.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4713 225.0*Power(xii,2.0)*Power(xij,16.0)*(-15.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4714 70.0*Power(rij,4.0)*Power(xii,22.0)*(135.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4715 20.0*Power(rij,3.0)*Power(xii,21.0)*
4716 (3675.0 + 341.0*Power(rij,2.0)*Power(xij,2.0)) +
4717 30.0*rij*Power(xii,5.0)*Power(xij,14.0)*
4718 (1575.0 - 150.0*Power(rij,2.0)*Power(xij,2.0) +
4719 2.0*Power(rij,4.0)*Power(xij,4.0)) +
4720 75.0*Power(xii,4.0)*Power(xij,14.0)*
4721 (315.0 - 90.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
4722 + 30.0*rij*Power(xii,13.0)*Power(xij,6.0)*
4723 (-3648435.0 + 137800.0*Power(rij,2.0)*Power(xij,2.0) +
4724 156.0*Power(rij,4.0)*Power(xij,4.0)) -
4725 10.0*rij*Power(xii,7.0)*Power(xij,12.0)*
4726 (20475.0 - 1148.0*Power(rij,2.0)*Power(xij,2.0) +
4727 178.0*Power(rij,4.0)*Power(xij,4.0)) +
4728 120.0*rij*Power(xii,17.0)*Power(xij,2.0)*
4729 (-132855.0 - 21869.0*Power(rij,2.0)*Power(xij,2.0) +
4730 242.0*Power(rij,4.0)*Power(xij,4.0)) +
4731 2.0*Power(rij,2.0)*Power(xii,20.0)*
4732 (-157500.0 - 65525.0*Power(rij,2.0)*Power(xij,2.0) +
4733 248.0*Power(rij,4.0)*Power(xij,4.0)) -
4734 26.0*rij*Power(xii,9.0)*Power(xij,10.0)*
4735 (60525.0 + 46500.0*Power(rij,2.0)*Power(xij,2.0) +
4736 328.0*Power(rij,4.0)*Power(xij,4.0)) +
4737 30.0*rij*Power(xii,11.0)*Power(xij,8.0)*
4738 (-1302535.0 - 99320.0*Power(rij,2.0)*Power(xij,2.0) +
4739 872.0*Power(rij,4.0)*Power(xij,4.0)) -
4740 30.0*rij*Power(xii,15.0)*Power(xij,4.0)*
4741 (2638467.0 - 134540.0*Power(rij,2.0)*Power(xij,2.0) +
4742 1716.0*Power(rij,4.0)*Power(xij,4.0)) +
4743 4.0*rij*Power(xii,19.0)*(-160650.0 - 322775.0*Power(rij,2.0)*Power(xij,2.0) +
4744 2332.0*Power(rij,4.0)*Power(xij,4.0)) +
4745 Power(xii,10.0)*Power(xij,8.0)*
4746 (-19538025.0 + 11124750.0*Power(rij,2.0)*Power(xij,2.0) +
4747 210600.0*Power(rij,4.0)*Power(xij,4.0) - 496.0*Power(rij,6.0)*Power(xij,6.0)) \
4748 + 20.0*Power(xii,18.0)*(-16065.0 - 335970.0*Power(rij,2.0)*Power(xij,2.0) -
4749 2670.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
4750 5.0*Power(xii,6.0)*Power(xij,12.0)*
4751 (-20475.0 + 9450.0*Power(rij,2.0)*Power(xij,2.0) -
4752 450.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
4753 5.0*Power(xii,12.0)*Power(xij,6.0)*
4754 (10945305.0 - 5223270.0*Power(rij,2.0)*Power(xij,2.0) +
4755 100620.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) \
4756 + 5.0*Power(xii,8.0)*Power(xij,10.0)*
4757 (-157365.0 + 62010.0*Power(rij,2.0)*Power(xij,2.0) +
4758 13160.0*Power(rij,4.0)*Power(xij,4.0) + 28.0*Power(rij,6.0)*Power(xij,6.0)) -
4759 30.0*Power(xii,16.0)*Power(xij,2.0)*
4760 (265710.0 + 800715.0*Power(rij,2.0)*Power(xij,2.0) -
4761 21500.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) +
4762 15.0*Power(xii,14.0)*Power(xij,4.0)*
4763 (-2638467.0 - 435750.0*Power(rij,2.0)*Power(xij,2.0) -
4764 14820.0*Power(rij,4.0)*Power(xij,4.0) + 104.0*Power(rij,6.0)*Power(xij,6.0))) \
4765 + Power(E,2.0*rij*xii)*Power(xii,8.0)*
4766 (2.0*Power(xii,2.0)*Power(xij,20.0)*
4767 (1782492075.0 + 3564984150.0*rij*xij +
4768 2364985350.0*Power(rij,2.0)*Power(xij,2.0) +
4769 837468450.0*Power(rij,3.0)*Power(xij,3.0) +
4770 183599325.0*Power(rij,4.0)*Power(xij,4.0) +
4771 25872210.0*Power(rij,5.0)*Power(xij,5.0) +
4772 2193030.0*Power(rij,6.0)*Power(xij,6.0) +
4773 68220.0*Power(rij,7.0)*Power(xij,7.0) -
4774 6885.0*Power(rij,8.0)*Power(xij,8.0) - 890.0*Power(rij,9.0)*Power(xij,9.0) -
4775 34.0*Power(rij,10.0)*Power(xij,10.0)) +
4776 42.0*Power(xii,4.0)*Power(xij,18.0)*
4777 (251336925.0 + 502673850.0*rij*xij +
4778 209308050.0*Power(rij,2.0)*Power(xij,2.0) +
4779 18924570.0*Power(rij,3.0)*Power(xij,3.0) -
4780 9849735.0*Power(rij,4.0)*Power(xij,4.0) -
4781 3861270.0*Power(rij,5.0)*Power(xij,5.0) -
4782 672210.0*Power(rij,6.0)*Power(xij,6.0) -
4783 66780.0*Power(rij,7.0)*Power(xij,7.0) -
4784 3591.0*Power(rij,8.0)*Power(xij,8.0) - 62.0*Power(rij,9.0)*Power(xij,9.0) +
4785 2.0*Power(rij,10.0)*Power(xij,10.0)) +
4786 6.0*Power(xij,22.0)*(34459425.0 + 68918850.0*rij*xij +
4787 52702650.0*Power(rij,2.0)*Power(xij,2.0) +
4788 22972950.0*Power(rij,3.0)*Power(xij,3.0) +
4789 6621615.0*Power(rij,4.0)*Power(xij,4.0) +
4790 1351350.0*Power(rij,5.0)*Power(xij,5.0) +
4791 200970.0*Power(rij,6.0)*Power(xij,6.0) +
4792 21780.0*Power(rij,7.0)*Power(xij,7.0) +
4793 1665.0*Power(rij,8.0)*Power(xij,8.0) + 82.0*Power(rij,9.0)*Power(xij,9.0) +
4794 2.0*Power(rij,10.0)*Power(xij,10.0)) -
4795 3.0*Power(xii,22.0)*(14175.0 + 28350.0*rij*xij +
4796 28350.0*Power(rij,2.0)*Power(xij,2.0) +
4797 18900.0*Power(rij,3.0)*Power(xij,3.0) +
4798 9450.0*Power(rij,4.0)*Power(xij,4.0) + 3780.0*Power(rij,5.0)*Power(xij,5.0) +
4799 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
4800 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
4801 4.0*Power(rij,10.0)*Power(xij,10.0)) -
4802 21.0*Power(xii,18.0)*Power(xij,4.0)*
4803 (212625.0 + 425250.0*rij*xij + 425250.0*Power(rij,2.0)*Power(xij,2.0) +
4804 283500.0*Power(rij,3.0)*Power(xij,3.0) +
4805 141750.0*Power(rij,4.0)*Power(xij,4.0) +
4806 56700.0*Power(rij,5.0)*Power(xij,5.0) +
4807 18900.0*Power(rij,6.0)*Power(xij,6.0) +
4808 4104.0*Power(rij,7.0)*Power(xij,7.0) + 2538.0*Power(rij,8.0)*Power(xij,8.0) +
4809 308.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
4810 54.0*Power(xii,6.0)*Power(xij,16.0)*
4811 (133451955.0 + 266903910.0*rij*xij -
4812 93304890.0*Power(rij,2.0)*Power(xij,2.0) -
4813 91581210.0*Power(rij,3.0)*Power(xij,3.0) -
4814 19513305.0*Power(rij,4.0)*Power(xij,4.0) -
4815 133098.0*Power(rij,5.0)*Power(xij,5.0) +
4816 629874.0*Power(rij,6.0)*Power(xij,6.0) +
4817 122844.0*Power(rij,7.0)*Power(xij,7.0) +
4818 11111.0*Power(rij,8.0)*Power(xij,8.0) + 478.0*Power(rij,9.0)*Power(xij,9.0) +
4819 6.0*Power(rij,10.0)*Power(xij,10.0)) -
4820 315.0*Power(xii,12.0)*Power(xij,10.0)*
4821 (-405405.0 - 810810.0*rij*xij - 614250.0*Power(rij,2.0)*Power(xij,2.0) -
4822 1408680.0*Power(rij,3.0)*Power(xij,3.0) +
4823 573300.0*Power(rij,4.0)*Power(xij,4.0) -
4824 153720.0*Power(rij,5.0)*Power(xij,5.0) -
4825 133224.0*Power(rij,6.0)*Power(xij,6.0) -
4826 20208.0*Power(rij,7.0)*Power(xij,7.0) - 348.0*Power(rij,8.0)*Power(xij,8.0) +
4827 136.0*Power(rij,9.0)*Power(xij,9.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) +
4828 315.0*Power(xii,10.0)*Power(xij,12.0)*
4829 (-482895.0 - 965790.0*rij*xij - 6499710.0*Power(rij,2.0)*Power(xij,2.0) +
4830 4684680.0*Power(rij,3.0)*Power(xij,3.0) -
4831 380772.0*Power(rij,4.0)*Power(xij,4.0) -
4832 912744.0*Power(rij,5.0)*Power(xij,5.0) -
4833 188664.0*Power(rij,6.0)*Power(xij,6.0) -
4834 7536.0*Power(rij,7.0)*Power(xij,7.0) + 1812.0*Power(rij,8.0)*Power(xij,8.0) +
4835 232.0*Power(rij,9.0)*Power(xij,9.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) -
4836 27.0*Power(xii,16.0)*Power(xij,6.0)*
4837 (-716625.0 - 1433250.0*rij*xij - 1433250.0*Power(rij,2.0)*Power(xij,2.0) -
4838 955500.0*Power(rij,3.0)*Power(xij,3.0) -
4839 477750.0*Power(rij,4.0)*Power(xij,4.0) -
4840 213276.0*Power(rij,5.0)*Power(xij,5.0) -
4841 15652.0*Power(rij,6.0)*Power(xij,6.0) -
4842 36872.0*Power(rij,7.0)*Power(xij,7.0) -
4843 8378.0*Power(rij,8.0)*Power(xij,8.0) - 404.0*Power(rij,9.0)*Power(xij,9.0) +
4844 12.0*Power(rij,10.0)*Power(xij,10.0)) +
4845 Power(xii,20.0)*Power(xij,2.0)*
4846 (637875.0 + 1275750.0*rij*xij + 1275750.0*Power(rij,2.0)*Power(xij,2.0) +
4847 850500.0*Power(rij,3.0)*Power(xij,3.0) +
4848 425250.0*Power(rij,4.0)*Power(xij,4.0) +
4849 170100.0*Power(rij,5.0)*Power(xij,5.0) +
4850 56700.0*Power(rij,6.0)*Power(xij,6.0) +
4851 16200.0*Power(rij,7.0)*Power(xij,7.0) +
4852 4050.0*Power(rij,8.0)*Power(xij,8.0) + 1348.0*Power(rij,9.0)*Power(xij,9.0) +
4853 68.0*Power(rij,10.0)*Power(xij,10.0)) +
4854 3.0*Power(xii,14.0)*Power(xij,8.0)*
4855 (-19348875.0 - 38697750.0*rij*xij -
4856 38697750.0*Power(rij,2.0)*Power(xij,2.0) -
4857 24537240.0*Power(rij,3.0)*Power(xij,3.0) -
4858 19836180.0*Power(rij,4.0)*Power(xij,4.0) +
4859 3197880.0*Power(rij,5.0)*Power(xij,5.0) -
4860 3221400.0*Power(rij,6.0)*Power(xij,6.0) -
4861 1338000.0*Power(rij,7.0)*Power(xij,7.0) -
4862 128196.0*Power(rij,8.0)*Power(xij,8.0) +
4863 1208.0*Power(rij,9.0)*Power(xij,9.0) + 472.0*Power(rij,10.0)*Power(xij,10.0)) \
4864 - 3.0*Power(xii,8.0)*Power(xij,14.0)*
4865 (-593408025.0 - 1186816050.0*rij*xij +
4866 2286535230.0*Power(rij,2.0)*Power(xij,2.0) -
4867 157114440.0*Power(rij,3.0)*Power(xij,3.0) -
4868 470066940.0*Power(rij,4.0)*Power(xij,4.0) -
4869 111426840.0*Power(rij,5.0)*Power(xij,5.0) -
4870 5225640.0*Power(rij,6.0)*Power(xij,6.0) +
4871 1666032.0*Power(rij,7.0)*Power(xij,7.0) +
4872 305964.0*Power(rij,8.0)*Power(xij,8.0) +
4873 20504.0*Power(rij,9.0)*Power(xij,9.0) + 472.0*Power(rij,10.0)*Power(xij,10.0)))\
4874 )/(42525.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
4875 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
4876 ;
4877 }
4878 return S;
4879 }
4880
4881 static double DSlater_3S_6S(double rij,double xij,double xii)
4882 {
4883 double S;
4884
4885 if (xii == xij) {
4886 S = (-1600593426432000.0 + 1600593426432000.0*Power(E,2.0*rij*xii) -
4887 3201186852864000.0*rij*xii - 3201186852864000.0*Power(rij,2.0)*Power(xii,2.0) -
4888 2132149009740750.0*Power(rij,3.0)*Power(xii,3.0) -
4889 1063111166617500.0*Power(rij,4.0)*Power(xii,4.0) -
4890 422807944083525.0*Power(rij,5.0)*Power(xii,5.0) -
4891 139509188869050.0*Power(rij,6.0)*Power(xii,6.0) -
4892 39204349984800.0*Power(rij,7.0)*Power(xii,7.0) -
4893 9554082337800.0*Power(rij,8.0)*Power(xii,8.0) -
4894 2044960117200.0*Power(rij,9.0)*Power(xii,9.0) -
4895 387930422880.0*Power(rij,10.0)*Power(xii,10.0) -
4896 65654184960.0*Power(rij,11.0)*Power(xii,11.0) -
4897 9962184960.0*Power(rij,12.0)*Power(xii,12.0) -
4898 1359912960.0*Power(rij,13.0)*Power(xii,13.0) -
4899 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
4900 18382848.0*Power(rij,15.0)*Power(xii,15.0) -
4901 1775616.0*Power(rij,16.0)*Power(xii,16.0) -
4902 143360.0*Power(rij,17.0)*Power(xii,17.0) - 8192.0*Power(rij,18.0)*Power(xii,18.0))/
4903 (1.600593426432e15*Power(E,2.0*rij*xii)*Power(rij,2.0))
4904 ;
4905 }
4906 else {
4907 S = (1403325.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
4908 10395.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
4909 (-456.0*Power(rij,5.0)*Power(xii,25.0) - 12.0*Power(rij,6.0)*Power(xii,26.0) +
4910 135.0*Power(xij,20.0) + 270.0*rij*xii*Power(xij,20.0) +
4911 90.0*rij*Power(xii,3.0)*Power(xij,18.0)*
4912 (-51.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
4913 135.0*Power(xii,2.0)*Power(xij,18.0)*(-17.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4914 80.0*Power(rij,4.0)*Power(xii,24.0)*(93.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
4915 20.0*Power(rij,3.0)*Power(xii,23.0)*
4916 (3264.0 + 395.0*Power(rij,2.0)*Power(xij,2.0)) +
4917 36.0*rij*Power(xii,5.0)*Power(xij,16.0)*
4918 (1020.0 - 85.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4919 90.0*Power(xii,4.0)*Power(xij,16.0)*
4920 (204.0 - 51.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
4921 2040.0*rij*Power(xii,13.0)*Power(xij,8.0)*
4922 (-172098.0 + 715.0*Power(rij,2.0)*Power(xij,2.0) +
4923 29.0*Power(rij,4.0)*Power(xij,4.0)) -
4924 2040.0*rij*Power(xii,15.0)*Power(xij,6.0)*
4925 (210168.0 - 8158.0*Power(rij,2.0)*Power(xij,2.0) +
4926 39.0*Power(rij,4.0)*Power(xij,4.0)) -
4927 20.0*rij*Power(xii,7.0)*Power(xij,14.0)*
4928 (9180.0 - 132.0*Power(rij,2.0)*Power(xij,2.0) +
4929 67.0*Power(rij,4.0)*Power(xij,4.0)) +
4930 2.0*Power(rij,2.0)*Power(xii,22.0)*
4931 (-156060.0 - 80085.0*Power(rij,2.0)*Power(xij,2.0) +
4932 94.0*Power(rij,4.0)*Power(xij,4.0)) +
4933 68.0*rij*Power(xii,11.0)*Power(xij,10.0)*
4934 (-1258335.0 - 115770.0*Power(rij,2.0)*Power(xij,2.0) +
4935 212.0*Power(rij,4.0)*Power(xij,4.0)) -
4936 30.0*rij*Power(xii,17.0)*Power(xij,4.0)*
4937 (6000651.0 - 10472.0*Power(rij,2.0)*Power(xij,2.0) +
4938 816.0*Power(rij,4.0)*Power(xij,4.0)) -
4939 4.0*rij*Power(xii,21.0)*(174420.0 + 422805.0*Power(rij,2.0)*Power(xij,2.0) +
4940 1399.0*Power(rij,4.0)*Power(xij,4.0)) -
4941 4.0*rij*Power(xii,9.0)*Power(xij,12.0)*
4942 (784125.0 + 415140.0*Power(rij,2.0)*Power(xij,2.0) +
4943 3326.0*Power(rij,4.0)*Power(xij,4.0)) +
4944 45.0*Power(xii,16.0)*Power(xij,4.0)*
4945 (-2000217.0 - 1628872.0*Power(rij,2.0)*Power(xij,2.0) +
4946 20808.0*Power(rij,4.0)*Power(xij,4.0)) +
4947 Power(xii,19.0)*(-24085350.0*rij*Power(xij,2.0) -
4948 7125420.0*Power(rij,3.0)*Power(xij,4.0) +
4949 59024.0*Power(rij,5.0)*Power(xij,6.0)) +
4950 1020.0*Power(xii,14.0)*Power(xij,6.0)*
4951 (-210168.0 + 38954.0*Power(rij,2.0)*Power(xij,2.0) -
4952 1365.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
4953 6.0*Power(xii,6.0)*Power(xij,14.0)*
4954 (-15300.0 + 6120.0*Power(rij,2.0)*Power(xij,2.0) -
4955 255.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
4956 68.0*Power(xii,12.0)*Power(xij,8.0)*
4957 (2581470.0 - 1159275.0*Power(rij,2.0)*Power(xij,2.0) +
4958 4845.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) +
4959 10.0*Power(xii,8.0)*Power(xij,12.0)*
4960 (-156825.0 + 53244.0*Power(rij,2.0)*Power(xij,2.0) +
4961 6684.0*Power(rij,4.0)*Power(xij,4.0) + 16.0*Power(rij,6.0)*Power(xij,6.0)) -
4962 2.0*Power(xii,10.0)*Power(xij,10.0)*
4963 (21391695.0 - 9981210.0*Power(rij,2.0)*Power(xij,2.0) -
4964 221340.0*Power(rij,4.0)*Power(xij,4.0) + 94.0*Power(rij,6.0)*Power(xij,6.0)) \
4965 - 15.0*Power(xii,18.0)*Power(xij,2.0)*
4966 (802845.0 + 3733518.0*Power(rij,2.0)*Power(xij,2.0) -
4967 56168.0*Power(rij,4.0)*Power(xij,4.0) + 136.0*Power(rij,6.0)*Power(xij,6.0)) \
4968 + 2.0*Power(xii,20.0)*(-174420.0 - 4738455.0*Power(rij,2.0)*Power(xij,2.0) -
4969 198795.0*Power(rij,4.0)*Power(xij,4.0) + 544.0*Power(rij,6.0)*Power(xij,6.0))) \
4970 + Power(E,2.0*rij*xii)*Power(xii,8.0)*
4971 (2.0*Power(xii,2.0)*Power(xij,24.0)*
4972 (218024781975.0 + 436049563950.0*rij*xij +
4973 315992927250.0*Power(rij,2.0)*Power(xij,2.0) +
4974 127775547900.0*Power(rij,3.0)*Power(xij,3.0) +
4975 33563479950.0*Power(rij,4.0)*Power(xij,4.0) +
4976 6097020930.0*Power(rij,5.0)*Power(xij,5.0) +
4977 773783010.0*Power(rij,6.0)*Power(xij,6.0) +
4978 64787580.0*Power(rij,7.0)*Power(xij,7.0) +
4979 2627955.0*Power(rij,8.0)*Power(xij,8.0) -
4980 117810.0*Power(rij,9.0)*Power(xij,9.0) -
4981 25542.0*Power(rij,10.0)*Power(xij,10.0) -
4982 1684.0*Power(rij,11.0)*Power(xij,11.0) - 46.0*Power(rij,12.0)*Power(xij,12.0)) \
4983 - 88.0*Power(xii,20.0)*Power(xij,6.0)*
4984 (-10843875.0 - 21687750.0*rij*xij -
4985 21687750.0*Power(rij,2.0)*Power(xij,2.0) -
4986 14458500.0*Power(rij,3.0)*Power(xij,3.0) -
4987 7229250.0*Power(rij,4.0)*Power(xij,4.0) -
4988 2891700.0*Power(rij,5.0)*Power(xij,5.0) -
4989 963900.0*Power(rij,6.0)*Power(xij,6.0) -
4990 302130.0*Power(rij,7.0)*Power(xij,7.0) -
4991 28755.0*Power(rij,8.0)*Power(xij,8.0) -
4992 25380.0*Power(rij,9.0)*Power(xij,9.0) -
4993 5805.0*Power(rij,10.0)*Power(xij,10.0) -
4994 350.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
4995 88.0*Power(xii,6.0)*Power(xij,20.0)*
4996 (25012482075.0 + 50024964150.0*rij*xij +
4997 3860178525.0*Power(rij,2.0)*Power(xij,2.0) -
4998 8806672350.0*Power(rij,3.0)*Power(xij,3.0) -
4999 3531006675.0*Power(rij,4.0)*Power(xij,4.0) -
5000 529052580.0*Power(rij,5.0)*Power(xij,5.0) +
5001 2184840.0*Power(rij,6.0)*Power(xij,6.0) +
5002 14577840.0*Power(rij,7.0)*Power(xij,7.0) +
5003 2766240.0*Power(rij,8.0)*Power(xij,8.0) +
5004 273870.0*Power(rij,9.0)*Power(xij,9.0) +
5005 15363.0*Power(rij,10.0)*Power(xij,10.0) +
5006 406.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
5007 4488.0*Power(xii,14.0)*Power(xij,12.0)*
5008 (-3869775.0 - 7739550.0*rij*xij - 8632575.0*Power(rij,2.0)*Power(xij,2.0) -
5009 66150.0*Power(rij,3.0)*Power(xij,3.0) -
5010 9955575.0*Power(rij,4.0)*Power(xij,4.0) +
5011 1446480.0*Power(rij,5.0)*Power(xij,5.0) +
5012 379260.0*Power(rij,6.0)*Power(xij,6.0) -
5013 283320.0*Power(rij,7.0)*Power(xij,7.0) -
5014 88050.0*Power(rij,8.0)*Power(xij,8.0) -
5015 8400.0*Power(rij,9.0)*Power(xij,9.0) - 18.0*Power(rij,10.0)*Power(xij,10.0) +
5016 44.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
5017 4488.0*Power(xii,12.0)*Power(xij,14.0)*
5018 (-6889050.0 - 13778100.0*rij*xij + 20057625.0*Power(rij,2.0)*Power(xij,2.0) -
5019 61906950.0*Power(rij,3.0)*Power(xij,3.0) +
5020 11911725.0*Power(rij,4.0)*Power(xij,4.0) +
5021 5554080.0*Power(rij,5.0)*Power(xij,5.0) -
5022 1535940.0*Power(rij,6.0)*Power(xij,6.0) -
5023 762660.0*Power(rij,7.0)*Power(xij,7.0) -
5024 103200.0*Power(rij,8.0)*Power(xij,8.0) -
5025 2820.0*Power(rij,9.0)*Power(xij,9.0) +
5026 654.0*Power(rij,10.0)*Power(xij,10.0) +
5027 68.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
5028 6.0*Power(xij,26.0)*(3273645375.0 + 6547290750.0*rij*xij +
5029 5306751450.0*Power(rij,2.0)*Power(xij,2.0) +
5030 2527024500.0*Power(rij,3.0)*Power(xij,3.0) +
5031 817566750.0*Power(rij,4.0)*Power(xij,4.0) +
5032 193243050.0*Power(rij,5.0)*Power(xij,5.0) +
5033 34684650.0*Power(rij,6.0)*Power(xij,6.0) +
5034 4813380.0*Power(rij,7.0)*Power(xij,7.0) +
5035 517275.0*Power(rij,8.0)*Power(xij,8.0) +
5036 42350.0*Power(rij,9.0)*Power(xij,9.0) +
5037 2530.0*Power(rij,10.0)*Power(xij,10.0) +
5038 100.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
5039 3.0*Power(xii,26.0)*(467775.0 + 935550.0*rij*xij +
5040 935550.0*Power(rij,2.0)*Power(xij,2.0) +
5041 623700.0*Power(rij,3.0)*Power(xij,3.0) +
5042 311850.0*Power(rij,4.0)*Power(xij,4.0) +
5043 124740.0*Power(rij,5.0)*Power(xij,5.0) +
5044 41580.0*Power(rij,6.0)*Power(xij,6.0) +
5045 11880.0*Power(rij,7.0)*Power(xij,7.0) +
5046 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
5047 132.0*Power(rij,10.0)*Power(xij,10.0) +
5048 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) +
5049 330.0*Power(xii,18.0)*Power(xij,8.0)*
5050 (-10120950.0 - 20241900.0*rij*xij -
5051 20241900.0*Power(rij,2.0)*Power(xij,2.0) -
5052 13494600.0*Power(rij,3.0)*Power(xij,3.0) -
5053 6747300.0*Power(rij,4.0)*Power(xij,4.0) -
5054 2572794.0*Power(rij,5.0)*Power(xij,5.0) -
5055 1278018.0*Power(rij,6.0)*Power(xij,6.0) +
5056 18180.0*Power(rij,7.0)*Power(xij,7.0) -
5057 77691.0*Power(rij,8.0)*Power(xij,8.0) -
5058 35630.0*Power(rij,9.0)*Power(xij,9.0) -
5059 4114.0*Power(rij,10.0)*Power(xij,10.0) -
5060 92.0*Power(rij,11.0)*Power(xij,11.0) + 6.0*Power(rij,12.0)*Power(xij,12.0)) -
5061 165.0*Power(xii,8.0)*Power(xij,18.0)*
5062 (-5877371745.0 - 11754743490.0*rij*xij +
5063 10638195750.0*Power(rij,2.0)*Power(xij,2.0) +
5064 3500767620.0*Power(rij,3.0)*Power(xij,3.0) -
5065 943138350.0*Power(rij,4.0)*Power(xij,4.0) -
5066 587351268.0*Power(rij,5.0)*Power(xij,5.0) -
5067 104134716.0*Power(rij,6.0)*Power(xij,6.0) -
5068 4631400.0*Power(rij,7.0)*Power(xij,7.0) +
5069 1221198.0*Power(rij,8.0)*Power(xij,8.0) +
5070 247260.0*Power(rij,9.0)*Power(xij,9.0) +
5071 20892.0*Power(rij,10.0)*Power(xij,10.0) +
5072 856.0*Power(rij,11.0)*Power(xij,11.0) + 12.0*Power(rij,12.0)*Power(xij,12.0)) \
5073 + 8.0*Power(xii,4.0)*Power(xij,22.0)*
5074 (230263179300.0 + 460526358600.0*rij*xij +
5075 246912383025.0*Power(rij,2.0)*Power(xij,2.0) +
5076 55394851050.0*Power(rij,3.0)*Power(xij,3.0) +
5077 1508262525.0*Power(rij,4.0)*Power(xij,4.0) -
5078 2396962260.0*Power(rij,5.0)*Power(xij,5.0) -
5079 722410920.0*Power(rij,6.0)*Power(xij,6.0) -
5080 115167690.0*Power(rij,7.0)*Power(xij,7.0) -
5081 11586465.0*Power(rij,8.0)*Power(xij,8.0) -
5082 720720.0*Power(rij,9.0)*Power(xij,9.0) -
5083 21681.0*Power(rij,10.0)*Power(xij,10.0) +
5084 218.0*Power(rij,11.0)*Power(xij,11.0) + 29.0*Power(rij,12.0)*Power(xij,12.0)) \
5085 - 8.0*Power(xii,22.0)*Power(xij,4.0)*
5086 (23856525.0 + 47713050.0*rij*xij + 47713050.0*Power(rij,2.0)*Power(xij,2.0) +
5087 31808700.0*Power(rij,3.0)*Power(xij,3.0) +
5088 15904350.0*Power(rij,4.0)*Power(xij,4.0) +
5089 6361740.0*Power(rij,5.0)*Power(xij,5.0) +
5090 2120580.0*Power(rij,6.0)*Power(xij,6.0) +
5091 605880.0*Power(rij,7.0)*Power(xij,7.0) +
5092 151470.0*Power(rij,8.0)*Power(xij,8.0) +
5093 26730.0*Power(rij,9.0)*Power(xij,9.0) +
5094 11583.0*Power(rij,10.0)*Power(xij,10.0) +
5095 1406.0*Power(rij,11.0)*Power(xij,11.0) + 29.0*Power(rij,12.0)*Power(xij,12.0)) \
5096 - 66.0*Power(xii,16.0)*Power(xij,10.0)*
5097 (-131572350.0 - 263144700.0*rij*xij -
5098 263144700.0*Power(rij,2.0)*Power(xij,2.0) -
5099 178869600.0*Power(rij,3.0)*Power(xij,3.0) -
5100 63636300.0*Power(rij,4.0)*Power(xij,4.0) -
5101 76650210.0*Power(rij,5.0)*Power(xij,5.0) +
5102 7510230.0*Power(rij,6.0)*Power(xij,6.0) -
5103 1096020.0*Power(rij,7.0)*Power(xij,7.0) -
5104 2359515.0*Power(rij,8.0)*Power(xij,8.0) -
5105 455070.0*Power(rij,9.0)*Power(xij,9.0) -
5106 25722.0*Power(rij,10.0)*Power(xij,10.0) +
5107 716.0*Power(rij,11.0)*Power(xij,11.0) + 86.0*Power(rij,12.0)*Power(xij,12.0)) \
5108 + Power(xii,24.0)*Power(xij,2.0)*(23856525.0 + 47713050.0*rij*xij +
5109 47713050.0*Power(rij,2.0)*Power(xij,2.0) +
5110 31808700.0*Power(rij,3.0)*Power(xij,3.0) +
5111 15904350.0*Power(rij,4.0)*Power(xij,4.0) +
5112 6361740.0*Power(rij,5.0)*Power(xij,5.0) +
5113 2120580.0*Power(rij,6.0)*Power(xij,6.0) +
5114 605880.0*Power(rij,7.0)*Power(xij,7.0) +
5115 151470.0*Power(rij,8.0)*Power(xij,8.0) +
5116 33660.0*Power(rij,9.0)*Power(xij,9.0) +
5117 6732.0*Power(rij,10.0)*Power(xij,10.0) +
5118 1784.0*Power(rij,11.0)*Power(xij,11.0) + 92.0*Power(rij,12.0)*Power(xij,12.0)) \
5119 + 33.0*Power(xii,10.0)*Power(xij,16.0)*
5120 (2759659875.0 + 5519319750.0*rij*xij -
5121 33545959650.0*Power(rij,2.0)*Power(xij,2.0) +
5122 10690917300.0*Power(rij,3.0)*Power(xij,3.0) +
5123 5050165050.0*Power(rij,4.0)*Power(xij,4.0) -
5124 924808500.0*Power(rij,5.0)*Power(xij,5.0) -
5125 639355500.0*Power(rij,6.0)*Power(xij,6.0) -
5126 107153640.0*Power(rij,7.0)*Power(xij,7.0) -
5127 4761930.0*Power(rij,8.0)*Power(xij,8.0) +
5128 823020.0*Power(rij,9.0)*Power(xij,9.0) +
5129 138060.0*Power(rij,10.0)*Power(xij,10.0) +
5130 8200.0*Power(rij,11.0)*Power(xij,11.0) + 172.0*Power(rij,12.0)*Power(xij,12.0))\
5131 ))/(1.403325e6*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5132 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
5133 ;
5134 }
5135 return S;
5136 }
5137
5138 double DSlater_3S_1S(double rij,double xii,double xij)
5139 {
5140 return DSlater_1S_3S(rij,xij,xii);
5141 }
5142
5143 double DSlater_3S_2S(double rij,double xii,double xij)
5144 {
5145 return DSlater_2S_3S(rij,xij,xii);
5146 }
5147
5148 static double DSlater_4S_4S(double rij,double xij,double xii)
5149 {
5150 double S;
5151
5152 if (xii == xij) {
5153 S = (-20922789888000.0 + 20922789888000.0*Power(E,2.0*rij*xii) -
5154 41845579776000.0*rij*xii - 41845579776000.0*Power(rij,2.0)*Power(xii,2.0) -
5155 27805745842875.0*Power(rij,3.0)*Power(xii,3.0) -
5156 13765911909750.0*Power(rij,4.0)*Power(xii,4.0) -
5157 5399605411200.0*Power(rij,5.0)*Power(xii,5.0) -
5158 1743679337400.0*Power(rij,6.0)*Power(xii,6.0) -
5159 476010334800.0*Power(rij,7.0)*Power(xii,7.0) -
5160 112021509600.0*Power(rij,8.0)*Power(xii,8.0) -
5161 23063040000.0*Power(rij,9.0)*Power(xii,9.0) -
5162 4197473280.0*Power(rij,10.0)*Power(xii,10.0) -
5163 679311360.0*Power(rij,11.0)*Power(xii,11.0) -
5164 97843200.0*Power(rij,12.0)*Power(xii,12.0) -
5165 12472320.0*Power(rij,13.0)*Power(xii,13.0) -
5166 1382400.0*Power(rij,14.0)*Power(xii,14.0) -
5167 126976.0*Power(rij,15.0)*Power(xii,15.0) - 8192.0*Power(rij,16.0)*Power(xii,16.0))/
5168 (2.0922789888e13*Power(E,2.0*rij*xii)*Power(rij,2.0))
5169 ;
5170 }
5171 else {
5172 S = (315.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),15.0) +
5173 Power(E,2.0*rij*xij)*Power(xij,10.0)*
5174 (-1428.0*Power(rij,6.0)*Power(xii,26.0) - 78.0*Power(rij,7.0)*Power(xii,27.0) -
5175 2.0*Power(rij,8.0)*Power(xii,28.0) + 315.0*Power(xij,20.0) +
5176 630.0*rij*xii*Power(xij,20.0) +
5177 210.0*rij*Power(xii,3.0)*Power(xij,18.0)*
5178 (-45.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
5179 315.0*Power(xii,2.0)*Power(xij,18.0)*(-15.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
5180 42.0*Power(rij,5.0)*Power(xii,25.0)*(377.0 + 5.0*Power(rij,2.0)*Power(xij,2.0)) +
5181 42.0*Power(rij,4.0)*Power(xii,24.0)*
5182 (-2730.0 - 190.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
5183 + 42.0*rij*Power(xii,5.0)*Power(xij,16.0)*
5184 (1575.0 - 150.0*Power(rij,2.0)*Power(xij,2.0) +
5185 2.0*Power(rij,4.0)*Power(xij,4.0)) +
5186 105.0*Power(xii,4.0)*Power(xij,16.0)*
5187 (315.0 - 90.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
5188 + 63.0*Power(rij,3.0)*Power(xii,23.0)*
5189 (-8645.0 - 2180.0*Power(rij,2.0)*Power(xij,2.0) +
5190 32.0*Power(rij,4.0)*Power(xij,4.0)) +
5191 2.0*rij*Power(xii,7.0)*Power(xij,14.0)*
5192 (-143325.0 + 22050.0*Power(rij,2.0)*Power(xij,2.0) -
5193 630.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5194 7.0*Power(xii,6.0)*Power(xij,14.0)*
5195 (-20475.0 + 9450.0*Power(rij,2.0)*Power(xij,2.0) -
5196 450.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5197 21.0*rij*Power(xii,11.0)*Power(xij,10.0)*
5198 (-209430.0 - 112125.0*Power(rij,2.0)*Power(xij,2.0) -
5199 8288.0*Power(rij,4.0)*Power(xij,4.0) + 10.0*Power(rij,6.0)*Power(xij,6.0)) -
5200 21.0*rij*Power(xii,9.0)*Power(xij,12.0)*
5201 (-40950.0 + 11245.0*Power(rij,2.0)*Power(xij,2.0) -
5202 222.0*Power(rij,4.0)*Power(xij,4.0) + 10.0*Power(rij,6.0)*Power(xij,6.0)) +
5203 7.0*rij*Power(xii,19.0)*Power(xij,2.0)*
5204 (-7711200.0 - 1605825.0*Power(rij,2.0)*Power(xij,2.0) +
5205 55104.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
5206 4.0*Power(rij,2.0)*Power(xii,22.0)*
5207 (401310.0 + 341775.0*Power(rij,2.0)*Power(xij,2.0) -
5208 9009.0*Power(rij,4.0)*Power(xij,4.0) + 32.0*Power(rij,6.0)*Power(xij,6.0)) +
5209 105.0*rij*Power(xii,17.0)*Power(xij,4.0)*
5210 (-2087532.0 + 267621.0*Power(rij,2.0)*Power(xij,2.0) -
5211 10348.0*Power(rij,4.0)*Power(xij,4.0) + 52.0*Power(rij,6.0)*Power(xij,6.0)) -
5212 105.0*rij*Power(xii,15.0)*Power(xij,6.0)*
5213 (2126142.0 - 103075.0*Power(rij,2.0)*Power(xij,2.0) -
5214 4680.0*Power(rij,4.0)*Power(xij,4.0) + 56.0*Power(rij,6.0)*Power(xij,6.0)) +
5215 21.0*Power(xii,10.0)*Power(xij,10.0)*
5216 (-104715.0 + 83850.0*Power(rij,2.0)*Power(xij,2.0) +
5217 4030.0*Power(rij,4.0)*Power(xij,4.0) + 404.0*Power(rij,6.0)*Power(xij,6.0)) -
5218 70.0*Power(xii,18.0)*Power(xij,2.0)*
5219 (385560.0 + 1201608.0*Power(rij,2.0)*Power(xij,2.0) -
5220 84195.0*Power(rij,4.0)*Power(xij,4.0) + 1064.0*Power(rij,6.0)*Power(xij,6.0)) \
5221 - 3.0*rij*Power(xii,21.0)*(835380.0 + 2774625.0*Power(rij,2.0)*Power(xij,2.0) -
5222 94836.0*Power(rij,4.0)*Power(xij,4.0) + 1160.0*Power(rij,6.0)*Power(xij,6.0)) \
5223 + rij*Power(xii,13.0)*Power(xij,8.0)*
5224 (-50825250.0 - 16261245.0*Power(rij,2.0)*Power(xij,2.0) +
5225 248640.0*Power(rij,4.0)*Power(xij,4.0) + 2024.0*Power(rij,6.0)*Power(xij,6.0)\
5226 ) - 70.0*Power(xii,16.0)*Power(xij,4.0)*
5227 (1565649.0 - 145035.0*Power(rij,2.0)*Power(xij,2.0) +
5228 63465.0*Power(rij,4.0)*Power(xij,4.0) -
5229 1560.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
5230 Power(xii,8.0)*Power(xij,12.0)*
5231 (429975.0 - 286650.0*Power(rij,2.0)*Power(xij,2.0) +
5232 22050.0*Power(rij,4.0)*Power(xij,4.0) -
5233 420.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5234 7.0*Power(xii,12.0)*Power(xij,8.0)*
5235 (3630375.0 - 2811510.0*Power(rij,2.0)*Power(xij,2.0) -
5236 298350.0*Power(rij,4.0)*Power(xij,4.0) +
5237 1688.0*Power(rij,6.0)*Power(xij,6.0) + 6.0*Power(rij,8.0)*Power(xij,8.0)) +
5238 14.0*Power(xii,20.0)*(-89505.0 - 2135700.0*Power(rij,2.0)*Power(xij,2.0) +
5239 24030.0*Power(rij,4.0)*Power(xij,4.0) -
5240 1236.0*Power(rij,6.0)*Power(xij,6.0) + 10.0*Power(rij,8.0)*Power(xij,8.0)) +
5241 Power(xii,14.0)*Power(xij,6.0)*
5242 (-111622455.0 + 84253050.0*Power(rij,2.0)*Power(xij,2.0) -
5243 2497950.0*Power(rij,4.0)*Power(xij,4.0) -
5244 40320.0*Power(rij,6.0)*Power(xij,6.0) + 128.0*Power(rij,8.0)*Power(xij,8.0))) \
5245 + Power(E,2.0*rij*xii)*Power(xii,10.0)*
5246 (105.0*Power(xii,18.0)*Power(xij,2.0)*
5247 (45.0 + 90.0*rij*xij + 90.0*Power(rij,2.0)*Power(xij,2.0) +
5248 60.0*Power(rij,3.0)*Power(xij,3.0) + 30.0*Power(rij,4.0)*Power(xij,4.0) +
5249 12.0*Power(rij,5.0)*Power(xij,5.0) + 4.0*Power(rij,6.0)*Power(xij,6.0) +
5250 2.0*Power(rij,7.0)*Power(xij,7.0)) +
5251 105.0*Power(xii,2.0)*Power(xij,18.0)*
5252 (257040.0 + 514080.0*rij*xij + 284760.0*Power(rij,2.0)*Power(xij,2.0) +
5253 79275.0*Power(rij,3.0)*Power(xij,3.0) +
5254 13020.0*Power(rij,4.0)*Power(xij,4.0) +
5255 1308.0*Power(rij,5.0)*Power(xij,5.0) + 76.0*Power(rij,6.0)*Power(xij,6.0) +
5256 2.0*Power(rij,7.0)*Power(xij,7.0)) -
5257 1365.0*Power(xii,10.0)*Power(xij,10.0)*
5258 (-1611.0 - 3222.0*rij*xij + 14418.0*Power(rij,2.0)*Power(xij,2.0) -
5259 11913.0*Power(rij,3.0)*Power(xij,3.0) -
5260 1830.0*Power(rij,4.0)*Power(xij,4.0) + 360.0*Power(rij,5.0)*Power(xij,5.0) +
5261 80.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0)) +
5262 Power(xii,14.0)*Power(xij,6.0)*
5263 (143325.0 + 286650.0*rij*xij + 286650.0*Power(rij,2.0)*Power(xij,2.0) +
5264 236145.0*Power(rij,3.0)*Power(xij,3.0) -
5265 84630.0*Power(rij,4.0)*Power(xij,4.0) +
5266 174048.0*Power(rij,5.0)*Power(xij,5.0) +
5267 11816.0*Power(rij,6.0)*Power(xij,6.0) -
5268 2024.0*Power(rij,7.0)*Power(xij,7.0) - 128.0*Power(rij,8.0)*Power(xij,8.0)) +
5269 21.0*Power(xii,16.0)*Power(xij,4.0)*
5270 (-1575.0 - 3150.0*rij*xij - 3150.0*Power(rij,2.0)*Power(xij,2.0) -
5271 2100.0*Power(rij,3.0)*Power(xij,3.0) - 1050.0*Power(rij,4.0)*Power(xij,4.0) -
5272 222.0*Power(rij,5.0)*Power(xij,5.0) - 404.0*Power(rij,6.0)*Power(xij,6.0) -
5273 10.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5274 Power(xii,20.0)*(315.0 + 630.0*rij*xij + 630.0*Power(rij,2.0)*Power(xij,2.0) +
5275 420.0*Power(rij,3.0)*Power(xij,3.0) + 210.0*Power(rij,4.0)*Power(xij,4.0) +
5276 84.0*Power(rij,5.0)*Power(xij,5.0) + 28.0*Power(rij,6.0)*Power(xij,6.0) +
5277 8.0*Power(rij,7.0)*Power(xij,7.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
5278 Power(xij,20.0)*(1253070.0 + 2506140.0*rij*xij +
5279 1605240.0*Power(rij,2.0)*Power(xij,2.0) +
5280 544635.0*Power(rij,3.0)*Power(xij,3.0) +
5281 114660.0*Power(rij,4.0)*Power(xij,4.0) +
5282 15834.0*Power(rij,5.0)*Power(xij,5.0) +
5283 1428.0*Power(rij,6.0)*Power(xij,6.0) + 78.0*Power(rij,7.0)*Power(xij,7.0) +
5284 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5285 21.0*Power(xii,4.0)*Power(xij,16.0)*
5286 (-5218830.0 - 10437660.0*rij*xij - 4005360.0*Power(rij,2.0)*Power(xij,2.0) -
5287 535275.0*Power(rij,3.0)*Power(xij,3.0) +
5288 16020.0*Power(rij,4.0)*Power(xij,4.0) +
5289 13548.0*Power(rij,5.0)*Power(xij,5.0) +
5290 1716.0*Power(rij,6.0)*Power(xij,6.0) + 96.0*Power(rij,7.0)*Power(xij,7.0) +
5291 2.0*Power(rij,8.0)*Power(xij,8.0)) -
5292 35.0*Power(xii,8.0)*Power(xij,12.0)*
5293 (-726075.0 - 1452150.0*rij*xij + 2407230.0*Power(rij,2.0)*Power(xij,2.0) +
5294 309225.0*Power(rij,3.0)*Power(xij,3.0) -
5295 126930.0*Power(rij,4.0)*Power(xij,4.0) -
5296 31044.0*Power(rij,5.0)*Power(xij,5.0) -
5297 2128.0*Power(rij,6.0)*Power(xij,6.0) + 4.0*Power(rij,7.0)*Power(xij,7.0) +
5298 4.0*Power(rij,8.0)*Power(xij,8.0)) +
5299 35.0*Power(xii,12.0)*Power(xij,8.0)*
5300 (-12285.0 - 24570.0*rij*xij - 50310.0*Power(rij,2.0)*Power(xij,2.0) +
5301 67275.0*Power(rij,3.0)*Power(xij,3.0) -
5302 59670.0*Power(rij,4.0)*Power(xij,4.0) -
5303 7104.0*Power(rij,5.0)*Power(xij,5.0) + 1152.0*Power(rij,6.0)*Power(xij,6.0) +
5304 168.0*Power(rij,7.0)*Power(xij,7.0) + 4.0*Power(rij,8.0)*Power(xij,8.0)) +
5305 Power(xii,6.0)*Power(xij,14.0)*
5306 (111622455.0 + 223244910.0*rij*xij -
5307 10152450.0*Power(rij,2.0)*Power(xij,2.0) -
5308 28100205.0*Power(rij,3.0)*Power(xij,3.0) -
5309 5893650.0*Power(rij,4.0)*Power(xij,4.0) -
5310 385728.0*Power(rij,5.0)*Power(xij,5.0) +
5311 17304.0*Power(rij,6.0)*Power(xij,6.0) + 3480.0*Power(rij,7.0)*Power(xij,7.0) +
5312 128.0*Power(rij,8.0)*Power(xij,8.0))))/
5313 (315.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5314 Power(Power(xii,2.0) - Power(xij,2.0),15.0))
5315 ;
5316 }
5317 return S;
5318 }
5319
5320 static double DSlater_4S_5S(double rij,double xij,double xii)
5321 {
5322 double S;
5323
5324 if (xii == xij) {
5325 S = (-1778437140480000.0 + 1778437140480000.0*Power(E,2.0*rij*xii) -
5326 3556874280960000.0*rij*xii - 3556874280960000.0*Power(rij,2.0)*Power(xii,2.0) -
5327 2366075437976250.0*Power(rij,3.0)*Power(xii,3.0) -
5328 1175276594992500.0*Power(rij,4.0)*Power(xii,4.0) -
5329 464005220453775.0*Power(rij,5.0)*Power(xii,5.0) -
5330 151391487797550.0*Power(rij,6.0)*Power(xii,6.0) -
5331 41921958078000.0*Power(rij,7.0)*Power(xii,7.0) -
5332 10045335900600.0*Power(rij,8.0)*Power(xii,8.0) -
5333 2113817706000.0*Power(rij,9.0)*Power(xii,9.0) -
5334 395085731040.0*Power(rij,10.0)*Power(xii,10.0) -
5335 66153185280.0*Power(rij,11.0)*Power(xii,11.0) -
5336 9980006400.0*Power(rij,12.0)*Power(xii,12.0) -
5337 1359912960.0*Power(rij,13.0)*Power(xii,13.0) -
5338 167116800.0*Power(rij,14.0)*Power(xii,14.0) -
5339 18382848.0*Power(rij,15.0)*Power(xii,15.0) -
5340 1775616.0*Power(rij,16.0)*Power(xii,16.0) -
5341 143360.0*Power(rij,17.0)*Power(xii,17.0) - 8192.0*Power(rij,18.0)*Power(xii,18.0))/
5342 (1.77843714048e15*Power(E,2.0*rij*xii)*Power(rij,2.0))
5343 ;
5344 }
5345 else {
5346 S = (14175.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),17.0) +
5347 9.0*Power(E,2.0*rij*xij)*Power(xij,12.0)*
5348 (-460.0*Power(rij,7.0)*Power(xii,29.0) - 10.0*Power(rij,8.0)*Power(xii,30.0) +
5349 1575.0*Power(xij,22.0) + 3150.0*rij*xii*Power(xij,22.0) -
5350 50.0*Power(rij,6.0)*Power(xii,28.0)*(196.0 + Power(rij,2.0)*Power(xij,2.0)) +
5351 1050.0*rij*Power(xii,3.0)*Power(xij,20.0)*
5352 (-51.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
5353 1575.0*Power(xii,2.0)*Power(xij,20.0)*
5354 (-17.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
5355 30.0*Power(rij,5.0)*Power(xii,27.0)*
5356 (4165.0 + 128.0*Power(rij,2.0)*Power(xij,2.0)) +
5357 420.0*rij*Power(xii,5.0)*Power(xij,18.0)*
5358 (1020.0 - 85.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
5359 1050.0*Power(xii,4.0)*Power(xij,18.0)*
5360 (204.0 - 51.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
5361 42.0*Power(rij,4.0)*Power(xii,26.0)*
5362 (-24500.0 - 2780.0*Power(rij,2.0)*Power(xij,2.0) +
5363 9.0*Power(rij,4.0)*Power(xij,4.0)) +
5364 210.0*Power(rij,3.0)*Power(xii,25.0)*
5365 (-26180.0 - 9333.0*Power(rij,2.0)*Power(xij,2.0) +
5366 74.0*Power(rij,4.0)*Power(xij,4.0)) +
5367 20.0*rij*Power(xii,7.0)*Power(xij,16.0)*
5368 (-107100.0 + 14280.0*Power(rij,2.0)*Power(xij,2.0) -
5369 357.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
5370 70.0*Power(xii,6.0)*Power(xij,16.0)*
5371 (-15300.0 + 6120.0*Power(rij,2.0)*Power(xij,2.0) -
5372 255.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
5373 42.0*rij*Power(xii,11.0)*Power(xij,12.0)*
5374 (1723800.0 + 1096500.0*Power(rij,2.0)*Power(xij,2.0) +
5375 52703.0*Power(rij,4.0)*Power(xij,4.0) + 80.0*Power(rij,6.0)*Power(xij,6.0)) -
5376 340.0*rij*Power(xii,15.0)*Power(xij,8.0)*
5377 (23752701.0 + 491820.0*Power(rij,2.0)*Power(xij,2.0) -
5378 44772.0*Power(rij,4.0)*Power(xij,4.0) + 116.0*Power(rij,6.0)*Power(xij,6.0)) \
5379 - 2.0*Power(rij,2.0)*Power(xii,24.0)*
5380 (8996400.0 + 10103100.0*Power(rij,2.0)*Power(xij,2.0) -
5381 102522.0*Power(rij,4.0)*Power(xij,4.0) + 263.0*Power(rij,6.0)*Power(xij,6.0)) \
5382 - 70.0*rij*Power(xii,17.0)*Power(xij,6.0)*
5383 (180826281.0 - 14550096.0*Power(rij,2.0)*Power(xij,2.0) +
5384 184314.0*Power(rij,4.0)*Power(xij,4.0) + 340.0*Power(rij,6.0)*Power(xij,6.0)) \
5385 + 68.0*rij*Power(xii,13.0)*Power(xij,10.0)*
5386 (-20763225.0 - 6046950.0*Power(rij,2.0)*Power(xij,2.0) -
5387 9324.0*Power(rij,4.0)*Power(xij,4.0) + 425.0*Power(rij,6.0)*Power(xij,6.0)) +
5388 4.0*rij*Power(xii,23.0)*(-7630875.0 -
5389 32594100.0*Power(rij,2.0)*Power(xij,2.0) -
5390 71127.0*Power(rij,4.0)*Power(xij,4.0) + 650.0*Power(rij,6.0)*Power(xij,6.0)) \
5391 - 2.0*rij*Power(xii,9.0)*Power(xij,14.0)*
5392 (-3748500.0 + 1014300.0*Power(rij,2.0)*Power(xij,2.0) -
5393 7539.0*Power(rij,4.0)*Power(xij,4.0) + 670.0*Power(rij,6.0)*Power(xij,6.0)) +
5394 14.0*rij*Power(xii,19.0)*Power(xij,4.0)*
5395 (-451386135.0 + 14910390.0*Power(rij,2.0)*Power(xij,2.0) -
5396 777342.0*Power(rij,4.0)*Power(xij,4.0) + 6800.0*Power(rij,6.0)*Power(xij,6.0)\
5397 ) - 4.0*rij*Power(xii,21.0)*Power(xij,2.0)*
5398 (239609475.0 + 116284245.0*Power(rij,2.0)*Power(xij,2.0) -
5399 3442719.0*Power(rij,4.0)*Power(xij,4.0) +
5400 17510.0*Power(rij,6.0)*Power(xij,6.0)) +
5401 10.0*Power(xii,8.0)*Power(xij,14.0)*
5402 (374850.0 - 214200.0*Power(rij,2.0)*Power(xij,2.0) +
5403 14280.0*Power(rij,4.0)*Power(xij,4.0) -
5404 238.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
5405 2.0*Power(xii,10.0)*Power(xij,12.0)*
5406 (-18099900.0 + 11406150.0*Power(rij,2.0)*Power(xij,2.0) +
5407 844200.0*Power(rij,4.0)*Power(xij,4.0) +
5408 37548.0*Power(rij,6.0)*Power(xij,6.0) + 25.0*Power(rij,8.0)*Power(xij,8.0)) -
5409 14.0*Power(xii,12.0)*Power(xij,10.0)*
5410 (50424975.0 - 32917950.0*Power(rij,2.0)*Power(xij,2.0) -
5411 2731050.0*Power(rij,4.0)*Power(xij,4.0) -
5412 5212.0*Power(rij,6.0)*Power(xij,6.0) + 27.0*Power(rij,8.0)*Power(xij,8.0)) -
5413 35.0*Power(xii,18.0)*Power(xij,4.0)*
5414 (90277227.0 + 71255790.0*Power(rij,2.0)*Power(xij,2.0) -
5415 1723800.0*Power(rij,4.0)*Power(xij,4.0) -
5416 16864.0*Power(rij,6.0)*Power(xij,6.0) + 68.0*Power(rij,8.0)*Power(xij,8.0)) +
5417 14.0*Power(xii,20.0)*Power(xij,2.0)*
5418 (-34229925.0 - 184803525.0*Power(rij,2.0)*Power(xij,2.0) +
5419 8158275.0*Power(rij,4.0)*Power(xij,4.0) -
5420 116144.0*Power(rij,6.0)*Power(xij,6.0) + 170.0*Power(rij,8.0)*Power(xij,8.0)) \
5421 + 2.0*Power(xii,14.0)*Power(xij,8.0)*
5422 (-2018979585.0 + 1345818600.0*Power(rij,2.0)*Power(xij,2.0) +
5423 3016650.0*Power(rij,4.0)*Power(xij,4.0) -
5424 446012.0*Power(rij,6.0)*Power(xij,6.0) + 263.0*Power(rij,8.0)*Power(xij,8.0)) \
5425 - 2.0*Power(xii,22.0)*(7630875.0 + 249971400.0*Power(rij,2.0)*Power(xij,2.0) +
5426 19123125.0*Power(rij,4.0)*Power(xij,4.0) -
5427 325766.0*Power(rij,6.0)*Power(xij,6.0) + 306.0*Power(rij,8.0)*Power(xij,8.0)) \
5428 + Power(xii,16.0)*Power(xij,6.0)*(-6328919835.0 +
5429 2425600800.0*Power(rij,2.0)*Power(xij,2.0) -
5430 161149800.0*Power(rij,4.0)*Power(xij,4.0) +
5431 1051960.0*Power(rij,6.0)*Power(xij,6.0) + 612.0*Power(rij,8.0)*Power(xij,8.0))\
5432 ) + Power(E,2.0*rij*xii)*Power(xii,10.0)*
5433 (10710.0*Power(xii,12.0)*Power(xij,12.0)*
5434 (-3555.0 - 7110.0*rij*xij - 392400.0*Power(rij,2.0)*Power(xij,2.0) +
5435 425880.0*Power(rij,3.0)*Power(xij,3.0) -
5436 82260.0*Power(rij,4.0)*Power(xij,4.0) -
5437 46200.0*Power(rij,5.0)*Power(xij,5.0) -
5438 2064.0*Power(rij,6.0)*Power(xij,6.0) + 792.0*Power(rij,7.0)*Power(xij,7.0) +
5439 106.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,9.0)*Power(xij,9.0)) +
5440 2.0*Power(xii,18.0)*Power(xij,6.0)*
5441 (4819500.0 + 9639000.0*rij*xij + 9639000.0*Power(rij,2.0)*Power(xij,2.0) +
5442 6426000.0*Power(rij,3.0)*Power(xij,3.0) +
5443 3213000.0*Power(rij,4.0)*Power(xij,4.0) +
5444 1609524.0*Power(rij,5.0)*Power(xij,5.0) -
5445 274302.0*Power(rij,6.0)*Power(xij,6.0) +
5446 434844.0*Power(rij,7.0)*Power(xij,7.0) +
5447 50499.0*Power(rij,8.0)*Power(xij,8.0) -
5448 1762.0*Power(rij,9.0)*Power(xij,9.0) - 212.0*Power(rij,10.0)*Power(xij,10.0)) \
5449 + 2.0*Power(xii,2.0)*Power(xij,22.0)*
5450 (3264488325.0 + 6528976650.0*rij*xij +
5451 4129347600.0*Power(rij,2.0)*Power(xij,2.0) +
5452 1391229000.0*Power(rij,3.0)*Power(xij,3.0) +
5453 294632100.0*Power(rij,4.0)*Power(xij,4.0) +
5454 41833260.0*Power(rij,5.0)*Power(xij,5.0) +
5455 4026330.0*Power(rij,6.0)*Power(xij,6.0) +
5456 251820.0*Power(rij,7.0)*Power(xij,7.0) +
5457 8775.0*Power(rij,8.0)*Power(xij,8.0) + 70.0*Power(rij,9.0)*Power(xij,9.0) -
5458 4.0*Power(rij,10.0)*Power(xij,10.0)) +
5459 4.0*Power(xij,24.0)*(59520825.0 + 119041650.0*rij*xij +
5460 84582225.0*Power(rij,2.0)*Power(xij,2.0) +
5461 33415200.0*Power(rij,3.0)*Power(xij,3.0) +
5462 8599500.0*Power(rij,4.0)*Power(xij,4.0) +
5463 1547910.0*Power(rij,5.0)*Power(xij,5.0) +
5464 200655.0*Power(rij,6.0)*Power(xij,6.0) +
5465 18720.0*Power(rij,7.0)*Power(xij,7.0) +
5466 1215.0*Power(rij,8.0)*Power(xij,8.0) + 50.0*Power(rij,9.0)*Power(xij,9.0) +
5467 Power(rij,10.0)*Power(xij,10.0)) -
5468 Power(xii,24.0)*(14175.0 + 28350.0*rij*xij +
5469 28350.0*Power(rij,2.0)*Power(xij,2.0) +
5470 18900.0*Power(rij,3.0)*Power(xij,3.0) +
5471 9450.0*Power(rij,4.0)*Power(xij,4.0) + 3780.0*Power(rij,5.0)*Power(xij,5.0) +
5472 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
5473 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
5474 4.0*Power(rij,10.0)*Power(xij,10.0)) -
5475 204.0*Power(xii,14.0)*Power(xij,10.0)*
5476 (-429975.0 - 859950.0*rij*xij - 307125.0*Power(rij,2.0)*Power(xij,2.0) -
5477 3071250.0*Power(rij,3.0)*Power(xij,3.0) +
5478 2395575.0*Power(rij,4.0)*Power(xij,4.0) -
5479 620802.0*Power(rij,5.0)*Power(xij,5.0) -
5480 234234.0*Power(rij,6.0)*Power(xij,6.0) -
5481 5004.0*Power(rij,7.0)*Power(xij,7.0) + 2949.0*Power(rij,8.0)*Power(xij,8.0) +
5482 242.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
5483 102.0*Power(xii,10.0)*Power(xij,14.0)*
5484 (44986725.0 + 89973450.0*rij*xij -
5485 239334480.0*Power(rij,2.0)*Power(xij,2.0) +
5486 57221640.0*Power(rij,3.0)*Power(xij,3.0) +
5487 33086340.0*Power(rij,4.0)*Power(xij,4.0) +
5488 1567440.0*Power(rij,5.0)*Power(xij,5.0) -
5489 825300.0*Power(rij,6.0)*Power(xij,6.0) -
5490 141912.0*Power(rij,7.0)*Power(xij,7.0) -
5491 8094.0*Power(rij,8.0)*Power(xij,8.0) - 44.0*Power(rij,9.0)*Power(xij,9.0) +
5492 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5493 Power(xii,22.0)*Power(xij,2.0)*
5494 (240975.0 + 481950.0*rij*xij + 481950.0*Power(rij,2.0)*Power(xij,2.0) +
5495 321300.0*Power(rij,3.0)*Power(xij,3.0) +
5496 160650.0*Power(rij,4.0)*Power(xij,4.0) +
5497 64260.0*Power(rij,5.0)*Power(xij,5.0) +
5498 21420.0*Power(rij,6.0)*Power(xij,6.0) +
5499 6120.0*Power(rij,7.0)*Power(xij,7.0) + 1530.0*Power(rij,8.0)*Power(xij,8.0) +
5500 580.0*Power(rij,9.0)*Power(xij,9.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5501 2.0*Power(xii,20.0)*Power(xij,4.0)*
5502 (-963900.0 - 1927800.0*rij*xij - 1927800.0*Power(rij,2.0)*Power(xij,2.0) -
5503 1285200.0*Power(rij,3.0)*Power(xij,3.0) -
5504 642600.0*Power(rij,4.0)*Power(xij,4.0) -
5505 257040.0*Power(rij,5.0)*Power(xij,5.0) -
5506 85680.0*Power(rij,6.0)*Power(xij,6.0) -
5507 13788.0*Power(rij,7.0)*Power(xij,7.0) -
5508 15921.0*Power(rij,8.0)*Power(xij,8.0) - 826.0*Power(rij,9.0)*Power(xij,9.0) +
5509 40.0*Power(rij,10.0)*Power(xij,10.0)) -
5510 2.0*Power(xii,4.0)*Power(xij,20.0)*
5511 (-18032978565.0 - 36065957130.0*rij*xij -
5512 17600042880.0*Power(rij,2.0)*Power(xij,2.0) -
5513 3836450520.0*Power(rij,3.0)*Power(xij,3.0) -
5514 337429260.0*Power(rij,4.0)*Power(xij,4.0) +
5515 24444504.0*Power(rij,5.0)*Power(xij,5.0) +
5516 10247328.0*Power(rij,6.0)*Power(xij,6.0) +
5517 1284588.0*Power(rij,7.0)*Power(xij,7.0) +
5518 86157.0*Power(rij,8.0)*Power(xij,8.0) +
5519 3026.0*Power(rij,9.0)*Power(xij,9.0) + 40.0*Power(rij,10.0)*Power(xij,10.0)) +
5520 12.0*Power(xii,16.0)*Power(xij,8.0)*
5521 (-2811375.0 - 5622750.0*rij*xij - 5622750.0*Power(rij,2.0)*Power(xij,2.0) -
5522 3298050.0*Power(rij,3.0)*Power(xij,3.0) -
5523 4351725.0*Power(rij,4.0)*Power(xij,4.0) +
5524 2385432.0*Power(rij,5.0)*Power(xij,5.0) -
5525 1111761.0*Power(rij,6.0)*Power(xij,6.0) -
5526 242604.0*Power(rij,7.0)*Power(xij,7.0) +
5527 1950.0*Power(rij,8.0)*Power(xij,8.0) + 2072.0*Power(rij,9.0)*Power(xij,9.0) +
5528 73.0*Power(rij,10.0)*Power(xij,10.0)) -
5529 3.0*Power(xii,8.0)*Power(xij,16.0)*
5530 (-9364244085.0 - 18728488170.0*rij*xij +
5531 11763172890.0*Power(rij,2.0)*Power(xij,2.0) +
5532 4695905340.0*Power(rij,3.0)*Power(xij,3.0) -
5533 11704770.0*Power(rij,4.0)*Power(xij,4.0) -
5534 211923684.0*Power(rij,5.0)*Power(xij,5.0) -
5535 37532628.0*Power(rij,6.0)*Power(xij,6.0) -
5536 2522664.0*Power(rij,7.0)*Power(xij,7.0) -
5537 5874.0*Power(rij,8.0)*Power(xij,8.0) + 7772.0*Power(rij,9.0)*Power(xij,9.0) +
5538 292.0*Power(rij,10.0)*Power(xij,10.0)) +
5539 Power(xii,6.0)*Power(xij,18.0)*
5540 (57304872765.0 + 114609745530.0*rij*xij +
5541 20096073270.0*Power(rij,2.0)*Power(xij,2.0) -
5542 7496628300.0*Power(rij,3.0)*Power(xij,3.0) -
5543 3291811110.0*Power(rij,4.0)*Power(xij,4.0) -
5544 499851324.0*Power(rij,5.0)*Power(xij,5.0) -
5545 28415268.0*Power(rij,6.0)*Power(xij,6.0) +
5546 1457928.0*Power(rij,7.0)*Power(xij,7.0) +
5547 330210.0*Power(rij,8.0)*Power(xij,8.0) +
5548 19796.0*Power(rij,9.0)*Power(xij,9.0) + 424.0*Power(rij,10.0)*Power(xij,10.0)))\
5549 )/(14175.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5550 Power(Power(xii,2.0) - Power(xij,2.0),17.0))
5551 ;
5552 }
5553 return S;
5554 }
5555
5556 static double DSlater_4S_6S(double rij,double xij,double xii)
5557 {
5558 double S;
5559
5560 if (xii == xij) {
5561 S = (-729870602452992000.0 + 729870602452992000.0*Power(E,2.0*rij*xii) -
5562 1459741204905984000.0*rij*xii -
5563 1459741204905984000.0*Power(rij,2.0)*Power(xii,2.0) -
5564 971930171227640625.0*Power(rij,3.0)*Power(xii,3.0) -
5565 484119137549297250.0*Power(rij,4.0)*Power(xii,4.0) -
5566 192174113906775000.0*Power(rij,5.0)*Power(xii,5.0) -
5567 63242978838039000.0*Power(rij,6.0)*Power(xii,6.0) -
5568 17722869187923900.0*Power(rij,7.0)*Power(xii,7.0) -
5569 4311139542910200.0*Power(rij,8.0)*Power(xii,8.0) -
5570 923450838710400.0*Power(rij,9.0)*Power(xii,9.0) -
5571 176129454140640.0*Power(rij,10.0)*Power(xii,10.0) -
5572 30179820041280.0*Power(rij,11.0)*Power(xii,11.0) -
5573 4679384411520.0*Power(rij,12.0)*Power(xii,12.0) -
5574 660128071680.0*Power(rij,13.0)*Power(xii,13.0) -
5575 85016494080.0*Power(rij,14.0)*Power(xii,14.0) -
5576 10001940480.0*Power(rij,15.0)*Power(xii,15.0) -
5577 1071636480.0*Power(rij,16.0)*Power(xii,16.0) -
5578 103661568.0*Power(rij,17.0)*Power(xii,17.0) -
5579 8871936.0*Power(rij,18.0)*Power(xii,18.0) -
5580 638976.0*Power(rij,19.0)*Power(xii,19.0) - 32768.0*Power(rij,20.0)*Power(xii,20.0))/
5581 (7.29870602452992e17*Power(E,2.0*rij*xii)*Power(rij,2.0))
5582 ;
5583 }
5584 else {
5585 S = (467775.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
5586 495.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
5587 (-318.0*Power(rij,7.0)*Power(xii,31.0) - 6.0*Power(rij,8.0)*Power(xii,32.0) +
5588 945.0*Power(xij,24.0) + 1890.0*rij*xii*Power(xij,24.0) +
5589 630.0*rij*Power(xii,3.0)*Power(xij,22.0)*
5590 (-57.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
5591 945.0*Power(xii,2.0)*Power(xij,22.0)*(-19.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
5592 4.0*Power(rij,6.0)*Power(xii,30.0)*(1932.0 + 17.0*Power(rij,2.0)*Power(xij,2.0)) -
5593 18.0*Power(rij,5.0)*Power(xii,29.0)*
5594 (6188.0 + 271.0*Power(rij,2.0)*Power(xij,2.0)) +
5595 126.0*rij*Power(xii,5.0)*Power(xij,20.0)*
5596 (2565.0 - 190.0*Power(rij,2.0)*Power(xij,2.0) +
5597 2.0*Power(rij,4.0)*Power(xij,4.0)) +
5598 315.0*Power(xii,4.0)*Power(xij,20.0)*
5599 (513.0 - 114.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
5600 + 4.0*Power(rij,4.0)*Power(xii,28.0)*
5601 (-257040.0 - 37821.0*Power(rij,2.0)*Power(xij,2.0) +
5602 62.0*Power(rij,4.0)*Power(xij,4.0)) +
5603 6.0*Power(rij,3.0)*Power(xii,27.0)*
5604 (-1017450.0 - 446082.0*Power(rij,2.0)*Power(xij,2.0) +
5605 1129.0*Power(rij,4.0)*Power(xij,4.0)) -
5606 6.0*rij*Power(xii,25.0)*(6715170.0 + 34042680.0*Power(rij,2.0)*Power(xij,2.0) +
5607 1106742.0*Power(rij,4.0)*Power(xij,4.0) -
5608 7261.0*Power(rij,6.0)*Power(xij,6.0)) -
5609 6.0*rij*Power(xii,13.0)*Power(xij,12.0)*
5610 (622475910.0 + 166454820.0*Power(rij,2.0)*Power(xij,2.0) +
5611 1261904.0*Power(rij,4.0)*Power(xij,4.0) -
5612 4639.0*Power(rij,6.0)*Power(xij,6.0)) -
5613 6.0*Power(rij,2.0)*Power(xii,26.0)*
5614 (3662820.0 + 4913685.0*Power(rij,2.0)*Power(xij,2.0) +
5615 15134.0*Power(rij,4.0)*Power(xij,4.0) - 46.0*Power(rij,6.0)*Power(xij,6.0)) +
5616 6.0*rij*Power(xii,7.0)*Power(xij,18.0)*
5617 (-305235.0 + 35910.0*Power(rij,2.0)*Power(xij,2.0) -
5618 798.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5619 21.0*Power(xii,6.0)*Power(xij,18.0)*
5620 (-43605.0 + 15390.0*Power(rij,2.0)*Power(xij,2.0) -
5621 570.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
5622 114.0*rij*Power(xii,15.0)*Power(xij,10.0)*
5623 (-241392690.0 - 14001540.0*Power(rij,2.0)*Power(xij,2.0) +
5624 240380.0*Power(rij,4.0)*Power(xij,4.0) + 101.0*Power(rij,6.0)*Power(xij,6.0)) \
5625 - 6.0*rij*Power(xii,9.0)*Power(xij,16.0)*
5626 (-1220940.0 + 342720.0*Power(rij,2.0)*Power(xij,2.0) +
5627 462.0*Power(rij,4.0)*Power(xij,4.0) + 167.0*Power(rij,6.0)*Power(xij,6.0)) -
5628 342.0*rij*Power(xii,17.0)*Power(xij,8.0)*
5629 (183130605.0 - 6697320.0*Power(rij,2.0)*Power(xij,2.0) -
5630 26180.0*Power(rij,4.0)*Power(xij,4.0) + 374.0*Power(rij,6.0)*Power(xij,6.0)) \
5631 - 18.0*rij*Power(xii,11.0)*Power(xij,14.0)*
5632 (7393470.0 + 4725490.0*Power(rij,2.0)*Power(xij,2.0) +
5633 169358.0*Power(rij,4.0)*Power(xij,4.0) + 409.0*Power(rij,6.0)*Power(xij,6.0)) \
5634 + 42.0*rij*Power(xii,19.0)*Power(xij,6.0)*
5635 (-1241513955.0 + 70422930.0*Power(rij,2.0)*Power(xij,2.0) -
5636 1293292.0*Power(rij,4.0)*Power(xij,4.0) +
5637 3230.0*Power(rij,6.0)*Power(xij,6.0)) +
5638 6.0*rij*Power(xii,21.0)*Power(xij,4.0)*
5639 (-2722031235.0 - 183644790.0*Power(rij,2.0)*Power(xij,2.0) +
5640 2673034.0*Power(rij,4.0)*Power(xij,4.0) +
5641 3230.0*Power(rij,6.0)*Power(xij,6.0)) -
5642 18.0*rij*Power(xii,23.0)*Power(xij,2.0)*
5643 (95263245.0 + 69677230.0*Power(rij,2.0)*Power(xij,2.0) -
5644 1221038.0*Power(rij,4.0)*Power(xij,4.0) +
5645 5738.0*Power(rij,6.0)*Power(xij,6.0)) -
5646 21.0*Power(xii,20.0)*Power(xij,4.0)*
5647 (388861605.0 + 679369590.0*Power(rij,2.0)*Power(xij,2.0) -
5648 21408630.0*Power(rij,4.0)*Power(xij,4.0) +
5649 121448.0*Power(rij,6.0)*Power(xij,6.0)) +
5650 6.0*Power(xii,8.0)*Power(xij,16.0)*
5651 (610470.0 - 305235.0*Power(rij,2.0)*Power(xij,2.0) +
5652 17955.0*Power(rij,4.0)*Power(xij,4.0) -
5653 266.0*Power(rij,6.0)*Power(xij,6.0) + Power(rij,8.0)*Power(xij,8.0)) +
5654 2.0*Power(xii,10.0)*Power(xij,14.0)*
5655 (-33270615.0 + 16889670.0*Power(rij,2.0)*Power(xij,2.0) +
5656 1365525.0*Power(rij,4.0)*Power(xij,4.0) +
5657 37758.0*Power(rij,6.0)*Power(xij,6.0) + 34.0*Power(rij,8.0)*Power(xij,8.0)) -
5658 6.0*Power(xii,14.0)*Power(xij,10.0)*
5659 (2293230555.0 - 1340795610.0*Power(rij,2.0)*Power(xij,2.0) -
5660 20823810.0*Power(rij,4.0)*Power(xij,4.0) +
5661 201628.0*Power(rij,6.0)*Power(xij,6.0) + 46.0*Power(rij,8.0)*Power(xij,8.0)) \
5662 + 19.0*Power(xii,16.0)*Power(xij,8.0)*
5663 (-1648175445.0 + 756275940.0*Power(rij,2.0)*Power(xij,2.0) -
5664 18485460.0*Power(rij,4.0)*Power(xij,4.0) -
5665 14280.0*Power(rij,6.0)*Power(xij,6.0) + 106.0*Power(rij,8.0)*Power(xij,8.0)) \
5666 - 2.0*Power(xii,12.0)*Power(xij,12.0)*
5667 (933713865.0 - 515440170.0*Power(rij,2.0)*Power(xij,2.0) -
5668 35610750.0*Power(rij,4.0)*Power(xij,4.0) -
5669 158046.0*Power(rij,6.0)*Power(xij,6.0) + 124.0*Power(rij,8.0)*Power(xij,8.0)) \
5670 - 2.0*Power(xii,24.0)*(10072755.0 + 420272685.0*Power(rij,2.0)*Power(xij,2.0) +
5671 63685755.0*Power(rij,4.0)*Power(xij,4.0) -
5672 770154.0*Power(rij,6.0)*Power(xij,6.0) + 1007.0*Power(rij,8.0)*Power(xij,8.0)\
5673 ) - Power(xii,18.0)*Power(xij,6.0)*
5674 (26071793055.0 + 1689529590.0*Power(rij,2.0)*Power(xij,2.0) +
5675 229129740.0*Power(rij,4.0)*Power(xij,4.0) -
5676 3527160.0*Power(rij,6.0)*Power(xij,6.0) +
5677 2584.0*Power(rij,8.0)*Power(xij,8.0)) +
5678 Power(xii,22.0)*Power(xij,2.0)*
5679 (-857369205.0 - 6658320690.0*Power(rij,2.0)*Power(xij,2.0) +
5680 89662230.0*Power(rij,4.0)*Power(xij,4.0) -
5681 1176252.0*Power(rij,6.0)*Power(xij,6.0) + 2584.0*Power(rij,8.0)*Power(xij,8.0)\
5682 )) + Power(E,2.0*rij*xii)*Power(xii,10.0)*
5683 (-21318.0*Power(xii,14.0)*Power(xij,14.0)*
5684 (-1573425.0 - 3146850.0*rij*xij + 17151750.0*Power(rij,2.0)*Power(xij,2.0) -
5685 36684900.0*Power(rij,3.0)*Power(xij,3.0) +
5686 14486850.0*Power(rij,4.0)*Power(xij,4.0) +
5687 1682100.0*Power(rij,5.0)*Power(xij,5.0) -
5688 1152900.0*Power(rij,6.0)*Power(xij,6.0) -
5689 221940.0*Power(rij,7.0)*Power(xij,7.0) -
5690 1620.0*Power(rij,8.0)*Power(xij,8.0) + 2760.0*Power(rij,9.0)*Power(xij,9.0) +
5691 264.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,11.0)*Power(xij,11.0)) +
5692 9.0*Power(xii,22.0)*Power(xij,6.0)*
5693 (50363775.0 + 100727550.0*rij*xij +
5694 100727550.0*Power(rij,2.0)*Power(xij,2.0) +
5695 67151700.0*Power(rij,3.0)*Power(xij,3.0) +
5696 33575850.0*Power(rij,4.0)*Power(xij,4.0) +
5697 13430340.0*Power(rij,5.0)*Power(xij,5.0) +
5698 4476780.0*Power(rij,6.0)*Power(xij,6.0) +
5699 1562220.0*Power(rij,7.0)*Power(xij,7.0) -
5700 104940.0*Power(rij,8.0)*Power(xij,8.0) +
5701 199320.0*Power(rij,9.0)*Power(xij,9.0) +
5702 28248.0*Power(rij,10.0)*Power(xij,10.0) +
5703 56.0*Power(rij,11.0)*Power(xij,11.0) - 64.0*Power(rij,12.0)*Power(xij,12.0)) +
5704 2.0*Power(xii,2.0)*Power(xij,26.0)*
5705 (468534198825.0 + 937068397650.0*rij*xij +
5706 648987604650.0*Power(rij,2.0)*Power(xij,2.0) +
5707 248897776050.0*Power(rij,3.0)*Power(xij,3.0) +
5708 62249625900.0*Power(rij,4.0)*Power(xij,4.0) +
5709 10932296760.0*Power(rij,5.0)*Power(xij,5.0) +
5710 1391848920.0*Power(rij,6.0)*Power(xij,6.0) +
5711 128752470.0*Power(rij,7.0)*Power(xij,7.0) +
5712 8381835.0*Power(rij,8.0)*Power(xij,8.0) +
5713 346830.0*Power(rij,9.0)*Power(xij,9.0) +
5714 6006.0*Power(rij,10.0)*Power(xij,10.0) -
5715 158.0*Power(rij,11.0)*Power(xij,11.0) - 8.0*Power(rij,12.0)*Power(xij,12.0)) +
5716 2.0*Power(xij,28.0)*(13749310575.0 + 27498621150.0*rij*xij +
5717 20951330400.0*Power(rij,2.0)*Power(xij,2.0) +
5718 9166207050.0*Power(rij,3.0)*Power(xij,3.0) +
5719 2687835150.0*Power(rij,4.0)*Power(xij,4.0) +
5720 569729160.0*Power(rij,5.0)*Power(xij,5.0) +
5721 90810720.0*Power(rij,6.0)*Power(xij,6.0) +
5722 11081070.0*Power(rij,7.0)*Power(xij,7.0) +
5723 1036035.0*Power(rij,8.0)*Power(xij,8.0) +
5724 72930.0*Power(rij,9.0)*Power(xij,9.0) +
5725 3696.0*Power(rij,10.0)*Power(xij,10.0) +
5726 122.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) +
5727 1254.0*Power(xii,16.0)*Power(xij,12.0)*
5728 (-10120950.0 - 20241900.0*rij*xij -
5729 27471150.0*Power(rij,2.0)*Power(xij,2.0) +
5730 28435050.0*Power(rij,3.0)*Power(xij,3.0) -
5731 71328600.0*Power(rij,4.0)*Power(xij,4.0) +
5732 25843860.0*Power(rij,5.0)*Power(xij,5.0) +
5733 865620.0*Power(rij,6.0)*Power(xij,6.0) -
5734 2061990.0*Power(rij,7.0)*Power(xij,7.0) -
5735 276885.0*Power(rij,8.0)*Power(xij,8.0) +
5736 5010.0*Power(rij,9.0)*Power(xij,9.0) +
5737 2856.0*Power(rij,10.0)*Power(xij,10.0) +
5738 162.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) -
5739 627.0*Power(xii,12.0)*Power(xij,16.0)*
5740 (-620482275.0 - 1240964550.0*rij*xij +
5741 6396298650.0*Power(rij,2.0)*Power(xij,2.0) -
5742 3446622900.0*Power(rij,3.0)*Power(xij,3.0) -
5743 476705250.0*Power(rij,4.0)*Power(xij,4.0) +
5744 290390940.0*Power(rij,5.0)*Power(xij,5.0) +
5745 67514580.0*Power(rij,6.0)*Power(xij,6.0) +
5746 1373760.0*Power(rij,7.0)*Power(xij,7.0) -
5747 1053270.0*Power(rij,8.0)*Power(xij,8.0) -
5748 139980.0*Power(rij,9.0)*Power(xij,9.0) -
5749 6828.0*Power(rij,10.0)*Power(xij,10.0) -
5750 56.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
5751 Power(xii,28.0)*(467775.0 + 935550.0*rij*xij +
5752 935550.0*Power(rij,2.0)*Power(xij,2.0) +
5753 623700.0*Power(rij,3.0)*Power(xij,3.0) +
5754 311850.0*Power(rij,4.0)*Power(xij,4.0) +
5755 124740.0*Power(rij,5.0)*Power(xij,5.0) +
5756 41580.0*Power(rij,6.0)*Power(xij,6.0) +
5757 11880.0*Power(rij,7.0)*Power(xij,7.0) +
5758 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
5759 132.0*Power(rij,10.0)*Power(xij,10.0) +
5760 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
5761 6.0*Power(xii,4.0)*Power(xij,24.0)*
5762 (-1131220750275.0 - 2262441500550.0*rij*xij -
5763 1290622098150.0*Power(rij,2.0)*Power(xij,2.0) -
5764 366043916700.0*Power(rij,3.0)*Power(xij,3.0) -
5765 57112520850.0*Power(rij,4.0)*Power(xij,4.0) -
5766 3706773840.0*Power(rij,5.0)*Power(xij,5.0) +
5767 383949720.0*Power(rij,6.0)*Power(xij,6.0) +
5768 124315290.0*Power(rij,7.0)*Power(xij,7.0) +
5769 15397965.0*Power(rij,8.0)*Power(xij,8.0) +
5770 1138170.0*Power(rij,9.0)*Power(xij,9.0) +
5771 51414.0*Power(rij,10.0)*Power(xij,10.0) +
5772 1248.0*Power(rij,11.0)*Power(xij,11.0) + 10.0*Power(rij,12.0)*Power(xij,12.0)) \
5773 + Power(xii,26.0)*Power(xij,2.0)*(8887725.0 + 17775450.0*rij*xij +
5774 17775450.0*Power(rij,2.0)*Power(xij,2.0) +
5775 11850300.0*Power(rij,3.0)*Power(xij,3.0) +
5776 5925150.0*Power(rij,4.0)*Power(xij,4.0) +
5777 2370060.0*Power(rij,5.0)*Power(xij,5.0) +
5778 790020.0*Power(rij,6.0)*Power(xij,6.0) +
5779 225720.0*Power(rij,7.0)*Power(xij,7.0) +
5780 56430.0*Power(rij,8.0)*Power(xij,8.0) +
5781 12540.0*Power(rij,9.0)*Power(xij,9.0) +
5782 2508.0*Power(rij,10.0)*Power(xij,10.0) +
5783 756.0*Power(rij,11.0)*Power(xij,11.0) + 16.0*Power(rij,12.0)*Power(xij,12.0)) \
5784 + 3.0*Power(xii,24.0)*Power(xij,4.0)*
5785 (-26663175.0 - 53326350.0*rij*xij -
5786 53326350.0*Power(rij,2.0)*Power(xij,2.0) -
5787 35550900.0*Power(rij,3.0)*Power(xij,3.0) -
5788 17775450.0*Power(rij,4.0)*Power(xij,4.0) -
5789 7110180.0*Power(rij,5.0)*Power(xij,5.0) -
5790 2370060.0*Power(rij,6.0)*Power(xij,6.0) -
5791 677160.0*Power(rij,7.0)*Power(xij,7.0) -
5792 169290.0*Power(rij,8.0)*Power(xij,8.0) -
5793 23100.0*Power(rij,9.0)*Power(xij,9.0) -
5794 17688.0*Power(rij,10.0)*Power(xij,10.0) -
5795 1156.0*Power(rij,11.0)*Power(xij,11.0) + 20.0*Power(rij,12.0)*Power(xij,12.0)) \
5796 + 9.0*Power(xii,6.0)*Power(xij,22.0)*
5797 (1726271714475.0 + 3452543428950.0*rij*xij +
5798 1148702905350.0*Power(rij,2.0)*Power(xij,2.0) +
5799 9136581300.0*Power(rij,3.0)*Power(xij,3.0) -
5800 73193377950.0*Power(rij,4.0)*Power(xij,4.0) -
5801 19535877900.0*Power(rij,5.0)*Power(xij,5.0) -
5802 2453012100.0*Power(rij,6.0)*Power(xij,6.0) -
5803 132309540.0*Power(rij,7.0)*Power(xij,7.0) +
5804 5655540.0*Power(rij,8.0)*Power(xij,8.0) +
5805 1529880.0*Power(rij,9.0)*Power(xij,9.0) +
5806 116952.0*Power(rij,10.0)*Power(xij,10.0) +
5807 4344.0*Power(rij,11.0)*Power(xij,11.0) + 64.0*Power(rij,12.0)*Power(xij,12.0)) \
5808 + 22.0*Power(xii,20.0)*Power(xij,8.0)*
5809 (-82413450.0 - 164826900.0*rij*xij -
5810 164826900.0*Power(rij,2.0)*Power(xij,2.0) -
5811 109884600.0*Power(rij,3.0)*Power(xij,3.0) -
5812 54942300.0*Power(rij,4.0)*Power(xij,4.0) -
5813 19274220.0*Power(rij,5.0)*Power(xij,5.0) -
5814 15433740.0*Power(rij,6.0)*Power(xij,6.0) +
5815 4200390.0*Power(rij,7.0)*Power(xij,7.0) -
5816 1404855.0*Power(rij,8.0)*Power(xij,8.0) -
5817 416910.0*Power(rij,9.0)*Power(xij,9.0) -
5818 14874.0*Power(rij,10.0)*Power(xij,10.0) +
5819 1672.0*Power(rij,11.0)*Power(xij,11.0) + 82.0*Power(rij,12.0)*Power(xij,12.0)) \
5820 - 22.0*Power(xii,18.0)*Power(xij,10.0)*
5821 (-247240350.0 - 494480700.0*rij*xij -
5822 494480700.0*Power(rij,2.0)*Power(xij,2.0) -
5823 348449850.0*Power(rij,3.0)*Power(xij,3.0) -
5824 33254550.0*Power(rij,4.0)*Power(xij,4.0) -
5825 300279420.0*Power(rij,5.0)*Power(xij,5.0) +
5826 104656860.0*Power(rij,6.0)*Power(xij,6.0) -
5827 10052370.0*Power(rij,7.0)*Power(xij,7.0) -
5828 8727255.0*Power(rij,8.0)*Power(xij,8.0) -
5829 698070.0*Power(rij,9.0)*Power(xij,9.0) +
5830 37218.0*Power(rij,10.0)*Power(xij,10.0) +
5831 5686.0*Power(rij,11.0)*Power(xij,11.0) + 136.0*Power(rij,12.0)*Power(xij,12.0)\
5832 ) - 11.0*Power(xii,8.0)*Power(xij,20.0)*
5833 (-1169302313025.0 - 2338604626050.0*rij*xij +
5834 403746553350.0*Power(rij,2.0)*Power(xij,2.0) +
5835 452949594300.0*Power(rij,3.0)*Power(xij,3.0) +
5836 74923465050.0*Power(rij,4.0)*Power(xij,4.0) -
5837 5463441900.0*Power(rij,5.0)*Power(xij,5.0) -
5838 3490244100.0*Power(rij,6.0)*Power(xij,6.0) -
5839 521907840.0*Power(rij,7.0)*Power(xij,7.0) -
5840 35495010.0*Power(rij,8.0)*Power(xij,8.0) -
5841 393420.0*Power(rij,9.0)*Power(xij,9.0) +
5842 112152.0*Power(rij,10.0)*Power(xij,10.0) +
5843 7644.0*Power(rij,11.0)*Power(xij,11.0) + 164.0*Power(rij,12.0)*Power(xij,12.0)\
5844 ) + 11.0*Power(xii,10.0)*Power(xij,18.0)*
5845 (371402591175.0 + 742805182350.0*rij*xij -
5846 961651930050.0*Power(rij,2.0)*Power(xij,2.0) -
5847 72424667700.0*Power(rij,3.0)*Power(xij,3.0) +
5848 100904879250.0*Power(rij,4.0)*Power(xij,4.0) +
5849 22702033620.0*Power(rij,5.0)*Power(xij,5.0) +
5850 209045340.0*Power(rij,6.0)*Power(xij,6.0) -
5851 517637520.0*Power(rij,7.0)*Power(xij,7.0) -
5852 79564410.0*Power(rij,8.0)*Power(xij,8.0) -
5853 5021940.0*Power(rij,9.0)*Power(xij,9.0) -
5854 74724.0*Power(rij,10.0)*Power(xij,10.0) +
5855 6852.0*Power(rij,11.0)*Power(xij,11.0) + 272.0*Power(rij,12.0)*Power(xij,12.0))\
5856 ))/(467775.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
5857 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
5858 ;
5859 }
5860 return S;
5861 }
5862
5863 double DSlater_4S_1S(double rij,double xii,double xij)
5864 {
5865 return DSlater_1S_4S(rij,xij,xii);
5866 }
5867
5868 double DSlater_4S_2S(double rij,double xii,double xij)
5869 {
5870 return DSlater_2S_4S(rij,xij,xii);
5871 }
5872
5873 double DSlater_4S_3S(double rij,double xii,double xij)
5874 {
5875 return DSlater_3S_4S(rij,xij,xii);
5876 }
5877
5878 static double DSlater_5S_5S(double rij,double xij,double xii)
5879 {
5880 double S;
5881
5882 if (xii == xij) {
5883 S = (-3041127510220800000.0 + 3041127510220800000.0*Power(E,2.0*rij*xii) -
5884 6082255020441600000.0*rij*xii -
5885 6082255020441600000.0*Power(rij,2.0)*Power(xii,2.0) -
5886 4047316151142639375.0*Power(rij,3.0)*Power(xii,3.0) -
5887 2012377281843678750.0*Power(rij,4.0)*Power(xii,4.0) -
5888 796103231382459000.0*Power(rij,5.0)*Power(xii,5.0) -
5889 260648980404813000.0*Power(rij,6.0)*Power(xii,6.0) -
5890 72570149721669600.0*Power(rij,7.0)*Power(xii,7.0) -
5891 17529098189803200.0*Power(rij,8.0)*Power(xii,8.0) -
5892 3730342475059200.0*Power(rij,9.0)*Power(xii,9.0) -
5893 707903551555200.0*Power(rij,10.0)*Power(xii,10.0) -
5894 120923460403200.0*Power(rij,11.0)*Power(xii,11.0) -
5895 18723632578560.0*Power(rij,12.0)*Power(xii,12.0) -
5896 2640512286720.0*Power(rij,13.0)*Power(xii,13.0) -
5897 340065976320.0*Power(rij,14.0)*Power(xii,14.0) -
5898 40007761920.0*Power(rij,15.0)*Power(xii,15.0) -
5899 4286545920.0*Power(rij,16.0)*Power(xii,16.0) -
5900 414646272.0*Power(rij,17.0)*Power(xii,17.0) -
5901 35487744.0*Power(rij,18.0)*Power(xii,18.0) -
5902 2555904.0*Power(rij,19.0)*Power(xii,19.0) - 131072.0*Power(rij,20.0)*Power(xii,20.0))/
5903 (3.0411275102208e18*Power(E,2.0*rij*xii)*Power(rij,2.0))
5904 ;
5905 }
5906 else {
5907 S = (70875.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),19.0) +
5908 Power(E,2.0*rij*xii)*Power(xii,12.0)*
5909 (Power(xii,8.0)*Power(xij,18.0)*
5910 (3218321469825.0 + 6436642939650.0*rij*xij -
5911 289335546990.0*Power(rij,2.0)*Power(xij,2.0) -
5912 672080979780.0*Power(rij,3.0)*Power(xij,3.0) -
5913 116652948930.0*Power(rij,4.0)*Power(xij,4.0) -
5914 2285769780.0*Power(rij,5.0)*Power(xij,5.0) +
5915 1432351620.0*Power(rij,6.0)*Power(xij,6.0) +
5916 183837384.0*Power(rij,7.0)*Power(xij,7.0) +
5917 9315018.0*Power(rij,8.0)*Power(xij,8.0) +
5918 153748.0*Power(rij,9.0)*Power(xij,9.0) -
5919 1636.0*Power(rij,10.0)*Power(xij,10.0)) +
5920 10.0*Power(xij,26.0)*(352546425.0 + 705092850.0*rij*xij +
5921 467009550.0*Power(rij,2.0)*Power(xij,2.0) +
5922 168489720.0*Power(rij,3.0)*Power(xij,3.0) +
5923 39134340.0*Power(rij,4.0)*Power(xij,4.0) +
5924 6297480.0*Power(rij,5.0)*Power(xij,5.0) +
5925 723240.0*Power(rij,6.0)*Power(xij,6.0) +
5926 59220.0*Power(rij,7.0)*Power(xij,7.0) +
5927 3339.0*Power(rij,8.0)*Power(xij,8.0) + 118.0*Power(rij,9.0)*Power(xij,9.0) +
5928 2.0*Power(rij,10.0)*Power(xij,10.0)) +
5929 30.0*Power(xii,2.0)*Power(xij,24.0)*
5930 (4562958015.0 + 9125916030.0*rij*xij +
5931 5463096030.0*Power(rij,2.0)*Power(xij,2.0) +
5932 1726409160.0*Power(rij,3.0)*Power(xij,3.0) +
5933 343084140.0*Power(rij,4.0)*Power(xij,4.0) +
5934 46070136.0*Power(rij,5.0)*Power(xij,5.0) +
5935 4278792.0*Power(rij,6.0)*Power(xij,6.0) +
5936 271212.0*Power(rij,7.0)*Power(xij,7.0) +
5937 11061.0*Power(rij,8.0)*Power(xij,8.0) +
5938 250.0*Power(rij,9.0)*Power(xij,9.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) -
5939 15.0*Power(xii,24.0)*Power(xij,2.0)*
5940 (-89775.0 - 179550.0*rij*xij - 179550.0*Power(rij,2.0)*Power(xij,2.0) -
5941 119700.0*Power(rij,3.0)*Power(xij,3.0) -
5942 59850.0*Power(rij,4.0)*Power(xij,4.0) -
5943 23940.0*Power(rij,5.0)*Power(xij,5.0) -
5944 7980.0*Power(rij,6.0)*Power(xij,6.0) -
5945 2280.0*Power(rij,7.0)*Power(xij,7.0) - 570.0*Power(rij,8.0)*Power(xij,8.0) -
5946 244.0*Power(rij,9.0)*Power(xij,9.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
5947 5.0*Power(xii,26.0)*(14175.0 + 28350.0*rij*xij +
5948 28350.0*Power(rij,2.0)*Power(xij,2.0) +
5949 18900.0*Power(rij,3.0)*Power(xij,3.0) +
5950 9450.0*Power(rij,4.0)*Power(xij,4.0) +
5951 3780.0*Power(rij,5.0)*Power(xij,5.0) +
5952 1260.0*Power(rij,6.0)*Power(xij,6.0) + 360.0*Power(rij,7.0)*Power(xij,7.0) +
5953 90.0*Power(rij,8.0)*Power(xij,8.0) + 20.0*Power(rij,9.0)*Power(xij,9.0) +
5954 4.0*Power(rij,10.0)*Power(xij,10.0)) -
5955 1938.0*Power(xii,14.0)*Power(xij,12.0)*
5956 (-826875.0 - 1653750.0*rij*xij + 55046250.0*Power(rij,2.0)*Power(xij,2.0) -
5957 71486100.0*Power(rij,3.0)*Power(xij,3.0) +
5958 20956950.0*Power(rij,4.0)*Power(xij,4.0) +
5959 4028220.0*Power(rij,5.0)*Power(xij,5.0) -
5960 471660.0*Power(rij,6.0)*Power(xij,6.0) -
5961 108192.0*Power(rij,7.0)*Power(xij,7.0) -
5962 4284.0*Power(rij,8.0)*Power(xij,8.0) + 136.0*Power(rij,9.0)*Power(xij,9.0) +
5963 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5964 1938.0*Power(xii,12.0)*Power(xij,14.0)*
5965 (72476775.0 + 144953550.0*rij*xij -
5966 458924130.0*Power(rij,2.0)*Power(xij,2.0) +
5967 175365540.0*Power(rij,3.0)*Power(xij,3.0) +
5968 35155890.0*Power(rij,4.0)*Power(xij,4.0) -
5969 5303340.0*Power(rij,5.0)*Power(xij,5.0) -
5970 1428420.0*Power(rij,6.0)*Power(xij,6.0) -
5971 75552.0*Power(rij,7.0)*Power(xij,7.0) +
5972 3036.0*Power(rij,8.0)*Power(xij,8.0) + 376.0*Power(rij,9.0)*Power(xij,9.0) +
5973 8.0*Power(rij,10.0)*Power(xij,10.0)) +
5974 342.0*Power(xii,16.0)*Power(xij,10.0)*
5975 (2409750.0 + 4819500.0*rij*xij - 2142000.0*Power(rij,2.0)*Power(xij,2.0) +
5976 35235900.0*Power(rij,3.0)*Power(xij,3.0) -
5977 35289450.0*Power(rij,4.0)*Power(xij,4.0) +
5978 11000220.0*Power(rij,5.0)*Power(xij,5.0) +
5979 1519140.0*Power(rij,6.0)*Power(xij,6.0) -
5980 194172.0*Power(rij,7.0)*Power(xij,7.0) -
5981 29069.0*Power(rij,8.0)*Power(xij,8.0) -
5982 634.0*Power(rij,9.0)*Power(xij,9.0) + 18.0*Power(rij,10.0)*Power(xij,10.0)) -
5983 171.0*Power(xii,10.0)*Power(xij,16.0)*
5984 (-6768406575.0 - 13536813150.0*rij*xij +
5985 12122613090.0*Power(rij,2.0)*Power(xij,2.0) +
5986 1678134780.0*Power(rij,3.0)*Power(xij,3.0) -
5987 578956770.0*Power(rij,4.0)*Power(xij,4.0) -
5988 138373620.0*Power(rij,5.0)*Power(xij,5.0) -
5989 7287420.0*Power(rij,6.0)*Power(xij,6.0) +
5990 614856.0*Power(rij,7.0)*Power(xij,7.0) +
5991 89482.0*Power(rij,8.0)*Power(xij,8.0) +
5992 3572.0*Power(rij,9.0)*Power(xij,9.0) + 36.0*Power(rij,10.0)*Power(xij,10.0)) \
5993 + 9.0*Power(xii,22.0)*Power(xij,4.0)*
5994 (-1346625.0 - 2693250.0*rij*xij - 2693250.0*Power(rij,2.0)*Power(xij,2.0) -
5995 1795500.0*Power(rij,3.0)*Power(xij,3.0) -
5996 897750.0*Power(rij,4.0)*Power(xij,4.0) -
5997 359100.0*Power(rij,5.0)*Power(xij,5.0) -
5998 119700.0*Power(rij,6.0)*Power(xij,6.0) -
5999 10176.0*Power(rij,7.0)*Power(xij,7.0) -
6000 30572.0*Power(rij,8.0)*Power(xij,8.0) +
6001 168.0*Power(rij,9.0)*Power(xij,9.0) + 104.0*Power(rij,10.0)*Power(xij,10.0)) \
6002 - 9.0*Power(xii,4.0)*Power(xij,22.0)*
6003 (-129194933175.0 - 258389866350.0*rij*xij -
6004 128354872590.0*Power(rij,2.0)*Power(xij,2.0) -
6005 30914128980.0*Power(rij,3.0)*Power(xij,3.0) -
6006 4146276330.0*Power(rij,4.0)*Power(xij,4.0) -
6007 281941380.0*Power(rij,5.0)*Power(xij,5.0) +
6008 311220.0*Power(rij,6.0)*Power(xij,6.0) +
6009 1834944.0*Power(rij,7.0)*Power(xij,7.0) +
6010 162188.0*Power(rij,8.0)*Power(xij,8.0) +
6011 6488.0*Power(rij,9.0)*Power(xij,9.0) + 104.0*Power(rij,10.0)*Power(xij,10.0)) \
6012 + 9.0*Power(xii,6.0)*Power(xij,20.0)*
6013 (356863797675.0 + 713727595350.0*rij*xij +
6014 226198496790.0*Power(rij,2.0)*Power(xij,2.0) +
6015 15231757380.0*Power(rij,3.0)*Power(xij,3.0) -
6016 5016397470.0*Power(rij,4.0)*Power(xij,4.0) -
6017 1294411020.0*Power(rij,5.0)*Power(xij,5.0) -
6018 134742020.0*Power(rij,6.0)*Power(xij,6.0) -
6019 6600064.0*Power(rij,7.0)*Power(xij,7.0) -
6020 49228.0*Power(rij,8.0)*Power(xij,8.0) +
6021 9192.0*Power(rij,9.0)*Power(xij,9.0) + 296.0*Power(rij,10.0)*Power(xij,10.0)) \
6022 - 9.0*Power(xii,20.0)*Power(xij,6.0)*
6023 (-7630875.0 - 15261750.0*rij*xij -
6024 15261750.0*Power(rij,2.0)*Power(xij,2.0) -
6025 10174500.0*Power(rij,3.0)*Power(xij,3.0) -
6026 5087250.0*Power(rij,4.0)*Power(xij,4.0) -
6027 2995860.0*Power(rij,5.0)*Power(xij,5.0) +
6028 1403780.0*Power(rij,6.0)*Power(xij,6.0) -
6029 1201664.0*Power(rij,7.0)*Power(xij,7.0) -
6030 32148.0*Power(rij,8.0)*Power(xij,8.0) +
6031 9752.0*Power(rij,9.0)*Power(xij,9.0) + 296.0*Power(rij,10.0)*Power(xij,10.0)) \
6032 + 2.0*Power(xii,18.0)*Power(xij,8.0)*
6033 (-137355750.0 - 274711500.0*rij*xij -
6034 274711500.0*Power(rij,2.0)*Power(xij,2.0) -
6035 137195100.0*Power(rij,3.0)*Power(xij,3.0) -
6036 344272950.0*Power(rij,4.0)*Power(xij,4.0) +
6037 294722820.0*Power(rij,5.0)*Power(xij,5.0) -
6038 125182260.0*Power(rij,6.0)*Power(xij,6.0) -
6039 9557892.0*Power(rij,7.0)*Power(xij,7.0) +
6040 1628541.0*Power(rij,8.0)*Power(xij,8.0) +
6041 129226.0*Power(rij,9.0)*Power(xij,9.0) + 818.0*Power(rij,10.0)*Power(xij,10.0)\
6042 )) + Power(E,2.0*rij*xij)*Power(xij,12.0)*
6043 (-1180.0*Power(rij,9.0)*Power(xii,35.0) - 20.0*Power(rij,10.0)*Power(xii,36.0) +
6044 70875.0*Power(xij,26.0) + 141750.0*rij*xii*Power(xij,26.0) +
6045 47250.0*rij*Power(xii,3.0)*Power(xij,24.0)*
6046 (-57.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
6047 70875.0*Power(xii,2.0)*Power(xij,24.0)*
6048 (-19.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6049 30.0*Power(rij,8.0)*Power(xii,34.0)*(1113.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6050 300.0*Power(rij,7.0)*Power(xii,33.0)*
6051 (1974.0 + 25.0*Power(rij,2.0)*Power(xij,2.0)) +
6052 9450.0*rij*Power(xii,5.0)*Power(xij,22.0)*
6053 (2565.0 - 190.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
6054 + 23625.0*Power(xii,4.0)*Power(xij,22.0)*
6055 (513.0 - 114.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
6056 + 18.0*Power(rij,6.0)*Power(xii,32.0)*
6057 (-401800.0 - 18435.0*Power(rij,2.0)*Power(xij,2.0) +
6058 52.0*Power(rij,4.0)*Power(xij,4.0)) +
6059 72.0*Power(rij,5.0)*Power(xii,31.0)*
6060 (-874650.0 - 113005.0*Power(rij,2.0)*Power(xij,2.0) +
6061 811.0*Power(rij,4.0)*Power(xij,4.0)) +
6062 450.0*rij*Power(xii,7.0)*Power(xij,20.0)*
6063 (-305235.0 + 35910.0*Power(rij,2.0)*Power(xij,2.0) -
6064 798.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
6065 1575.0*Power(xii,6.0)*Power(xij,20.0)*
6066 (-43605.0 + 15390.0*Power(rij,2.0)*Power(xij,2.0) -
6067 570.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
6068 36.0*Power(rij,4.0)*Power(xii,30.0)*
6069 (10870650.0 + 3565660.0*Power(rij,2.0)*Power(xij,2.0) -
6070 40547.0*Power(rij,4.0)*Power(xij,4.0) + 74.0*Power(rij,6.0)*Power(xij,6.0)) -
6071 216.0*Power(rij,3.0)*Power(xii,29.0)*
6072 (7800450.0 + 6398630.0*Power(rij,2.0)*Power(xij,2.0) -
6073 76456.0*Power(rij,4.0)*Power(xij,4.0) + 383.0*Power(rij,6.0)*Power(xij,6.0)) +
6074 100.0*rij*Power(xii,9.0)*Power(xij,18.0)*
6075 (5494230.0 - 915705.0*Power(rij,2.0)*Power(xij,2.0) +
6076 32319.0*Power(rij,4.0)*Power(xij,4.0) - 342.0*Power(rij,6.0)*Power(xij,6.0) +
6077 Power(rij,8.0)*Power(xij,8.0)) +
6078 450.0*Power(xii,8.0)*Power(xij,18.0)*
6079 (610470.0 - 305235.0*Power(rij,2.0)*Power(xij,2.0) +
6080 17955.0*Power(rij,4.0)*Power(xij,4.0) - 266.0*Power(rij,6.0)*Power(xij,6.0) +
6081 Power(rij,8.0)*Power(xij,8.0)) -
6082 36.0*rij*Power(xii,13.0)*Power(xij,14.0)*
6083 (89026875.0 + 334741050.0*Power(rij,2.0)*Power(xij,2.0) +
6084 16373490.0*Power(rij,4.0)*Power(xij,4.0) +
6085 300416.0*Power(rij,6.0)*Power(xij,6.0) + 42.0*Power(rij,8.0)*Power(xij,8.0)) -
6086 12.0*rij*Power(xii,11.0)*Power(xij,16.0)*
6087 (137355750.0 - 22865850.0*Power(rij,2.0)*Power(xij,2.0) +
6088 2246895.0*Power(rij,4.0)*Power(xij,4.0) -
6089 7632.0*Power(rij,6.0)*Power(xij,6.0) + 305.0*Power(rij,8.0)*Power(xij,8.0)) +
6090 4.0*Power(rij,2.0)*Power(xii,28.0)*
6091 (-1167523875.0 - 2573131050.0*Power(rij,2.0)*Power(xij,2.0) +
6092 700245.0*Power(rij,4.0)*Power(xij,4.0) +
6093 110763.0*Power(rij,6.0)*Power(xij,6.0) + 409.0*Power(rij,8.0)*Power(xij,8.0)) \
6094 + 36.0*rij*Power(xii,15.0)*Power(xij,12.0)*
6095 (-7803332775.0 - 3848335050.0*Power(rij,2.0)*Power(xij,2.0) -
6096 104502090.0*Power(rij,4.0)*Power(xij,4.0) +
6097 530994.0*Power(rij,6.0)*Power(xij,6.0) + 2438.0*Power(rij,8.0)*Power(xij,8.0)) \
6098 + 18.0*rij*Power(xii,19.0)*Power(xij,8.0)*
6099 (-357591274425.0 + 15942280410.0*Power(rij,2.0)*Power(xij,2.0) +
6100 570992940.0*Power(rij,4.0)*Power(xij,4.0) -
6101 11648672.0*Power(rij,6.0)*Power(xij,6.0) +
6102 12046.0*Power(rij,8.0)*Power(xij,8.0)) +
6103 36.0*rij*Power(xii,25.0)*Power(xij,2.0)*
6104 (-7604930025.0 - 7728532245.0*Power(rij,2.0)*Power(xij,2.0) +
6105 323602755.0*Power(rij,4.0)*Power(xij,4.0) -
6106 5106594.0*Power(rij,6.0)*Power(xij,6.0) +
6107 16967.0*Power(rij,8.0)*Power(xij,8.0)) -
6108 4.0*rij*Power(xii,27.0)*(1762732125.0 +
6109 12948068700.0*Power(rij,2.0)*Power(xij,2.0) +
6110 634368105.0*Power(rij,4.0)*Power(xij,4.0) -
6111 14850144.0*Power(rij,6.0)*Power(xij,6.0) +
6112 38437.0*Power(rij,8.0)*Power(xij,8.0)) +
6113 6.0*rij*Power(xii,21.0)*Power(xij,6.0)*
6114 (-1070591393025.0 + 112013496630.0*Power(rij,2.0)*Power(xij,2.0) -
6115 3943648170.0*Power(rij,4.0)*Power(xij,4.0) +
6116 24403296.0*Power(rij,6.0)*Power(xij,6.0) +
6117 43928.0*Power(rij,8.0)*Power(xij,8.0)) -
6118 6.0*rij*Power(xii,23.0)*Power(xij,4.0)*
6119 (387584799525.0 + 22847636070.0*Power(rij,2.0)*Power(xij,2.0) -
6120 380961630.0*Power(rij,4.0)*Power(xij,4.0) -
6121 17523396.0*Power(rij,6.0)*Power(xij,6.0) +
6122 121448.0*Power(rij,8.0)*Power(xij,8.0)) -
6123 2.0*rij*Power(xii,17.0)*Power(xij,10.0)*
6124 (1157397524325.0 + 169929208260.0*Power(rij,2.0)*Power(xij,2.0) -
6125 3903345180.0*Power(rij,4.0)*Power(xij,4.0) -
6126 33203412.0*Power(rij,6.0)*Power(xij,6.0) +
6127 129226.0*Power(rij,8.0)*Power(xij,8.0)) +
6128 10.0*Power(xii,10.0)*Power(xij,16.0)*
6129 (-82413450.0 + 54942300.0*Power(rij,2.0)*Power(xij,2.0) -
6130 4578525.0*Power(rij,4.0)*Power(xij,4.0) +
6131 107730.0*Power(rij,6.0)*Power(xij,6.0) -
6132 855.0*Power(rij,8.0)*Power(xij,8.0) + 2.0*Power(rij,10.0)*Power(xij,10.0)) +
6133 6.0*Power(xii,12.0)*Power(xij,14.0)*
6134 (-267080625.0 + 122094000.0*Power(rij,2.0)*Power(xij,2.0) +
6135 114757650.0*Power(rij,4.0)*Power(xij,4.0) +
6136 2105670.0*Power(rij,6.0)*Power(xij,6.0) +
6137 45858.0*Power(rij,8.0)*Power(xij,8.0) + 10.0*Power(rij,10.0)*Power(xij,10.0)) \
6138 - 18.0*Power(xii,14.0)*Power(xij,12.0)*
6139 (7803332775.0 - 5926646250.0*Power(rij,2.0)*Power(xij,2.0) -
6140 670499550.0*Power(rij,4.0)*Power(xij,4.0) -
6141 13909140.0*Power(rij,6.0)*Power(xij,6.0) +
6142 16074.0*Power(rij,8.0)*Power(xij,8.0) + 52.0*Power(rij,10.0)*Power(xij,10.0)) \
6143 + 9.0*Power(xii,16.0)*Power(xij,10.0)*
6144 (-128599724925.0 + 98821662660.0*Power(rij,2.0)*Power(xij,2.0) +
6145 4512729900.0*Power(rij,4.0)*Power(xij,4.0) -
6146 57727320.0*Power(rij,6.0)*Power(xij,6.0) -
6147 361898.0*Power(rij,8.0)*Power(xij,8.0) + 296.0*Power(rij,10.0)*Power(xij,10.0)\
6148 ) + 18.0*Power(xii,26.0)*(-195859125.0 - 9105160050.0*Power(rij,2.0)*Power(xij,2.0) -
6149 2073138165.0*Power(rij,4.0)*Power(xij,4.0) +
6150 67371010.0*Power(rij,6.0)*Power(xij,6.0) -
6151 517501.0*Power(rij,8.0)*Power(xij,8.0) + 342.0*Power(rij,10.0)*Power(xij,10.0)\
6152 ) - 9.0*Power(xii,20.0)*Power(xij,6.0)*
6153 (356863797675.0 - 32148394110.0*Power(rij,2.0)*Power(xij,2.0) +
6154 11000178630.0*Power(rij,4.0)*Power(xij,4.0) -
6155 307586440.0*Power(rij,6.0)*Power(xij,6.0) +
6156 922488.0*Power(rij,8.0)*Power(xij,8.0) + 684.0*Power(rij,10.0)*Power(xij,10.0)\
6157 ) - Power(xii,18.0)*Power(xij,8.0)*
6158 (3218321469825.0 - 2072966838390.0*Power(rij,2.0)*Power(xij,2.0) +
6159 68132114820.0*Power(rij,4.0)*Power(xij,4.0) +
6160 914077080.0*Power(rij,6.0)*Power(xij,6.0) -
6161 9941598.0*Power(rij,8.0)*Power(xij,8.0) +
6162 1636.0*Power(rij,10.0)*Power(xij,10.0)) -
6163 6.0*Power(xii,24.0)*Power(xij,2.0)*
6164 (22814790075.0 + 192532308885.0*Power(rij,2.0)*Power(xij,2.0) -
6165 7524596205.0*Power(rij,4.0)*Power(xij,4.0) +
6166 238725270.0*Power(rij,6.0)*Power(xij,6.0) -
6167 2550237.0*Power(rij,8.0)*Power(xij,8.0) +
6168 2584.0*Power(rij,10.0)*Power(xij,10.0)) +
6169 3.0*Power(xii,22.0)*Power(xij,4.0)*
6170 (-387584799525.0 - 678595490370.0*Power(rij,2.0)*Power(xij,2.0) +
6171 38884316310.0*Power(rij,4.0)*Power(xij,4.0) -
6172 415382940.0*Power(rij,6.0)*Power(xij,6.0) -
6173 1961256.0*Power(rij,8.0)*Power(xij,8.0) +
6174 5168.0*Power(rij,10.0)*Power(xij,10.0))))/
6175 (70875.*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
6176 Power(Power(xii,2.0) - Power(xij,2.0),19.0))
6177 ;
6178 }
6179 return S;
6180 }
6181
6182 static double DSlater_5S_6S(double rij,double xij,double xii)
6183 {
6184 double S;
6185
6186 if (xii == xij) {
6187 S = (-766364132575641600000.0 + 766364132575641600000.0*Power(E,2.0*rij*xii) -
6188 1532728265151283200000.0*rij*xii -
6189 1532728265151283200000.0*Power(rij,2.0)*Power(xii,2.0) -
6190 1020454892919846759375.0*Power(rij,3.0)*Power(xii,3.0) -
6191 508181520688410318750.0*Power(rij,4.0)*Power(xii,4.0) -
6192 201658839456289965750.0*Power(rij,5.0)*Power(xii,5.0) -
6193 66348599139429106500.0*Power(rij,6.0)*Power(xii,6.0) -
6194 18599424978069936000.0*Power(rij,7.0)*Power(xii,7.0) -
6195 4531844261934990000.0*Power(rij,8.0)*Power(xii,8.0) -
6196 974502735982776000.0*Power(rij,9.0)*Power(xii,9.0) -
6197 187178934377635200.0*Power(rij,10.0)*Power(xii,10.0) -
6198 32426214068102400.0*Power(rij,11.0)*Power(xii,11.0) -
6199 5105770650489600.0*Power(rij,12.0)*Power(xii,12.0) -
6200 735142625280000.0*Power(rij,13.0)*Power(xii,13.0) -
6201 97218861465600.0*Power(rij,14.0)*Power(xii,14.0) -
6202 11842297528320.0*Power(rij,15.0)*Power(xii,15.0) -
6203 1330258083840.0*Power(rij,16.0)*Power(xii,16.0) -
6204 137673768960.0*Power(rij,17.0)*Power(xii,17.0) -
6205 13074432000.0*Power(rij,18.0)*Power(xii,18.0) -
6206 1128529920.0*Power(rij,19.0)*Power(xii,19.0) -
6207 86704128.0*Power(rij,20.0)*Power(xii,20.0) -
6208 5636096.0*Power(rij,21.0)*Power(xii,21.0) - 262144.0*Power(rij,22.0)*Power(xii,22.0))/
6209 (7.663641325756416e20*Power(E,2.0*rij*xii)*Power(rij,2.0))
6210 ;
6211 }
6212 else {
6213 S = (2338875.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),21.0) +
6214 55.0*Power(E,2.0*rij*xij)*Power(xij,14.0)*
6215 (-816.0*Power(rij,9.0)*Power(xii,37.0) - 12.0*Power(rij,10.0)*Power(xii,38.0) +
6216 42525.0*Power(xij,28.0) + 85050.0*rij*xii*Power(xij,28.0) +
6217 28350.0*rij*Power(xii,3.0)*Power(xij,26.0)*
6218 (-63.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
6219 42525.0*Power(xii,2.0)*Power(xij,26.0)*
6220 (-21.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6221 16.0*Power(rij,8.0)*Power(xii,36.0)*(1647.0 + 7.0*Power(rij,2.0)*Power(xij,2.0)) -
6222 4.0*Power(rij,7.0)*Power(xii,35.0)*
6223 (132192.0 + 2723.0*Power(rij,2.0)*Power(xij,2.0)) +
6224 11340.0*rij*Power(xii,5.0)*Power(xij,24.0)*
6225 (1575.0 - 105.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) \
6226 + 28350.0*Power(xii,4.0)*Power(xij,24.0)*
6227 (315.0 - 63.0*Power(rij,2.0)*Power(xij,2.0) + Power(rij,4.0)*Power(xij,4.0)) +
6228 378.0*Power(rij,6.0)*Power(xii,34.0)*
6229 (-19176.0 - 1227.0*Power(rij,2.0)*Power(xij,2.0) +
6230 2.0*Power(rij,4.0)*Power(xij,4.0)) +
6231 756.0*Power(rij,5.0)*Power(xii,33.0)*
6232 (-93024.0 - 15446.0*Power(rij,2.0)*Power(xij,2.0) +
6233 55.0*Power(rij,4.0)*Power(xij,4.0)) +
6234 540.0*rij*Power(xii,7.0)*Power(xij,22.0)*
6235 (-209475.0 + 22050.0*Power(rij,2.0)*Power(xij,2.0) -
6236 441.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) +
6237 1890.0*Power(xii,6.0)*Power(xij,22.0)*
6238 (-29925.0 + 9450.0*Power(rij,2.0)*Power(xij,2.0) -
6239 315.0*Power(rij,4.0)*Power(xij,4.0) + 2.0*Power(rij,6.0)*Power(xij,6.0)) -
6240 18.0*Power(rij,4.0)*Power(xii,32.0)*
6241 (26860680.0 + 10787154.0*Power(rij,2.0)*Power(xij,2.0) -
6242 38451.0*Power(rij,4.0)*Power(xij,4.0) + 32.0*Power(rij,6.0)*Power(xij,6.0)) +
6243 36.0*Power(rij,3.0)*Power(xii,31.0)*
6244 (-63488880.0 - 61912431.0*Power(rij,2.0)*Power(xij,2.0) -
6245 191226.0*Power(rij,4.0)*Power(xij,4.0) + 1798.0*Power(rij,6.0)*Power(xij,6.0)\
6246 ) + 30.0*rij*Power(xii,9.0)*Power(xij,20.0)*
6247 (16967475.0 - 2513700.0*Power(rij,2.0)*Power(xij,2.0) +
6248 79380.0*Power(rij,4.0)*Power(xij,4.0) -
6249 756.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
6250 135.0*Power(xii,8.0)*Power(xij,20.0)*
6251 (1885275.0 - 837900.0*Power(rij,2.0)*Power(xij,2.0) +
6252 44100.0*Power(rij,4.0)*Power(xij,4.0) -
6253 588.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
6254 378.0*rij*Power(xii,25.0)*Power(xij,4.0)*
6255 (17962854525.0 + 3973121100.0*Power(rij,2.0)*Power(xij,2.0) -
6256 123555420.0*Power(rij,4.0)*Power(xij,4.0) +
6257 821732.0*Power(rij,6.0)*Power(xij,6.0) + 38.0*Power(rij,8.0)*Power(xij,8.0)) \
6258 - 108.0*rij*Power(xii,13.0)*Power(xij,16.0)*
6259 (121076550.0 + 226721775.0*Power(rij,2.0)*Power(xij,2.0) +
6260 10259361.0*Power(rij,4.0)*Power(xij,4.0) +
6261 137164.0*Power(rij,6.0)*Power(xij,6.0) + 126.0*Power(rij,8.0)*Power(xij,8.0)) \
6262 - 14.0*rij*Power(xii,11.0)*Power(xij,18.0)*
6263 (123620175.0 - 12901950.0*Power(rij,2.0)*Power(xij,2.0) +
6264 1936548.0*Power(rij,4.0)*Power(xij,4.0) +
6265 648.0*Power(rij,6.0)*Power(xij,6.0) + 194.0*Power(rij,8.0)*Power(xij,8.0)) -
6266 756.0*rij*Power(xii,23.0)*Power(xij,6.0)*
6267 (37244490525.0 - 1707788550.0*Power(rij,2.0)*Power(xij,2.0) +
6268 71446053.0*Power(rij,4.0)*Power(xij,4.0) -
6269 841738.0*Power(rij,6.0)*Power(xij,6.0) + 1292.0*Power(rij,8.0)*Power(xij,8.0)\
6270 ) - 210.0*rij*Power(xii,19.0)*Power(xij,10.0)*
6271 (154925948835.0 + 1186358670.0*Power(rij,2.0)*Power(xij,2.0) -
6272 250536888.0*Power(rij,4.0)*Power(xij,4.0) +
6273 1233936.0*Power(rij,6.0)*Power(xij,6.0) +
6274 1498.0*Power(rij,8.0)*Power(xij,8.0)) -
6275 2.0*Power(rij,2.0)*Power(xii,30.0)*
6276 (3444882210.0 + 8888317515.0*Power(rij,2.0)*Power(xij,2.0) +
6277 249425190.0*Power(rij,4.0)*Power(xij,4.0) -
6278 2687310.0*Power(rij,6.0)*Power(xij,6.0) +
6279 2318.0*Power(rij,8.0)*Power(xij,8.0)) +
6280 36.0*rij*Power(xii,15.0)*Power(xij,14.0)*
6281 (-23418646650.0 - 10839912300.0*Power(rij,2.0)*Power(xij,2.0) -
6282 280275345.0*Power(rij,4.0)*Power(xij,4.0) -
6283 161206.0*Power(rij,6.0)*Power(xij,6.0) + 2966.0*Power(rij,8.0)*Power(xij,8.0)\
6284 ) + 252.0*rij*Power(xii,21.0)*Power(xij,8.0)*
6285 (-186637212225.0 + 12975560325.0*Power(rij,2.0)*Power(xij,2.0) -
6286 160724781.0*Power(rij,4.0)*Power(xij,4.0) -
6287 824296.0*Power(rij,6.0)*Power(xij,6.0) + 4104.0*Power(rij,8.0)*Power(xij,8.0)\
6288 ) - 20.0*rij*Power(xii,29.0)*(556016076.0 +
6289 4792896927.0*Power(rij,2.0)*Power(xij,2.0) +
6290 502574625.0*Power(rij,4.0)*Power(xij,4.0) -
6291 7764012.0*Power(rij,6.0)*Power(xij,6.0) +
6292 23578.0*Power(rij,8.0)*Power(xij,8.0)) -
6293 2.0*rij*Power(xii,17.0)*Power(xij,12.0)*
6294 (4434624921825.0 + 748179822600.0*Power(rij,2.0)*Power(xij,2.0) -
6295 2615253480.0*Power(rij,4.0)*Power(xij,4.0) -
6296 94072860.0*Power(rij,6.0)*Power(xij,6.0) +
6297 66566.0*Power(rij,8.0)*Power(xij,8.0)) +
6298 6.0*rij*Power(xii,27.0)*Power(xij,2.0)*
6299 (-95426713305.0 - 133474043430.0*Power(rij,2.0)*Power(xij,2.0) +
6300 2257034220.0*Power(rij,4.0)*Power(xij,4.0) -
6301 27096360.0*Power(rij,6.0)*Power(xij,6.0) +
6302 115178.0*Power(rij,8.0)*Power(xij,8.0)) +
6303 189.0*Power(xii,24.0)*Power(xij,4.0)*
6304 (-17962854525.0 - 54465790500.0*Power(rij,2.0)*Power(xij,2.0) +
6305 2436787500.0*Power(rij,4.0)*Power(xij,4.0) -
6306 39184124.0*Power(rij,6.0)*Power(xij,6.0) +
6307 135242.0*Power(rij,8.0)*Power(xij,8.0)) +
6308 3.0*Power(xii,10.0)*Power(xij,18.0)*
6309 (-288447075.0 + 169674750.0*Power(rij,2.0)*Power(xij,2.0) -
6310 12568500.0*Power(rij,4.0)*Power(xij,4.0) +
6311 264600.0*Power(rij,6.0)*Power(xij,6.0) -
6312 1890.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
6313 14.0*Power(xii,12.0)*Power(xij,16.0)*
6314 (-467009550.0 + 233504775.0*Power(rij,2.0)*Power(xij,2.0) +
6315 74474775.0*Power(rij,4.0)*Power(xij,4.0) +
6316 1502604.0*Power(rij,6.0)*Power(xij,6.0) +
6317 19494.0*Power(rij,8.0)*Power(xij,8.0) + 8.0*Power(rij,10.0)*Power(xij,10.0)) \
6318 + 378.0*Power(xii,22.0)*Power(xij,6.0)*
6319 (-37244490525.0 - 19531480050.0*Power(rij,2.0)*Power(xij,2.0) +
6320 314001975.0*Power(rij,4.0)*Power(xij,4.0) +
6321 10131142.0*Power(rij,6.0)*Power(xij,6.0) -
6322 89148.0*Power(rij,8.0)*Power(xij,8.0) + 38.0*Power(rij,10.0)*Power(xij,10.0)) \
6323 - 18.0*Power(xii,14.0)*Power(xij,14.0)*
6324 (23418646650.0 - 15063347250.0*Power(rij,2.0)*Power(xij,2.0) -
6325 1541945475.0*Power(rij,4.0)*Power(xij,4.0) -
6326 26695718.0*Power(rij,6.0)*Power(xij,6.0) -
6327 30126.0*Power(rij,8.0)*Power(xij,8.0) + 42.0*Power(rij,10.0)*Power(xij,10.0)) \
6328 + 9.0*Power(xii,16.0)*Power(xij,12.0)*
6329 (-492736102425.0 + 332913709800.0*Power(rij,2.0)*Power(xij,2.0) +
6330 16232804280.0*Power(rij,4.0)*Power(xij,4.0) -
6331 17642940.0*Power(rij,6.0)*Power(xij,6.0) -
6332 670806.0*Power(rij,8.0)*Power(xij,8.0) + 64.0*Power(rij,10.0)*Power(xij,10.0)\
6333 ) - 63.0*Power(xii,26.0)*Power(xij,2.0)*
6334 (4544129205.0 + 52573689630.0*Power(rij,2.0)*Power(xij,2.0) +
6335 831772260.0*Power(rij,4.0)*Power(xij,4.0) -
6336 17171800.0*Power(rij,6.0)*Power(xij,6.0) -
6337 71082.0*Power(rij,8.0)*Power(xij,8.0) + 228.0*Power(rij,10.0)*Power(xij,10.0)\
6338 ) - 42.0*Power(xii,20.0)*Power(xij,8.0)*
6339 (559911636675.0 - 188981369325.0*Power(rij,2.0)*Power(xij,2.0) +
6340 12441827475.0*Power(rij,4.0)*Power(xij,4.0) -
6341 104458200.0*Power(rij,6.0)*Power(xij,6.0) -
6342 229140.0*Power(rij,8.0)*Power(xij,8.0) +
6343 328.0*Power(rij,10.0)*Power(xij,10.0)) +
6344 6.0*Power(xii,28.0)*(-926693460.0 -
6345 54014259915.0*Power(rij,2.0)*Power(xij,2.0) -
6346 19074253275.0*Power(rij,4.0)*Power(xij,4.0) +
6347 370738620.0*Power(rij,6.0)*Power(xij,6.0) -
6348 2470770.0*Power(rij,8.0)*Power(xij,8.0) +
6349 2296.0*Power(rij,10.0)*Power(xij,10.0)) +
6350 Power(xii,18.0)*Power(xij,10.0)*
6351 (-16267224627675.0 + 10111789349550.0*Power(rij,2.0)*Power(xij,2.0) -
6352 46442115720.0*Power(rij,4.0)*Power(xij,4.0) -
6353 3760495200.0*Power(rij,6.0)*Power(xij,6.0) +
6354 8510670.0*Power(rij,8.0)*Power(xij,8.0) +
6355 4636.0*Power(rij,10.0)*Power(xij,10.0))) +
6356 Power(E,2.0*rij*xii)*Power(xii,12.0)*
6357 (5.0*Power(xii,28.0)*Power(xij,2.0)*
6358 (9823275.0 + 19646550.0*rij*xij + 19646550.0*Power(rij,2.0)*Power(xij,2.0) +
6359 13097700.0*Power(rij,3.0)*Power(xij,3.0) +
6360 6548850.0*Power(rij,4.0)*Power(xij,4.0) +
6361 2619540.0*Power(rij,5.0)*Power(xij,5.0) +
6362 873180.0*Power(rij,6.0)*Power(xij,6.0) +
6363 249480.0*Power(rij,7.0)*Power(xij,7.0) +
6364 62370.0*Power(rij,8.0)*Power(xij,8.0) +
6365 13860.0*Power(rij,9.0)*Power(xij,9.0) +
6366 2772.0*Power(rij,10.0)*Power(xij,10.0) +
6367 944.0*Power(rij,11.0)*Power(xij,11.0) - 4.0*Power(rij,12.0)*Power(xij,12.0)) +
6368 52668.0*Power(xii,16.0)*Power(xij,14.0)*
6369 (10970100.0 + 21940200.0*rij*xij -
6370 237536325.0*Power(rij,2.0)*Power(xij,2.0) +
6371 487687500.0*Power(rij,3.0)*Power(xij,3.0) -
6372 253716075.0*Power(rij,4.0)*Power(xij,4.0) +
6373 8373180.0*Power(rij,5.0)*Power(xij,5.0) +
6374 14379960.0*Power(rij,6.0)*Power(xij,6.0) +
6375 690840.0*Power(rij,7.0)*Power(xij,7.0) -
6376 198500.0*Power(rij,8.0)*Power(xij,8.0) -
6377 23510.0*Power(rij,9.0)*Power(xij,9.0) -
6378 603.0*Power(rij,10.0)*Power(xij,10.0) +
6379 24.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
6380 20.0*Power(xij,30.0)*(24325703325.0 + 48651406650.0*rij*xij +
6381 34902096075.0*Power(rij,2.0)*Power(xij,2.0) +
6382 14101857000.0*Power(rij,3.0)*Power(xij,3.0) +
6383 3777283125.0*Power(rij,4.0)*Power(xij,4.0) +
6384 725238360.0*Power(rij,5.0)*Power(xij,5.0) +
6385 103908420.0*Power(rij,6.0)*Power(xij,6.0) +
6386 11309760.0*Power(rij,7.0)*Power(xij,7.0) +
6387 935550.0*Power(rij,8.0)*Power(xij,8.0) +
6388 57750.0*Power(rij,9.0)*Power(xij,9.0) +
6389 2541.0*Power(rij,10.0)*Power(xij,10.0) +
6390 72.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) +
6391 20.0*Power(xii,2.0)*Power(xij,28.0)*
6392 (1145624789925.0 + 2291249579850.0*rij*xij +
6393 1509654155625.0*Power(rij,2.0)*Power(xij,2.0) +
6394 544835317950.0*Power(rij,3.0)*Power(xij,3.0) +
6395 127873624725.0*Power(rij,4.0)*Power(xij,4.0) +
6396 21112494480.0*Power(rij,5.0)*Power(xij,5.0) +
6397 2545402860.0*Power(rij,6.0)*Power(xij,6.0) +
6398 226801080.0*Power(rij,7.0)*Power(xij,7.0) +
6399 14787630.0*Power(rij,8.0)*Power(xij,8.0) +
6400 679690.0*Power(rij,9.0)*Power(xij,9.0) +
6401 20207.0*Power(rij,10.0)*Power(xij,10.0) +
6402 314.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) -
6403 110.0*Power(xii,10.0)*Power(xij,20.0)*
6404 (-7031709085275.0 - 14063418170550.0*rij*xij +
6405 5761420840350.0*Power(rij,2.0)*Power(xij,2.0) +
6406 2282136160500.0*Power(rij,3.0)*Power(xij,3.0) -
6407 28040219550.0*Power(rij,4.0)*Power(xij,4.0) -
6408 94545378900.0*Power(rij,5.0)*Power(xij,5.0) -
6409 14293824300.0*Power(rij,6.0)*Power(xij,6.0) -
6410 573941160.0*Power(rij,7.0)*Power(xij,7.0) +
6411 65493270.0*Power(rij,8.0)*Power(xij,8.0) +
6412 9429840.0*Power(rij,9.0)*Power(xij,9.0) +
6413 476262.0*Power(rij,10.0)*Power(xij,10.0) +
6414 9284.0*Power(rij,11.0)*Power(xij,11.0) + 2.0*Power(rij,12.0)*Power(xij,12.0)) \
6415 + 55.0*Power(xii,20.0)*Power(xij,10.0)*
6416 (865341225.0 + 1730682450.0*rij*xij +
6417 1730682450.0*Power(rij,2.0)*Power(xij,2.0) +
6418 1312510500.0*Power(rij,3.0)*Power(xij,3.0) -
6419 534161250.0*Power(rij,4.0)*Power(xij,4.0) +
6420 2257389540.0*Power(rij,5.0)*Power(xij,5.0) -
6421 1135495620.0*Power(rij,6.0)*Power(xij,6.0) +
6422 166186440.0*Power(rij,7.0)*Power(xij,7.0) +
6423 48426210.0*Power(rij,8.0)*Power(xij,8.0) -
6424 544460.0*Power(rij,9.0)*Power(xij,9.0) -
6425 446788.0*Power(rij,10.0)*Power(xij,10.0) -
6426 18256.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) \
6427 - 5.0*Power(xii,30.0)*(467775.0 + 935550.0*rij*xij +
6428 935550.0*Power(rij,2.0)*Power(xij,2.0) +
6429 623700.0*Power(rij,3.0)*Power(xij,3.0) +
6430 311850.0*Power(rij,4.0)*Power(xij,4.0) +
6431 124740.0*Power(rij,5.0)*Power(xij,5.0) +
6432 41580.0*Power(rij,6.0)*Power(xij,6.0) +
6433 11880.0*Power(rij,7.0)*Power(xij,7.0) +
6434 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
6435 132.0*Power(rij,10.0)*Power(xij,10.0) +
6436 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
6437 13167.0*Power(xii,14.0)*Power(xij,16.0)*
6438 (-1159677225.0 - 2319354450.0*rij*xij +
6439 12207865950.0*Power(rij,2.0)*Power(xij,2.0) -
6440 8468827500.0*Power(rij,3.0)*Power(xij,3.0) +
6441 270633450.0*Power(rij,4.0)*Power(xij,4.0) +
6442 576841620.0*Power(rij,5.0)*Power(xij,5.0) +
6443 36246140.0*Power(rij,6.0)*Power(xij,6.0) -
6444 9802040.0*Power(rij,7.0)*Power(xij,7.0) -
6445 1523150.0*Power(rij,8.0)*Power(xij,8.0) -
6446 59740.0*Power(rij,9.0)*Power(xij,9.0) +
6447 2148.0*Power(rij,10.0)*Power(xij,10.0) +
6448 216.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
6449 1540.0*Power(xii,18.0)*Power(xij,12.0)*
6450 (82413450.0 + 164826900.0*rij*xij +
6451 315918225.0*Power(rij,2.0)*Power(xij,2.0) -
6452 778349250.0*Power(rij,3.0)*Power(xij,3.0) +
6453 1488020625.0*Power(rij,4.0)*Power(xij,4.0) -
6454 723888900.0*Power(rij,5.0)*Power(xij,5.0) +
6455 53335800.0*Power(rij,6.0)*Power(xij,6.0) +
6456 35328960.0*Power(rij,7.0)*Power(xij,7.0) +
6457 727920.0*Power(rij,8.0)*Power(xij,8.0) -
6458 407850.0*Power(rij,9.0)*Power(xij,9.0) -
6459 31161.0*Power(rij,10.0)*Power(xij,10.0) -
6460 342.0*Power(rij,11.0)*Power(xij,11.0) + 17.0*Power(rij,12.0)*Power(xij,12.0)) \
6461 + 385.0*Power(xii,12.0)*Power(xij,18.0)*
6462 (486782696925.0 + 973565393850.0*rij*xij -
6463 1578263239350.0*Power(rij,2.0)*Power(xij,2.0) +
6464 159440683500.0*Power(rij,3.0)*Power(xij,3.0) +
6465 142522509150.0*Power(rij,4.0)*Power(xij,4.0) +
6466 7396549020.0*Power(rij,5.0)*Power(xij,5.0) -
6467 3365814060.0*Power(rij,6.0)*Power(xij,6.0) -
6468 566536680.0*Power(rij,7.0)*Power(xij,7.0) -
6469 26389530.0*Power(rij,8.0)*Power(xij,8.0) +
6470 1233420.0*Power(rij,9.0)*Power(xij,9.0) +
6471 180876.0*Power(rij,10.0)*Power(xij,10.0) +
6472 6672.0*Power(rij,11.0)*Power(xij,11.0) + 68.0*Power(rij,12.0)*Power(xij,12.0)) \
6473 + 14.0*Power(xii,26.0)*Power(xij,4.0)*
6474 (-35083125.0 - 70166250.0*rij*xij -
6475 70166250.0*Power(rij,2.0)*Power(xij,2.0) -
6476 46777500.0*Power(rij,3.0)*Power(xij,3.0) -
6477 23388750.0*Power(rij,4.0)*Power(xij,4.0) -
6478 9355500.0*Power(rij,5.0)*Power(xij,5.0) -
6479 3118500.0*Power(rij,6.0)*Power(xij,6.0) -
6480 891000.0*Power(rij,7.0)*Power(xij,7.0) -
6481 222750.0*Power(rij,8.0)*Power(xij,8.0) -
6482 18040.0*Power(rij,9.0)*Power(xij,9.0) -
6483 31922.0*Power(rij,10.0)*Power(xij,10.0) -
6484 524.0*Power(rij,11.0)*Power(xij,11.0) + 74.0*Power(rij,12.0)*Power(xij,12.0)) \
6485 - 7.0*Power(xii,4.0)*Power(xij,26.0)*
6486 (-34911472624875.0 - 69822945249750.0*rij*xij -
6487 39657058575750.0*Power(rij,2.0)*Power(xij,2.0) -
6488 11594155765500.0*Power(rij,3.0)*Power(xij,3.0) -
6489 2053437759450.0*Power(rij,4.0)*Power(xij,4.0) -
6490 226760230620.0*Power(rij,5.0)*Power(xij,5.0) -
6491 13566847140.0*Power(rij,6.0)*Power(xij,6.0) +
6492 59554440.0*Power(rij,7.0)*Power(xij,7.0) +
6493 92560050.0*Power(rij,8.0)*Power(xij,8.0) +
6494 8960820.0*Power(rij,9.0)*Power(xij,9.0) +
6495 454476.0*Power(rij,10.0)*Power(xij,10.0) +
6496 12592.0*Power(rij,11.0)*Power(xij,11.0) +
6497 148.0*Power(rij,12.0)*Power(xij,12.0)) -
6498 50.0*Power(xii,8.0)*Power(xij,22.0)*
6499 (-25884416787075.0 - 51768833574150.0*rij*xij -
6500 7250000130450.0*Power(rij,2.0)*Power(xij,2.0) +
6501 3206573300700.0*Power(rij,3.0)*Power(xij,3.0) +
6502 1119709961370.0*Power(rij,4.0)*Power(xij,4.0) +
6503 124678104012.0*Power(rij,5.0)*Power(xij,5.0) -
6504 603805356.0*Power(rij,6.0)*Power(xij,6.0) -
6505 1678543416.0*Power(rij,7.0)*Power(xij,7.0) -
6506 199885554.0*Power(rij,8.0)*Power(xij,8.0) -
6507 11203984.0*Power(rij,9.0)*Power(xij,9.0) -
6508 267410.0*Power(rij,10.0)*Power(xij,10.0) +
6509 1696.0*Power(rij,11.0)*Power(xij,11.0) + 158.0*Power(rij,12.0)*Power(xij,12.0)\
6510 ) + 25.0*Power(xii,22.0)*Power(xij,8.0)*
6511 (-559926675.0 - 1119853350.0*rij*xij -
6512 1119853350.0*Power(rij,2.0)*Power(xij,2.0) -
6513 746568900.0*Power(rij,3.0)*Power(xij,3.0) -
6514 373284450.0*Power(rij,4.0)*Power(xij,4.0) -
6515 108881388.0*Power(rij,5.0)*Power(xij,5.0) -
6516 171068436.0*Power(rij,6.0)*Power(xij,6.0) +
6517 84312360.0*Power(rij,7.0)*Power(xij,7.0) -
6518 23318262.0*Power(rij,8.0)*Power(xij,8.0) -
6519 3243900.0*Power(rij,9.0)*Power(xij,9.0) +
6520 144012.0*Power(rij,10.0)*Power(xij,10.0) +
6521 21256.0*Power(rij,11.0)*Power(xij,11.0) +
6522 316.0*Power(rij,12.0)*Power(xij,12.0)) -
6523 6.0*Power(xii,24.0)*Power(xij,6.0)*
6524 (-518450625.0 - 1036901250.0*rij*xij -
6525 1036901250.0*Power(rij,2.0)*Power(xij,2.0) -
6526 691267500.0*Power(rij,3.0)*Power(xij,3.0) -
6527 345633750.0*Power(rij,4.0)*Power(xij,4.0) -
6528 138253500.0*Power(rij,5.0)*Power(xij,5.0) -
6529 46084500.0*Power(rij,6.0)*Power(xij,6.0) -
6530 18829800.0*Power(rij,7.0)*Power(xij,7.0) +
6531 5202450.0*Power(rij,8.0)*Power(xij,8.0) -
6532 3594360.0*Power(rij,9.0)*Power(xij,9.0) -
6533 218658.0*Power(rij,10.0)*Power(xij,10.0) +
6534 17664.0*Power(rij,11.0)*Power(xij,11.0) +
6535 766.0*Power(rij,12.0)*Power(xij,12.0)) +
6536 3.0*Power(xii,6.0)*Power(xij,24.0)*
6537 (298003296331125.0 + 596006592662250.0*rij*xij +
6538 248020874120250.0*Power(rij,2.0)*Power(xij,2.0) +
6539 39730277317500.0*Power(rij,3.0)*Power(xij,3.0) +
6540 92486497950.0*Power(rij,4.0)*Power(xij,4.0) -
6541 1040164489980.0*Power(rij,5.0)*Power(xij,5.0) -
6542 195369465060.0*Power(rij,6.0)*Power(xij,6.0) -
6543 18560397240.0*Power(rij,7.0)*Power(xij,7.0) -
6544 940920750.0*Power(rij,8.0)*Power(xij,8.0) -
6545 12201420.0*Power(rij,9.0)*Power(xij,9.0) +
6546 1418604.0*Power(rij,10.0)*Power(xij,10.0) +
6547 84168.0*Power(rij,11.0)*Power(xij,11.0) +
6548 1532.0*Power(rij,12.0)*Power(xij,12.0))))/
6549 (2.338875e6*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
6550 Power(Power(xii,2.0) - Power(xij,2.0),21.0))
6551 ;
6552 }
6553 return S;
6554 }
6555
6556 double DSlater_5S_1S(double rij,double xii,double xij)
6557 {
6558 return DSlater_1S_5S(rij,xij,xii);
6559 }
6560
6561 double DSlater_5S_2S(double rij,double xii,double xij)
6562 {
6563 return DSlater_2S_5S(rij,xij,xii);
6564 }
6565
6566 double DSlater_5S_3S(double rij,double xii,double xij)
6567 {
6568 return DSlater_3S_5S(rij,xij,xii);
6569 }
6570
6571 double DSlater_5S_4S(double rij,double xii,double xij)
6572 {
6573 return DSlater_4S_5S(rij,xij,xii);
6574 }
6575
6576 static double DSlater_6S_6S(double rij,double xij,double xii)
6577 {
6578 double S;
6579
6580 if (xii == xij) {
6581 S = -(930672602599859159040000.0 - 930672602599859159040000.0*Power(E,2.0*rij*xii) +
6582 1861345205199718318080000.0*rij*xii +
6583 1861345205199718318080000.0*Power(rij,2.0)*Power(xii,2.0) +
6584 1239447469649939026351875.0*Power(rij,3.0)*Power(xii,3.0) +
6585 617549734100159734623750.0*Power(rij,4.0)*Power(xii,4.0) +
6586 245308299418626353910000.0*Power(rij,5.0)*Power(xii,5.0) +
6587 80849221192532687895000.0*Power(rij,6.0)*Power(xii,6.0) +
6588 22724497062484591374000.0*Power(rij,7.0)*Power(xii,7.0) +
6589 5558106457968308244000.0*Power(rij,8.0)*Power(xii,8.0) +
6590 1201461043722619680000.0*Power(rij,9.0)*Power(xii,9.0) +
6591 232373746276140268800.0*Power(rij,10.0)*Power(xii,10.0) +
6592 40613247709652217600.0*Power(rij,11.0)*Power(xii,11.0) +
6593 6465950980961472000.0*Power(rij,12.0)*Power(xii,12.0) +
6594 943771901519462400.0*Power(rij,13.0)*Power(xii,13.0) +
6595 126929425622630400.0*Power(rij,14.0)*Power(xii,14.0) +
6596 15790263474585600.0*Power(rij,15.0)*Power(xii,15.0) +
6597 1821953477836800.0*Power(rij,16.0)*Power(xii,16.0) +
6598 195294359715840.0*Power(rij,17.0)*Power(xii,17.0) +
6599 19450048020480.0*Power(rij,18.0)*Power(xii,18.0) +
6600 1796674682880.0*Power(rij,19.0)*Power(xii,19.0) +
6601 153204817920.0*Power(rij,20.0)*Power(xii,20.0) +
6602 11938037760.0*Power(rij,21.0)*Power(xii,21.0) +
6603 832045056.0*Power(rij,22.0)*Power(xii,22.0) +
6604 49283072.0*Power(rij,23.0)*Power(xii,23.0) +
6605 2097152.0*Power(rij,24.0)*Power(xii,24.0))/
6606 (9.306726025998591e23*Power(E,2.0*rij*xii)*Power(rij,2.0))
6607 ;
6608 }
6609 else {
6610 S = (1403325.0*Power(E,2.0*rij*(xii + xij))*Power(Power(xii,2.0) - Power(xij,2.0),23.0) +
6611 Power(E,2.0*rij*xij)*Power(xij,14.0)*
6612 (-996.0*Power(rij,11.0)*Power(xii,43.0) - 12.0*Power(rij,12.0)*Power(xii,44.0) +
6613 1403325.0*Power(xij,32.0) + 2806650.0*rij*xii*Power(xij,32.0) -
6614 88.0*Power(rij,10.0)*Power(xii,42.0)*(456.0 + Power(rij,2.0)*Power(xij,2.0)) +
6615 935550.0*rij*Power(xii,3.0)*Power(xij,30.0)*
6616 (-69.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) +
6617 1403325.0*Power(xii,2.0)*Power(xij,30.0)*
6618 (-23.0 + 2.0*Power(rij,2.0)*Power(xij,2.0)) -
6619 44.0*Power(rij,9.0)*Power(xii,41.0)*
6620 (23460.0 + 257.0*Power(rij,2.0)*Power(xij,2.0)) +
6621 187110.0*rij*Power(xii,5.0)*Power(xij,28.0)*
6622 (3795.0 - 230.0*Power(rij,2.0)*Power(xij,2.0) +
6623 2.0*Power(rij,4.0)*Power(xij,4.0)) +
6624 467775.0*Power(xii,4.0)*Power(xij,28.0)*
6625 (759.0 - 138.0*Power(rij,2.0)*Power(xij,2.0) + 2.0*Power(rij,4.0)*Power(xij,4.0)) \
6626 + 44.0*Power(rij,8.0)*Power(xii,40.0)*
6627 (-426870.0 - 14241.0*Power(rij,2.0)*Power(xij,2.0) +
6628 22.0*Power(rij,4.0)*Power(xij,4.0)) +
6629 220.0*Power(rij,7.0)*Power(xii,39.0)*
6630 (-1151172.0 - 94377.0*Power(rij,2.0)*Power(xij,2.0) +
6631 347.0*Power(rij,4.0)*Power(xij,4.0)) +
6632 8910.0*rij*Power(xii,7.0)*Power(xij,26.0)*
6633 (-557865.0 + 53130.0*Power(rij,2.0)*Power(xij,2.0) -
6634 966.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) +
6635 31185.0*Power(xii,6.0)*Power(xij,26.0)*
6636 (-79695.0 + 22770.0*Power(rij,2.0)*Power(xij,2.0) -
6637 690.0*Power(rij,4.0)*Power(xij,4.0) + 4.0*Power(rij,6.0)*Power(xij,6.0)) -
6638 110.0*Power(rij,6.0)*Power(xii,38.0)*
6639 (23442048.0 + 4242321.0*Power(rij,2.0)*Power(xij,2.0) -
6640 22038.0*Power(rij,4.0)*Power(xij,4.0) + 20.0*Power(rij,6.0)*Power(xij,6.0)) -
6641 44.0*Power(rij,5.0)*Power(xii,37.0)*
6642 (450526860.0 + 171521550.0*Power(rij,2.0)*Power(xij,2.0) -
6643 702615.0*Power(rij,4.0)*Power(xij,4.0) + 809.0*Power(rij,6.0)*Power(xij,6.0)) \
6644 + 990.0*rij*Power(xii,9.0)*Power(xij,24.0)*
6645 (25103925.0 - 3347190.0*Power(rij,2.0)*Power(xij,2.0) +
6646 95634.0*Power(rij,4.0)*Power(xij,4.0) -
6647 828.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) +
6648 4455.0*Power(xii,8.0)*Power(xij,24.0)*
6649 (2789325.0 - 1115730.0*Power(rij,2.0)*Power(xij,2.0) +
6650 53130.0*Power(rij,4.0)*Power(xij,4.0) -
6651 644.0*Power(rij,6.0)*Power(xij,6.0) + 2.0*Power(rij,8.0)*Power(xij,8.0)) -
6652 22.0*Power(rij,4.0)*Power(xii,36.0)*
6653 (5137105050.0 + 4097941470.0*Power(rij,2.0)*Power(xij,2.0) +
6654 14337945.0*Power(rij,4.0)*Power(xij,4.0) -
6655 245166.0*Power(rij,6.0)*Power(xij,6.0) + 124.0*Power(rij,8.0)*Power(xij,8.0)) \
6656 - 44.0*Power(rij,3.0)*Power(xii,35.0)*
6657 (10425301425.0 + 18160961805.0*Power(rij,2.0)*Power(xij,2.0) +
6658 471245850.0*Power(rij,4.0)*Power(xij,4.0) -
6659 7008675.0*Power(rij,6.0)*Power(xij,6.0) +
6660 15533.0*Power(rij,8.0)*Power(xij,8.0)) -
6661 2.0*Power(rij,2.0)*Power(xii,34.0)*
6662 (611617683600.0 + 2588132183175.0*Power(rij,2.0)*Power(xij,2.0) +
6663 215628370650.0*Power(rij,4.0)*Power(xij,4.0) -
6664 3937764105.0*Power(rij,6.0)*Power(xij,6.0) +
6665 18963318.0*Power(rij,8.0)*Power(xij,8.0) -
6666 11236.0*Power(rij,10.0)*Power(xij,10.0)) +
6667 18.0*rij*Power(xii,11.0)*Power(xij,22.0)*
6668 (-5246720325.0 + 920477250.0*Power(rij,2.0)*Power(xij,2.0) -
6669 36819090.0*Power(rij,4.0)*Power(xij,4.0) +
6670 500940.0*Power(rij,6.0)*Power(xij,6.0) -
6671 2530.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) +
6672 99.0*Power(xii,10.0)*Power(xij,22.0)*
6673 (-476974575.0 + 251039250.0*Power(rij,2.0)*Power(xij,2.0) -
6674 16735950.0*Power(rij,4.0)*Power(xij,4.0) +
6675 318780.0*Power(rij,6.0)*Power(xij,6.0) -
6676 2070.0*Power(rij,8.0)*Power(xij,8.0) + 4.0*Power(rij,10.0)*Power(xij,10.0)) -
6677 22.0*rij*Power(xii,13.0)*Power(xij,20.0)*
6678 (-12878313525.0 + 3695139000.0*Power(rij,2.0)*Power(xij,2.0) -
6679 71262450.0*Power(rij,4.0)*Power(xij,4.0) +
6680 5017140.0*Power(rij,6.0)*Power(xij,6.0) -
6681 930.0*Power(rij,8.0)*Power(xij,8.0) + 158.0*Power(rij,10.0)*Power(xij,10.0)) \
6682 - 990.0*rij*Power(xii,29.0)*Power(xij,4.0)*
6683 (1620022028625.0 + 769716305820.0*Power(rij,2.0)*Power(xij,2.0) -
6684 31518809406.0*Power(rij,4.0)*Power(xij,4.0) +
6685 492367788.0*Power(rij,6.0)*Power(xij,6.0) -
6686 2173822.0*Power(rij,8.0)*Power(xij,8.0) +
6687 322.0*Power(rij,10.0)*Power(xij,10.0)) -
6688 22.0*rij*Power(xii,15.0)*Power(xij,18.0)*
6689 (113414642775.0 + 149162958000.0*Power(rij,2.0)*Power(xij,2.0) +
6690 11413095750.0*Power(rij,4.0)*Power(xij,4.0) +
6691 185668740.0*Power(rij,6.0)*Power(xij,6.0) +
6692 1327830.0*Power(rij,8.0)*Power(xij,8.0) +
6693 446.0*Power(rij,10.0)*Power(xij,10.0)) -
6694 110.0*rij*Power(xii,19.0)*Power(xij,14.0)*
6695 (14601048860475.0 + 4483288448100.0*Power(rij,2.0)*Power(xij,2.0) +
6696 57946422870.0*Power(rij,4.0)*Power(xij,4.0) -
6697 832082868.0*Power(rij,6.0)*Power(xij,6.0) -
6698 3260778.0*Power(rij,8.0)*Power(xij,8.0) +
6699 4006.0*Power(rij,10.0)*Power(xij,10.0)) +
6700 22.0*rij*Power(xii,17.0)*Power(xij,16.0)*
6701 (-4973277615075.0 - 3692030989500.0*Power(rij,2.0)*Power(xij,2.0) -
6702 151636618350.0*Power(rij,4.0)*Power(xij,4.0) -
6703 1305433260.0*Power(rij,6.0)*Power(xij,6.0) +
6704 2206410.0*Power(rij,8.0)*Power(xij,8.0) +
6705 7282.0*Power(rij,10.0)*Power(xij,10.0)) -
6706 462.0*rij*Power(xii,25.0)*Power(xij,8.0)*
6707 (40495013164125.0 - 3518150807250.0*Power(rij,2.0)*Power(xij,2.0) +
6708 108840713850.0*Power(rij,4.0)*Power(xij,4.0) -
6709 649652940.0*Power(rij,6.0)*Power(xij,6.0) -
6710 3316830.0*Power(rij,8.0)*Power(xij,8.0) +
6711 8878.0*Power(rij,10.0)*Power(xij,10.0)) +
6712 198.0*rij*Power(xii,27.0)*Power(xij,6.0)*
6713 (-42466116317625.0 - 406603622250.0*Power(rij,2.0)*Power(xij,2.0) -
6714 27736200450.0*Power(rij,4.0)*Power(xij,4.0) +
6715 2056016460.0*Power(rij,6.0)*Power(xij,6.0) -
6716 17679410.0*Power(rij,8.0)*Power(xij,8.0) +
6717 18354.0*Power(rij,10.0)*Power(xij,10.0)) +
6718 2.0*rij*Power(xii,21.0)*Power(xij,12.0)*
6719 (-4202540019025425.0 - 360777507725250.0*Power(rij,2.0)*Power(xij,2.0) +
6720 11255464316250.0*Power(rij,4.0)*Power(xij,4.0) +
6721 55487803140.0*Power(rij,6.0)*Power(xij,6.0) -
6722 628960530.0*Power(rij,8.0)*Power(xij,8.0) +
6723 36974.0*Power(rij,10.0)*Power(xij,10.0)) -
6724 2475.0*Power(xii,28.0)*Power(xij,4.0)*
6725 (324004405725.0 + 1510859435778.0*Power(rij,2.0)*Power(xij,2.0) -
6726 65979118674.0*Power(rij,4.0)*Power(xij,4.0) +
6727 1845131148.0*Power(rij,6.0)*Power(xij,6.0) -
6728 20728198.0*Power(rij,8.0)*Power(xij,8.0) +
6729 49588.0*Power(rij,10.0)*Power(xij,10.0)) +
6730 22.0*rij*Power(xii,23.0)*Power(xij,10.0)*
6731 (-850567767797475.0 + 36188347907250.0*Power(rij,2.0)*Power(xij,2.0) +
6732 847439173350.0*Power(rij,4.0)*Power(xij,4.0) -
6733 23276359260.0*Power(rij,6.0)*Power(xij,6.0) +
6734 45088050.0*Power(rij,8.0)*Power(xij,8.0) +
6735 84778.0*Power(rij,10.0)*Power(xij,10.0)) -
6736 22.0*rij*Power(xii,31.0)*Power(xij,2.0)*
6737 (5035829423625.0 + 11622729957300.0*Power(rij,2.0)*Power(xij,2.0) +
6738 16351979490.0*Power(rij,4.0)*Power(xij,4.0) -
6739 1720091700.0*Power(rij,6.0)*Power(xij,6.0) -
6740 14708670.0*Power(rij,8.0)*Power(xij,8.0) +
6741 103546.0*Power(rij,10.0)*Power(xij,10.0)) +
6742 4.0*rij*Power(xii,33.0)*(-451763061750.0 -
6743 5888319267600.0*Power(rij,2.0)*Power(xij,2.0) -
6744 1360794117375.0*Power(rij,4.0)*Power(xij,4.0) +
6745 28346942250.0*Power(rij,6.0)*Power(xij,6.0) -
6746 234258915.0*Power(rij,8.0)*Power(xij,8.0) +
6747 518489.0*Power(rij,10.0)*Power(xij,10.0)) +
6748 3.0*Power(xii,12.0)*Power(xij,20.0)*
6749 (47220482925.0 - 31480321950.0*Power(rij,2.0)*Power(xij,2.0) +
6750 2761431750.0*Power(rij,4.0)*Power(xij,4.0) -
6751 73638180.0*Power(rij,6.0)*Power(xij,6.0) +
6752 751410.0*Power(rij,8.0)*Power(xij,8.0) -
6753 3036.0*Power(rij,10.0)*Power(xij,10.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) \
6754 + 11.0*Power(xii,14.0)*Power(xij,18.0)*
6755 (-113414642775.0 + 78830888850.0*Power(rij,2.0)*Power(xij,2.0) +
6756 8804234250.0*Power(rij,4.0)*Power(xij,4.0) +
6757 576582300.0*Power(rij,6.0)*Power(xij,6.0) +
6758 5009850.0*Power(rij,8.0)*Power(xij,8.0) +
6759 39684.0*Power(rij,10.0)*Power(xij,10.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)\
6760 ) + 55.0*Power(xii,18.0)*Power(xij,14.0)*
6761 (-14601048860475.0 + 11014160607450.0*Power(rij,2.0)*Power(xij,2.0) +
6762 899524492650.0*Power(rij,4.0)*Power(xij,4.0) +
6763 8911784700.0*Power(rij,6.0)*Power(xij,6.0) -
6764 53799750.0*Power(rij,8.0)*Power(xij,8.0) -
6765 189276.0*Power(rij,10.0)*Power(xij,10.0) +
6766 40.0*Power(rij,12.0)*Power(xij,12.0)) -
6767 11.0*Power(xii,16.0)*Power(xij,16.0)*
6768 (4973277615075.0 - 3535546162050.0*Power(rij,2.0)*Power(xij,2.0) -
6769 536379590250.0*Power(rij,4.0)*Power(xij,4.0) -
6770 13554229500.0*Power(rij,6.0)*Power(xij,6.0) -
6771 104593770.0*Power(rij,8.0)*Power(xij,8.0) +
6772 3228.0*Power(rij,10.0)*Power(xij,10.0) + 88.0*Power(rij,12.0)*Power(xij,12.0)\
6773 ) - 231.0*Power(xii,26.0)*Power(xij,6.0)*
6774 (18199764136125.0 + 21741060926250.0*Power(rij,2.0)*Power(xij,2.0) -
6775 1022330706750.0*Power(rij,4.0)*Power(xij,4.0) +
6776 7759539900.0*Power(rij,6.0)*Power(xij,6.0) +
6777 118181130.0*Power(rij,8.0)*Power(xij,8.0) -
6778 676476.0*Power(rij,10.0)*Power(xij,10.0) +
6779 184.0*Power(rij,12.0)*Power(xij,12.0)) +
6780 11.0*Power(xii,20.0)*Power(xij,12.0)*
6781 (-382049092638675.0 + 278436232062450.0*Power(rij,2.0)*Power(xij,2.0) +
6782 6550223699250.0*Power(rij,4.0)*Power(xij,4.0) -
6783 160205642100.0*Power(rij,6.0)*Power(xij,6.0) -
6784 685586070.0*Power(rij,8.0)*Power(xij,8.0) +
6785 2934804.0*Power(rij,10.0)*Power(xij,10.0) +
6786 248.0*Power(rij,12.0)*Power(xij,12.0)) +
6787 33.0*Power(xii,30.0)*Power(xij,2.0)*
6788 (-1678609807875.0 - 26928208102950.0*Power(rij,2.0)*Power(xij,2.0) -
6789 2249376232950.0*Power(rij,4.0)*Power(xij,4.0) +
6790 75178632060.0*Power(rij,6.0)*Power(xij,6.0) -
6791 585984390.0*Power(rij,8.0)*Power(xij,8.0) +
6792 91908.0*Power(rij,10.0)*Power(xij,10.0) +
6793 1288.0*Power(rij,12.0)*Power(xij,12.0)) -
6794 22.0*Power(xii,32.0)*(41069369250.0 +
6795 3154641699825.0*Power(rij,2.0)*Power(xij,2.0) +
6796 2079992878425.0*Power(rij,4.0)*Power(xij,4.0) -
6797 38081936970.0*Power(rij,6.0)*Power(xij,6.0) +
6798 451881945.0*Power(rij,8.0)*Power(xij,8.0) -
6799 2730774.0*Power(rij,10.0)*Power(xij,10.0) +
6800 2116.0*Power(rij,12.0)*Power(xij,12.0)) +
6801 11.0*Power(xii,24.0)*Power(xij,8.0)*
6802 (-850395276446625.0 + 66465982229850.0*Power(rij,2.0)*Power(xij,2.0) -
6803 19593192890250.0*Power(rij,4.0)*Power(xij,4.0) +
6804 554675026500.0*Power(rij,6.0)*Power(xij,6.0) -
6805 2106396810.0*Power(rij,8.0)*Power(xij,8.0) -
6806 6122508.0*Power(rij,10.0)*Power(xij,10.0) +
6807 4232.0*Power(rij,12.0)*Power(xij,12.0)) -
6808 Power(xii,22.0)*Power(xij,10.0)*
6809 (9356245445772225.0 - 5281430969811150.0*Power(rij,2.0)*Power(xij,2.0) +
6810 186183223899750.0*Power(rij,4.0)*Power(xij,4.0) +
6811 1420112301300.0*Power(rij,6.0)*Power(xij,6.0) -
6812 30664882710.0*Power(rij,8.0)*Power(xij,8.0) +
6813 20787492.0*Power(rij,10.0)*Power(xij,10.0) +
6814 22472.0*Power(rij,12.0)*Power(xij,12.0))) +
6815 Power(E,2.0*rij*xii)*Power(xii,14.0)*
6816 (-302841.0*Power(xii,16.0)*Power(xij,16.0)*
6817 (-180642825.0 - 361285650.0*rij*xij +
6818 2000319750.0*Power(rij,2.0)*Power(xij,2.0) -
6819 1628451000.0*Power(rij,3.0)*Power(xij,3.0) +
6820 237921750.0*Power(rij,4.0)*Power(xij,4.0) +
6821 74332500.0*Power(rij,5.0)*Power(xij,5.0) -
6822 4689300.0*Power(rij,6.0)*Power(xij,6.0) -
6823 1690920.0*Power(rij,7.0)*Power(xij,7.0) -
6824 76510.0*Power(rij,8.0)*Power(xij,8.0) +
6825 5060.0*Power(rij,9.0)*Power(xij,9.0) +
6826 516.0*Power(rij,10.0)*Power(xij,10.0) + 12.0*Power(rij,11.0)*Power(xij,11.0)) \
6827 + Power(xii,10.0)*Power(xij,22.0)*(9356245445772225.0 +
6828 18712490891544450.0*rij*xij -
6829 731125804528350.0*Power(rij,2.0)*Power(xij,2.0) -
6830 1625385672949500.0*Power(rij,3.0)*Power(xij,3.0) -
6831 236158393259250.0*Power(rij,4.0)*Power(xij,4.0) +
6832 5491767689100.0*Power(rij,5.0)*Power(xij,5.0) +
6833 4566699591300.0*Power(rij,6.0)*Power(xij,6.0) +
6834 487444110120.0*Power(rij,7.0)*Power(xij,7.0) +
6835 19337484870.0*Power(rij,8.0)*Power(xij,8.0) -
6836 323590740.0*Power(rij,9.0)*Power(xij,9.0) -
6837 60077028.0*Power(rij,10.0)*Power(xij,10.0) -
6838 2073956.0*Power(rij,11.0)*Power(xij,11.0) -
6839 22472.0*Power(rij,12.0)*Power(xij,12.0)) +
6840 11.0*Power(xii,30.0)*Power(xij,2.0)*
6841 (2934225.0 + 5868450.0*rij*xij + 5868450.0*Power(rij,2.0)*Power(xij,2.0) +
6842 3912300.0*Power(rij,3.0)*Power(xij,3.0) +
6843 1956150.0*Power(rij,4.0)*Power(xij,4.0) +
6844 782460.0*Power(rij,5.0)*Power(xij,5.0) +
6845 260820.0*Power(rij,6.0)*Power(xij,6.0) +
6846 74520.0*Power(rij,7.0)*Power(xij,7.0) +
6847 18630.0*Power(rij,8.0)*Power(xij,8.0) +
6848 4140.0*Power(rij,9.0)*Power(xij,9.0) +
6849 828.0*Power(rij,10.0)*Power(xij,10.0) +
6850 316.0*Power(rij,11.0)*Power(xij,11.0) - 8.0*Power(rij,12.0)*Power(xij,12.0)) +
6851 12.0*Power(xij,32.0)*(75293843625.0 + 150587687250.0*rij*xij +
6852 101936280600.0*Power(rij,2.0)*Power(xij,2.0) +
6853 38226105225.0*Power(rij,3.0)*Power(xij,3.0) +
6854 9418025925.0*Power(rij,4.0)*Power(xij,4.0) +
6855 1651931820.0*Power(rij,5.0)*Power(xij,5.0) +
6856 214885440.0*Power(rij,6.0)*Power(xij,6.0) +
6857 21104820.0*Power(rij,7.0)*Power(xij,7.0) +
6858 1565190.0*Power(rij,8.0)*Power(xij,8.0) +
6859 86020.0*Power(rij,9.0)*Power(xij,9.0) +
6860 3344.0*Power(rij,10.0)*Power(xij,10.0) +
6861 83.0*Power(rij,11.0)*Power(xij,11.0) + Power(rij,12.0)*Power(xij,12.0)) -
6862 3.0*Power(xii,32.0)*(467775.0 + 935550.0*rij*xij +
6863 935550.0*Power(rij,2.0)*Power(xij,2.0) +
6864 623700.0*Power(rij,3.0)*Power(xij,3.0) +
6865 311850.0*Power(rij,4.0)*Power(xij,4.0) +
6866 124740.0*Power(rij,5.0)*Power(xij,5.0) +
6867 41580.0*Power(rij,6.0)*Power(xij,6.0) +
6868 11880.0*Power(rij,7.0)*Power(xij,7.0) +
6869 2970.0*Power(rij,8.0)*Power(xij,8.0) + 660.0*Power(rij,9.0)*Power(xij,9.0) +
6870 132.0*Power(rij,10.0)*Power(xij,10.0) +
6871 24.0*Power(rij,11.0)*Power(xij,11.0) + 4.0*Power(rij,12.0)*Power(xij,12.0)) -
6872 5313.0*Power(xii,14.0)*Power(xij,18.0)*
6873 (-151149574125.0 - 302299148250.0*rij*xij +
6874 576472530150.0*Power(rij,2.0)*Power(xij,2.0) -
6875 135809338500.0*Power(rij,3.0)*Power(xij,3.0) -
6876 35042955750.0*Power(rij,4.0)*Power(xij,4.0) +
6877 3509064900.0*Power(rij,5.0)*Power(xij,5.0) +
6878 1148395500.0*Power(rij,6.0)*Power(xij,6.0) +
6879 56491560.0*Power(rij,7.0)*Power(xij,7.0) -
6880 5138310.0*Power(rij,8.0)*Power(xij,8.0) -
6881 658860.0*Power(rij,9.0)*Power(xij,9.0) -
6882 23100.0*Power(rij,10.0)*Power(xij,10.0) -
6883 60.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
6884 5313.0*Power(xii,18.0)*Power(xij,14.0)*
6885 (234812925.0 + 469625850.0*rij*xij -
6886 7319971350.0*Power(rij,2.0)*Power(xij,2.0) +
6887 15287913000.0*Power(rij,3.0)*Power(xij,3.0) -
6888 9311847750.0*Power(rij,4.0)*Power(xij,4.0) +
6889 1199718900.0*Power(rij,5.0)*Power(xij,5.0) +
6890 331688700.0*Power(rij,6.0)*Power(xij,6.0) -
6891 20887560.0*Power(rij,7.0)*Power(xij,7.0) -
6892 5771670.0*Power(rij,8.0)*Power(xij,8.0) -
6893 186700.0*Power(rij,9.0)*Power(xij,9.0) +
6894 12676.0*Power(rij,10.0)*Power(xij,10.0) +
6895 772.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) +
6896 11.0*Power(xii,2.0)*Power(xij,30.0)*
6897 (5035829423625.0 + 10071658847250.0*rij*xij +
6898 6309283399650.0*Power(rij,2.0)*Power(xij,2.0) +
6899 2141207006400.0*Power(rij,3.0)*Power(xij,3.0) +
6900 470569487850.0*Power(rij,4.0)*Power(xij,4.0) +
6901 72643847220.0*Power(rij,5.0)*Power(xij,5.0) +
6902 8195882940.0*Power(rij,6.0)*Power(xij,6.0) +
6903 686086200.0*Power(rij,7.0)*Power(xij,7.0) +
6904 42423210.0*Power(rij,8.0)*Power(xij,8.0) +
6905 1887540.0*Power(rij,9.0)*Power(xij,9.0) +
6906 56964.0*Power(rij,10.0)*Power(xij,10.0) +
6907 1028.0*Power(rij,11.0)*Power(xij,11.0) + 8.0*Power(rij,12.0)*Power(xij,12.0)) \
6908 + 11.0*Power(xii,28.0)*Power(xij,4.0)*
6909 (-32276475.0 - 64552950.0*rij*xij -
6910 64552950.0*Power(rij,2.0)*Power(xij,2.0) -
6911 43035300.0*Power(rij,3.0)*Power(xij,3.0) -
6912 21517650.0*Power(rij,4.0)*Power(xij,4.0) -
6913 8607060.0*Power(rij,5.0)*Power(xij,5.0) -
6914 2869020.0*Power(rij,6.0)*Power(xij,6.0) -
6915 819720.0*Power(rij,7.0)*Power(xij,7.0) -
6916 204930.0*Power(rij,8.0)*Power(xij,8.0) -
6917 1860.0*Power(rij,9.0)*Power(xij,9.0) -
6918 39684.0*Power(rij,10.0)*Power(xij,10.0) +
6919 892.0*Power(rij,11.0)*Power(xij,11.0) + 88.0*Power(rij,12.0)*Power(xij,12.0)) \
6920 - 11.0*Power(xii,4.0)*Power(xij,28.0)*
6921 (-72900991288125.0 - 145801982576250.0*rij*xij -
6922 80784624308850.0*Power(rij,2.0)*Power(xij,2.0) -
6923 23245459914600.0*Power(rij,3.0)*Power(xij,3.0) -
6924 4159985756850.0*Power(rij,4.0)*Power(xij,4.0) -
6925 494834224500.0*Power(rij,5.0)*Power(xij,5.0) -
6926 39205158300.0*Power(rij,6.0)*Power(xij,6.0) -
6927 1884983400.0*Power(rij,7.0)*Power(xij,7.0) -
6928 28675890.0*Power(rij,8.0)*Power(xij,8.0) +
6929 2810460.0*Power(rij,9.0)*Power(xij,9.0) +
6930 220380.0*Power(rij,10.0)*Power(xij,10.0) +
6931 6940.0*Power(rij,11.0)*Power(xij,11.0) + 88.0*Power(rij,12.0)*Power(xij,12.0)) \
6932 - 253.0*Power(xii,20.0)*Power(xij,12.0)*
6933 (559926675.0 + 1119853350.0*rij*xij +
6934 3427429950.0*Power(rij,2.0)*Power(xij,2.0) -
6935 12970692000.0*Power(rij,3.0)*Power(xij,3.0) +
6936 23320851750.0*Power(rij,4.0)*Power(xij,4.0) -
6937 13185792900.0*Power(rij,5.0)*Power(xij,5.0) +
6938 1937344500.0*Power(rij,6.0)*Power(xij,6.0) +
6939 361775160.0*Power(rij,7.0)*Power(xij,7.0) -
6940 29808090.0*Power(rij,8.0)*Power(xij,8.0) -
6941 4972020.0*Power(rij,9.0)*Power(xij,9.0) -
6942 82164.0*Power(rij,10.0)*Power(xij,10.0) +
6943 7372.0*Power(rij,11.0)*Power(xij,11.0) + 184.0*Power(rij,12.0)*Power(xij,12.0)\
6944 ) + 253.0*Power(xii,12.0)*Power(xij,20.0)*
6945 (16610830114725.0 + 33221660229450.0*rij*xij -
6946 20875221224550.0*Power(rij,2.0)*Power(xij,2.0) -
6947 3146812861500.0*Power(rij,3.0)*Power(xij,3.0) +
6948 851877951750.0*Power(rij,4.0)*Power(xij,4.0) +
6949 198752607900.0*Power(rij,5.0)*Power(xij,5.0) +
6950 7084797300.0*Power(rij,6.0)*Power(xij,6.0) -
6951 1609056360.0*Power(rij,7.0)*Power(xij,7.0) -
6952 202775850.0*Power(rij,8.0)*Power(xij,8.0) -
6953 8506260.0*Power(rij,9.0)*Power(xij,9.0) -
6954 11988.0*Power(rij,10.0)*Power(xij,10.0) +
6955 9004.0*Power(rij,11.0)*Power(xij,11.0) + 184.0*Power(rij,12.0)*Power(xij,12.0)\
6956 ) + 11.0*Power(xii,6.0)*Power(xij,26.0)*
6957 (382195046858625.0 + 764390093717250.0*rij*xij +
6958 339943373050050.0*Power(rij,2.0)*Power(xij,2.0) +
6959 69274467523800.0*Power(rij,3.0)*Power(xij,3.0) +
6960 6748128698850.0*Power(rij,4.0)*Power(xij,4.0) +
6961 32703958980.0*Power(rij,5.0)*Power(xij,5.0) -
6962 76163873940.0*Power(rij,6.0)*Power(xij,6.0) -
6963 10307979000.0*Power(rij,7.0)*Power(xij,7.0) -
6964 715957110.0*Power(rij,8.0)*Power(xij,8.0) -
6965 28034700.0*Power(rij,9.0)*Power(xij,9.0) -
6966 490332.0*Power(rij,10.0)*Power(xij,10.0) +
6967 3236.0*Power(rij,11.0)*Power(xij,11.0) + 200.0*Power(rij,12.0)*Power(xij,12.0)\
6968 ) - 11.0*Power(xii,26.0)*Power(xij,6.0)*
6969 (-225935325.0 - 451870650.0*rij*xij -
6970 451870650.0*Power(rij,2.0)*Power(xij,2.0) -
6971 301247100.0*Power(rij,3.0)*Power(xij,3.0) -
6972 150623550.0*Power(rij,4.0)*Power(xij,4.0) -
6973 60249420.0*Power(rij,5.0)*Power(xij,5.0) -
6974 20083140.0*Power(rij,6.0)*Power(xij,6.0) -
6975 10034280.0*Power(rij,7.0)*Power(xij,7.0) +
6976 5009850.0*Power(rij,8.0)*Power(xij,8.0) -
6977 2655660.0*Power(rij,9.0)*Power(xij,9.0) -
6978 3228.0*Power(rij,10.0)*Power(xij,10.0) +
6979 14564.0*Power(rij,11.0)*Power(xij,11.0) +
6980 200.0*Power(rij,12.0)*Power(xij,12.0)) -
6981 11.0*Power(xii,24.0)*Power(xij,8.0)*
6982 (1129676625.0 + 2259353250.0*rij*xij +
6983 2259353250.0*Power(rij,2.0)*Power(xij,2.0) +
6984 1506235500.0*Power(rij,3.0)*Power(xij,3.0) +
6985 753117750.0*Power(rij,4.0)*Power(xij,4.0) +
6986 142524900.0*Power(rij,5.0)*Power(xij,5.0) +
6987 576582300.0*Power(rij,6.0)*Power(xij,6.0) -
6988 371337480.0*Power(rij,7.0)*Power(xij,7.0) +
6989 104593770.0*Power(rij,8.0)*Power(xij,8.0) +
6990 4412820.0*Power(rij,9.0)*Power(xij,9.0) -
6991 946380.0*Power(rij,10.0)*Power(xij,10.0) -
6992 40060.0*Power(rij,11.0)*Power(xij,11.0) +
6993 248.0*Power(rij,12.0)*Power(xij,12.0)) +
6994 11.0*Power(xii,8.0)*Power(xij,24.0)*
6995 (850395276446625.0 + 1700790552893250.0*rij*xij +
6996 456562279451250.0*Power(rij,2.0)*Power(xij,2.0) +
6997 7318865200500.0*Power(rij,3.0)*Power(xij,3.0) -
6998 14845301701650.0*Power(rij,4.0)*Power(xij,4.0) -
6999 2836692846540.0*Power(rij,5.0)*Power(xij,5.0) -
7000 225535896180.0*Power(rij,6.0)*Power(xij,6.0) -
7001 3440183400.0*Power(rij,7.0)*Power(xij,7.0) +
7002 903763890.0*Power(rij,8.0)*Power(xij,8.0) +
7003 85185060.0*Power(rij,9.0)*Power(xij,9.0) +
7004 3447876.0*Power(rij,10.0)*Power(xij,10.0) +
7005 62132.0*Power(rij,11.0)*Power(xij,11.0) +
7006 248.0*Power(rij,12.0)*Power(xij,12.0)) +
7007 Power(xii,22.0)*Power(xij,10.0)*
7008 (47220482925.0 + 94440965850.0*rij*xij +
7009 94440965850.0*Power(rij,2.0)*Power(xij,2.0) +
7010 81293058000.0*Power(rij,3.0)*Power(xij,3.0) -
7011 96846576750.0*Power(rij,4.0)*Power(xij,4.0) +
7012 251088106500.0*Power(rij,5.0)*Power(xij,5.0) -
7013 149096524500.0*Power(rij,6.0)*Power(xij,6.0) +
7014 28719531720.0*Power(rij,7.0)*Power(xij,7.0) +
7015 2958986250.0*Power(rij,8.0)*Power(xij,8.0) -
7016 358685580.0*Power(rij,9.0)*Power(xij,9.0) -
7017 32282844.0*Power(rij,10.0)*Power(xij,10.0) -
7018 73948.0*Power(rij,11.0)*Power(xij,11.0) +
7019 22472.0*Power(rij,12.0)*Power(xij,12.0))))/
7020 (1.403325e6*Power(E,2.0*rij*(xii + xij))*Power(rij,2.0)*
7021 Power(Power(xii,2.0) - Power(xij,2.0),23.0))
7022 ;
7023 }
7024 return S;
7025 }
7026
7027 double DSlater_6S_1S(double rij,double xii,double xij)
7028 {
7029 return DSlater_1S_6S(rij,xij,xii);
7030 }
7031
7032 double DSlater_6S_2S(double rij,double xii,double xij)
7033 {
7034 return DSlater_2S_6S(rij,xij,xii);
7035 }
7036
7037 double DSlater_6S_3S(double rij,double xii,double xij)
7038 {
7039 return DSlater_3S_6S(rij,xij,xii);
7040 }
7041
7042 double DSlater_6S_4S(double rij,double xii,double xij)
7043 {
7044 return DSlater_4S_6S(rij,xij,xii);
7045 }
7046
7047 double DSlater_6S_5S(double rij,double xii,double xij)
7048 {
7049 return DSlater_5S_6S(rij,xij,xii);
7050 }
7051
7052 double Nuclear_1S(double rij,double xii)
7053 {
7054 double S;
7055
7056 S =
7057 1.0/rij - (1.0 + rij*xii)/(Power(E,2.0*rij*xii)*rij)
7058 ;
7059 return S;
7060 }
7061
7062 double Nuclear_2S(double rij,double xii)
7063 {
7064 double S;
7065
7066 S =
7067 1.0/rij - (6.0 + 9.0*rij*xii + 6.0*Power(rij,2.0)*Power(xii,2.0) +
7068 2.0*Power(rij,3.0)*Power(xii,3.0))/(6.*Power(E,2.0*rij*xii)*rij)
7069 ;
7070 return S;
7071 }
7072
7073 double Nuclear_3S(double rij,double xii)
7074 {
7075 double S;
7076
7077 S =
7078 1.0/rij - (45.0 + 75.0*rij*xii + 60.0*Power(rij,2.0)*Power(xii,2.0) +
7079 30.0*Power(rij,3.0)*Power(xii,3.0) + 10.0*Power(rij,4.0)*Power(xii,4.0) +
7080 2.0*Power(rij,5.0)*Power(xii,5.0))/(45.*Power(E,2.0*rij*xii)*rij)
7081 ;
7082 return S;
7083 }
7084
7085 double Nuclear_4S(double rij,double xii)
7086 {
7087 double S;
7088
7089 S =
7090 1.0/rij - (1260.0 + 2205.0*rij*xii + 1890.0*Power(rij,2.0)*Power(xii,2.0) +
7091 1050.0*Power(rij,3.0)*Power(xii,3.0) + 420.0*Power(rij,4.0)*Power(xii,4.0) +
7092 126.0*Power(rij,5.0)*Power(xii,5.0) + 28.0*Power(rij,6.0)*Power(xii,6.0) +
7093 4.0*Power(rij,7.0)*Power(xii,7.0))/(1260.*Power(E,2.0*rij*xii)*rij)
7094 ;
7095 return S;
7096 }
7097
7098 double Nuclear_5S(double rij,double xii)
7099 {
7100 double S;
7101
7102 S =
7103 1.0/rij - (14175.0 + 25515.0*rij*xii + 22680.0*Power(rij,2.0)*Power(xii,2.0) +
7104 13230.0*Power(rij,3.0)*Power(xii,3.0) + 5670.0*Power(rij,4.0)*Power(xii,4.0) +
7105 1890.0*Power(rij,5.0)*Power(xii,5.0) + 504.0*Power(rij,6.0)*Power(xii,6.0) +
7106 108.0*Power(rij,7.0)*Power(xii,7.0) + 18.0*Power(rij,8.0)*Power(xii,8.0) +
7107 2.0*Power(rij,9.0)*Power(xii,9.0))/(14175.*Power(E,2.0*rij*xii)*rij)
7108 ;
7109 return S;
7110 }
7111
7112 double Nuclear_6S(double rij,double xii)
7113 {
7114 double S;
7115
7116 S =
7117 1.0/rij - (935550.0 + 1715175.0*rij*xii + 1559250.0*Power(rij,2.0)*Power(xii,2.0) +
7118 935550.0*Power(rij,3.0)*Power(xii,3.0) + 415800.0*Power(rij,4.0)*Power(xii,4.0) +
7119 145530.0*Power(rij,5.0)*Power(xii,5.0) + 41580.0*Power(rij,6.0)*Power(xii,6.0) +
7120 9900.0*Power(rij,7.0)*Power(xii,7.0) + 1980.0*Power(rij,8.0)*Power(xii,8.0) +
7121 330.0*Power(rij,9.0)*Power(xii,9.0) + 44.0*Power(rij,10.0)*Power(xii,10.0) +
7122 4.0*Power(rij,11.0)*Power(xii,11.0))/(935550.*Power(E,2.0*rij*xii)*rij)
7123 ;
7124 return S;
7125 }
7126
7127 double DNuclear_1S(double rij,double xii)
7128 {
7129 double S;
7130
7131 S =
7132 Power(rij,-2.0) - (1.0 + 2.0*rij*xii + 2.0*Power(rij,2.0)*Power(xii,2.0))/
7133 (Power(E,2.0*rij*xii)*Power(rij,2.0))
7134 ;
7135 return S;
7136 }
7137
7138 double DNuclear_2S(double rij,double xii)
7139 {
7140 double S;
7141
7142 S =
7143 Power(rij,-2.0) - (3.0 + 6.0*rij*xii + 6.0*Power(rij,2.0)*Power(xii,2.0) +
7144 4.0*Power(rij,3.0)*Power(xii,3.0) + 2.0*Power(rij,4.0)*Power(xii,4.0))/
7145 (3.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7146 ;
7147 return S;
7148 }
7149
7150 double DNuclear_3S(double rij,double xii)
7151 {
7152 double S;
7153
7154 S =
7155 Power(rij,-2.0) - (45.0 + 90.0*rij*xii + 90.0*Power(rij,2.0)*Power(xii,2.0) +
7156 60.0*Power(rij,3.0)*Power(xii,3.0) + 30.0*Power(rij,4.0)*Power(xii,4.0) +
7157 12.0*Power(rij,5.0)*Power(xii,5.0) + 4.0*Power(rij,6.0)*Power(xii,6.0))/
7158 (45.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7159 ;
7160 return S;
7161 }
7162
7163 double DNuclear_4S(double rij,double xii)
7164 {
7165 double S;
7166
7167 S =
7168 Power(rij,-2.0) - (315.0 + 630.0*rij*xii + 630.0*Power(rij,2.0)*Power(xii,2.0) +
7169 420.0*Power(rij,3.0)*Power(xii,3.0) + 210.0*Power(rij,4.0)*Power(xii,4.0) +
7170 84.0*Power(rij,5.0)*Power(xii,5.0) + 28.0*Power(rij,6.0)*Power(xii,6.0) +
7171 8.0*Power(rij,7.0)*Power(xii,7.0) + 2.0*Power(rij,8.0)*Power(xii,8.0))/
7172 (315.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7173 ;
7174 return S;
7175 }
7176
7177 double DNuclear_5S(double rij,double xii)
7178 {
7179 double S;
7180
7181 S =
7182 Power(rij,-2.0) - (14175.0 + 28350.0*rij*xii + 28350.0*Power(rij,2.0)*Power(xii,2.0) +
7183 18900.0*Power(rij,3.0)*Power(xii,3.0) + 9450.0*Power(rij,4.0)*Power(xii,4.0) +
7184 3780.0*Power(rij,5.0)*Power(xii,5.0) + 1260.0*Power(rij,6.0)*Power(xii,6.0) +
7185 360.0*Power(rij,7.0)*Power(xii,7.0) + 90.0*Power(rij,8.0)*Power(xii,8.0) +
7186 20.0*Power(rij,9.0)*Power(xii,9.0) + 4.0*Power(rij,10.0)*Power(xii,10.0))/
7187 (14175.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7188 ;
7189 return S;
7190 }
7191
7192 double DNuclear_6S(double rij,double xii)
7193 {
7194 double S;
7195
7196 S =
7197 Power(rij,-2.0) - (467775.0 + 935550.0*rij*xii +
7198 935550.0*Power(rij,2.0)*Power(xii,2.0) + 623700.0*Power(rij,3.0)*Power(xii,3.0) +
7199 311850.0*Power(rij,4.0)*Power(xii,4.0) + 124740.0*Power(rij,5.0)*Power(xii,5.0) +
7200 41580.0*Power(rij,6.0)*Power(xii,6.0) + 11880.0*Power(rij,7.0)*Power(xii,7.0) +
7201 2970.0*Power(rij,8.0)*Power(xii,8.0) + 660.0*Power(rij,9.0)*Power(xii,9.0) +
7202 132.0*Power(rij,10.0)*Power(xii,10.0) + 24.0*Power(rij,11.0)*Power(xii,11.0) +
7203 4.0*Power(rij,12.0)*Power(xii,12.0))/(467775.*Power(E,2.0*rij*xii)*Power(rij,2.0))
7204 ;
7205 return S;
7206 }
7207
7208 t_slater_SS_func (*Slater_SS[SLATER_MAX][SLATER_MAX]) = {
7209 { Slater_1S_1S, Slater_2S_1S, Slater_3S_1S, Slater_4S_1S, Slater_5S_1S, Slater_6S_1S},
7210 { Slater_1S_2S, Slater_2S_2S, Slater_3S_2S, Slater_4S_2S, Slater_5S_2S, Slater_6S_2S},
7211 { Slater_1S_3S, Slater_2S_3S, Slater_3S_3S, Slater_4S_3S, Slater_5S_3S, Slater_6S_3S},
7212 { Slater_1S_4S, Slater_2S_4S, Slater_3S_4S, Slater_4S_4S, Slater_5S_4S, Slater_6S_4S},
7213 { Slater_1S_5S, Slater_2S_5S, Slater_3S_5S, Slater_4S_5S, Slater_5S_5S, Slater_6S_5S},
7214 { Slater_1S_6S, Slater_2S_6S, Slater_3S_6S, Slater_4S_6S, Slater_5S_6S, Slater_6S_6S}
7215 };
7216
7217 t_slater_SS_func (*DSlater_SS[SLATER_MAX][SLATER_MAX]) = {
7218 { DSlater_1S_1S, DSlater_2S_1S, DSlater_3S_1S, DSlater_4S_1S, DSlater_5S_1S, DSlater_6S_1S},
7219 { DSlater_1S_2S, DSlater_2S_2S, DSlater_3S_2S, DSlater_4S_2S, DSlater_5S_2S, DSlater_6S_2S},
7220 { DSlater_1S_3S, DSlater_2S_3S, DSlater_3S_3S, DSlater_4S_3S, DSlater_5S_3S, DSlater_6S_3S},
7221 { DSlater_1S_4S, DSlater_2S_4S, DSlater_3S_4S, DSlater_4S_4S, DSlater_5S_4S, DSlater_6S_4S},
7222 { DSlater_1S_5S, DSlater_2S_5S, DSlater_3S_5S, DSlater_4S_5S, DSlater_5S_5S, DSlater_6S_5S},
7223 { DSlater_1S_6S, DSlater_2S_6S, DSlater_3S_6S, DSlater_4S_6S, DSlater_5S_6S, DSlater_6S_6S}
7224 };
7225
7226 t_slater_NS_func (*Slater_NS[SLATER_MAX]) = {
7227 Nuclear_1S, Nuclear_2S, Nuclear_3S, Nuclear_4S, Nuclear_5S, Nuclear_6S
7228 };
7229
7230 t_slater_NS_func (*DSlater_NS[SLATER_MAX]) = {
7231 DNuclear_1S, DNuclear_2S, DNuclear_3S, DNuclear_4S, DNuclear_5S, DNuclear_6S
7232 };
7233
got merge a long time ago