Home
last modified time | relevance | path

Searched refs:uaxp (Results 1 – 2 of 2) sorted by relevance

/dports/science/tinker/tinker/source/
H A Depolar2.f271 real*8 uaxp(3),uayp(3),uazp(3) local
381 uaxp(j) = uap(1,ii,j)
1261 & + tkxx*uaxp(j) + tkxy*uayp(j)
1264 & + tkxy*uaxp(j) + tkyy*uayp(j)
1267 & + tkxz*uaxp(j) + tkyz*uayp(j)
1437 uaxp(j) = uap(1,ii,j)
2322 & + tkxx*uaxp(j) + tkxy*uayp(j)
2325 & + tkxy*uaxp(j) + tkyy*uayp(j)
2328 & + tkxz*uaxp(j) + tkyz*uayp(j)
H A Depolar1.f156 real*8 uaxp(3),uayp(3),uazp(3) local
261 uaxp(j) = uap(1,ii,j)
1140 & + tkxx*uaxp(j) + tkxy*uayp(j)
1332 uaxp(j) = uap(1,ii,j)
2604 real*8 uaxp(3),uayp(3),uazp(3) local
2724 uaxp(j) = uap(1,ii,j)
4230 real*8 uaxp(3),uayp(3),uazp(3) local
4309 uaxp(j) = uap(1,ii,j)
5479 uaxp(j) = uap(1,ii,j)
7090 real*8 uaxp(3),uayp(3),uazp(3) local
[all …]