Lines Matching refs:kk

21           do kk=1,nshg
22             if(ndsurf(kk).eq.801) then ! this means inflow plane of inlet
25               BC(kk,1)=11597+PresSin
30           do kk=1,nshg
31             if(ndsurf(kk).eq.801) then ! this means inflow plane of inlet
33               BC(kk,3)=VelBase*cos((pi/180)*Alpha)
34               BC(kk,4)=VelBase*sin((pi/180)*Alpha)
58         do kk=1,nshg
60             if(ndsurf(kk).eq.801) then
62               PresBase=BC(kk,1)
63               VelBase=BC(kk,3)