| /phasta/phSolver/compressible/ |
| H A D | bc3bdg.f | 52 BDiag(:,1,2) = zero
53 BDiag(:,1,3) = zero
54 BDiag(:,1,4) = zero
55 BDiag(:,1,5) = zero
56 BDiag(:,2,1) = zero
57 BDiag(:,3,1) = zero
58 BDiag(:,4,1) = zero
59 BDiag(:,5,1) = zero
66 BDiag(:,1,2) = zero
67 BDiag(:,1,3) = zero
[all …]
|
| H A D | bc3res.f | 32 res(:,1) = zero
52 res(:,1) = zero
56 res(:,1) = zero
81 res(:,2) = zero
89 res(:,3) = zero
96 res(:,2) = zero
97 res(:,3) = zero
105 res(:,4) = zero
112 res(:,2) = zero
113 res(:,4) = zero
[all …]
|
| H A D | bc3lhs.f | 58 EGmass(iel,i,i1) = zero
59 EGmass(iel,i1,i) = zero
87 EGmass(iel,i,i2) = zero
88 EGmass(iel,i2,i) = zero
110 EGmass(iel,i,i3) = zero
111 EGmass(iel,i3,i) = zero
131 EGmass(iel,i,i2) = zero
132 EGmass(iel,i2,i) = zero
133 EGmass(iel,i,i3) = zero
134 EGmass(iel,i3,i) = zero
[all …]
|
| H A D | BCprofile.f | 58 if(vbc_prof(kk,1).ne.zero) then
59 if(vbc_prof(kk,2).ne.zero) then ! both of these true means top FC
72 else if(vbc_prof(kk,2).ne.zero) then ! y true means low FC
131 if(vbc_prof(kk,1).ne.zero) then
132 if(vbc_prof(kk,2).ne.zero) then ! both of these true means top FC
133 if(ctrl_a(3).ge.zero) then
138 if(ctrl_a(1).ge.zero) then
141 if(ctrl_a(1).eq.zero) then
145 else if(vbc_prof(kk,2).ne.zero) then ! y true means low FC
146 if(ctrl_a(2).ge.zero) then
[all …]
|
| H A D | e3ivar.f | 94 dui = zero
112 Sclr = zero
142 pres = zero
143 u1 = zero
144 u2 = zero
145 u3 = zero
146 T = zero
159 rlsli = zero
171 rlsli = zero
186 aci = zero
[all …]
|
| H A D | e3qvar.f | 60 pres = zero
61 u1 = zero
62 u2 = zero
63 u3 = zero
64 T = zero
86 Sclr = zero
109 g1yi = zero
110 g2yi = zero
111 g3yi = zero
|
| H A D | e3bvar.f | 89 pres = zero
90 u1 = zero
91 u2 = zero
92 u3 = zero
93 T = zero
112 temp = zero
131 dxdxib = zero
230 gl1yi = zero
231 gl2yi = zero
232 gl3yi = zero
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | bc3global.f | 34 globMas(i0+1,:) = zero
35 globMas(:,i0+1) = zero
45 globMas(i0+2,:) = zero
46 globMas(:,i0+2) = zero
53 globMas(i0+3,:) = zero
54 globMas(:,i0+3) = zero
62 globMas(i0+2,:) = zero
63 globMas(:,i0+2) = zero
65 globMas(i0+3,:) = zero
66 globMas(:,i0+3) = zero
[all …]
|
| H A D | bc3diag.f | 28 res(:,4) = zero
52 res(:,1) = zero
60 res(:,2) = zero
67 res(:,1) = zero
68 res(:,2) = zero
76 res(:,3) = zero
83 res(:,1) = zero
84 res(:,3) = zero
91 res(:,2) = zero
92 res(:,3) = zero
[all …]
|
| H A D | bc3res.f | 34 res(:,4) = zero
58 res(:,1) = zero
66 res(:,2) = zero
73 res(:,1) = zero
74 res(:,2) = zero
82 res(:,3) = zero
89 res(:,1) = zero
90 res(:,3) = zero
97 res(:,2) = zero
98 res(:,3) = zero
[all …]
|
| H A D | e3source.f | 287 gradV = zero
314 dwall = zero
324 SclrNN= max(Sclr(e),zero)
372 dwall(e) = dwall(e)-fd*max(zero,dwall(e)-dmax)
387 ep=zero
388 if(Sclr(e).gt.zero) ep=one
403 r = zero
404 rp = zero
420 if(abs(r).gt.7.0d0) fwp=zero
426 tmp = zero
[all …]
|
| H A D | bc3lhs.f | 119 xKebe(iel,irem1,i,inod) = zero
120 xKebe(iel,irem2,i,inod) = zero
121 xKebe(iel,irem3,i,inod) = zero
176 xKebe(iel,irem1,inod,i) = zero
177 xKebe(iel,irem2,inod,i) = zero
178 xKebe(iel,irem3,inod,i) = zero
249 xKebe(iel,irem1,i,inod) = zero
250 xKebe(iel,irem2,i,inod) = zero
251 xKebe(iel,irem3,i,inod) = zero
289 xKebe(iel,irem1,inod,i) = zero
[all …]
|
| H A D | e3ivar.f | 81 pres = zero
82 u1 = zero
83 u2 = zero
84 u3 = zero
93 Temp = zero
100 xx = zero
109 dist2w = zero
117 rlsli = zero
129 rlsli = zero
134 aci = zero
[all …]
|
| H A D | e3b.f | 117 xmudmi=zero
173 unm(iel) = zero
184 pres(iel) = zero
195 tau1n(iel) = zero
196 tau2n(iel) = zero
197 tau3n(iel) = zero
214 pres(iel) = zero ! to avoid the gauss point loop
215 tau1n(iel) = zero ! and make the traction contribution
216 tau2n(iel) = zero ! zero
217 tau3n(iel) = zero
[all …]
|
| H A D | filters.f | 29 fresl = zero
41 dxdxi = zero
106 u1 = zero
107 u2 = zero
108 u3 = zero
109 S11 = zero
110 S22 = zero
111 S33 = zero
112 S12 = zero
113 S13 = zero
[all …]
|
| H A D | advLES.f | 49 xmudmif = zero
74 rlsl = zero
80 stressl = zero
81 dissl = zero
82 voll = zero
89 pres = zero
90 u1 = zero
91 u2 = zero
92 u3 = zero
104 aci = zero
[all …]
|
| H A D | elmgmr.f | 76 qres = zero
80 GradV = zero
82 rmass = zero
128 res = zero
130 flxID = zero
134 lhsp = zero
135 lhsk = zero
304 xGoC = zero
420 qres = zero
421 rmass = zero
[all …]
|
| H A D | rstatic.f | 34 rdy1 = zero
35 rdy2 = zero
36 rdy4 = zero
37 rdy5 = zero
62 rtmp = zero
159 if (resfrt(1) .eq. zero) resfrt(1) = totres
228 rdy1 = zero
229 rdy2 = zero
236 nrm = zero
244 rtmp = zero
|
| /phasta/phSolver/common/ |
| H A D | sympyr.c | 39 #define zero 0.0000000000000000 macro
114 { zero, mpt687, mpt774, 0.0 },
116 { mpt687, zero, mpt774, 0.0 },
117 { zero, zero, mpt774, 0.0 },
118 { ppt687, zero, mpt774, 0.0 },
120 { zero, ppt687, mpt774, 0.0 },
122 { mpt387, mpt387, zero, 0.0 },
123 { zero, mpt387, zero, 0.0 },
124 { ppt387, mpt387, zero, 0.0 },
125 { mpt387, zero, zero, 0.0 },
[all …]
|
| H A D | symtripyr.c | 23 #define zero 0.0000000000000000 macro
84 static double rst1[][3] = {{zero,-1,zero}};
98 { zero, mpt88, mpt77},
100 {mpt38, mpt5, zero},
101 { zero, mpt5, zero},
102 { pt38, mpt5, zero},
104 { zero, mpt11, pt77},
|
| H A D | solvecon.f | 36 rmass = zero
37 v_lambda = zero
38 v_lambda1 = zero
39 v_lambda2 = zero
40 hprime = zero
210 rmassl = zero
211 v_lambdal1= zero
212 v_lambdal2= zero
213 hprimel = zero
218 if (Qwt(lcsyst,intp) .eq. zero) cycle ! precaution
[all …]
|
| H A D | shp10t.f | 61 shgl(2,2,m) = zero
62 shgl(3,2,m) = zero
63 shgl(1,3,m) = zero
65 shgl(3,3,m) = zero
66 shgl(1,4,m) = zero
67 shgl(2,4,m) = zero
|
| H A D | shp4t.f | 59 shgl(2,2,m) = zero
60 shgl(3,2,m) = zero
61 shgl(1,3,m) = zero
63 shgl(3,3,m) = zero
64 shgl(1,4,m) = zero
65 shgl(2,4,m) = zero
|
| H A D | getvel.f | 34 velo(:,1)=zero
35 velo(:,2)=zero
36 velo(:,3)=zero
37 velo(:,4)=zero
41 velo(:,5)=zero
60 velo(isgbeg:isgend,:) = zero
61 velo(isgbeg:isgend,:) = zero
72 velf = zero
|
| H A D | cmass.f | 43 em = zero
97 em = zero
98 eml= zero
132 shape = zero
133 shdrv = zero
134 dxidx = zero
135 WdetJ = zero
136 shg = zero
220 em = zero
221 eml= zero
[all …]
|