Lines Matching refs:nn
37 nn=inlf(i)
38 if(y(nn,1).gt.u_max)u_max=y(nn,1)
109 do nn=1,nshg
110 xdel=(x(nn,1)-xinlet_all)/(xoutlet_all-xinlet_all)
112 y(nn,1)= xvel_ini + (inletVelX-xvel_ini)*xdel
113 y(nn,4)= outPres1 + (pres_ini-outPres1)*xdel
176 integer nn local
201 do nn=1,nshg
203 xcoor=x(nn,1)
204 ycoor=x(nn,2)
205 zcoor=x(nn,3)
294 qold(nn,1)=97000
295 qold(nn,2)=0
296 qold(nn,3)=0
297 qold(nn,4)=0
298 qold(nn,5)=320
299 qold(nn,6)=1.825e-5