Lines Matching refs:a5
31 real*8 a5(nshg) local
36 a5(i) = - y(i,5) * (Rgas * gamma / gamma1) !IDEAL GAS ASSUMED
43 BDiag(:,5,5) = BDiag(:,5,5) + a5 * a5 * BDiag(:,1,1) +
44 & a5 * BDiag(:,1,5) +
45 & a5 * BDiag(:,5,1)
46 BDiag(:,4,5) = BDiag(:,4,5) + a5 * BDiag(:,4,1)
47 BDiag(:,3,5) = BDiag(:,3,5) + a5 * BDiag(:,3,1)
48 BDiag(:,2,5) = BDiag(:,2,5) + a5 * BDiag(:,2,1)
49 BDiag(:,5,4) = BDiag(:,5,4) + a5 * BDiag(:,1,4)
50 BDiag(:,5,3) = BDiag(:,5,3) + a5 * BDiag(:,1,3)
51 BDiag(:,5,2) = BDiag(:,5,2) + a5 * BDiag(:,1,2)