Home
last modified time | relevance | path

Searched refs:res (Results 1 – 25 of 43) sorted by relevance

12

/phasta/phSolver/incompressible/
H A Dbc3diag.f1 subroutine bc3Diag (iBC, BC, res) argument
23 & res(nshg,4)
28 res(:,4) = zero
50 res(:,2) = res(:,2) - BC(:,4) * res(:,1)
51 res(:,3) = res(:,3) - BC(:,5) * res(:,1)
52 res(:,1) = zero
58 res(:,1) = res(:,1) - BC(:,4) * res(:,2)
59 res(:,3) = res(:,3) - BC(:,5) * res(:,2)
60 res(:,2) = zero
66 res(:,3) = res(:,3) - BC(:,4) * res(:,1) - BC(:,6) * res(:,2)
[all …]
H A Dbc3res.f1 subroutine bc3Res ( iBC, BC, res, iper, ilwork) argument
24 & res(nshg,nflow), ilwork(nlwork),
29 call bc3per(iBC, res, iper, ilwork, nflow)
34 res(:,4) = zero
56 res(:,2) = res(:,2) - BC(:,4) * res(:,1)
57 res(:,3) = res(:,3) - BC(:,5) * res(:,1)
58 res(:,1) = zero
64 res(:,1) = res(:,1) - BC(:,4) * res(:,2)
65 res(:,3) = res(:,3) - BC(:,5) * res(:,2)
66 res(:,2) = zero
[all …]
H A Dstats.f94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
102 res = stsVec(i,:)
103 reg = res(1) * res(2) * res(3)
104 det = res(1) * (res(2) * res(3) - res(5) * res(5))
105 & + res(4) * (res(5) * res(6) - res(4) * res(3))
106 & + res(6) * (res(4) * res(5) - res(2) * res(6))
111 stsReg(i) = (res(1) + res(2) + res(3)) / 1000.
119 res = stsVec(i,:)
121 r0 = res(1) + reg
122 r1 = res(2) + reg
[all …]
H A Dbc3per.f1 subroutine bc3per (iBC, res, iper, ilwork,nQs) argument
23 & res(nshg,nQs), ilwork(nlwork),
31 res(i,:) = res(i,:) + res(j,:)
32 res(j,:) = zero
54 res(isgbeg:isgend,:) = zero
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 Delmgmr.f4 & res, iper, ilwork, argument
33 & res(nshg,nflow),
128 res = zero
174 & res,
216 call lmassadd(ac,res,rowp,colm,lhsK,gmass)
296 & res, xKebe)
330 call ElmpvsQ (res,y,-1.0d0)
340 & call rotabc(res, iBC, 'in ')
347 call commu (res , ilwork, nflow , 'in ')
355 call bc3Res (iBC, BC, res, iper, ilwork)
[all …]
H A Dsoldir.f4 & res, argument
22 & res(nshg,nflow),
54 & res, iper, ilwork,
95 dyf(i0+1) = res(i,1)
96 dyf(i0+2) = res(i,2)
97 dyf(i0+3) = res(i,3)
98 dyf(i0+4) = res(i,4)
128 call rstatic (res, y, solinc)
H A Dasbmfg.f4 & res, xKebe) argument
25 & res(nshg,nflow), dwl(npro,nenl)
70 call local (res, rl, ienb, nflow, 'scatter ')
89 & res) argument
98 & res(nshg)
127 call local (res, rl, ienb, 1, 'scatter ')
H A Dsolfar.f4 & BC, res, iper, argument
86 & res(nshg,nflow), tmpres(nshg,nflow), local
148 & res, iper, ilwork,
157 tmpres(:,:) = res(:,:)
174 Res4(1:dof,i) = res(i,1:dof)
244 rtmp = res(:,1:4)
270 rtmp = res(:,1:4)
334 call rstatic (res, y, solinc) ! output flow stats
395 & res(nshg,1), local
442 & res, iper, ilwork,
[all …]
H A Dasigmr.f3 & res, qres, argument
26 & res(nshg,nflow),
100 call local (res, rl, ien, nflow, 'scatter ')
127 & res, qres, xSebe, xmudmi ) argument
144 & res(nshg), qres(nshg,nsd)
187 call local (res, rl, ien, 1, 'scatter ')
H A Drstatic.f1 subroutine rstatic (res, y, Dy) argument
22 dimension res(nshg,nflow), mproc(1)
65 rtmp = rtmp + res(:,i)**2 ! only add continuity and momentum
209 subroutine rstaticSclr (res, y, Dy, icomp) argument
221 dimension res(nshg)
245 rtmp = rtmp + res**2 ! add temperature also
/phasta/phSolver/compressible/
H A Dbc3res.f1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
25 & res(nshg,nflow), ilwork(nlwork),
31 res(:,5) = res(:,5) + BC(:,1)*Rgas* res(:,1) !IDEAL GAS ASSUMED
32 res(:,1) = zero
46 res(:,2) = res(:,2) -y(:,1)*res(:,1)
47 res(:,3) = res(:,3) -y(:,2)*res(:,1)
48 res(:,4) = res(:,4) -y(:,3)*res(:,1)
49 res(:,5) = res(:,5) -
51 & + pt5 * ( y(:,1)**2 + y(:,2)**2 + y(:,3)**2))*res(:,1)
52 res(:,1) = zero
[all …]
H A Dbc3per.f1 subroutine bc3per (iBC, res, iper, ilwork,nQs) argument
22 & res(nshg,nQs), ilwork(nlwork),
31 res(i,:) = res(i,:) + res(j,:)
32 res(j,:) = zero
52 subroutine bc3perSclr (iBC, res, iper) argument
73 & res(nshg),
82 res(i) = res(i) + res(j)
83 res(j) = zero !changed
H A Dsolmfg.f3 & iBC, BC, res, argument
45 & res(nshg,nflow),
75 & res, rmes,
93 & call i3LU (BDiag, res, 'LU_Fact ')
98 call i3LU (BDiag, res, 'forward ')
117 uBrg(:,:,1) = res
139 temp = res**2
168 & res, BDiag, iBC,
188 & res, Dy, temp,
230 & res, temp, BDiag,
[all …]
H A Dsolgmr.f3 & res, BDiag, HBrg, eBrg,
46 & res(nshg,nflow),
80 & shglb, res,
83 rmes=res ! saving the b vector (residual)
95 & call i3LU (BDiag, res, 'LU_Fact ')
100 call i3LU (BDiag, res, 'forward ')
120 uBrg(:,:,1) = res
124 temp = res**2
174 temp = res - temp
352 call rstat (res, ilwork,rmes)
[all …]
H A Delmmfg.f4 & res, rmes, BDiag, argument
25 & res(nshg,nflow),
118 res = zero
155 & mmat(iblk)%p, res,
204 & res, rmes)
218 call rotabc(res(1,2), iBC, 'in ')
225 call commu (res , ilwork, nflow , 'in ')
238 call bc3Res (y, iBC, BC, res, iper, ilwork)
H A Delmgmr.f4 & res, rmes, BDiag, argument
27 & res(nshg,nflow),
117 res = zero
158 & mmat(iblk)%p, res,
212 & res, rmes)
231 call rotabc(res(1,2), iBC, 'in ')
250 call commu (res , ilwork, nflow , 'in ')
262 call bc3Res (y, iBC, BC, res, iper, ilwork)
283 & res, rmes, BDiag, argument
310 & res(nshg,nflow),
[all …]
H A DrstatCheck.f1 subroutine rstatCheck (res, ilwork,y,ac) argument
22 dimension res(nshg,nflow)
38 rtmp = rtmp + res(:,i)**2
74 call restar('out ',y,res) ! 'res' is used instead of 'ac'
H A Delmgmrpetsc.f9 & res, rmes, argument
37 & res(nshg,nflow),
131 res = zero
179 & mmat(iblk)%p, res,
248 & res, rmes)
265 call rotabc(res(1,2), iBC, 'in ')
273 call commu (res , ilwork, nflow , 'in ')
283 call bc3Res (y, iBC, BC, res, iper, ilwork)
290 call commu (res , ilwork, nflow , 'out')
H A Dau2mfg.f2 & rmes, res, Dy,
37 & res(nshg,nflow), Dy(nshg,nflow),
108 uBrg = res - ( uBtmp1 - uBtmp2 ) / (two * eps)
/phasta/phSolver/common/
H A Dph_mpi_help.c5 int res = 0; in ph_ar_int() local
6 int err = MPI_Allreduce(&val,&res,1,MPI_INT,op,MPI_COMM_WORLD); in ph_ar_int()
8 return res; in ph_ar_int()
11 double res = 0; in ph_ar_dbl() local
12 int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD); in ph_ar_dbl()
14 return res; in ph_ar_dbl()
17 long res = 0; in ph_ar_long() local
18 int err = MPI_Allreduce(&val,&res,1,MPI_LONG,op,MPI_COMM_WORLD); in ph_ar_long()
20 return res; in ph_ar_long()
/phasta/phastaIO/
H A Dphiompi.c5 size_t res = 0; in phio_ar_sizet() local
6 int err = MPI_Allreduce(&val,&res,1,MPI_UNSIGNED_LONG,op,MPI_COMM_WORLD); in phio_ar_sizet()
8 return res; in phio_ar_sizet()
11 double res = 0; in phio_ar_dbl() local
12 int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD); in phio_ar_dbl()
14 return res; in phio_ar_dbl()
/phasta/svLS/
H A DSOLVE.f41 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, incL, res) argument
51 REAL*8, INTENT(IN), OPTIONAL :: res(lhs%nFaces) local
70 IF (.NOT.PRESENT(res) .AND. flag) THEN
77 IF (flag .AND. res(faIn).NE.0D0) THEN
78 lhs%face(faIn)%res = res(faIn)
H A DADDBCMUL.f59 coef = face%res
61 coef = -face%res/(1D0 + face%res*face%nS)
/phasta/phSolver/incompressible/test/
H A Drunphasta.cmake8 RESULT_VARIABLE res
11 if(res)

12