Lines Matching refs:dxdxi
325 real*8 dxdxi(npro,nsd,nsd), tmp(npro) local
330 dxdxi = zero
333 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
334 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
335 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
336 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
337 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
338 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
339 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
340 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
341 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
346 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
347 & - dxdxi(:,3,2) * dxdxi(:,2,3)
348 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
349 & - dxdxi(:,1,2) * dxdxi(:,3,3)
350 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
351 & - dxdxi(:,1,3) * dxdxi(:,2,2)
352 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
353 & + dxidx(:,1,2) * dxdxi(:,2,1)
354 & + dxidx(:,1,3) * dxdxi(:,3,1) )
358 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
359 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
360 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
361 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
362 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
363 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
364 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
365 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
366 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
367 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
368 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
369 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp