Lines Matching refs:MAXDEG
2 SUBROUTINE DPOLFT (N, X, Y, W, MAXDEG, NDEG, EPS, R, IERR, A) argument
127 * K4PI,K5,K5PI,KSIG,M,MAXDEG,MOP1,NDEG,NDER,NFAIL
141 IF (MAXDEG .LT. 0) GO TO 30
142 A(1) = MAXDEG
143 MOP1 = MAXDEG + 1
161 IDEGF = M - MAXDEG - 1
172 8 K1 = MAXDEG + 1
173 K2 = K1 + MAXDEG
174 K3 = K2 + MAXDEG + 2
300 IF (MAXDEG .EQ. J) GO TO 32
308 IF (MAXDEG .EQ. J) GO TO 32
314 26 IF (MAXDEG .EQ. J) GO TO 28
320 IF (MAXDEG .EQ. J) GO TO 31
338 NDEG = MAXDEG
350 IF(EPS .GE. 0.0 .OR. NDEG .EQ. MAXDEG) GO TO 36