Lines Matching refs:SX1
1 SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM)
3 REAL SD1,SD2,SX1,SY1
13 * THE SECOND COMPONENT OF THE 2-VECTOR (SQRT(SD1)*SX1,SQRT(SD2)*
39 * SX1 (input/output) REAL
68 * GO ZERO-H-D-AND-SX1..
78 SP1 = SD1*SX1
80 SQ1 = SP1*SX1
83 SH21 = -SY1/SX1
89 * GO ZERO-H-D-AND-SX1..
95 SX1 = SX1*SU
100 * GO ZERO-H-D-AND-SX1..
105 SH22 = SX1/SY1
110 SX1 = SY1*SU
113 * PROCEDURE..ZERO-H-D-AND-SX1..
123 SX1 = ZERO
151 SX1 = SX1/GAM
163 SX1 = SX1*GAM
