Lines Matching refs:dcFct
471 & dcFct) argument
505 & giju(npro,6), dcFct(npro),
521 dcFct(:) = gradS(:,1) * gGradS(:,1)
526 dcFct(:) = 1.0/ dcFct(:)
531 dcFct = dcFct * (rLS - srcR) ** 2
545 dcFct(:)=max(zero,(fact*sqrt(dcFct(:)))-(tauS(:)*dcFct(:)))
554 dcFct(:) = two * tauS(:) * dcFct(:)
565 dcFct(:) = min( max(zero, (fact * sqrt(dcFct(:)) -
566 & tauS(:)*dcFct(:)) ), two * tauS(:) * dcFct(:))
572 gGradS(:,1) = dcFct(:) * gGradS(:,1)
573 gGradS(:,2) = dcFct(:) * gGradS(:,2)
574 gGradS(:,3) = dcFct(:) * gGradS(:,3)