Lines Matching refs:yvl
249 real*8, allocatable :: yvl(:,:,:) local
273 allocate ( yvl(npro,nshl,nvars) )
282 call eval ( xl, ycl, yvl,
289 call localSum( yvals, yvl, mien(iblk)%p,
294 deallocate ( yvl )
317 subroutine eval( xl, ycl, yvl, argument
325 real*8 ycl(npro,nshl,ndof), yvl(npro,nshl,nvars), local
332 yvl = zero
345 yvl(:,intp,j) = yvl(:,intp,j) + shape(:,i) * ycl(:,i,j)
371 yvl(:,intp,6 ) = two * rmu * gradV(:,1,1)
372 yvl(:,intp,7 ) = two * rmu * gradV(:,2,2)
373 yvl(:,intp,8 ) = two * rmu * gradV(:,3,3)
375 yvl(:,intp,9 ) = rmu * ( gradV(:,1,2) + gradV(:,2,1) )
376 yvl(:,intp,10) = rmu * ( gradV(:,1,3) + gradV(:,3,1) )
377 yvl(:,intp,11) = rmu * ( gradV(:,2,3) + gradV(:,3,2) )