Home
last modified time | relevance | path

Searched refs:compK (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/compressible/
H A De3visc.f6 & con, rlsli, compK, T)
53 & rlsli(npro,6), compK(npro,10),
230 compK(:, 1) = f1 * T * rlm2mu + f3 * T * rmu
233 compK(:, 2) = f2 * T * (rlm + rmu)
234 compK(:, 3) = f1 * T * rmu + f3 * T * rlm2mu
237 compK(:, 4) = f4 * T * (rlm + rmu)
238 compK(:, 5) = f5 * T * (rlm + rmu)
239 compK(:, 6) = f1 * T * rmu + f3 * T * rmu
242 compK(:, 7) = f1 * T * rlm2mu * u1 + f2 * T * (rlm + rmu) * u2
245 compK(:, 8) = f1 * T * rmu * u2 + f2 * T * (rlm + rmu) * u1
[all …]
H A De3tau.f290 & cv, compK, pres,
336 & A0inv(npro,15),gijdu(npro,6), compK(npro,10),
412 & Q(:,2,i) * ( compK(:, 1) * Q(:,2,i) + compK(:, 2) * Q(:,3,i)
413 & + compK(:, 4) * Q(:,4,i) + compK(:, 7) * Q(:,5,i) )
414 & + Q(:,3,i) * ( compK(:, 2) * Q(:,2,i) + compK(:, 3) * Q(:,3,i)
415 & + compK(:, 5) * Q(:,4,i) + compK(:, 8) * Q(:,5,i) )
416 & + Q(:,4,i) * ( compK(:, 4) * Q(:,2,i) + compK(:, 5) * Q(:,3,i)
417 & + compK(:, 6) * Q(:,4,i) + compK(:, 9) * Q(:,5,i) )
418 & + Q(:,5,i) * ( compK(:, 7) * Q(:,2,i) + compK(:, 8) * Q(:,3,i)
419 & + compK(:, 9) * Q(:,4,i) + compK(:,10) * Q(:,5,i) )
[all …]
H A De3.f89 & sforce(npro,3), compK(npro,10)
175 compK = zero
182 & con, rlsli, compK, T)
212 & compK, pres, PTau)
H A De3ls.f12 & compK, pres, PTau) argument
83 & compK(npro,10), ac1(npro),
214 & cv, compK, pres,