Lines Matching refs:uMod
270 subroutine e3LHSSclr ( uMod, giju, dcFct, argument
280 real*8 uMod(npro,nsd), local
312 t1(:,1) = WdetJ * ( uMod(:,1) * shg(:,b,1)
313 & + uMod(:,2) * shg(:,b,2)
314 & + uMod(:,3) * shg(:,b,3) )
333 & * ( uMod(:,1) * shg(:,b,1)
334 & + uMod(:,2) * shg(:,b,2)
335 & + uMod(:,3) * shg(:,b,3) )
337 t1(:,1) = kptmp * shg(:,b,1) + uMod(:,1) * tmp
338 t1(:,2) = kptmp * shg(:,b,2) + uMod(:,2) * tmp
339 t1(:,3) = kptmp * shg(:,b,3) + uMod(:,3) * tmp