1*DECK CHKPRM 2 SUBROUTINE CHKPRM (INTL, IORDER, A, B, M, MBDCND, C, D, N, NBDCND, 3 + COFX, COFY, IDMN, IERROR) 4C***BEGIN PROLOGUE CHKPRM 5C***SUBSIDIARY 6C***PURPOSE Subsidiary to SEPELI 7C***LIBRARY SLATEC 8C***TYPE SINGLE PRECISION (CHKPRM-S) 9C***AUTHOR (UNKNOWN) 10C***DESCRIPTION 11C 12C This program checks the input parameters for errors. 13C 14C***SEE ALSO SEPELI 15C***ROUTINES CALLED (NONE) 16C***REVISION HISTORY (YYMMDD) 17C 801001 DATE WRITTEN 18C 890531 Changed all specific intrinsics to generic. (WRB) 19C 891214 Prologue converted to Version 4.0 format. (BAB) 20C 900402 Added TYPE section. (WRB) 21C***END PROLOGUE CHKPRM 22C 23 EXTERNAL COFX ,COFY 24C***FIRST EXECUTABLE STATEMENT CHKPRM 25 IERROR = 1 26 IF (A.GE.B .OR. C.GE.D) RETURN 27C 28C CHECK BOUNDARY SWITCHES 29C 30 IERROR = 2 31 IF (MBDCND.LT.0 .OR. MBDCND.GT.4) RETURN 32 IERROR = 3 33 IF (NBDCND.LT.0 .OR. NBDCND.GT.4) RETURN 34C 35C CHECK FIRST DIMENSION IN CALLING ROUTINE 36C 37 IERROR = 5 38 IF (IDMN .LT. 7) RETURN 39C 40C CHECK M 41C 42 IERROR = 6 43 IF (M.GT.(IDMN-1) .OR. M.LT.6) RETURN 44C 45C CHECK N 46C 47 IERROR = 7 48 IF (N .LT. 5) RETURN 49C 50C CHECK IORDER 51C 52 IERROR = 8 53 IF (IORDER.NE.2 .AND. IORDER.NE.4) RETURN 54C 55C CHECK INTL 56C 57 IERROR = 9 58 IF (INTL.NE.0 .AND. INTL.NE.1) RETURN 59C 60C CHECK THAT EQUATION IS ELLIPTIC 61C 62 DLX = (B-A)/M 63 DLY = (D-C)/N 64 DO 30 I=2,M 65 XI = A+(I-1)*DLX 66 CALL COFX (XI,AI,BI,CI) 67 DO 20 J=2,N 68 YJ = C+(J-1)*DLY 69 CALL COFY (YJ,DJ,EJ,FJ) 70 IF (AI*DJ .GT. 0.0) GO TO 10 71 IERROR = 10 72 RETURN 73 10 CONTINUE 74 20 CONTINUE 75 30 CONTINUE 76C 77C NO ERROR FOUND 78C 79 IERROR = 0 80 RETURN 81 END 82