source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i1111.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: 1.8 KB
Line 
1#include <chemistry/qc/oint3/build.h>
2int sc::BuildIntV3::i1111(){
3/* the cost is 62 */
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;
20t1=0.5*int_v_ooze;
21double***restrictxx int_v_list0=int_v_list(0);
22double**restrictxx int_v_list00=int_v_list0[0];
23double*restrictxx int_v_list001=int_v_list00[1];
24t2=t1*int_v_list001[0];
25t1=int_v_W0-int_v_p340;
26double*restrictxx int_v_list002=int_v_list00[2];
27t3=t1*int_v_list002[0];
28t4=int_v_p340-int_v_r30;
29t5=t4*int_v_list001[0];
30t6=t5+t3;
31t3=int_v_W0-int_v_p120;
32t5=t3*t6;
33t7=t5+t2;
34t5=t1*int_v_list001[0];
35double*restrictxx int_v_list000=int_v_list00[0];
36t1=t4*int_v_list000[0];
37t4=t1+t5;
38t1=int_v_p120-int_v_r10;
39t5=t1*t4;
40t8=t5+t7;
41double***restrictxx int_v_list1=int_v_list(1);
42double**restrictxx int_v_list11=int_v_list1[1];
43double*restrictxx int_v_list110=int_v_list11[0];
44int_v_list110[8]=t8;
45t5=int_v_W2-int_v_p342;
46t7=t5*int_v_list002[0];
47t9=int_v_p342-int_v_r32;
48t10=t9*int_v_list001[0];
49t11=t10+t7;
50t7=t3*t11;
51t10=t5*int_v_list001[0];
52t5=t9*int_v_list000[0];
53t9=t5+t10;
54t5=t1*t9;
55t10=t5+t7;
56int_v_list110[7]=t10;
57t5=int_v_W1-int_v_p341;
58t7=t5*int_v_list002[0];
59t12=int_v_p341-int_v_r31;
60t13=t12*int_v_list001[0];
61t14=t13+t7;
62t7=t3*t14;
63t3=t5*int_v_list001[0];
64t5=t12*int_v_list000[0];
65t12=t5+t3;
66t3=t1*t12;
67t1=t3+t7;
68int_v_list110[6]=t1;
69t3=int_v_W2-int_v_p122;
70t5=t3*t6;
71t7=int_v_p122-int_v_r12;
72t13=t7*t4;
73t15=t13+t5;
74int_v_list110[5]=t15;
75t5=t3*t11;
76t13=t2+t5;
77t5=t7*t9;
78t16=t5+t13;
79int_v_list110[4]=t16;
80t5=t3*t14;
81t3=t7*t12;
82t7=t3+t5;
83int_v_list110[3]=t7;
84t3=int_v_W1-int_v_p121;
85t5=t6*t3;
86t6=int_v_p121-int_v_r11;
87t13=t4*t6;
88t4=t13+t5;
89int_v_list110[2]=t4;
90t5=t3*t11;
91t11=t6*t9;
92t9=t11+t5;
93int_v_list110[1]=t9;
94t5=t3*t14;
95t3=t2+t5;
96t2=t6*t12;
97t5=t2+t3;
98int_v_list110[0]=t5;
99return 1;}
Note: See TracBrowser for help on using the repository browser.