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