5 * Revision 1.1.1.1 1996/04/01 15:02:20 mclareni
10 SUBROUTINE VD01A (ITEST,X,F,MAXFUN,ABSACC,RELACC,XSTEP)
19 IF (MAXFUN-MC) 12,15,15
62 16 IF (FA-FC) 21,21,20
70 IF ((D-DB)*(D-DC)) 32,22,22
77 14 IF (FB-FC) 25,25,29
81 29 D=(FA-FB)/(DA-DB)-(FA-FC)/(DA-DC)
82 IF (D*(DB-DC)) 33,33,37
83 37 D=0.5*(DB+DC-(FB-FC)/D)
84 IF (ABS (D-X)-ABS (ABSACC)) 34,34,35
85 35 IF (ABS (D-X)-ABS (D*RELACC)) 34,34,36
90 IF ((DA-DC)*(DC-D)) 3,26,38
93 39 IF (ABS (XINC)-ABS (DC-D)) 41,3,3
98 40 IF (ABS (XINC-X)-ABS (X-DC)) 42,42,3
100 IF ((XINC-X)*(X-DC)) 26,26,3
102 IF ((DB-X)*(X-DC)) 26,26,3