Lines Matching refs:omega
43 real*8 omega(3), divu(npro) local
314 omega(1)=omag*e1
315 omega(2)=omag*e2
316 omega(3)=omag*e3
343 & -(omega(2)*(omega(1)*xx(:,2)-omega(2)*xx(:,1))
344 & -omega(3)*(omega(3)*xx(:,1)-omega(1)*xx(:,3)))
345 & -two*(omega(2)*u3-omega(3)*u2)
347 & -(omega(3)*(omega(2)*xx(:,3)-omega(3)*xx(:,2))
348 & -omega(1)*(omega(1)*xx(:,2)-omega(2)*xx(:,1)))
349 & -two*(omega(3)*u1-omega(1)*u3)
351 & -(omega(1)*(omega(3)*xx(:,1)-omega(1)*xx(:,3))
352 & -omega(2)*(omega(2)*xx(:,3)-omega(3)*xx(:,2)))
353 & -two*(omega(1)*u2-omega(2)*u1)