1         subroutine INIprofile(BC,y,x)  argument
6          real*8 x(nshg,nsd)  local
9               call TakeBCfromIC_ScaleInlVelX(BC,y,x)
13               call setInitial(x,y)
19         subroutine TakeBCfromIC_ScaleInlVelX(BC,y,x)  argument
29         real*8 x(nshg,nsd)  local
68         subroutine setInitial(x,y)  argument
76         real*8 x(nshg,nsd)  local
92            xinlet=x(inlf(1),1)
98            xoutlet=x(outf(1),1)
110            xdel=(x(nn,1)-xinlet_all)/(xoutlet_all-xinlet_all)
167         subroutine setInitial_Duct(x)  argument
174         real*8 x(nshg,nsd)  local
203            xcoor=x(nn,1)          
204            ycoor=x(nn,2)
205            zcoor=x(nn,3)