Esope source files

   1 : C RAYN1     SOURCE    CHAT      12/06/07    21:15:59     7389           
   2 :       SUBROUTINE RAYN1(MMODEL,MCHELM)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : 
   6 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   7 : C
   8 : C But : Verification que les supports d'un MMODEL et d'un
   9 : C       MCHAML coincident
  10 : C
  11 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12 : 
  13 : -INC CCOPTIO
  14 : -INC SMCHAML
  15 : -INC SMMODEL
  16 : 
  17 :       SEGACT, MMODEL, MCHELM
  18 : 
  19 :       N1 = KMODEL(/1)
  20 :       N2 = IMACHE(/1)
  20 :       IF(N1.NE.N2) CALL ERREUR(21)
  21 : 
  22 :       DO 1000 I=1,N1
  23 :          IMODEL = KMODEL(I)
  24 :          SEGACT,IMODEL
  25 :          IPT1 = IMAMOD
  26 :            L=0
  27 :            DO 2000 J=1,N1
  28 :               IPT2 = IMACHE(J)
  29 :               IF (IPT2.EQ.IPT1) THEN
  30 :                L=1
  31 :                GOTO 2000
  32 :               ENDIF
  33 :  2000      CONTINUE
  34 :       IF(L.EQ.0) THEN
  34 :          CALL ERREUR(103)
  35 :          RETURN
  36 :       ENDIF
  37 :          SEGDES,IMODEL
  38 :  1000 CONTINUE
  39 : 
  40 :       IF(L.EQ.0) THEN
  40 :          CALL ERREUR(103)
  41 :          RETURN
  42 :       ENDIF
  43 : 
  44 :       RETURN
  45 :       END
  46 : 
  47 :  
  48 :  
  49 :  
  50 :  
  51 :  
  52 :  
  53 :  
  54 :