Home
last modified time | relevance | path

Searched refs:iper (Results 1 – 25 of 62) sorted by relevance

123

/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)
H A Dramg_paratools.f11 & ilwork,BC,iBC,iper) argument
28 integer,intent(in),dimension(nshg) :: iBC,iper local
488 & ilwork,BC,iBC,iper) argument
500 integer,intent(in),dimension(nshg) :: iBC,iper local
515 call commOut(t1,ilwork,1,iper,iBC,BC)
517 call commIn(t2,ilwork,3,iper,iBC,BC)
526 call commOut(t2b,ilwork,4,iper,iBC,BC)
528 call commIn(t1,ilwork,1,iper,iBC,BC)
544 & ilwork,BC,iBC,iper) argument
557 integer,intent(in),dimension(nshg) :: iBC,iper local
[all …]
/phasta/phSolver/compressible/
H A Dbc3per.f1 subroutine bc3per (iBC, res, iper, ilwork,nQs) argument
23 & iper(nshg)
30 i = iper(j)
52 subroutine bc3perSclr (iBC, res, iper) argument
74 & iper(nshg)
81 i = iper(j)
H A Ditrdrv.f3 & iper, ilwork, shp, argument
49 & iper(nshg), uold(nshg,nsd)
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)
370 & iper, ilwork, nsons,
376 & iper, ilwork,
382 & iper, ilwork, x)
393 & iper, ilwork, ifath, velbar)
[all …]
H A Ditrfdi.f3 & iBC, BC, iper,
45 & iper(nshg)
74 & iper, ilwork,
108 & iper, ilwork, ac)
125 & iper, ilwork, ac)
153 & iBC, BC, engBC, iper,
195 & iper(nshg)
213 & iper, ilwork, ac)
239 & iper, ilwork, ac)
251 & iper, ilwork, ac)
H A Dau2mfg.f4 & iper, ilwork,
40 & iper(nshg), Dy2(nshg,nflow)
71 call itrBC (uBrg, uBrg, iBC, BC, iper, ilwork)
78 & iper, ilwork, ac)
95 call itrBC (uBrg, uBrg, iBC, BC, iper, ilwork)
102 & iper, ilwork, ac)
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
28 dimension ilwork(nlwork), iper(nshg)
176 y(:,i) = y(iper(:),i)
177 if(ires.ne.2) ac(:,i) = ac(iper(:),i)
201 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
214 dimension ilwork(nlwork), iper(nshg)
239 y(i,id) = y(iper(i),id)
240 ac(i,id) = ac(iper(i),id)
H A Dau1gmr.f1 subroutine Au1GMR (EGmass, uBrg, ilwork,iBC,iper ) argument
25 & iper(nshg)
36 uBrg(:,j)=uBrg(iper(:),j)
110 subroutine Au1GMRSclr (EGmasst, uBrg, ilwork, iper ) argument
132 & uBtmp(nshg), ilwork(nlwork), iper(nshg)
142 uBrg(:)=uBrg(iper(:))
H A Dsolgmr.f4 & yBrg, Rcos, Rsin, iper,
51 & iper(nshg), EGmass(numel,nedof,nedof)!,
81 & rmes, BDiag, iper,
162 call Au1GMR (EGmass, temp, ilwork, iBC,iper)
166 call bc3per (iBC, temp, iper, ilwork, nflow)
211 call Au1GMR ( EGmass, uBrg(:,:,iKs+1), ilwork, iBC,iper)
215 call bc3per (iBC, uBrg(:,:,iKs+1), iper, ilwork, nflow)
372 & yBrg, Rcos, Rsin, iper,
423 & iper(nshg)
453 & rmes, BDiag, iper,
[all …]
H A Dau1mfg.f4 & iper, ilwork, shp,
44 & BC(nshg,ndofBC), iper(nshg)
70 call itrBC (uBrg, uBrg, iBC, BC, iper, ilwork)
77 & iper, ilwork, ac)
H A Dbc3res.f1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
26 & iper(nshg)
159 i = iper(j)
208 & iper, ilwork) argument
233 & iper(nshg)
247 i = iper(j)
/phasta/phSolver/incompressible/
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
26 dimension ilwork(nlwork), iper(nshg)
107 y(:,i) = y(iper(:),i)
108 ac(:,i) = ac(iper(:),i)
132 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
145 dimension ilwork(nlwork), iper(nshg)
174 y(i,id) = y(iper(i),id)
175 ac(i,id) = ac(iper(i),id)
H A DelmStats.f1 subroutine elmStatsLhs( x, iBC, iper, ilwork ) argument
12 integer iBC(nshg), iper(nshg), ilwork(nlwork) local
61 i = iper(j)
67 stsVec(i,:) = stsVec(iper(i),:)
81 & iper, ilwork, rowp, colm, argument
95 integer iBC(nshg), iper(nshg), local
110 & res, iper, ilwork,
H A Dbc3res.f1 subroutine bc3Res ( iBC, BC, res, iper, ilwork) argument
25 & iper(nshg)
29 call bc3per(iBC, res, iper, ilwork, nflow)
137 subroutine bc3ResSclr (iBC, res, iper, ilwork) argument
143 & iper(nshg)
161 call bc3per(iBC, res, iper, ilwork, 1)
H A DsolveGradV.f1 subroutine solveGradV( rmass, qres, iBC, iper, ilwork ) argument
16 & iBC(nshg), iper(nshg)
33 i = iper(j)
42 i = iper(j)
H A Dbc3per.f1 subroutine bc3per (iBC, res, iper, ilwork,nQs) argument
24 & iper(nshg)
30 i = iper(j)
H A Ditrdrv.f4 & iper, ilwork, shp, argument
73 & iper(nshg), ifuncs(6) local
290 call itrBCSclr(yold,ac,iBC,BC,iper,ilwork)
341 & iper, ilwork, rowp, colm,
352 & iper, ilwork, ifath, velbar)
363 call itrBC (y, ac, iBC, BC, iper,ilwork)
367 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
370 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
393 & iper,
420 call itrBCSclr ( y, ac, iBC, BC, iper,
[all …]
/phasta/phSolver/common/
H A Dqpbc.f1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
16 & iBC(nshg), iper(nshg),uv(nshg,2),
48 i = iper(j)
57 i = iper(j)
117 subroutine qpbcSclr( rmass, qres, iBC, iper, ilwork ) argument
132 & iBC(nshg), iper(nshg)
150 i = iper(j)
158 i = iper(j)
H A Dasbwmod.f2 & iper, ilwork, ifath, velbar) argument
15 & iper(nshg), ilwork(nlwork),
30 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
H A Dperprep.f23 subroutine perprep (iBC, iper,nshg) argument
28 & iper(nshg)
37 i = iper(j)
H A Dsonfath.f12 & nsons(tfath),dummy(numnp),iper(numnp), vnumnpl(numpe) local
121 read(96) (iper(l),l=1,numnp)
127 if(iper(i).eq.0)then
128 iper(i)=i
132 i = iper(j)

123