Lines Matching refs:DD1

1       SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)  argument
3       DOUBLE PRECISION DD1,DD2,DX1,DY1  local
65       IF (.NOT.DD1.LT.ZERO) GO TO 10
76       DP1 = DD1*DX1
91       DD1 = DD1/DU
106       DD2 = DD1/DU
107       DD1 = DTEMP
119       DD1 = ZERO
142       IF (.NOT.DD1.LE.RGAMSQ) GO TO 130
143       IF (DD1.EQ.ZERO) GO TO 160
148       DD1 = DD1*GAM**2
155       IF (.NOT.DD1.GE.GAMSQ) GO TO 160
160       DD1 = DD1/GAM**2