Lines Matching refs:rl
37 subroutine e3StsRes( xl, rl, lStsVec ) argument
46 real*8 xl(npro,nenl,3), rl(npro,nshl,ndof) local
52 lStsVec(:,i,1) = lDir(:,i,1) * rl(:,i,4)
53 lStsVec(:,i,2) = lDir(:,i,2) * rl(:,i,4)
54 lStsVec(:,i,3) = lDir(:,i,3) * rl(:,i,4)
56 lStsVec(:,i,4) = lDir(:,i,1) * rl(:,i,1)
57 lStsVec(:,i,5) = lDir(:,i,2) * rl(:,i,2)
58 lStsVec(:,i,6) = lDir(:,i,3) * rl(:,i,3)
60 lStsVec(:,i,7) = lDir(:,i,1) * rl(:,i,2)
61 & + lDir(:,i,2) * rl(:,i,1)
62 lStsVec(:,i,8) = lDir(:,i,2) * rl(:,i,3)
63 & + lDir(:,i,3) * rl(:,i,2)
64 lStsVec(:,i,9) = lDir(:,i,3) * rl(:,i,1)
65 & + lDir(:,i,1) * rl(:,i,3)