输入文件
*** H-SiH
! FILE,2,/scratch/H-SiH.wfu,NEW;
GPRINT,BASIS;
GPRINT,ORBITALS;
GPRINT,ORBEN;
GPRINT,CIVECTOR;
I=0;
NPOINTS=46;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! loop over R in Jacobi coordinates
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DO I=1,NPOINTS;
BRMIN=2.0D+00 BOHRS;
BRMAX=11.00D+00 BOHRS;
STEP=(BRMAX-BRMIN)/(NPOINTS-1.00D+00);
SYMMETRY,X;
GEOMTYP=ZMAT;
BOHR;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! SiH bond distance
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rjac=2.5 BOHR;
! center-of-mass H-SiH distance
BIGR=BRMIN+STEP*(I-1.0D+00) BOHR;
! Jacobi angle
ANGJAC=60.0 DEGS;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! atomic masses of diatomic
AMUP1=28.085;
AMUP2=1.0079;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FAC1=AMUP1/(AMUP1+AMUP2);
FAC2=AMUP2/(AMUP1+AMUP2);
rr1=FAC2*rjac;
rr2=FAC1*rjac;
A=180.0;
SUPANG=(180.0-ANGJAC);
D=180.0;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! X is the center-of-mass
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GEOMETRY={
X;
H1,X,BIGR;
Si,X,rr1,H1,ANGJAC;
H2,X,rr2,H1,SUPANG,Si,D;
}
BASIS,AVTZ;
IF (I.EQ.1) THEN
{HF,MAXIT=500;
WF,16,1,0;ORBITAL,IGNORE_ERROR;
};
END IF
{MULTI;
WF,16,1,0;state,3
MAXITER,40;ORBITAL,IGNORE_ERROR;
};
ECASD1(I)=ENERGY(1);
ECASD2(I)=ENERGY(2);
ECASD3(I)=ENERGY(3);
{CI;
WF,16,1,0;state,3
MAXITER,1919,18000;ORBITAL,IGNORE_ERROR;
};
EMRCIQD1(I)=ENERGD(1);
EMRCIQD2(I)=ENERGD(2);
EMRCIQD3(I)=ENERGD(3);
BASIS,AVQZ;
{MULTI;
WF,16,1,0;state,3;ORBITAL,IGNORE_ERROR;
MAXITER,40;
};
ECAST1(I)=ENERGY(1);
ECAST2(I)=ENERGY(2);
ECAST3(I)=ENERGY(3);
{CI;
WF,16,1,0;state,3
MAXITER,1919,18000;ORBITAL,IGNORE_ERROR;
};
EMRCIQT1(I)=ENERGD(1);
EMRCIQT2(I)=ENERGD(2);
EMRCIQT3(I)=ENERGD(3);
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
r(I)=rjac;
BR(I)=BIGR;
ANG(I)=ANGJAC;
R1(I)=SQRT(BIGR**2+rr1**2-2.0*BIGR*rr1*COS(ANGJAC));
R2(I)=rjac;
R3(I)=SQRT(BIGR**2+rr2**2-2.0*BIGR*rr2*COS(SUPANG));
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
{TABLE,r,BR,ANG,ECASD1,EMRCIQD1};
{TABLE,r,BR,ANG,ECAST1,EMRCIQT1};
{TABLE,R1,R2,R3,ECASD1,EMRCIQD1};
{TABLE,R1,R2,R3,ECAST1,EMRCIQT1};
{TABLE,R1,R2,R3,ECASD1,ECASD2,ECASD3,EMRCIQD1,EMRCIQD2,EMRCIQD3,ECAST1,ECAST2,ECAST3,EMRCIQT1,EMRCIQT2,EMRCIQT3};
{TABLE,r,BR,ANG,ECASD1,ECASD2,ECASD3,EMRCIQD1,EMRCIQD2,EMRCIQD3,ECAST1,ECAST2,ECAST3,EMRCIQT1,EMRCIQT2,EMRCIQT3};
{TABLE,R1,R2,R3,ECASD1,EMRCIQD1,ECAST1,EMRCIQT1};
{TABLE,r,BR,ANG,ECASD1,EMRCIQD1,ECAST1,EMRCIQT1};
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
END DO
--- |