Lines Matching refs:n
13 integer n, e
50 do n = 1, nshl
51 Sclr = Sclr + shape(:,n) * yl(:,n,isc)
137 integer n, e local
205 integer e, n
214 do n = 1, nshl
215 u1=yl(e,n,2)
216 u2=yl(e,n,3)
217 u3=yl(e,n,4)
220 wallnode(n)=.true.
233 do n = 1, nshl
234 if(wallnode(n)) then
235 evisc = evisc + yl(e,n,6)
264 do n = 1, nshl
265 Turb = Turb + shape(e,n) * yl(e,n,6)
292 integer e, n
300 do n = 1, nshl
301 u1=yl(e,n,2)
302 u2=yl(e,n,3)
303 u3=yl(e,n,4)
306 wallnode(n)=.true.
312 do n = 1, nshl
313 if( wallnode(n) ) then
317 savarw = ev2sa(yl(e,n,6),datmat(1,2,1),saCv1)
318 savar = savar + shape(e,n) * savarw
325 savar = savar + shape(e,n) * yl(e,n,6)
353 integer e,n
359 do n = 1, nshl
360 kay = kay + shape(e,n)*yl(e,n,6)
361 epsilon = epsilon + shape(e,n)*yl(e,n,7)
362 dw = dw + shape(e,n)*dwl(e,n)