Lines Matching refs:x
1 subroutine gendat (y, ac, x, iBC, BC, argument
27 & x(numnp,nsd), iBC(nshg),
66 call setInitial_Duct(x) ! in INIprofile.f
74 call xyzbound(x)
81 write (iecho,1100) n, (x(n,i),i=1,nsd)
136 … call setBlowing_Duct3(x,BC,iTurbWall) ! in setBlowing_Duct3.f, fixed jet inlet velocity
145 call findWallNorm(x,iBC,ilwork,iper)
147 call setSuction_Duct3(x, BC, y, ilwork)
209 call aveprep(shp,x)
229 & nsons, x,
251 & ' Node ',12x,3('x',i1,:,17x))
252 1100 format(1p,2x,i5,13x,3(1e12.5,7x))
256 2100 format(1x,i5,5x,i10)
261 subroutine xyzbound(x) argument
267 dimension x(numnp,3)
271 xlngth=maxval(x(:,1))
272 ylngth=maxval(x(:,2))
273 zlngth=maxval(x(:,3))
286 xlngth=minval(x(:,1))
287 ylngth=minval(x(:,2))
288 zlngth=minval(x(:,3))
306 108 format(' Domain size (x,y,z):',2x,3f15.10)