Lines Matching refs:mscale
76 real*8, allocatable :: mscale(:) local
88 allocate (mscale(n))
93 mscale(i) = 1.0d0
117 mscale(i12(j,i)) = m2scale
120 mscale(i13(j,i)) = m3scale
123 mscale(i14(j,i)) = m4scale
126 mscale(i15(j,i)) = m5scale
157 e = f * e * mscale(k)
184 mscale(i12(j,i)) = 1.0d0
187 mscale(i13(j,i)) = 1.0d0
190 mscale(i14(j,i)) = 1.0d0
193 mscale(i15(j,i)) = 1.0d0
217 mscale(i12(j,i)) = m2scale
220 mscale(i13(j,i)) = m3scale
223 mscale(i14(j,i)) = m4scale
226 mscale(i15(j,i)) = m5scale
258 e = f * e * mscale(k)
287 mscale(i12(j,i)) = 1.0d0
290 mscale(i13(j,i)) = 1.0d0
293 mscale(i14(j,i)) = 1.0d0
296 mscale(i15(j,i)) = 1.0d0
303 deallocate (mscale)
351 real*8, allocatable :: mscale(:) local
367 allocate (mscale(n))
375 mscale(i) = 1.0d0
413 mscale(i12(j,i)) = m2scale
416 mscale(i13(j,i)) = m3scale
419 mscale(i14(j,i)) = m4scale
422 mscale(i15(j,i)) = m5scale
491 e = f * e * mscale(k)
525 mscale(i12(j,i)) = 1.0d0
528 mscale(i13(j,i)) = 1.0d0
531 mscale(i14(j,i)) = 1.0d0
534 mscale(i15(j,i)) = 1.0d0
540 deallocate (mscale)
587 real*8, allocatable :: mscale(:) local
598 allocate (mscale(n))
603 mscale(i) = 1.0d0
637 mscale(i12(j,i)) = m2scale
640 mscale(i13(j,i)) = m3scale
643 mscale(i14(j,i)) = m4scale
646 mscale(i15(j,i)) = m5scale
678 e = f * e * mscale(kk)
705 mscale(i12(j,i)) = 1.0d0
708 mscale(i13(j,i)) = 1.0d0
711 mscale(i14(j,i)) = 1.0d0
714 mscale(i15(j,i)) = 1.0d0
725 deallocate (mscale)