2
c $Id: shll_qnch.f 19707 2010-10-29 17:59:36Z d3y133 $
5
SUBROUTINE shll_qnch(ntshel)
16
integer i,iatm1,iatm2,iatma,iatmb
19
real*8 cske,rmu,vij,xscale
22
dimension vij(mxshel2,3)
24
cske=boltzmann*temp*1.d-4
32
rmu=(typmass(iatma)*typmass(iatmb))/
33
$ (typmass(iatma)+typmass(iatmb))
35
vij(i,1)=vvv(iatm2,1)-vvv(iatm1,1)
36
vij(i,2)=vvv(iatm2,2)-vvv(iatm1,2)
37
vij(i,3)=vvv(iatm2,3)-vvv(iatm1,3)
39
xscale=sqrt(cske/(rmu*(vij(i,1)**2+vij(i,2)**2+vij(i,3)**2)))
41
tmx=typmass(iatma)*vvv(iatm1,1)+typmass(iatmb)*vvv(iatm2,1)
42
tmy=typmass(iatma)*vvv(iatm1,2)+typmass(iatmb)*vvv(iatm2,2)
43
tmz=typmass(iatma)*vvv(iatm1,3)+typmass(iatmb)*vvv(iatm2,3)
45
vvv(iatm1,1)=tmx/(typmass(iatma)+typmass(iatmb))
46
$ -xscale*rmu*vij(i,1)/typmass(iatma)
47
vvv(iatm2,1)=tmx/(typmass(iatma)+typmass(iatmb))
48
$ +xscale*rmu*vij(i,1)/typmass(iatmb)
49
vvv(iatm1,2)=tmy/(typmass(iatma)+typmass(iatmb))
50
$ -xscale*rmu*vij(i,2)/typmass(iatma)
51
vvv(iatm2,2)=tmy/(typmass(iatma)+typmass(iatmb))
52
$ +xscale*rmu*vij(i,2)/typmass(iatmb)
53
vvv(iatm1,3)=tmz/(typmass(iatma)+typmass(iatmb))
54
$ -xscale*rmu*vij(i,3)/typmass(iatma)
55
vvv(iatm2,3)=tmz/(typmass(iatma)+typmass(iatmb))
56
$ +xscale*rmu*vij(i,3)/typmass(iatmb)