Lines Matching refs:kvt
467 double precision mv1,cmr,kvt,kvtl(3),l1(3)
518 kvt = 0.0d00
525 kvt = kvt + mv1**2/mass(iat)
533 rbuf(1) = kvt
544 kvt = rbuf(1)
554 itmp = (kvt + virial)/(3.0d00 * vol1)
608 s1 = scal1 * tmassi * (kvt - nrg(1) * tmprtr)
645 kvt = 0.0d00
664 kvt = kvt + ra(iat,j,5)**2 / mass(iat)
673 kvt = 2.0 * nrg(4)
674 nrg(9) = 0.5d00 * (kvt + tmass * scal2**2 / scal1**2) + nrg(6)
681 itmp = (kvt + nrg(10))/(3.0d00 * vol1)
683 nrg(11) = 0.5d00 * kvt + nrg(6) + vol1 * prssr
685 nrg(11) = 0.5d00 * kvt + nrg(6) + vol1 * itmp