Télécharger la plaquette Cast3M


fr en

Télécharger vermdi.eso

Retour à la liste

Numérotation des lignes : 

vermdi

  1. C VERMDI    SOURCE    MB234859  25/02/17    21:15:15     12154          
  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.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC CCHAMP
  23. C
  24.       CHARACTER*(*) MDIINC,MDIDUA
  25. C
  26.       CALL PLACE(NOMDD,LNOMDD,ireti,MDIINC)
  27.       CALL PLACE(NOMDU,LNOMDU,irete,MDIDUA)
  28. C
  29.       IF ((IRETI.NE.0).OR.(IRETE.NE.0)) THEN
  30. C
  31. C       Composante deja existante, rien a faire
  32.         IF (IRETI.EQ.IRETE) GOTO 1
  33. C
  34.         IF (IRETI.NE.0) THEN 
  35.           MOTERR(1:LOCHPO)=MDIINC
  36.           CALL ERREUR(-389)
  37.         ENDIF
  38.         IF (IRETE.NE.0) THEN
  39.           MOTERR(1:LOCHPO)=MDIDUA
  40.           CALL ERREUR(-389)
  41.         ENDIF
  42.       ELSE
  43.         IF (LNOMDD.GE.1000) THEN
  44.           write(ioimp,*) 'Tableau NOMDD sous-dimensionne'
  45.           CALL ERREUR(5)
  46.           RETURN
  47.         ENDIF
  48.         LNOMDD = LNOMDD + 1
  49.         IRETE  = LNOMDD
  50.         IF (LNOMDU.GE.1000) THEN
  51.           write(ioimp,*) 'Tableau NOMDU sous-dimensionne'
  52.           CALL ERREUR(5)
  53.           RETURN
  54.         ENDIF
  55.         LNOMDU = LNOMDU + 1
  56.         IRETI  = LNOMDU
  57.       ENDIF
  58.       NOMDD(IRETE)=MDIINC
  59.       NOMDU(IRETI)=MDIDUA
  60. C
  61.  1    CONTINUE
  62. C
  63.       IF (IIMPI.NE.0) THEN
  64.         MOTERR(1:LOCHPO)=MDIINC
  65.         MOTERR(LOCHPO+1:2*LOCHPO)=MDIDUA
  66.         CALL ERREUR(-388)
  67.       ENDIF
  68. C
  69.       RETURN
  70.       END
  71.  
  72.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales