Lines Matching refs:mscale
55 real*8, allocatable :: mscale(:) local
62 allocate (mscale(n))
67 mscale(i) = 1.0d0
106 mscale(i12(j,i)) = m2scale
109 mscale(i13(j,i)) = m3scale
112 mscale(i14(j,i)) = m4scale
115 mscale(i15(j,i)) = m5scale
153 e = f * e * mscale(k)
154 dedr = f * dedr * mscale(k)
155 d2edr2 = f * d2edr2 * mscale(k)
219 mscale(i12(j,i)) = 1.0d0
222 mscale(i13(j,i)) = 1.0d0
225 mscale(i14(j,i)) = 1.0d0
228 mscale(i15(j,i)) = 1.0d0
254 mscale(i12(j,i)) = m2scale
257 mscale(i13(j,i)) = m3scale
260 mscale(i14(j,i)) = m4scale
263 mscale(i15(j,i)) = m5scale
303 e = f * e * mscale(k)
304 dedr = f * dedr * mscale(k)
305 d2edr2 = f * d2edr2 * mscale(k)
371 mscale(i12(j,i)) = 1.0d0
374 mscale(i13(j,i)) = 1.0d0
377 mscale(i14(j,i)) = 1.0d0
380 mscale(i15(j,i)) = 1.0d0
387 deallocate (mscale)