Searched refs:BCtmp (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genbc1.f | 1 subroutine genBC1 (BCtmp, iBC, BC) argument
26 dimension BCtmp(nshg,ndof+7), iBC(nshg),
34 where (btest(iBC,5+isclr)) BC(:,6+isclr) = BCtmp(:,12+isclr)
39 where (btest(iBC,0)) BC(:,1) = BCtmp(:,1) ! density
40 where (btest(iBC,1)) BC(:,2) = BCtmp(:,2) ! temperature
41 where (btest(iBC,2)) BC(:,1) = BCtmp(:,3) ! pressure
46 tmp = BCtmp(:,4)**2 + BCtmp(:,5)**2 + BCtmp(:,6)**2
47 BC(:,3) = tmp * BCtmp(:,7) / BCtmp(:,4)
48 BC(:,4) = BCtmp(:,5) / BCtmp(:,4)
49 BC(:,5) = BCtmp(:,6) / BCtmp(:,4)
[all …]
|
| H A D | genbc.f | 42 dimension BCtmp(nshg,ndof+7)
51 BCtmp = zero
55 where (nBC(:) .ne. 0) BCtmp(:,i) = BCinp(nBC(:),i)
61 if(any(BCtmp(:,12).ne.0)) then
65 acs(:,1) = cos(BCtmp(:,12))
66 acs(:,2) = sin(BCtmp(:,12))
75 call genwnm (iBC, BCtmp, x, ilwork, iper, nsurf)
79 call genotwn (x,BCtmp, iBC, nsurf)
89 call genBC1 (BCtmp, iBC, BC)
95 BCtmpg=BCtmp
[all …]
|