H A D | drotmg.f | 53 + DU,GAM,GAMSQ,ONE,RGAMSQ,TWO,ZERO 84 DU = ONE - DH12*DH21 86 IF (.NOT.DU.LE.ZERO) GO TO 30 91 DD1 = DD1/DU 92 DD2 = DD2/DU 93 DX1 = DX1*DU 104 DU = ONE + DH11*DH22 105 DTEMP = DD2/DU 106 DD2 = DD1/DU 108 DX1 = DY1*DU 52 DOUBLE PRECISION DFLAG,DH11,DH12,DH21,DH22,DP1,DP2,DQ1,DQ2,DTEMP, local in subroutine:DROTMG [all...] |