C VERMDI    SOURCE    MB234859  25/02/17    21:15:15     12154          

C----------------------------------------------------------------------C
C----------------------- Formulation 'DIFFUSION' ----------------------C
C Verification que les noms de primale et duale du modele de diffusion C
C sont coherents s'ils ont deja ete utilises - Mise a jour de NOMDU et C
C NOMDD avec ces noms de primale et duale dans le cas contraire !      C
C----------------------------------------------------------------------C
C Sous-programme appele par :                                          C
C   - MODELI lors de la creation d'un modele                           C
C   - LIMODL lors de la restitution d'un modele (sauvegarde)           C
C----------------------------------------------------------------------C

      SUBROUTINE VERMDI(MDIINC,MDIDUA)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)


-INC PPARAM
-INC CCOPTIO
-INC CCHAMP
C
      CHARACTER*(*) MDIINC,MDIDUA
C
      CALL PLACE(NOMDD,LNOMDD,ireti,MDIINC)
      CALL PLACE(NOMDU,LNOMDU,irete,MDIDUA)
C
      IF ((IRETI.NE.0).OR.(IRETE.NE.0)) THEN
C
C       Composante deja existante, rien a faire
        IF (IRETI.EQ.IRETE) GOTO 1
C
        IF (IRETI.NE.0) THEN 
          MOTERR(1:LOCHPO)=MDIINC
          CALL ERREUR(-389)
        ENDIF
        IF (IRETE.NE.0) THEN
          MOTERR(1:LOCHPO)=MDIDUA
          CALL ERREUR(-389)
        ENDIF
      ELSE
        IF (LNOMDD.GE.1000) THEN
          write(ioimp,*) 'Tableau NOMDD sous-dimensionne'
          CALL ERREUR(5)
          RETURN
        ENDIF
        LNOMDD = LNOMDD + 1
        IRETE  = LNOMDD
        IF (LNOMDU.GE.1000) THEN
          write(ioimp,*) 'Tableau NOMDU sous-dimensionne'
          CALL ERREUR(5)
          RETURN
        ENDIF
        LNOMDU = LNOMDU + 1
        IRETI  = LNOMDU
      ENDIF
      NOMDD(IRETE)=MDIINC
      NOMDU(IRETI)=MDIDUA
C
 1    CONTINUE
C
      IF (IIMPI.NE.0) THEN
        MOTERR(1:LOCHPO)=MDIINC
        MOTERR(LOCHPO+1:2*LOCHPO)=MDIDUA
        CALL ERREUR(-388)
      ENDIF
C
      RETURN
      END