Lines Matching refs:fact

49         dimension Rcs(npro,nsd,nsd),         fact(npro),
57            fact       = one / u
58            Rcs(:,1,1) = u1 * fact
59            Rcs(:,1,2) = u2 * fact
60            Rcs(:,1,3) = u3 * fact
71         fact = a1 * Rcs(:,1,1) + a2 * Rcs(:,1,2) + a3 * Rcs(:,1,3)
72         a1   = a1 - fact * Rcs(:,1,1)
73         a2   = a2 - fact * Rcs(:,1,2)
74         a3   = a3 - fact * Rcs(:,1,3)
75         fact = a1**2 + a2**2 + a3**2
77         where (fact .gt. epsM)
92           fact = Rcs(:,2,1)**2 + Rcs(:,2,2)**2 + Rcs(:,2,3)**2
96 	fact = one / sqrt(fact)
98         Rcs(:,2,1) = Rcs(:,2,1) * fact
99         Rcs(:,2,2) = Rcs(:,2,2) * fact
100         Rcs(:,2,3) = Rcs(:,2,3) * fact
173         fact     =  (one / sqrt( two * rho * T )) / c
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
188         Q(:,2,3) = -fact * c * sqt2 * Rcs(:,2,1) ! + in original Jo/Sh code
189         Q(:,3,3) = -fact * c * sqt2 * Rcs(:,2,2) ! could be error here,
190         Q(:,4,3) = -fact * c * sqt2 * Rcs(:,2,3) ! but unlikely
194         Q(:,2,2) =  fact * c * sqt2 * Rcs(:,3,1)
195         Q(:,3,2) =  fact * c * sqt2 * Rcs(:,3,2)
196         Q(:,4,2) =  fact * c * sqt2 * Rcs(:,3,3)
199         fact     =  (one / sqrt( cp * rho )) / T
201         Q(:,1,4) =  fact * eb1
202         Q(:,2,4) =  fact * u * Rcs(:,1,1)
203         Q(:,3,4) =  fact * u * Rcs(:,1,2)
204         Q(:,4,4) =  fact * u * Rcs(:,1,3)
205         Q(:,5,4) = -fact