Searched refs:BC3 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | setSuction_Duct3.f90 | 19 … real*8 BC3(numnp, 5) !used for hack to get suction right on part boundaries local
87 BC3=zero
89 BC3(:,1:3)=BC(:,3:5)
91 bc3mag=BC3(i,1)**2+BC3(i,2)**2+BC3(i,3)**2
92 if(bc3mag.gt.0) BC3(i,4)=one
94 call commu(BC3,ilwork,5,'in ')
98 … if((bcmag.eq.0).and.(BC3(i,4).ne.0)) then !node is slave and has not been correctly set.
99 …BC(i,3:5)=BC3(i,1:3)/BC3(i,4) !division by BC3 is necessary to account for more than two blocks s…
|