Searched refs:dsr5k (Results 1 – 2 of 2) sorted by relevance
220 real*8 dsr3k,dsr5k,dsr7k local653 dsr5k = 2.0d0 * rr5 * dmpk(5) * dscale(k)690 tukr = -dsr5k*uir714 tkx5 = 2.0d0 * (dsr5k*uix)715 tky5 = 2.0d0 * (dsr5k*uiy)716 tkz5 = 2.0d0 * (dsr5k*uiz)1714 dsr5k = 2.0d0 * rr5 * dmpk(5) * dscale(k)1751 tukr = -dsr5k*uir1775 tkx5 = 2.0d0 * (dsr5k*uix)1776 tky5 = 2.0d0 * (dsr5k*uiy)[all …]
100 real*8 dsr3k,dsr5k,dsr7k local569 tukr = -dsr5k*uir593 tkx5 = 2.0d0 * (dsr5k*uix)594 tky5 = 2.0d0 * (dsr5k*uiy)595 tkz5 = 2.0d0 * (dsr5k*uiz)1646 tukr = -dsr5k*uir1670 tkx5 = 2.0d0 * (dsr5k*uix)1671 tky5 = 2.0d0 * (dsr5k*uiy)1672 tkz5 = 2.0d0 * (dsr5k*uiz)2548 real*8 dsr3k,dsr5k,dsr7k local[all …]