Lines Matching refs:xx
30 & xx(npro,nsd),
291 xx = zero
293 xx(:,1) = xx(:,1) + shp(n,intp) * xl(:,n,1)
294 xx(:,2) = xx(:,2) + shp(n,intp) * xl(:,n,2)
295 xx(:,3) = xx(:,3) + shp(n,intp) * xl(:,n,3)
298 call e3source(xx, src)
319 xx = zero
321 xx(:,1) = xx(:,1) + shp(n,intp) * xl(:,n,1)
322 xx(:,2) = xx(:,2) + shp(n,intp) * xl(:,n,2)
323 xx(:,3) = xx(:,3) + shp(n,intp) * xl(:,n,3)
343 & -(omega(2)*(omega(1)*xx(:,2)-omega(2)*xx(:,1))
344 & -omega(3)*(omega(3)*xx(:,1)-omega(1)*xx(:,3)))
347 & -(omega(3)*(omega(2)*xx(:,3)-omega(3)*xx(:,2))
348 & -omega(1)*(omega(1)*xx(:,2)-omega(2)*xx(:,1)))
351 & -(omega(1)*(omega(3)*xx(:,1)-omega(1)*xx(:,3))
352 & -omega(2)*(omega(2)*xx(:,3)-omega(3)*xx(:,2)))