C RAYN1     SOURCE    GOUNAND   25/07/16    21:15:04     12326          
      SUBROUTINE RAYN1(MMODEL,MCHELM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C But : Verification que les supports d'un MMODEL et d'un
C       MCHAML coincident
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC


-INC PPARAM
-INC CCOPTIO
-INC SMCHAML
-INC SMMODEL

C      SEGACT, MMODEL, MCHELM

      N1 = KMODEL(/1)
      N2 = IMACHE(/1)
      IF(N1.NE.N2) THEN
        CALL ERREUR(21)
        RETURN
      ENDIF

      DO 1000 I=1,N1
         IMODEL = KMODEL(I)
         SEGACT,IMODEL
         IPT1 = IMAMOD
           L=0
           DO 2000 J=1,N1
              IPT2 = IMACHE(J)
              IF (IPT2.EQ.IPT1) THEN
               L=1
               GOTO 2000
              ENDIF
 2000      CONTINUE
      IF(L.EQ.0) THEN
         CALL ERREUR(103)
         RETURN
      ENDIF
 1000 CONTINUE

      IF(L.EQ.0) THEN
         CALL ERREUR(103)
         RETURN
      ENDIF

      END