Lines Matching refs:ycl
247 real*8, allocatable :: ycl(:,:,:) local
272 allocate ( ycl(npro,nshl,ndof ) )
279 call localy( ycoeff, ycl, mien(iblk)%p, ndof, 'gather ')
282 call eval ( xl, ycl, yvl,
293 deallocate ( ycl )
317 subroutine eval( xl, ycl, yvl, argument
325 real*8 ycl(npro,nshl,ndof), yvl(npro,nshl,nvars), local
345 yvl(:,intp,j) = yvl(:,intp,j) + shape(:,i) * ycl(:,i,j)
356 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * ycl(:,n,2)
357 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * ycl(:,n,3)
358 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * ycl(:,n,4)
360 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * ycl(:,n,2)
361 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * ycl(:,n,3)
362 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * ycl(:,n,4)
364 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * ycl(:,n,2)
365 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * ycl(:,n,3)
366 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * ycl(:,n,4)