Searched refs:dsr3k (Results 1 – 2 of 2) sorted by relevance
220 real*8 dsr3k,dsr5k,dsr7k local652 dsr3k = 2.0d0 * rr3 * dmpk(3) * dscale(k)665 potk = uir * dsr3k686 tkx3 = dsr3k*uix687 tky3 = dsr3k*uiy688 tkz3 = dsr3k*uiz1713 dsr3k = 2.0d0 * rr3 * dmpk(3) * dscale(k)1726 potk = uir * dsr3k1747 tkx3 = dsr3k*uix1748 tky3 = dsr3k*uiy[all …]
100 real*8 dsr3k,dsr5k,dsr7k local565 tkx3 = dsr3k*uix566 tky3 = dsr3k*uiy567 tkz3 = dsr3k*uiz1642 tkx3 = dsr3k*uix1643 tky3 = dsr3k*uiy1644 tkz3 = dsr3k*uiz2548 real*8 dsr3k,dsr5k,dsr7k local3029 tkx3 = dsr3k*uix3030 tky3 = dsr3k*uiy[all …]