Lines Matching refs:SD1

1       SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM)  argument
3       REAL SD1,SD2,SX1,SY1  local
67       IF (.NOT.SD1.LT.ZERO) GO TO 10
78       SP1 = SD1*SX1
93       SD1 = SD1/SU
108       SD2 = SD1/SU
109       SD1 = STEMP
121       SD1 = ZERO
144       IF (.NOT.SD1.LE.RGAMSQ) GO TO 130
145       IF (SD1.EQ.ZERO) GO TO 160
150       SD1 = SD1*GAM**2
157       IF (.NOT.SD1.GE.GAMSQ) GO TO 160
162       SD1 = SD1/GAM**2