Searched refs:uaxp (Results 1 – 2 of 2) sorted by relevance
/dports/science/tinker/tinker/source/ |
H A D | epolar2.f | 271 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 D | epolar1.f | 156 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 …]
|