Lines Matching refs:su
37 real su, sp1, sp2, sq1, sq2, sh11, sh12, sh21, sh22;
129 su = one - sh12 * sh21;
131 if (! (su <= zero)) {
138 *sd1 /= su;
139 *sd2 /= su;
140 *sx1 *= su;
153 su = one + sh11 * sh22;
154 stemp = *sd2 / su;
155 *sd2 = *sd1 / su;
157 *sx1 = *sy1 * su;
