i0222.cc

大型并行量子化学软件；支持密度泛函（DFT）。可以进行各种量子化学计算。支持CHARMM并行计算。非常具有应用价值。

#include <chemistry/qc/oint3/build.h>
int sc::BuildIntV3::i0222(){
/* the cost is 483 */
double t1;
double t2;
double t3;
double t4;
double t5;
double t6;
double t7;
double t8;
double t9;
double t10;
double t11;
double t12;
double t13;
double t14;
double t15;
double t16;
double t17;
double t18;
double t19;
double t20;
double t21;
double t22;
double t23;
double t24;
double t25;
double t26;
double t27;
double t28;
double t29;
double t30;
double t31;
double t32;
double t33;
double t34;
double t35;
double t36;
double t37;
double t38;
double t39;
double t40;
double t41;
double t42;
double t43;
double t44;
double t45;
double t46;
double t47;
double t48;
double t49;
double t50;
double t51;
double t52;
double t53;
double t54;
double t55;
double t56;
double t57;
double t58;
double t59;
double t60;
double t61;
double t62;
double t63;
double t64;
double t65;
double t66;
double t67;
double t68;
double t69;
double t70;
double t71;
double t72;
double t73;
double t74;
double t75;
double t76;
double t77;
t1=0.5*int_v_ooze;
double***restrictxx int_v_list0=int_v_list(0);
double**restrictxx int_v_list00=int_v_list0[0];
double*restrictxx int_v_list002=int_v_list00[2];
t2=t1*int_v_list002[0];
t3=int_v_W0-int_v_p340;
double*restrictxx int_v_list003=int_v_list00[3];
t4=t3*int_v_list003[0];
t5=int_v_p340-int_v_r30;
t6=t5*int_v_list002[0];
t7=t6+t4;
t4=int_v_W0-int_v_p120;
t6=t4*t7;
t8=t6+t2;
t6=t3*int_v_list002[0];
double*restrictxx int_v_list001=int_v_list00[1];
t9=t5*int_v_list001[0];
t10=t9+t6;
t6=int_v_p120-int_v_r10;
t9=t6*t10;
t11=t9+t8;
t8=int_v_ooze*2;
t9=0.5*t8;
t8=t9*t11;
t12=int_v_zeta12*int_v_ooze;
t13=int_v_oo2zeta34*t12;
t12=t13*(-1);
t13=t12*int_v_list002[0];
t14=int_v_oo2zeta34*int_v_list001[0];
t15=t14+t13;
t13=t3*t7;
t14=t13+t15;
t13=t5*t10;
t16=t13+t14;
t13=int_v_zeta34*int_v_ooze;
t14=int_v_oo2zeta12*t13;
t13=(-1)*t14;
t14=t13*t16;
t17=t14+t8;
t8=t12*int_v_list001[0];
double*restrictxx int_v_list000=int_v_list00[0];
t18=int_v_oo2zeta34*int_v_list000[0];
t19=t18+t8;
t8=t3*t10;
t18=t8+t19;
t8=t3*int_v_list001[0];
t20=t5*int_v_list000[0];
t21=t20+t8;
t8=t5*t21;
t20=t8+t18;
double**restrictxx int_v_list02=int_v_list0[2];
double*restrictxx int_v_list020=int_v_list02[0];
int_v_list020[5]=t20;
t8=int_v_oo2zeta12*t20;
t18=t8+t17;
t17=t9*t7;
t22=t12*int_v_list003[0];
t12=int_v_oo2zeta34*int_v_list002[0];
t23=t12+t22;
double*restrictxx int_v_list004=int_v_list00[4];
t12=t3*int_v_list004[0];
t22=t5*int_v_list003[0];
t24=t22+t12;
t12=t3*t24;
t3=t12+t23;
t12=t5*t7;
t5=t12+t3;
t3=t4*t5;
t12=t3+t17;
t3=t6*t16;
t17=t3+t12;
t3=t4*t17;
t12=t3+t18;
t3=t9*t10;
t18=t4*t16;
t22=t18+t3;
t3=t6*t20;
t18=t3+t22;
double***restrictxx int_v_list1=int_v_list(1);
double**restrictxx int_v_list12=int_v_list1[2];
double*restrictxx int_v_list120=int_v_list12[0];
int_v_list120[17]=t18;
t3=t6*t18;
t22=t3+t12;
double***restrictxx int_v_list2=int_v_list(2);
double**restrictxx int_v_list22=int_v_list2[2];
double*restrictxx int_v_list220=int_v_list22[0];
int_v_list220[35]=t22;
t3=int_v_W2-int_v_p342;
t12=t3*int_v_list003[0];
t25=int_v_p342-int_v_r32;
t26=t25*int_v_list002[0];
t27=t26+t12;
t12=t4*t27;
t26=t3*int_v_list002[0];
t28=t25*int_v_list001[0];
t29=t28+t26;
t26=t6*t29;
t28=t26+t12;
t12=t1*t28;
t26=t3*t7;
t30=t25*t10;
t31=t30+t26;
t26=t13*t31;
t30=t26+t12;
t32=t3*t10;
t33=t25*t21;
t34=t33+t32;
int_v_list020[4]=t34;
t32=int_v_oo2zeta12*t34;
t33=t32+t30;
t30=t1*t27;
t35=t3*t24;
t36=t25*t7;
t37=t36+t35;
t35=t4*t37;
t36=t35+t30;
t35=t6*t31;
t38=t35+t36;
t35=t4*t38;
t36=t35+t33;
t33=t1*t29;
t35=t4*t31;
t39=t35+t33;
t35=t6*t34;
t40=t35+t39;
int_v_list120[16]=t40;
t35=t6*t40;
t39=t35+t36;
int_v_list220[34]=t39;
t35=int_v_W1-int_v_p341;
t36=t35*int_v_list003[0];
t41=int_v_p341-int_v_r31;
t42=t41*int_v_list002[0];
t43=t42+t36;
t36=t4*t43;
t42=t35*int_v_list002[0];
t44=t41*int_v_list001[0];
t45=t44+t42;
t42=t6*t45;
t44=t42+t36;
t36=t1*t44;
t42=t35*t7;
t46=t41*t10;
t47=t46+t42;
t42=t13*t47;
t46=t42+t36;
t48=t35*t10;
t49=t41*t21;
t21=t49+t48;
int_v_list020[3]=t21;
t48=int_v_oo2zeta12*t21;
t49=t48+t46;
t46=t1*t43;
t50=t35*t24;
t24=t41*t7;
t51=t24+t50;
t24=t4*t51;
t50=t24+t46;
t24=t6*t47;
t52=t24+t50;
t24=t4*t52;
t50=t24+t49;
t24=t1*t45;
t49=t4*t47;
t53=t49+t24;
t49=t6*t21;
t54=t49+t53;
int_v_list120[15]=t54;
t49=t6*t54;
t53=t49+t50;
int_v_list220[33]=t53;
t49=t3*t27;
t50=t15+t49;
t49=t25*t29;
t55=t49+t50;
t49=t13*t55;
t50=t3*t29;
t56=t19+t50;
t50=t3*int_v_list001[0];
t57=t25*int_v_list000[0];
t58=t57+t50;
t50=t25*t58;
t57=t50+t56;
int_v_list020[2]=t57;
t50=int_v_oo2zeta12*t57;
t56=t50+t49;
t58=t3*int_v_list004[0];
t59=t25*int_v_list003[0];
t60=t59+t58;
t58=t3*t60;
t59=t23+t58;
t58=t25*t27;
t60=t58+t59;
t58=t4*t60;
t59=t6*t55;
t61=t59+t58;
t58=t4*t61;
t59=t58+t56;
t58=t4*t55;
t62=t6*t57;
t63=t62+t58;
int_v_list120[14]=t63;
t58=t6*t63;
t62=t58+t59;
int_v_list220[32]=t62;
t58=t3*t43;
t59=t25*t45;
t64=t59+t58;
t58=t13*t64;
t59=t3*t45;
t65=t35*int_v_list001[0];
t66=t41*int_v_list000[0];
t67=t66+t65;
t65=t25*t67;
t66=t65+t59;
int_v_list020[1]=t66;
t59=int_v_oo2zeta12*t66;
t65=t59+t58;
t68=t35*int_v_list004[0];
t69=t41*int_v_list003[0];
t70=t69+t68;
t68=t3*t70;
t3=t25*t43;
t25=t3+t68;
t3=t4*t25;
t68=t6*t64;
t69=t68+t3;
t3=t4*t69;
t68=t3+t65;
t3=t4*t64;
t65=t6*t66;
t71=t65+t3;
int_v_list120[13]=t71;
t3=t6*t71;
t65=t3+t68;
int_v_list220[31]=t65;
t3=t35*t43;
t68=t15+t3;
t3=t41*t45;
t15=t3+t68;
t3=t13*t15;
t13=t35*t45;
t68=t19+t13;
t13=t41*t67;
t19=t13+t68;
int_v_list020[0]=t19;
t13=int_v_oo2zeta12*t19;
t67=t13+t3;
t68=t35*t70;
t35=t23+t68;
t23=t41*t43;
t41=t23+t35;
t23=t4*t41;
t35=t6*t15;
t68=t35+t23;
t23=t4*t68;
t35=t23+t67;
t23=t4*t15;
t4=t6*t19;
t70=t4+t23;
int_v_list120[12]=t70;
t4=t6*t70;
t6=t4+t35;
int_v_list220[30]=t6;
t4=int_v_W2-int_v_p122;
t23=t4*t17;
t35=int_v_p122-int_v_r12;
t72=t35*t18;
t73=t72+t23;
int_v_list220[29]=t73;
t23=t1*t11;
t11=t4*t38;
t72=t11+t23;
t11=t35*t40;
t74=t11+t72;
int_v_list220[28]=t74;
t11=t4*t52;
t72=t35*t54;
t75=t72+t11;
int_v_list220[27]=t75;
t11=t9*t28;
t28=t4*t61;
t72=t28+t11;
t11=t35*t63;
t28=t11+t72;
int_v_list220[26]=t28;
t11=t4*t69;
t72=t36+t11;
t11=t35*t71;
t36=t11+t72;
int_v_list220[25]=t36;
t11=t4*t68;
t72=t35*t70;
t76=t72+t11;
int_v_list220[24]=t76;
t11=int_v_W1-int_v_p121;
t72=t17*t11;
t17=int_v_p121-int_v_r11;
t77=t17*t18;
t18=t77+t72;
int_v_list220[23]=t18;
t72=t11*t38;
t38=t17*t40;
t40=t38+t72;
int_v_list220[22]=t40;
t38=t11*t52;
t52=t23+t38;
t23=t17*t54;
t38=t23+t52;
int_v_list220[21]=t38;
t23=t11*t61;
t52=t17*t63;
t54=t52+t23;
int_v_list220[20]=t54;
t23=t11*t69;
t52=t12+t23;
t12=t17*t71;
t23=t12+t52;
int_v_list220[19]=t23;
t12=t9*t44;
t44=t11*t68;
t52=t44+t12;
t12=t17*t70;
t44=t12+t52;
int_v_list220[18]=t44;
t12=t8+t14;
t8=t4*t5;
t14=t35*t16;
t52=t14+t8;
t8=t4*t52;
t14=t8+t12;
t8=t4*t16;
t52=t35*t20;
t61=t52+t8;
int_v_list120[11]=t61;
t8=t35*t61;
t52=t8+t14;
int_v_list220[17]=t52;
t8=t4*t7;
t14=t35*t10;
t61=t14+t8;
t8=t1*t61;
t14=t26+t8;
t8=t32+t14;
t14=t4*t37;
t61=t1*t7;
t63=t61+t14;
t14=t35*t31;
t68=t14+t63;
t14=t4*t68;
t63=t14+t8;
t8=t4*t31;
t14=t1*t10;
t68=t14+t8;
t8=t35*t34;
t69=t8+t68;
int_v_list120[10]=t69;
t8=t35*t69;
t68=t8+t63;
int_v_list220[16]=t68;
t8=t48+t42;
t63=t4*t51;
t69=t35*t47;
t70=t69+t63;
t63=t4*t70;
t69=t63+t8;
t8=t4*t47;
t63=t35*t21;
t70=t63+t8;
int_v_list120[9]=t70;
t8=t35*t70;
t63=t8+t69;
int_v_list220[15]=t63;
t8=t4*t27;
t69=t2+t8;
t8=t35*t29;
t70=t8+t69;
t8=t9*t70;
t69=t49+t8;
t8=t50+t69;
t49=t9*t27;
t50=t4*t60;
t69=t50+t49;
t49=t35*t55;
t50=t49+t69;
t49=t4*t50;
t50=t49+t8;
t8=t9*t29;
t49=t4*t55;
t69=t49+t8;
t8=t35*t57;
t49=t8+t69;
int_v_list120[8]=t49;
t8=t35*t49;
t49=t8+t50;
int_v_list220[14]=t49;
t8=t4*t43;
t50=t35*t45;
t69=t50+t8;
t8=t1*t69;
t50=t58+t8;
t8=t59+t50;
t50=t4*t25;
t69=t46+t50;
t46=t35*t64;
t50=t46+t69;
t46=t4*t50;
t50=t46+t8;
t8=t4*t64;
t46=t24+t8;
t8=t35*t66;
t24=t8+t46;
int_v_list120[7]=t24;
t8=t35*t24;
t24=t8+t50;
int_v_list220[13]=t24;
t8=t4*t41;
t46=t35*t15;
t50=t46+t8;
t8=t4*t50;
t46=t67+t8;
t8=t4*t15;
t50=t35*t19;
t67=t50+t8;
int_v_list120[6]=t67;
t8=t35*t67;
t50=t8+t46;
int_v_list220[12]=t50;
t8=t11*t5;
t5=t17*t16;
t46=t5+t8;
t5=t4*t46;
t8=t11*t16;
t16=t17*t20;
t20=t16+t8;
int_v_list120[5]=t20;
t8=t35*t20;
t16=t8+t5;
int_v_list220[11]=t16;
t5=t11*t37;
t8=t17*t31;
t37=t8+t5;
t5=t4*t37;
t8=t11*t7;
t7=t17*t10;
t10=t7+t8;
t7=t1*t10;
t8=t7+t5;
t5=t11*t31;
t10=t17*t34;
t31=t10+t5;
int_v_list120[4]=t31;
t5=t35*t31;
t10=t5+t8;
int_v_list220[10]=t10;
t5=t11*t51;
t8=t61+t5;
t5=t17*t47;
t34=t5+t8;
t5=t4*t34;
t8=t11*t47;
t47=t14+t8;
t8=t17*t21;
t14=t8+t47;
int_v_list120[3]=t14;
t8=t35*t14;
t21=t8+t5;
int_v_list220[9]=t21;
t5=t11*t27;
t8=t17*t29;
t27=t8+t5;
t5=t9*t27;
t8=t11*t60;
t29=t17*t55;
t47=t29+t8;
t8=t4*t47;
t29=t8+t5;
t5=t11*t55;
t8=t17*t57;
t51=t8+t5;
int_v_list120[2]=t51;
t5=t35*t51;
t8=t5+t29;
int_v_list220[8]=t8;
t5=t11*t43;
t29=t2+t5;
t2=t17*t45;
t5=t2+t29;
t2=t1*t5;
t29=t11*t25;
t25=t30+t29;
t29=t17*t64;
t30=t29+t25;
t25=t4*t30;
t29=t25+t2;
t2=t11*t64;
t25=t33+t2;
t2=t17*t66;
t33=t2+t25;
int_v_list120[1]=t33;
t2=t35*t33;
t25=t2+t29;
int_v_list220[7]=t25;
t2=t9*t43;
t29=t11*t41;
t41=t29+t2;
t2=t17*t15;
t29=t2+t41;
t2=t4*t29;
t4=t9*t45;
t41=t11*t15;
t15=t41+t4;
t4=t17*t19;
t19=t4+t15;
int_v_list120[0]=t19;
t4=t35*t19;
t15=t4+t2;
int_v_list220[6]=t15;
t2=t11*t46;
t4=t12+t2;
t2=t17*t20;
t12=t2+t4;
int_v_list220[5]=t12;
t2=t32+t26;
t4=t11*t37;
t20=t4+t2;
t2=t17*t31;
t4=t2+t20;
int_v_list220[4]=t4;
t2=t42+t7;
t7=t48+t2;
t2=t11*t34;
t20=t2+t7;
t2=t17*t14;
t7=t2+t20;
int_v_list220[3]=t7;
t2=t11*t47;
t14=t56+t2;
t2=t17*t51;
t20=t2+t14;
int_v_list220[2]=t20;
t2=t1*t27;
t1=t58+t2;
t2=t59+t1;
t1=t11*t30;
t14=t1+t2;
t1=t17*t33;
t2=t1+t14;
int_v_list220[1]=t2;
t1=t9*t5;
t5=t3+t1;
t1=t13+t5;
t3=t11*t29;
t5=t3+t1;
t1=t17*t19;
t3=t1+t5;
int_v_list220[0]=t3;
return 1;}