Esope source files

   1 : C VERMDI    SOURCE    FANDEUR   12/07/05    21:16:13     7419           
   2 : 
   3 : C----------------------------------------------------------------------C
   4 : C----------------------- Formulation 'DIFFUSION' ----------------------C
   5 : C Verification que les noms de primale et duale du modele de diffusion C
   6 : C sont coherents s'ils ont deja ete utilises - Mise a jour de NOMDU et C
   7 : C NOMDD avec ces noms de primale et duale dans le cas contraire !      C
   8 : C----------------------------------------------------------------------C
   9 : C Sous-programme appele par :                                          C
  10 : C   - MODELI lors de la creation d'un modele                           C
  11 : C   - LIMODL lors de la restitution d'un modele (sauvegarde)           C
  12 : C----------------------------------------------------------------------C
  13 : 
  14 :       SUBROUTINE VERMDI(MDIINC,MDIDUA)
  15 : 
  16 :       IMPLICIT INTEGER(I-N)
  17 :       IMPLICIT REAL*8 (A-H,O-Z)
  18 : 
  19 : -INC CCOPTIO
  20 : -INC CCHAMP
  21 : 
  22 :       CHARACTER*(*) MDIINC,MDIDUA
  23 : 
  23 :       CALL PLACE(NOMDD,LNOMDD,ireti,MDIINC)
  23 :       CALL PLACE(NOMDU,LNOMDU,irete,MDIDUA)
  24 : 
  25 :       IF (ireti.EQ.0) THEN
  26 :         IF (irete.NE.0) THEN
  27 :           write(ioimp,*) 'Nom de duale deja utilise pour une ',
  28 :      &                   'autre inconnue !'
  28 :           CALL ERREUR(21)
  29 :           RETURN
  30 :         ENDIF
  31 :         IF (LNOMDD.GE.100) THEN
  32 :           write(ioimp,*) 'Tableau NOMDD sous-dimensionne'
  32 :           CALL ERREUR(5)
  33 :           RETURN
  34 :         ENDIF
  35 :         IF (LNOMDU.GE.100) THEN
  36 :           write(ioimp,*) 'Tableau NOMDU sous-dimensionne'
  36 :           CALL ERREUR(5)
  37 :           RETURN
  38 :         ENDIF
  39 :         LNOMDD = LNOMDD + 1
  40 :         NOMDD(LNOMDD) = MDIINC
  41 :         LNOMDU = LNOMDU + 1
  42 :         NOMDU(LNOMDU) = MDIDUA
  43 :       ELSE
  44 :         IF (irete.NE.ireti) THEN
  45 :           write(ioimp,*) 'Plusieurs noms de duale pour ',MDIINC
  45 :           CALL ERREUR(21)
  46 :           RETURN
  47 :         ENDIF
  48 :       ENDIF
  49 : 
  50 :       RETURN
  51 :       END
  52 : 
  53 :