Searched refs:fct1 (Results 1 – 6 of 6) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | e3massr.f | 77 fct1=almi/gami/alfi*dtgl
79 rmi(:,16) = rmi(:,16) + fct1*dui(:,1)
80 rmi(:,17) = rmi(:,17) + fct1*dui(:,2)
81 rmi(:,18) = rmi(:,18) + fct1*dui(:,3)
82 rmi(:,19) = rmi(:,19) + fct1*dui(:,4)
83 rmi(:,20) = rmi(:,20) + fct1*dui(:,5)
|
| H A D | itrPC.f | 105 fct1=alfi/(one-alfi)
108 y = yold+fct1*(yold-y)
144 fct1= (one-almi/gami)
146 ac= acold*fct1+(y-yold)*fct2
165 fct1= (one-almi/gami)
167 ac(:,is)= acold(:,is)*fct1+(y(:,is)-yold(:,is))*fct2
|
| H A D | e3juel.f | 51 fct1=almi/(gami*alfi)*Dtgl ! factor for predictor (scalar)
53 fddt=fact*fct1
|
| H A D | e3ls.f | 97 fct1=almi/gami/alfi*dtgl
103 if(ires.ne.1) rLymi = rLyi + fct1*dui
862 fct1=almi/gami/alfi*dtgl
953 A1tautA0(:) = Ataut(:)*(a0t(:)*fct1-srcp(:))
983 A2tautA0(:) = Ataut(:)*(a0t(:)*fct1-srcp(:))
1012 A3tautA0(:) = Ataut(:)*(a0t(:)*fct1-srcp(:))
|
| /phasta/phSolver/incompressible/ |
| H A D | itrPC.f | 101 fct1 = alfi/(one-alfi)
104 y = yold+fct1*(yold-y)
125 fct1 = gami*Delt(itseq)
128 y(:,1:3) = y(:,1:3) + fct1 * solinc(:,1:3)
155 fct1 = gami*Delt(itseq)
157 y(:,is) = y(:,is) + fct1 * solinc(:)
175 fct1 = gami*Delt(itseq)
176 if(fct1.eq.0) then
185 fctCr = fct1*updFct*updFct2
196 y(:,is) = y(:,is) + fct1 * posinc(:)
|
| /phasta/phSolver/common/ |
| H A D | elm3keps.f | 129 real*8 fct1 local
|