Searched refs:yvl (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | hierarchic.f | 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)
[all …]
|