Lines Matching refs:xx

34      &            xl(npro,nenl,3),           xx(npro,3)
80             xx=zero
82                xx(:,1) = xx(:,1)  + shpfun(:,n) * xl(:,n,1)
83                xx(:,2) = xx(:,2)  + shpfun(:,n) * xl(:,n,2)
84                xx(:,3) = xx(:,3)  + shpfun(:,n) * xl(:,n,3)
95                rsq=xx(id,1)*xx(id,1) + xx(id,2)*xx(id,2)
132                radsqr=xx(id,2)**2+xx(id,1)**2
133                if(xx(id,3).lt. zinSponge) then  ! map this into big outflow
137                   xx(id,3)=(zinSponge-xx(id,3))*CoefRatioI2O
145                if((xx(id,3).gt.zoutSponge).or.(radsqr.gt.radsts))  then
148                   zval=max(xx(id,3),zoutSponge)