Lines Matching refs:gradS
469 subroutine e3dcSclr ( gradS, giju, gGradS, argument
503 dimension gradS(npro,nsd), gGradS(npro,nsd),
511 gGradS(:,1) = GijU(:,1) * gradS(:,1)
512 1 + GijU(:,4) * gradS(:,2)
513 2 + GijU(:,6) * gradS(:,3)
514 gGradS(:,2) = GijU(:,4) * gradS(:,1)
515 1 + GijU(:,2) * gradS(:,2)
516 2 + GijU(:,5) * gradS(:,3)
517 gGradS(:,3) = GijU(:,6) * gradS(:,1)
518 1 + GijU(:,5) * gradS(:,2)
519 2 + GijU(:,3) * gradS(:,3)
521 dcFct(:) = gradS(:,1) * gGradS(:,1)
522 1 + gradS(:,2) * gGradS(:,2)
523 2 + gradS(:,3) * gGradS(:,3)