Lines Matching refs:xx

46      &     xx(npro) 
54             xx=zero
56                xx(:)=xx(:) + shp(:,n) * xl(:,n,1)
90              where(xx(:).le. 0.42) !halfway btwn AIP and exit
92              elsewhere(xx(:).ge. 0.75) !2/3 of the way to the exit
96      &          (55.65294821-55.65294821*fmax)*xx(:)*xx(:)*xx(:)
97      &          +(-97.67092412+97.67092412*fmax)*xx(:)*xx(:)
98      &          +(52.59203606-52.59203606*fmax)*xx(:)
112              where(xx(:).le.xstart)
114              elsewhere(xx(:).ge.xmidwy)         
119      &            tanh(5*(xx(:)-(xmidwy+xstart)/2)/(xmidwy-xstart))/2))
136          where((xx(:).gt.xbltb) .and. (xx(:).lt.xblte))