source: ThirdParty/mpqc_open/src/lib/chemistry/qc/oint3/i0200.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::i0200(){
3/* the cost is 51 */
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;
17t1=int_v_zeta34*int_v_ooze;
18t2=int_v_oo2zeta12*t1;
19t1=(-1)*t2;
20double***restrictxx int_v_list0=int_v_list(0);
21double**restrictxx int_v_list00=int_v_list0[0];
22double*restrictxx int_v_list001=int_v_list00[1];
23t2=t1*int_v_list001[0];
24double*restrictxx int_v_list000=int_v_list00[0];
25t1=int_v_oo2zeta12*int_v_list000[0];
26t3=t1+t2;
27t1=int_v_W0-int_v_p120;
28double*restrictxx int_v_list002=int_v_list00[2];
29t2=t1*int_v_list002[0];
30t4=int_v_p120-int_v_r10;
31t5=t4*int_v_list001[0];
32t6=t5+t2;
33t2=t1*t6;
34t5=t2+t3;
35t2=t1*int_v_list001[0];
36t1=t4*int_v_list000[0];
37t7=t1+t2;
38double***restrictxx int_v_list1=int_v_list(1);
39double**restrictxx int_v_list10=int_v_list1[0];
40double*restrictxx int_v_list100=int_v_list10[0];
41int_v_list100[2]=t7;
42t1=t4*t7;
43t2=t1+t5;
44double***restrictxx int_v_list2=int_v_list(2);
45double**restrictxx int_v_list20=int_v_list2[0];
46double*restrictxx int_v_list200=int_v_list20[0];
47int_v_list200[5]=t2;
48t1=int_v_W2-int_v_p122;
49t4=t1*t6;
50t5=int_v_p122-int_v_r12;
51t8=t5*t7;
52t9=t8+t4;
53int_v_list200[4]=t9;
54t4=int_v_W1-int_v_p121;
55t8=t6*t4;
56t6=int_v_p121-int_v_r11;
57t10=t6*t7;
58t7=t10+t8;
59int_v_list200[3]=t7;
60t8=t1*int_v_list002[0];
61t10=t5*int_v_list001[0];
62t11=t10+t8;
63t8=t1*t11;
64t10=t3+t8;
65t8=t1*int_v_list001[0];
66t11=t5*int_v_list000[0];
67t12=t11+t8;
68int_v_list100[1]=t12;
69t8=t5*t12;
70t11=t8+t10;
71int_v_list200[2]=t11;
72t8=int_v_list002[0]*t4;
73t10=t6*int_v_list001[0];
74t12=t10+t8;
75t8=t1*t12;
76t1=int_v_list001[0]*t4;
77t10=t6*int_v_list000[0];
78t13=t10+t1;
79int_v_list100[0]=t13;
80t1=t5*t13;
81t5=t1+t8;
82int_v_list200[1]=t5;
83t1=t4*t12;
84t4=t3+t1;
85t1=t6*t13;
86t3=t1+t4;
87int_v_list200[0]=t3;
88return 1;}
Note: See TracBrowser for help on using the repository browser.