Lines Matching refs:MAXDEG
2 SUBROUTINE POLFIT (N, X, Y, W, MAXDEG, NDEG, EPS, R, IERR, A) argument
136 IF (MAXDEG .LT. 0) GO TO 30
137 A(1) = MAXDEG
138 MOP1 = MAXDEG + 1
156 IDEGF = M - MAXDEG - 1
167 8 K1 = MAXDEG + 1
168 K2 = K1 + MAXDEG
169 K3 = K2 + MAXDEG + 2
295 IF (MAXDEG .EQ. J) GO TO 32
303 IF (MAXDEG .EQ. J) GO TO 32
309 26 IF (MAXDEG .EQ. J) GO TO 28
315 IF (MAXDEG .EQ. J) GO TO 31
333 NDEG = MAXDEG
345 IF(EPS .GE. 0.0 .OR. NDEG .EQ. MAXDEG) GO TO 36