Lines Matching refs:SD2

89       SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM)  argument
96       REAL SD1,SD2,SX1,SY1
126          SD2 = ZERO
130          SP2 = SD2*SY1
150              SD2 = SD2/SU
163              SD2 = ZERO
177                SD2 = ZERO
184                STEMP = SD2/SU
185                SD2 = SD1/SU
217          IF (SD2.NE.ZERO) THEN
218             DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) )
228                IF (ABS(SD2).LE.RGAMSQ) THEN
229                   SD2 = SD2*GAM**2
233                   SD2 = SD2/GAM**2