Lines Matching refs:tmp1

46      &          tmp1(npro),       tmp2(npro),    
59       tmp1      = tlW * rho
66          uBar(:,1) = tmp1 * uBar(:,1)
67          uBar(:,2) = tmp1 * uBar(:,2)
68          uBar(:,3) = tmp1 * uBar(:,3)
71          uBar(:,1) = tmp1 * u1(:)
72          uBar(:,2) = tmp1 * u2(:)
73          uBar(:,3) = tmp1 * u3(:)
87             tmp1 = tsFct * shpfun(:,aa) * shpfun(:,b)
88             tmp2 = tmp1 + t1(:,1) * shpfun(:,aa)
115          tmp1 = tauM   * ( u1 * shg(:,b,1)  
124          t3(:,1) = t2(:,1) + tmp1 * u1 + tmp2 * rLui(:,1)
125          t3(:,2) = t2(:,2) + tmp1 * u2 + tmp2 * rLui(:,2)
126          t3(:,3) = t2(:,3) + tmp1 * u3 + tmp2 * rLui(:,3)
152          tmp1               = t1(:,1) * shg(:,aa,2)
154          xKebe(:,2,aa,b) = xKebe(:,2,aa,b) + tmp1 
155          xKebe(:,4,b,aa) = xKebe(:,4,b,aa) + tmp1 
157          tmp1               = t1(:,1) * shg(:,aa,3)
159          xKebe(:,3,aa,b) = xKebe(:,3,aa,b) + tmp1 
160          xKebe(:,7,b,aa) = xKebe(:,7,b,aa) + tmp1 
162          tmp1               = t1(:,2) * shg(:,aa,3)
164          xKebe(:,6,aa,b) = xKebe(:,6,aa,b) + tmp1 
165          xKebe(:,8,b,aa) = xKebe(:,8,b,aa) + tmp1 
174             tmp1            = tmp
177             xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp1
178             xKebe(:,1,b,aa) = xKebe(:,1,b,aa) + tmp1
180             tmp1            = tmp
183             xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp1
184             xKebe(:,5,b,aa) = xKebe(:,5,b,aa) + tmp1
186             tmp1            = tmp
189             xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp1
190             xKebe(:,9,b,aa) = xKebe(:,9,b,aa) + tmp1
194             tmp1               = t1(:,1) * shg(:,aa,2)
196             xKebe(:,2,aa,b) = xKebe(:,2,aa,b) + tmp1
197             xKebe(:,4,b,aa) = xKebe(:,4,b,aa) + tmp1
199             tmp1               = t1(:,1) * shg(:,aa,3)
201             xKebe(:,3,aa,b) = xKebe(:,3,aa,b) + tmp1
202             xKebe(:,7,b,aa) = xKebe(:,7,b,aa) + tmp1
204             tmp1               = t1(:,2) * shg(:,aa,1)
206             xKebe(:,4,aa,b) = xKebe(:,4,aa,b) + tmp1
207             xKebe(:,2,b,aa) = xKebe(:,2,b,aa) + tmp1
209             tmp1               = t1(:,2) * shg(:,aa,3)
211             xKebe(:,6,aa,b) = xKebe(:,6,aa,b) + tmp1
212             xKebe(:,8,b,aa) = xKebe(:,8,b,aa) + tmp1
214             tmp1               = t1(:,3) * shg(:,aa,1)
216             xKebe(:,7,aa,b) = xKebe(:,7,aa,b) + tmp1
217             xKebe(:,3,b,aa) = xKebe(:,3,b,aa) + tmp1
219             tmp1               = t1(:,3) * shg(:,aa,2)
221             xKebe(:,8,aa,b) = xKebe(:,8,aa,b) + tmp1
222             xKebe(:,6,b,aa) = xKebe(:,6,b,aa) + tmp1
292       dimension t1(npro,3),       tmp1(npro),       tmp2(npro),
317             tmp1 = shpfun(:,aa) * shpfun(:,b)
319             xSebe(:,aa,b) = xSebe(:,aa,b) + tmp1 * (tsFct + srcL)