Esope source files

   1 : C CHMTY3    SOURCE    CHAT      05/01/12    22:00:38     5004           
   2 :       SUBROUTINE CHMTY3(MCHPOI,MMTY3,MLTY3,ICOTY3,JZT3)
   3 :       IMPLICIT INTEGER(I-N)
   4 :         IMPLICIT REAL*8 (A-H,O-Z)
   5 : C------------------------------------------------------------------
   6 : C
   7 : C ENTREES
   8 : C    MCHPOI CHPOIN DONNE DANS CLIM
   9 : C    MMTY3 NOM DES IDENTIFICATEURS DE TYPE 3 (ISSUE DE CHIMI1)
  10 : C    MLTY3 LISTE DES IDENTIFICATEURS DE TYPE 3 (ISSUE DE CHIMI1)
  11 : C SORTIES
  12 : C    ICOTY3 LISTE DES IDENTIFICATEURS MIS EN CLIM
  13 : C    JZT3   POINTEUR DU TABLEAU DE VALEURS DU CHPOIN
  14 : C
  15 : C
  16 : C     ON VERIFIE L' EXISTANCE ET L' UNICITE DES COMPOSANTES
  17 : C
  18 : C------------------------------------------------------------------
  19 : -INC SMCHPOI
  20 : -INC SMLMOTS
  21 : -INC SMLENTI
  22 :       POINTEUR ICOTY3.MLENTI,MLTY3.MLENTI
  23 : -INC CCOPTIO
  24 :       SEGMENT ITBID
  25 :              INTEGER IBID(NC3)
  26 :       ENDSEGMENT
  27 :       MLMOTS=MMTY3
  28 :       SEGACT MLMOTS
  29 :       NC3=MOTS(/2)
  30 :       SEGACT MCHPOI
  31 :       MSOUPO=IPCHP(1)
  32 :       SEGACT MSOUPO
  33 :       NXD3=NOCOMP(/2)
  34 :       SEGINI ITBID
  34 :       CALL INITI(IBID,NC3,1)
  35 :       JG=NXD3
  36 :       SEGINI MLENTI
  37 :       ICOTY3=MLENTI
  38 :       DO 50 I=1,NXD3
  39 :           DO 20 J=1,NC3
  40 :               IF(NOCOMP(I).EQ.MOTS(J))THEN
  41 :                   IF(IBID(J).EQ.0)THEN
  41 :                        CALL ERREUR(674)
  42 :                        RETURN
  43 :                   ENDIF
  44 :                   IBID(J)=0
  45 :                   ICOTY3.LECT(I)=MLTY3.LECT(J)
  46 :                   GO TO 30
  47 :               ENDIF
  48 :    20     CONTINUE
  49 :           MOTERR(1:4)=NOCOMP(I)
  49 :           CALL ERREUR(197)
  50 :           RETURN
  51 :    30     CONTINUE
  52 :    50 CONTINUE
  53 :       MPOVAL=IPOVAL
  54 :       SEGACT MPOVAL
  55 :       JZT3= IPOVAL
  56 :       SEGSUP ITBID
  57 :       SEGDES MLMOTS,MLTY3,MCHPOI,MSOUPO
  58 :       RETURN
  59 :       END
  60 :  
  61 :