Sure:
***,ON O2 scan angle
memory,900,m
gprint,orben,orbital,civector
gthresh,energy=1.d-8,step=1.d-4
orient,noorient
angstrom
rno= 1.0634 ANGSTROM
ro2= 1.2075 ANGSTROM
ango2= 5 DEGREE
angno= 0.00000000 DEGREE
dihedral= 0.00000000 DEGREE
r= 15 ANGSTROM
orbref=2140.2
nocc=19
nclosed=10
basis,t-aug-cc-pvdz
symmetry,x
if(ango2.eq.0) then
ango2=0.01
elseif(ango2.eq.180) then
ango2=179.99
endif
if(angno.eq.0) then
angno=0.01
elseif(angno.eq.180) then
angno=179.99
endif
geometry={
N1,
Q1,N1,(15.999/(14.007+15.999))*rno,
Q2,Q1,r,N1,angno,
O3,Q1,(14.007/(14.007+15.999))*rno,Q2,180-angno,N1,180,
O1,Q2,0.5*ro2,Q1,ango2,N1,dihedral,
O2,Q2,0.5*ro2,Q1,180-ango2,O1,180
}
{multi,
orbital,orbref+1
orbprint,1
maxit,40
wf,31,1,1
occ,nocc-4,4
closed,nclosed,0
state,10
weight,4[1],6[3]
wf,31,2,1
occ,nocc-4,4
closed,nclosed,0
state,10
weight,4[1],6[3]
noextra
}
R_list=[15,6,4,3.5,3.4,3.3,3.2,3.1,3,2.9,2.8,2.7,2.65,2.6,2.55,2.5,2.45,2.4,2.3,2.2,2.1,2,1.9,1.8]
do i=1,#R_list
r=R_list(i) ANGSTROM
{multi,
start,orbref+i
canorb,orbref+i+1
orbprint,4
maxit,40
{iterations
dont,internal,1,to,2}
wf,31,2,1
occ,nocc-4,4
closed,nclosed,0
state,10
weight,4[1],6[3]
wf,31,1,1
occ,nocc-4,4
closed,nclosed,0
state,10
weight,4[1],6[3]
noextra
}
{rs2c,mix=10,xms=1,ipea=0.25
orbital,orbref+i+1
wf,31,2,1
state,10}
D2(i)=msenergy(1)
D4(i)=msenergy(2)
D6(i)=msenergy(3)
D8(i)=msenergy(4)
D9(i)=msenergy(5)
D11(i)=msenergy(6)
D13(i)=msenergy(7)
D15(i)=msenergy(8)
D17(i)=msenergy(9)
D19(i)=msenergy(10)
enddo
table,R_list,D2,D4,D6,D8,D9,D11,D13,D15,D17,D19
---
Thank you for looking into it!
Kind regards,
Clément