Lines Matching refs:xl
98 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
121 call localx (x, xl, ien, nsd, 'gather ')
134 call local_gradient( yl(:,:,2:4), 3, shdrv, xl,
173 dimension gradul(npro,nshl,9), xl(npro,nenl,nsd),
196 call localx (x, xl, ien, nsd, 'gather ')
209 call local_gradient( gradul, 9, shdrv, xl,
288 subroutine local_gradient ( vector, vsize, shgl, xl, argument
299 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
313 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
314 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
315 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
316 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
317 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
318 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
319 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
320 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
321 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)