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    BP208322  15/06/22    21:23:30     8543
  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.  
  24.       CHARACTER*(*) MDIINC,MDIDUA
  25.  
  26.       CALL PLACE(NOMDD,LNOMDD,ireti,MDIINC)
  27.       CALL PLACE(NOMDU,LNOMDU,irete,MDIDUA)
  28.  
  29.       IF (ireti.EQ.0) THEN
  30.         IF (irete.NE.0) THEN
  31.           write(ioimp,*) 'Nom de duale deja utilise pour une ',
  32.      &                   'autre inconnue !'
  33.           CALL ERREUR(21)
  34.           RETURN
  35.         ENDIF
  36.         IF (LNOMDD.GE.1000) THEN
  37.           write(ioimp,*) 'Tableau NOMDD sous-dimensionne'
  38.           CALL ERREUR(5)
  39.           RETURN
  40.         ENDIF
  41.         IF (LNOMDU.GE.1000) THEN
  42.           write(ioimp,*) 'Tableau NOMDU sous-dimensionne'
  43.           CALL ERREUR(5)
  44.           RETURN
  45.         ENDIF
  46.         LNOMDD = LNOMDD + 1
  47.         NOMDD(LNOMDD) = MDIINC
  48.         LNOMDU = LNOMDU + 1
  49.         NOMDU(LNOMDU) = MDIDUA
  50.       ELSE
  51.         IF (irete.NE.ireti) THEN
  52.           write(ioimp,*) 'Plusieurs noms de duale pour ',MDIINC
  53.           CALL ERREUR(21)
  54.           RETURN
  55.         ENDIF
  56.       ENDIF
  57.  
  58.       RETURN
  59.       END
  60.  
  61.  
  62.  
  63.  

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