!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!