Home
last modified time | relevance | path

Searched refs:ac (Results 1 – 25 of 40) sorted by relevance

12

/phasta/phSolver/incompressible/
H A DitrPC.f65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
69 real*8 y(nshg,ndof), ac(nshg,ndof), local
78 ac = acold * fct
92 ac = 0.0
97 ac = acold
105 ac = acold*fct2+(y-yold)*fct3
117 subroutine itrCorrect ( y, ac, u, solinc ,iBC) argument
121 real*8 y(nshg,ndof), ac(nshg,ndof), local
130 ac(:,1:3) = ac(:,1:3) + solinc(:,1:3)
148 subroutine itrCorrectSclr ( y, ac, solinc ) argument
[all …]
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
24 & ac(nshg,nflow), BC(nshg,ndofBC)
108 ac(:,i) = ac(iper(:),i)
115 call commu (ac, ilwork, nflow, 'out')
122 call rotabc(ac, iBC, 'out')
132 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
143 & ac(nshg,ndof), BC(nshg,ndofBC)
175 ac(i,id) = ac(iper(i),id)
184 T=ac(:,id)
186 ac(:,id)=T
H A Dgenlmass.f172 subroutine lmassadd ( ac, res, argument
178 real*8 ac(nshg,ndof), res(nshg,4), tmp,tmp1 local
206 res(:,1)=res(:,1)-ac(:,1)*rho(:)
207 res(:,2)=res(:,2)-ac(:,2)*rho(:)
208 res(:,3)=res(:,3)-ac(:,3)*rho(:)
214 subroutine lmassaddSclr ( ac, res, argument
220 real*8 ac(nshg), res(nshg), tmp, tmp1 local
245 res(:)=res(:)-ac(:)*rho(:)
H A Dsoldir.f1 subroutine SolDir (y, ac, yold, acold, argument
18 dimension y(nshg,ndof), ac(nshg,ndof),
45 call itrYAlpha( yold, acold, y, ac, yAlpha, acAlpha)
123 call itrCorrect ( y, ac, solinc, iBC)
124 call itrBC (y, ac, iBC, BC, iper, ilwork)
H A Dasigmr.f1 subroutine AsIGMR (y, ac, x, xmudmi, argument
22 dimension y(nshg,ndofl), ac(nshg,ndofl),
59 call localy(ac, acl, ien, ndofl, 'gather ')
125 subroutine AsIGMRSclr(y, ac, x, argument
140 dimension y(nshg,ndofl), ac(nshg,ndofl),
165 call localy(ac, acl, ien, ndofl, 'gather ')
H A Ditrdrv.f1 subroutine itrdrv (y, ac, argument
55 real*8 y(nshg,ndof), ac(nshg,ndof), local
155 acold = ac
290 call itrBCSclr(yold,ac,iBC,BC,iper,ilwork)
362 call itrPredict(yold, y, acold, ac , uold, u, iBC)
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)
389 call SolFlow(y, ac, u,
419 ac(:,7) = zero
[all …]
H A DelmStats.f79 subroutine elmStatsRes( y, ac, x, shp, shgl, argument
88 real*8 y(nshg,ndof), ac(nshg,ndof), x(numnp,nsd), local
107 call ElmGMR (y, ac, x,
H A Dasbflx.f1 subroutine AsBFlx (u, y, ac, argument
19 & ac(nshg,ndofl), u(nshg,nsd),
50 call localy(ac, acl, ienb, ndofl, 'gather ')
/phasta/phSolver/compressible/
H A DitrPC.f57 & y, ac ) argument
62 & y(nshg,ndof), ac(nshg,ndof) local
72 ac = acold*(one-almi/gami)
80 call itrBC (y, ac, iBC, BC, iper,ilwork)
85 ac = acold*(one-almi)
93 call itrBC (y, ac, iBC, BC, iper,ilwork)
98 ac = acold
109 call itrBC (y, ac, iBC, BC, iper,ilwork)
114 ac = acold*fct2+(y-yold)*fct3
128 subroutine itrCorrect ( y, ac,yold, acold,Dy) argument
[all …]
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
26 & ac(nshg,nflow), BC(nshg,ndofBC)
177 if(ires.ne.2) ac(:,i) = ac(iper(:),i)
184 if(ires.ne.2) call commu (ac, ilwork, nflow, 'out')
191 if(ires.ne.2) call rotabc(ac, iBC, 'out')
201 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
212 & ac(nshg,ndof), BC(nshg,ndofBC)
240 ac(i,id) = ac(iper(i),id)
250 T=ac(:,id)
252 ac(:,id)=T
H A Ditrdrv.f1 subroutine itrdrv (y, ac, uold, x, argument
45 dimension y(nshg,ndof), ac(nshg,ndof),
149 acold = ac
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)
398 call itrPredict( yold, acold, y, ac )
399 call itrBC (y, ac, iBC, BC, iper, ilwork)
403 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
[all …]
H A DrstatCheck.f1 subroutine rstatCheck (res, ilwork,y,ac) argument
27 real*8 y(nshg,ndof),ac(nshg,ndof) local
89 subroutine rstatCheckSclr (rest, ilwork,y,ac) argument
114 real*8 y(nshg,ndof),ac(nshg,ndof) local
165 ac(:,5) = rest(:) ! T dot in 'ac' is filled with scl. res
166 call restar('out ',y,ac)
H A Ditrfdi.f1 subroutine itrFDI (ypre, y, ac, x, argument
40 & x(numnp,nsd), ac(nshg,ndof),
75 & ac)
108 & iper, ilwork, ac)
125 & iper, ilwork, ac)
213 & iper, ilwork, ac)
239 & iper, ilwork, ac)
251 & iper, ilwork, ac)
H A Dau2mfg.f1 subroutine Au2MFG (ypre, y, ac, x, argument
35 & x(numnp,nsd), ac(nshg,ndof),
78 & iper, ilwork, ac)
102 & iper, ilwork, ac)
H A Dasigmr.f1 subroutine AsIGMR (y, ac, x, xmudmi, argument
19 dimension y(nshg,ndofl), ac(nshg,ndofl),
53 call localy(ac, acl, ien, ndofl, 'gather ')
123 subroutine AsIGMRSclr (y, ac, argument
141 & ac(nshg,ndof),
167 call localy (ac, acl, ien, ndof, 'gather ')
H A Dau1mfg.f1 subroutine Au1MFG (ypre, y, ac, x, argument
40 & x(numnp,nsd), ac(nshg,ndof),
77 & iper, ilwork, ac)
H A Dsolmfg.f1 subroutine SolMFG (y, ac, yold, acold, argument
41 dimension y(nshg,ndof), ac(nshg,ndof),
71 call ElmMFG (y, ac, x,
166 call itrFDI (ypre, y, ac,
186 call Au2MFG (ypre, y, ac,
228 call Au1MFG (ypre, y, ac,
H A Dasiflx.f1 subroutine AsIFlx (y, ac, x, xmudmi, shp, argument
15 dimension y(nshg,ndof), ac(nshg,ndof),
44 call localy(ac, acl, ien, ndof, 'gather ')
H A Dasires.f3 & rmes, ac) argument
17 & x(numnp,nsd), ac(nshg,nflow),
57 call localy(ac, acl, ien, nflow, 'gather ')
H A Dasimfg.f1 subroutine AsIMFG (y, ac, x, xmudmi, shp, argument
17 dimension y(nshg,ndofl), ac(nshg,ndofl),
50 call localy(ac, acl, ien, ndofl, 'gather ')
H A Dsolgmr.f1 subroutine SolGMRe (y, ac, yold, acold, argument
42 dimension y(nshg,ndof), ac(nshg,ndof),
77 call ElmGMRe(y, ac, x,
368 subroutine SolGMRs(y, ac, yold, acold, argument
414 dimension y(nshg,ndof), ac(nshg,ndof),
449 call ElmGMRs(y, ac, x,
485 call rstatCheck(res,ilwork,y,ac)
746 subroutine SolGMRSclr(y, ac, yold, argument
791 dimension y(nshg,ndof), ac(nshg,ndof),
818 call ElmGMRSclr(y, ac,
[all …]
/phasta/phSolver/common/
H A Drestar.f1 subroutine restar (code, q, ac) argument
28 dimension q(nshg,ndof),ac(nshg,ndof)
43 ac(:,1:3)=acold(:,2:4)
44 ac(:,4)=acold(:,1)
45 if(ndof.gt.4) ac(:,5:ndof)=acold(:,5:ndof)
78 acold(:,2:4) = ac(:,1:3)
79 acold(:,1) = ac(:,4)
80 if(ndof.gt.4) acold(:,5:ndof) = ac(:,5:ndof)
H A Dgenini.f1 subroutine genini (iBC, BC, y, ac, iper, ilwork, argument
34 & ac(nshg,ndof), x(numnp,nsd),
56 call restar ('in ', y, ac)
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)
H A Dasbwmod.f1 subroutine asbwmod (y, ac, x, BC, iBC, argument
17 & ac(nshg,ndof)
30 call itrBCSclr (y, ac, iBC, BC, iper, ilwork)
H A Dproces.f27 & ac(nshg,ndof)
58 call gendat (y, ac, point2x,
94 call restar ('out ', y ,ac)
205 call itrdrv (y, ac,

12