Lines Matching refs:two
65 & + gijd(:,2) * gijd(:,4) * gijd(:,5) * two
70 & + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
78 uh1= two * sqrt(uh1/fact)
87 & + u2*u3*gijd(:,5))*two + 1.0e-15 !FIX FOR INVALID MESHES
162 tau(:,2)=rho**2*((two*dts)**2
163 & + (u1*(u1*gijd(:,1) + two*(u2*gijd(:,2)+u3*gijd(:,4)))
164 & + u2*(u2*gijd(:,3) + two*u3*gijd(:,5))
167 & two*(gijd(:,2)**2 + gijd(:,4)**2 + gijd(:,5)**2))
213 raLS = two*rLyitemp(:,4)*rLyitemp(:,5)*A0inv(:,15)
214 & + two*rLyitemp(:,3)*rLyitemp(:,5)*A0inv(:,14)
215 & + two*rLyitemp(:,1)*rLyitemp(:,2)*A0inv( :,6)
216 & + two*rLyitemp(:,2)*rLyitemp(:,3)*A0inv(:,10)
217 & + two*rLyitemp(:,2)*rLyitemp(:,4)*A0inv(:,11)
218 & + two*rLyitemp(:,1)*rLyitemp(:,3)*A0inv( :,7)
219 & + two*rLyitemp(:,3)*rLyitemp(:,4)*A0inv(:,13)
220 & + two*rLyitemp(:,2)*rLyitemp(:,5)*A0inv(:,12)
221 & + two*rLyitemp(:,1)*rLyitemp(:,4)*A0inv( :,8)
222 & + two*rLyitemp(:,1)*rLyitemp(:,5)*A0inv( :,9)
245 & + gijdu(:,4) * gijdu(:,5) * gijdu(:,6) * two
671 raLS = two*rLyitemp(:,4)*rLyitemp(:,5)*A0inv(:,15)
672 & + two*rLyitemp(:,3)*rLyitemp(:,5)*A0inv(:,14)
673 & + two*rLyitemp(:,1)*rLyitemp(:,2)*A0inv( :,6)
674 & + two*rLyitemp(:,2)*rLyitemp(:,3)*A0inv(:,10)
675 & + two*rLyitemp(:,2)*rLyitemp(:,4)*A0inv(:,11)
676 & + two*rLyitemp(:,1)*rLyitemp(:,3)*A0inv( :,7)
677 & + two*rLyitemp(:,3)*rLyitemp(:,4)*A0inv(:,13)
678 & + two*rLyitemp(:,2)*rLyitemp(:,5)*A0inv(:,12)
679 & + two*rLyitemp(:,1)*rLyitemp(:,4)*A0inv( :,8)
680 & + two*rLyitemp(:,1)*rLyitemp(:,5)*A0inv( :,9)
705 & + gijdu(:,4) * gijdu(:,5) * gijdu(:,6) * two
1136 raLS = two*rLyitemp(:,4)*rLyitemp(:,5)*A0inv(:,15)
1137 & + two*rLyitemp(:,3)*rLyitemp(:,5)*A0inv(:,14)
1138 & + two*rLyitemp(:,1)*rLyitemp(:,2)*A0inv( :,6)
1139 & + two*rLyitemp(:,2)*rLyitemp(:,3)*A0inv(:,10)
1140 & + two*rLyitemp(:,2)*rLyitemp(:,4)*A0inv(:,11)
1141 & + two*rLyitemp(:,1)*rLyitemp(:,3)*A0inv( :,7)
1142 & + two*rLyitemp(:,3)*rLyitemp(:,4)*A0inv(:,13)
1143 & + two*rLyitemp(:,2)*rLyitemp(:,5)*A0inv(:,12)
1144 & + two*rLyitemp(:,1)*rLyitemp(:,4)*A0inv( :,8)
1145 & + two*rLyitemp(:,1)*rLyitemp(:,5)*A0inv( :,9)
1168 & + gijdu(:,4) * gijdu(:,5) * gijdu(:,6) * two
1276 & + gijd(:,2) * gijd(:,4) * gijd(:,5) * two
1281 & + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
1290 uh1= two * sqrt(uh1/fact)
1300 & + u2*u3*gijd(:,5))*two + 1.0e-15 !FIX FOR INVALID MESHES
1358 & + gijdu(:,4) * gijdu(:,5) * gijdu(:,6) * two