Lines Matching refs:gGradS
469 subroutine e3dcSclr ( gradS, giju, gGradS, argument
503 dimension gradS(npro,nsd), gGradS(npro,nsd),
511 gGradS(:,1) = GijU(:,1) * gradS(:,1)
514 gGradS(:,2) = GijU(:,4) * gradS(:,1)
517 gGradS(:,3) = GijU(:,6) * gradS(:,1)
521 dcFct(:) = gradS(:,1) * gGradS(:,1)
522 1 + gradS(:,2) * gGradS(:,2)
523 2 + gradS(:,3) * gGradS(:,3)
572 gGradS(:,1) = dcFct(:) * gGradS(:,1)
573 gGradS(:,2) = dcFct(:) * gGradS(:,2)
574 gGradS(:,3) = dcFct(:) * gGradS(:,3)