Lines Matching refs:gamb
1 subroutine e3eig1 (rho, T, cp, gamb, c, argument
41 & cp(npro), gamb(npro),
175 Q(:,1,5) = fact * ((c + u) * c - eb1 * gamb)
176 Q(:,2,5) = -fact * (c + u * gamb) * Rcs(:,1,1)
177 Q(:,3,5) = -fact * (c + u * gamb) * Rcs(:,1,2)
178 Q(:,4,5) = -fact * (c + u * gamb) * Rcs(:,1,3)
179 Q(:,5,5) = fact * gamb
181 Q(:,1,1) = fact * ((c - u) * c - eb1 * gamb)
182 Q(:,2,1) = fact * (c - u * gamb) * Rcs(:,1,1)
183 Q(:,3,1) = fact * (c - u * gamb) * Rcs(:,1,2)
184 Q(:,4,1) = fact * (c - u * gamb) * Rcs(:,1,3)
185 Q(:,5,1) = fact * gamb