Télécharger la plaquette Cast3M


fr en

Télécharger CCHHOPR.INC

Retour à la liste

Numérotation des lignes : 

  1. C  ------------------------
  2. C   PReconditionnement HHO
  3. C  ------------------------
  4. C-INC CCHHOPR   <-- Ne pas oublier d'inclure CCHHOPA avant
  5. C  ------------------------
  6.  
  7. C- MSQHHO : Maillage global des faces = squelette
  8. C- MCEHHO : Maillage global des cellules hho
  9. C- MPFHHO : Maillage global des Points supports des Faces
  10. C- MPCHHO : Maillage global des Points supports des Cellules (barycentre)
  11.  
  12. C- NUFHHO : NomBre Utilise de type de Faces HHO (> 0 en cas de HHO)
  13. C- NFAHHO : Nombre total de Faces HHO (> 0 en cas de HHO)
  14. C- NBFHHO : NomBre de Faces HHO par type de face (indices 1 a NFHMAX)
  15. C-          Les faces etant :
  16. C-             en 1D des POI1 (1 noeud) 
  17. C-             en 2D des SEG2 (2 noeuds) 
  18. C-             en 3D des polygones a N (>=3) sommets
  19. C-          On utilise le nombre de sommets de face comme indice du tableau
  20. C- NBFHHO(0) : toujours = 0 (pour le cumul)
  21. C- MAFHHO : MAillage des Faces de type (i)
  22. C- LOFHHO : Ordre de chaque face du type (i)
  23.  
  24.       COMMON / CPRHHO / IDIHHO, IFOHHO,
  25.      &                  MSQHHO, MCEHHO, MPFHHO, MPCHHO,
  26.      &                  NUFHHO, NFAHHO,
  27.      &                  NUCHHO, NCEHHO,
  28.      &                  NBFHHO(0:NFAMAX), MAFHHO(NFAMAX),
  29.      &                  LOFHHO(NFAMAX),
  30.      &                  NBCHHO(0:NCEMAX), MACHHO(NCEMAX),
  31.      &                  NISFHO, NISCHO
  32.  
  33.       COMMON / CPLHHO / LIFHHO(LFAMAX), LICHHO(LCEMAX)
  34.  
  35. C- HHO_MAXLIB : Longueur "utile" de la chaine ci-apres
  36. C- HHO_NOMLIB : Nom complet (avec chemin) de la bibliotheque HHO
  37.       INTEGER HHO_MAXLIB
  38.       CHARACTER*(LOCHAI) HHO_NOMLIB
  39.  
  40.       COMMON / CLDHHO / HHO_MAXLIB, HHO_NOMLIB
  41.  
  42. C Statut SAVE aux COMMONs pour garantir leur permanence :
  43.       SAVE  / CPRHHO / , / CPLHHO / , / CLDHHO /
  44.  
  45.  

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