Télécharger la plaquette Cast3M


fr en

Télécharger vermai.eso

Retour à la liste

Numérotation des lignes : 

vermai

  1. C VERMAI    SOURCE    MAUGIS    05/08/05    21:15:14     5145
  2.       SUBROUTINE VERMAI
  3. C----------------------------------------------------
  4. C
  5. C     Vérification de la conformité d'un maillage
  6. C
  7. C----------------------------------------------------
  8. C
  9. C     Création : ???
  10. C
  11. C     Modification : Pascal Maugis 04/08/2005
  12. C         ajout commentaires
  13. C         Identification des doublons/triplons,...
  14. C         si mot-clef 'CORR'IGE, vire les doublons
  15. C
  16. C----------------------------------------------------
  17. C
  18. C     Remarques
  19. C
  20. C----------------------------------------------------
  21. C
  22. C     Variables
  23. C
  24. C----------------------------------------------------
  25.       IMPLICIT INTEGER(I-N)
  26.       IMPLICIT REAL*8(A-H,O-Z)
  27.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. -INC SMELEME
  31.       CHARACTER*4 MCLE(1)
  32.       DATA MCLE/'CORR'/
  33.  
  34. *     Lecture maillage
  35.       CALL LIROBJ ('MAILLAGE',MELEME,1,IRETOU)
  36.       IF(IERR.NE.0) RETURN
  37.  
  38. C     Y a-t-il des mailles en double ?
  39.       CALL LIRMOT(MCLE,1,ICLE,0)
  40.       IF (IERR.NE.0) RETURN
  41.       IF (ICLE.EQ.0) THEN
  42. C       diagnostique seul
  43.         CALL DOUBL1(MELEME,NMESH)
  44.       ELSE
  45. C       on vire les doublons en mode bavard
  46.         CALL DOUBL2(MELEME,.TRUE.)
  47.       ENDIF
  48.  
  49. C     vérifie qu'il n'y a pas d'éléments de degré un accolé à un
  50. C     élément de degré 2.
  51.       IVO=MELEME
  52.       CALL VTOP2D(IVO)
  53.  
  54. C     y a-t-il des éléments connectés à des éléments d'une autre forme.
  55.       IF((ICLE.EQ.0).AND.(NMESH.NE.0)) THEN
  56.         write(IOIMP,*) 'Presence de doublons, on saute le 3eme test'
  57.       ELSE
  58. C       on travaille sur le maillage corrigé sans doublon
  59.         CALL VMDISC(MELEME)
  60.       ENDIF
  61.  
  62.       RETURN
  63.       END
  64.  
  65.  
  66.  

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