Lines Matching refs:SD2
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)*
28 * OF SD1 AND SD2. ALL ACTUAL SCALING OF DATA IS DONE USING GAM.
37 * SD2 (input/output) REAL
72 SP2 = SD2*SY1
94 SD2 = SD2/SU
107 STEMP = SD2/SU
108 SD2 = SD1/SU
122 SD2 = ZERO
169 IF (.NOT.ABS(SD2).LE.RGAMSQ) GO TO 190
170 IF (SD2.EQ.ZERO) GO TO 220
175 SD2 = SD2*GAM**2
181 IF (.NOT.ABS(SD2).GE.GAMSQ) GO TO 220
186 SD2 = SD2/GAM**2
