Télécharger la plaquette Cast3M


fr en

Télécharger CCHHOPA.INC

Retour à la liste

Numérotation des lignes : 

  1. C  ---------------------
  2. C   PARAMETRES pour HHO
  3. C  ---------------------
  4. C-INC CCHHOPA
  5. C  ------------------------
  6.  
  7. C- Numero des Elements HHO dans la liste des elements du tableau NOMTP :
  8. C- [Voir fichier BDATA/INIDATA lors du remplissage de NOMTP]
  9. C- Ce numero est utilise dans les sousprogrammes NUMGEO et NUMMFR.
  10.       INTEGER HHO_NUM_ELEMENT
  11.       PARAMETER( HHO_NUM_ELEMENT = 281)
  12.  
  13. C- Numero de la Formulation HHO fourni suite a l'appel a NUMMFR :
  14. C- [Voir fichier NUMMFR pour ce numero]
  15.       INTEGER HHO_MFR_ELEMENT
  16.       PARAMETER( HHO_MFR_ELEMENT = 89)
  17.  
  18. C- Nombre de donnees IVAMOD/TYMODE pour un modele HHO
  19.       PARAMETER ( MTYHHO = 5 )
  20.  
  21. C- Nombre maximal de sommets/cotes pour un element HHO polygonal (2D)
  22.       INTEGER HHO_MAX_EDGE
  23.       PARAMETER ( HHO_MAX_EDGE = 20 )
  24. C- Nombre maximal de sommets/cotes pour une face poygonale du polyedre (3D)
  25. C- idem que HHO_MAX_EDGE
  26.  
  27. C- Nombre maximal de types de cellules differents :
  28. C-   En 1D => 1
  29. C             --> SEG2(2)
  30. C-   En 2D => 2 + (HHO_MAX_EDGE-3+1)
  31. C             --> TRI3(4) QUA4(8) POLY(32 & 3 a HHO_MAX_EDGE sommets)
  32. C-   en 3D => 2 / Par la suite : + 2 + x
  33. C             --> TET4(23) CUB8(14) / Par la suite : PRI6(16) PYR5(25) POLY3D(x)
  34.       PARAMETER ( NC1MAX = 1 , NC2MAX = HHO_MAX_EDGE , NC3MAX = 2 )
  35.  
  36. C- NCEMAX = MAX(NC1MAX, NC2MAX, NC3MAX)
  37.       PARAMETER ( NCEMAX = HHO_MAX_EDGE )
  38.  
  39.       PARAMETER ( IC1MAX = 0 ,
  40.      &            IC2MAX = IC1MAX + NC1MAX ,
  41.      &            IC3MAX = IC2MAX + NC2MAX )
  42.  
  43.       PARAMETER ( LCEMAX = NC1MAX + NC2MAX + NC3MAX )
  44.  
  45. C- Nombre maximal de types de faces differents :
  46. C-   En 1D => 1 --> POI1(1)
  47. C-   En 2D => 1 --> SEG2(2)
  48. C-   En 3D => 2 --> TRI3(4) QUA4(8)  (pas de changement si on ajoute PRI6 et PYR5)
  49. C- Par la suite POLY3D -> POLY(32 & 5 a HHO_MAX_EDGE sommets)
  50.       PARAMETER ( NF1MAX = 1 , NF2MAX = 1 , NF3MAX = 2 )
  51.  
  52. C- NFAMAX = MAX(NF1MAX, NF2MAX, NF3MAX) -> on fige NFAMAX = HHO_MAX_EDGE
  53.       PARAMETER ( NFAMAX = HHO_MAX_EDGE )
  54.  
  55.       PARAMETER ( IF1MAX = 0 ,
  56.      &            IF2MAX = IF1MAX + NF1MAX ,
  57.      &            IF3MAX = IF2MAX + NF2MAX )
  58.  
  59.       PARAMETER ( LFAMAX = NF1MAX + NF2MAX + NF3MAX )
  60.  
  61.  

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