Home
last modified time | relevance | path

Searched refs:iBC (Results 1 – 25 of 74) sorted by relevance

123

/phasta/phSolver/incompressible/
H A Dbc3res.f1 subroutine bc3Res ( iBC, BC, res, iper, ilwork) argument
22 dimension iBC(nshg),
29 call bc3per(iBC, res, iper, ilwork, nflow)
33 where (btest(iBC,2))
50 where (ibits(iBC,3,3) .eq. 1) ! bits of iBC= xy001zab
63 where (ibits(iBC,3,3) .eq. 2) ! bits of iBC= xy010zab
71 where (ibits(iBC,3,3) .eq. 3) ! bits of iBC= xy011zab
79 where (ibits(iBC,3,3) .eq. 4) ! bits of iBC= xy100zab
87 where (ibits(iBC,3,3) .eq. 5) ! bits of iBC= xy101zab
95 where (ibits(iBC,3,3) .eq. 6) ! bits of iBC= xy110zab
[all …]
H A Dbc3diag.f1 subroutine bc3Diag (iBC, BC, res) argument
22 dimension iBC(nshg), BC(nshg,ndofBC),
27 where (btest(iBC,2))
44 where (ibits(iBC,3,3) .eq. 1) ! bits of iBC= xy001zab
57 where (ibits(iBC,3,3) .eq. 2) ! bits of iBC= xy010zab
65 where (ibits(iBC,3,3) .eq. 3) ! bits of iBC= xy011zab
73 where (ibits(iBC,3,3) .eq. 4) ! bits of iBC= xy100zab
81 where (ibits(iBC,3,3) .eq. 5) ! bits of iBC= xy101zab
89 where (ibits(iBC,3,3) .eq. 6) ! bits of iBC= xy110zab
97 where (ibits(iBC,3,3) .eq. 7) ! bits of iBC= xy111zab
[all …]
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
23 dimension y(nshg,nflow), iBC(nshg),
40 where (ibits(iBC,3,3) .eq. 1)
47 where (ibits(iBC,3,3) .eq. 2)
54 where (ibits(iBC,3,3) .eq. 3)
61 where (ibits(iBC,3,3) .eq. 4)
68 where (ibits(iBC,3,3) .eq. 5)
75 where (ibits(iBC,3,3) .eq. 6)
82 where (ibits(iBC,3,3) .eq. 7)
94 if (any(btest(iBC,2))) then
[all …]
H A Dbc3global.f1 subroutine bc3global (globMas, iBC) argument
24 dimension iBC(nshg),
33 if ( btest(iBC(in),2) ) then
44 if ( ibits(iBC(in),3,3) .eq. 1 ) then
52 if ( ibits(iBC(in),3,3) .eq. 2 ) then
61 if ( ibits(iBC(in),3,3) .eq. 3 ) then
72 if ( ibits(iBC(in),3,3) .eq. 4 ) then
81 if ( ibits(iBC(in),3,3) .eq. 5 ) then
93 if ( ibits(iBC(in),3,3) .eq. 6 ) then
105 if ( ibits(iBC(in),3,3) .eq. 7 ) then
/phasta/phSolver/compressible/
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
25 dimension y(nshg,nflow), iBC(nshg),
62 where (btest(iBC,1))
71 where (ibits(iBC,3,3) .eq. 1)
85 where (ibits(iBC,3,3) .eq. 2)
92 where (ibits(iBC,3,3) .eq. 3)
99 where (ibits(iBC,3,3) .eq. 4)
106 where (ibits(iBC,3,3) .eq. 5)
113 where (ibits(iBC,3,3) .eq. 6)
120 where (ibits(iBC,3,3) .eq. 7)
[all …]
H A Dbc3res.f1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
23 dimension y(nshg,ndof), iBC(nshg),
30 where (btest(iBC,0))
38 where (btest(iBC,2))
55 where (btest(iBC,2))
73 where (ibits(iBC,3,3) .eq. 1) ! bits of iBC= xy001zab
86 where (ibits(iBC,3,3) .eq. 2) ! bits of iBC= xy010zab
94 where (ibits(iBC,3,3) .eq. 3) ! bits of iBC= xy011zab
102 where (ibits(iBC,3,3) .eq. 4) ! bits of iBC= xy100zab
110 where (ibits(iBC,3,3) .eq. 5) ! bits of iBC= xy101zab
[all …]
H A Dbc3per.f1 subroutine bc3per (iBC, res, iper, ilwork,nQs) argument
21 dimension iBC(nshg),
29 if (btest(iBC(j),10)) then
52 subroutine bc3perSclr (iBC, res, iper) argument
72 dimension iBC(nshg),
80 if (btest(iBC(j),10)) then
H A Ditrdrv.f2 & iBC, BC, argument
47 & x(numnp,nsd), iBC(nshg),
154 if(BC_enable) call itrBC (yold, ac, iBC, BC, iper, ilwork)
236 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
303 call itrBC (yold, ac, iBC, BC, iper, ilwork)
305 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
357 & shpb, shglb, x, BC, iBC)
392 call asbwmod(yold, acold, x, BC, iBC,
399 call itrBC (y, ac, iBC, BC, iper, ilwork)
403 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
[all …]
H A Ditrfdi.f3 & iBC, BC, iper,
43 & iBC(nshg), BC(nshg,ndofBC),
71 & shgl, iBC,
105 & shgl, iBC,
122 & shgl, iBC,
153 & iBC, BC, engBC, iper,
193 & iBC(nshg), BC(nshg,ndofBC),
210 & shgl, wght, iBC,
236 & shgl, wght, iBC,
248 & shgl, wght, iBC,
H A Dbc3bdg.f1 subroutine bc3BDg (y, iBC, BC, BDiag, iper, ilwork) argument
26 dimension y(nshg,ndof), iBC(nshg),
39 where (btest(iBC,0))
64 where (btest(iBC,2)) ! pressure
82 where (ibits(iBC,3,3) .eq. 1)
120 where (ibits(iBC,3,3) .eq. 2)
158 where (ibits(iBC,3,3) .eq. 3)
192 where (ibits(iBC,3,3) .eq. 4)
230 where (ibits(iBC,3,3) .eq. 5)
264 where (ibits(iBC,3,3) .eq. 6)
[all …]
H A Dbc3lhs.f1 subroutine bc3LHS (iBC, BC, iens, EGmass ) argument
24 dimension iBC(nshg), ien(npro,nshl),
45 if (iBC(in) .eq. 0) goto 5000
55 if ( btest(iBC(in),2) ) then
73 if ( ibits(iBC(in),3,3) .eq. 1) then
95 if ( ibits(iBC(in),3,3) .eq. 2 ) then
118 if ( ibits(iBC(in),3,3) .eq. 3 ) then
142 if ( ibits(iBC(in),3,3) .eq. 4 ) then
165 if ( ibits(iBC(in),3,3) .eq. 5 ) then
189 if ( ibits(iBC(in),3,3) .eq. 6 ) then
[all …]
/phasta/phSolver/common/
H A Dgenbc.f1 subroutine genBC (iBC, BC, x, ilwork, iper) argument
29 dimension iBC(nshg), nsurf(nshg),
64 where (btest(iBC,10))
75 call genwnm (iBC, BCtmp, x, ilwork, iper, nsurf)
79 call genotwn (x,BCtmp, iBC, nsurf)
89 call genBC1 (BCtmp, iBC, BC)
96 iBCg=iBC
97 call genBC1 (BCtmp, iBC, BC)
102 call findslpw(x,ilwork,iper,iBC)
108 & iBC(nn), BC(nn,:),
[all …]
H A DslpwBC.f1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
5 integer nslpw,ihis,iBCg,iBC local
25 iBC = iBCg-(ixset*8+iyset*16+izset*32)
36 iBC = iBC+8
41 iBC=iBC+16
46 iBC=iBC+32
81 iBC=iBC + 48
88 iBC=iBC+40
95 iBC=iBC+24
124 iBC=iBC+48
[all …]
H A Dgenbc1.f1 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
45 where (ibits(iBC,3,3) .eq. 1)
54 where (ibits(iBC,3,3) .eq. 2)
68 if(ibits(iBC(i),3,3) .eq. 3 .and.
75 where (ibits(iBC,3,3) .eq. 3)
[all …]
H A Dqpbc.f1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
16 & iBC(nshg), iper(nshg),uv(nshg,2),
25 call rotabc(uv, iBC, 'in ')
47 if ((btest(iBC(j),10))) then
56 if ((btest(iBC(j),10))) then
102 call rotabc(uv, iBC, 'out')
117 subroutine qpbcSclr( rmass, qres, iBC, iper, ilwork ) argument
132 & iBC(nshg), iper(nshg)
135 & call rotabc(qres, iBC, 'in ')
149 if (btest(iBC(j),10)) then
[all …]
H A Dgenini.f1 subroutine genini (iBC, BC, y, ac, iper, ilwork, argument
32 dimension iBC(nshg), iper(nshg),
72 call getvel (y, ilwork, iBC,
82 call initBCt( x, iBC, BC)
83 call BCint(lstep*Delt(1),shp,shgl,shpb,shglb,x, BC, iBC)
142 call itrBC (y, ac, iBC, BC, iper, ilwork)
147 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
150 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
154 call genscale(y, x, iBC)
H A Dgenibc.f1 subroutine geniBC (iBC) argument
38 dimension iBC(nshg)
44 iBC = 0
47 where (nBC(:) .ne. 0) iBC(:) = iBCtmp(nBC(:))
85 iBC = iBC + iBCpart
H A Drotabc.f1 subroutine rotabc (global, iBC, code) argument
20 dimension global(nshg,2), iBC(nshg),
26 where( btest(iBC,10))
32 where( btest(iBC,10))
H A Dgendat.f1 subroutine gendat (y, ac, x, iBC, BC, argument
27 & x(numnp,nsd), iBC(nshg),
107 call geniBC (iBC)
111 call genBC (iBC, BC, point2x,
145 call findWallNorm(x,iBC,ilwork,iper)
183 iBC(ignd)=ior(iBC(ignd),2**13)
219 call eqn_plane(point2x, iBC)
226 call genini (iBC, BC, y,
H A Dgetvel.f1 subroutine getvel (y,ilwork, iBC, argument
16 & ilwork(nlwork), iBC(numnp)
33 where(btest(iBC,10).or.btest(iBC,12))
40 where(btest(iBC,10).or.btest(iBC,12))
/phasta/phSolver/AMG/
H A Dramg_driver.f17 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
34 integer,intent(in),dimension(nshg) :: iBC,iper local
53 & ilwork,BC,iBC,iper)
65 & ilwork,BC,iBC,iper,2) !dx1
69 & ilwork,BC,iBC,iper,1)
75 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
78 & ilwork,BC,iBC,iper) ! v2hat
84 & ilwork,BC,iBC,iper,1)
107 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper,iterNum) argument
124 integer,intent(in),dimension(nshg) :: iBC,iper local
[all …]
H A Dramg_smoother.f6 & ilwork,BC,iBC,iper, argument
17 integer,intent(in),dimension(nshg) :: iBC,iper local
27 call commOut(v,ilwork,1,iper,iBC,BC)
29 call commIn(utmp,ilwork,3,iper,iBC,BC)
41 call commOut(utmp4,ilwork,4,iper,iBC,BC)
43 call commIn(u,ilwork,1,iper,iBC,BC)
98 & ilwork,BC,iBC,iper) argument
112 integer,intent(in),dimension(nshg) :: iBC,iper local
129 call ramg_calcAv_b(clevel,tmp,v2,ilwork,BC,iBC,iper,1,0)
169 & ilwork,BC,iBC,iper) argument
[all …]
H A Dramg_mls.f10 & ilwork,BC,iBC,iper) argument
27 integer,intent(in),dimension(nshg) :: iBC,iper local
137 & ilwork,BC,iBC,iper,1)
141 & ilwork,BC,iBC,iper)
190 & ilwork,BC,iBC,iper) argument
207 integer,intent(in),dimension(nshg) :: iBC,iper local
317 & ilwork,BC,iBC,iper,1)
321 & ilwork,BC,iBC,iper)
367 subroutine ramg_mls_coeff(level,ilwork,BC,iBC,iper) argument
372 & ilwork,BC,iBC,iper) argument
[all …]
H A Dramg_control.f8 & ilwork,BC,iBC,iper) argument
18 integer, intent(in),dimension(nshg) :: iBC,iper local
36 & ilwork,BC,iBC,iper)
38 call ramg_prep(ilwork,BC,iBC,iper)
39 call ramg_init_ilwork(ilwork,BC,iBC,iper)
43 & ilwork,BC,iBC,iper)
46 & ilwork,BC,iBC,iper)
57 call ramg_ggb_setup(colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
67 subroutine ramg_prep(ilwork,BC,iBC,iper)
74 integer,intent(in),dimension(nshg) :: iBC,iper variable
[all …]
H A Dramg_cheby.f10 & ilwork,BC,iBC,iper,fwdbck) argument
17 integer,intent(in),dimension(nshg) :: iBC,iper local
54 & ilwork,BC,iBC,iper,1)
59 & ilwork,BC,iBC,iper,1)
83 & ilwork,BC,iBC,iper,1)
91 & ilwork,BC,iBC,iper,1)
107 & ilwork,BC,iBC,iper) argument
118 integer,intent(in),dimension(nshg) :: iBC,iper local
130 & ilwork,BC,iBC,iper)

123