Télécharger vermdi.eso

Retour à la liste

Numérotation des lignes :

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

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