Lines Matching refs:four
213 & + four*(Sij(:,4)**2 + Sij(:,5)**2 + Sij(:,6)**2) )
694 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
1123 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
2219 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
2353 xa(i,2) = four*cdelsq1(i)*xnuder(i,3) +
2376 xa(i,2) = four*cdelsq1(i)*xnude(i,3) +
2394 xdisc = xa(i,2)**2 - four*xa(i,1)*xa(i,3)
2411 xlamb1(i)= ( xa(i,2) + sqrt( xa(i,2)**2 - four*xa(i,1)*xa(i,3) ) )
2413 xlamb2(i)= ( xa(i,2) - sqrt( xa(i,2)**2 - four*xa(i,1)*xa(i,3) ) )
2436 xa(i,2) = four*xkap(i)*xnuder(i,3) - xnuder(i,2)
2439 xlamb1(i)= ( xa(i,2) + sqrt( xa(i,2)**2 - four*xa(i,1)*xa(i,3)
2441 xlamb2(i)= ( xa(i,2) - sqrt( xa(i,2)**2 - four*xa(i,1)*xa(i,3)
2624 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
2815 & ( two*ynuder(i,5) - four*fwr1*ynuder(i,3)
2917 & ( two*ynude(i,5) - four*fwr1*ynude(i,3)
3370 & + four * ( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
3561 & ( two*ynuder(i,5) - four*fwr1*ynuder(i,3)
3663 & ( two*ynude(i,5) - four*fwr1*ynude(i,3)