Lines Matching refs:gradV
329 & shg(npro,nshl,nsd), gradV(npro,nsd,nsd), local
354 gradV = zero
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)
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) )