Sources Esope | Cast3M

chmprc
C CHMPRC    SOURCE    CB215821  20/11/25    13:19:33     10792          
      SUBROUTINE CHMPRC(MCHPOI,MMID4,IZPRE)
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8 (A-H,O-Z)
C------------------------------------------------------------------
C
C       INITIALISATION DU TRAITEMENT DES PRECIPITES
C       CORRESPONDANCE ENTRE LES COMPOSANTES D' UN CHPOINT ET LES
C          IDENTIFICATEURS DONT LES NOMS SE TROUVENT DANS MMID4
C         IZPRE POINTEUR DU TABLEAU DE PRESENCE DES PRECIPITES
C           CE TABLEAU EST DE MEME TYPE QUE VPOCHA ( DE MPOVAL)
C    On cherche si toutes les composantes de MCHPOI figurent dans
C    MMID4 et si elles n'y figurent q'une fois
C
C------------------------------------------------------------------
-INC SMCHPOI
      POINTEUR IZPRE.MPOVAL
-INC SMLMOTS
 
-INC PPARAM
-INC CCOPTIO
      SEGMENT ITBID
             INTEGER IBID(NXD4)
      ENDSEGMENT
 
      MLMOTS=MMID4
      SEGACT MLMOTS
      SEGACT MCHPOI
      MSOUPO=IPCHP(1)
      SEGACT MSOUPO
      NXD4=MOTS(/2)
      SEGINI ITBID
      CALL INITI(IBID,NXD4,1)
      NC1=NOCOMP(/2)
      MPOVAL=IPOVAL
      SEGACT MPOVAL
      NPP=VPOCHA(/1)
      DO 50 I=1,NC1
          DO 20 J=1,NXD4
              IF(NOCOMP(I).EQ.MOTS(J))THEN
                     IF(IBID(J).EQ.0)THEN
                            CALL ERREUR(674)
                            RETURN
                     ENDIF
                  DO 10 K=1,NPP
                       IZPRE.VPOCHA(K,J)=VPOCHA(K,I)
   10             CONTINUE
                  IBID(J)=0
                  GO TO 30
              ENDIF
   20     CONTINUE
          MOTERR=NOCOMP(I)
          CALL ERREUR(197)
          RETURN
   30     CONTINUE
   50 CONTINUE
      SEGSUP ITBID
      END