H A D | droots.f | 1 SUBROUTINE DROOTS (NG, HMIN, JFLAG, X0, X1, G0, G1, GX, X, JROOT, argument 13 DOUBLE PRECISION HMIN, X0, X1, G0, G1, GX, X, ALPHA, X2 local 14 DIMENSION G0(NG), G1(NG), GX(NG), JROOT(NG) 147 IF (DABS(GX(I)) .GT. ZERO) GO TO 210 152 T2 = DABS(GX(I)/(GX(I) - G0(I))) 166 CALL DCOPY (NG, GX, 1, G1, 1) 173 CALL DCOPY (NG, GX, 1, G1, 1) 178 CALL DCOPY (NG, GX, 1, G0, 1) 188 CALL DCOPY (NG, G1, 1, GX, 1) 203 CALL DCOPY (NG, G1, 1, GX, 1) [all …]
|