source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i0101.cc

Candidate_v1.6.1
Last change on this file was 860145, checked in by Frederik Heber <heber@…>, 8 years ago

Merge commit '0b990dfaa8c6007a996d030163a25f7f5fc8a7e7' as 'ThirdParty/mpqc_open'

  • Property mode set to 100644
File size: 2.4 KB
Line 
1#include <chemistry/qc/oint3/build.h>
2int sc::BuildIntV3::i0101(){
3/* the cost is 71 */
4double t1;
5double t2;
6double t3;
7double t4;
8double t5;
9double t6;
10double t7;
11double t8;
12double t9;
13double t10;
14double t11;
15double t12;
16double t13;
17double t14;
18double t15;
19double t16;
20double t17;
21double t18;
22double t19;
23double t20;
24t1=0.5*int_v_ooze;
25double***restrictxx int_v_list0=int_v_list(0);
26double**restrictxx int_v_list00=int_v_list0[0];
27double*restrictxx int_v_list001=int_v_list00[1];
28t2=t1*int_v_list001[0];
29t1=int_v_W0-int_v_p340;
30double*restrictxx int_v_list002=int_v_list00[2];
31t3=t1*int_v_list002[0];
32t4=int_v_p340-int_v_r30;
33t5=t4*int_v_list001[0];
34t6=t5+t3;
35t3=int_v_W0-int_v_p120;
36t5=t3*t6;
37t7=t5+t2;
38t5=t1*int_v_list001[0];
39double*restrictxx int_v_list000=int_v_list00[0];
40t1=t4*int_v_list000[0];
41t4=t1+t5;
42double**restrictxx int_v_list01=int_v_list0[1];
43double*restrictxx int_v_list010=int_v_list01[0];
44int_v_list010[2]=t4;
45t1=int_v_p120-int_v_r10;
46t5=t1*t4;
47t8=t5+t7;
48double***restrictxx int_v_list1=int_v_list(1);
49double**restrictxx int_v_list11=int_v_list1[1];
50double*restrictxx int_v_list110=int_v_list11[0];
51int_v_list110[8]=t8;
52t5=int_v_W2-int_v_p342;
53t7=t5*int_v_list002[0];
54t9=int_v_p342-int_v_r32;
55t10=t9*int_v_list001[0];
56t11=t10+t7;
57t7=t3*t11;
58t10=t5*int_v_list001[0];
59t5=t9*int_v_list000[0];
60t9=t5+t10;
61int_v_list010[1]=t9;
62t5=t1*t9;
63t10=t5+t7;
64int_v_list110[7]=t10;
65t5=int_v_W1-int_v_p341;
66t7=t5*int_v_list002[0];
67t12=int_v_p341-int_v_r31;
68t13=t12*int_v_list001[0];
69t14=t13+t7;
70t7=t3*t14;
71t13=t5*int_v_list001[0];
72t5=t12*int_v_list000[0];
73t12=t5+t13;
74int_v_list010[0]=t12;
75t5=t1*t12;
76t13=t5+t7;
77int_v_list110[6]=t13;
78t5=int_v_W2-int_v_p122;
79t7=t5*t6;
80t15=int_v_p122-int_v_r12;
81t16=t15*t4;
82t17=t16+t7;
83int_v_list110[5]=t17;
84t7=t5*t11;
85t16=t2+t7;
86t7=t15*t9;
87t18=t7+t16;
88int_v_list110[4]=t18;
89t7=t5*t14;
90t16=t15*t12;
91t19=t16+t7;
92int_v_list110[3]=t19;
93t7=int_v_W1-int_v_p121;
94t16=t6*t7;
95t6=int_v_p121-int_v_r11;
96t20=t6*t4;
97t4=t20+t16;
98int_v_list110[2]=t4;
99t16=t7*t11;
100t11=t6*t9;
101t9=t11+t16;
102int_v_list110[1]=t9;
103t11=t7*t14;
104t14=t2+t11;
105t2=t6*t12;
106t11=t2+t14;
107int_v_list110[0]=t11;
108t2=t3*int_v_list001[0];
109t3=t1*int_v_list000[0];
110t1=t3+t2;
111double**restrictxx int_v_list10=int_v_list1[0];
112double*restrictxx int_v_list100=int_v_list10[0];
113int_v_list100[2]=t1;
114t2=t5*int_v_list001[0];
115t3=t15*int_v_list000[0];
116t5=t3+t2;
117int_v_list100[1]=t5;
118t2=t7*int_v_list001[0];
119t3=t6*int_v_list000[0];
120t6=t3+t2;
121int_v_list100[0]=t6;
122return 1;}
Note: See TracBrowser for help on using the repository browser.