Lines Matching refs:Sclr
75 & Sclr(npro)
202 Sclr = zero
208 Sclr(i) = Sclr(i) + shpfun(i,n) * yl(i,n,6) !scalar
220 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,1)
222 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,2)
224 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,3)
316 & Sclr, Sdot, gradS,
328 & Sclr(npro), Sdot(npro),
357 Sclr = zero
364 Sclr = Sclr + shpfun(:,n) * yl(:,n,id)
492 call e3sourceSclr ( Sclr, Sdot, gradS, dwl,