Lines Matching refs:point2x
58 call gendat (y, ac, point2x,
77 call initStats(point2x, iBC, point2iper, point2ilwork)
83 call initTurb( point2x )
88 call initNABI( point2x, shpb )
101 call initSponge( y,point2x)
143 if(point2x(i,1).lt.1.0e-5 .and. mod(iBC(i),1024).eq.ibcmatch) then
185 if(point2x(nn,1) .gt. EVrampXmax) then !downstream of the ramp
187 elseif(point2x(nn,1) .gt. EVrampXmin) then !and x(:,1) <= EVrampXmax
191 y(nn,6) = c0 + (point2x(nn,1) - x1)*(
192 & c1 + (point2x(nn,1) - x1)*(
193 & (c2 - (x2 - x1)*c3) + (point2x(nn,1) - x1)*c3))
206 & uold, point2x,
248 deallocate(point2x)