Searched refs:tsFct (Results 1 – 1 of 1) sorted by relevance
51 real*8 lhmFct, lhsFct, tsFct(npro) local63 tsFct = lhmFct * WdetJ * rho87 tmp1 = tsFct * shpfun(:,aa) * shpfun(:,b)297 real*8 lhsFct, tsFct(npro) local306 tsFct = almi * WdetJ * (one - flmpl)319 xSebe(:,aa,b) = xSebe(:,aa,b) + tmp1 * (tsFct + srcL)