Lines Matching refs:src
29 & src(npro,nsd), Temp(npro),
269 src = zero
278 src(:,1) = bfx
279 src(:,2) = bfy
280 src(:,3) = bfz
287 src(:,1) = bfx * (Temp(:)-Tref)
288 src(:,2) = bfy * (Temp(:)-Tref)
289 src(:,3) = bfz * (Temp(:)-Tref)
298 call e3source(xx, src)
342 src(:,1)=src(:,1)
346 src(:,2)=src(:,2)
350 src(:,3)=src(:,3)
360 & + u3 * g3yi(:,2) - src(:,1) ) * rho
365 & + u3 * g3yi(:,3) - src(:,2) ) * rho
370 & + u3 * g3yi(:,4) - src(:,3) ) * rho