Lines Matching refs:IERROR
2 + NBDCND, BDRS, BDRF, ELMBDA, F, IDIMF, PERTRB, IERROR, W)
349 IERROR = 0
350 IF (TS.LT.0. .OR. TF.GT.PI) IERROR = 1
351 IF (TS .GE. TF) IERROR = 2
352 IF (M .LT. 5) IERROR = 3
353 IF (MBDCND.LT.1 .OR. MBDCND.GT.9) IERROR = 4
354 IF (RS .LT. 0.) IERROR = 5
355 IF (RS .GE. RF) IERROR = 6
356 IF (N .LT. 5) IERROR = 7
357 IF (NBDCND.LT.1 .OR. NBDCND.GT.6) IERROR = 8
358 IF (ELMBDA .GT. 0.) IERROR = 9
359 IF (IDIMF .LT. M+1) IERROR = 10
360 IF (ELMBDA.NE.0. .AND. MBDCND.GE.5) IERROR = 11
361 IF (ELMBDA.NE.0. .AND. (NBDCND.EQ.5 .OR. NBDCND.EQ.6)) IERROR = 12
363 1 TS.NE.0.) IERROR = 13
364 IF (MBDCND.GE.7 .AND. TF.NE.PI) IERROR = 14
366 1 (MBDCND.EQ.4 .OR. MBDCND.EQ.8 .OR. MBDCND.EQ.3)) IERROR = 15
368 1 (MBDCND.EQ.2 .OR. MBDCND.EQ.3 .OR. MBDCND.EQ.6)) IERROR = 16
369 IF (NBDCND.GE.5 .AND. RS.NE.0.) IERROR = 17
372 2 IERROR = 18
373 IF (IERROR.NE.0 .AND. IERROR.NE.9) RETURN