Télécharger CCPRECO.INC

Retour à la liste

Numérotation des lignes :

  1. C
  2. C-INC CCPRECO
  3. C
  4. COMMON/CPRECO/PRENUM(30)
  5. INTEGER PRENUM
  6. C
  7. C PRENUM est un tableau de pointeurs sur des maillages stockant la numerotation
  8. C
  9. COMMON/CMPREC/PREORI(30),PREPRE(30)
  10. COMMON/CMPCLE/PRECLE(30)
  11. INTEGER PREORI,PREPRE
  12. CHARACTER*16 PRECLE
  13. C
  14. C CMPREC : preconditionnement pour COMP
  15. C associer 2 segments pour eviter de refaire certains traitements
  16. C PREORI pointeur objet initial, PREPRE pointeur ad hoc, PRECLE etiquette
  17. C
  18. parameter (nbemel=100)
  19. COMMON/CCRECH/premel(nbemel),hash1(nbemel),hash2(nbemel),
  20. > hash3(nbemel),nbso(nbemel)
  21. integer premel,hash1,hash2,hash3,nbso
  22. C
  23. C CCRECH preconditionnement pour crechp
  24. C premel liste des maillages, hash1 hash2 et hash3 les hash codes associes
  25. C
  26.  
  27.  
  28. C CPART6 preconditionnement pour part6 (Partitionnement des MMODEL)
  29. C NMOPAR : Nombre de pointeurs que l'on conserve en memoire
  30. C PARMOD : POINTEURS vers les MMODEL qui ont ete partitionnes
  31. C PESCLA : POINTEURS vers les TABLES ESCLAVES equivalentes
  32. PARAMETER (NMOPAR=5)
  33. INTEGER PARMOD,PESCLA
  34. COMMON/CPART6/PARMOD(NMOPAR),PESCLA(NMOPAR)
  35.  
  36.  
  37. C CREDUA preconditionnement pour reduaf (Reduction de MCHAML deja fait)
  38. C NPREDU : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  39. C PRECMO : POINTEURS vers les MMODEL en entree de REDU
  40. C PRECM1 : POINTEURS vers les MCHELM en entree de REDU
  41. C PRECM2 : POINTEURS vers les MCHELM en sortie de REDU
  42. C NBPRRE : Nombre de preconditionnements deja sauves
  43. PARAMETER (NBASMA=64)
  44. PARAMETER (NPREDU=30)
  45. INTEGER PRECMO,PRECM1,PRECM2,NBPRRE
  46. COMMON/CREDUA/PRECMO(NPREDU,NBASMA+1),PRECM1(NPREDU,NBASMA+1),
  47. & PRECM2(NPREDU,NBASMA+1),NBPRRE(NBASMA+1)
  48.  
  49.  
  50. C CREDIN preconditionnement pour reduaf (intersection des MAILLAGES)
  51. C NTRIPL : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  52. C PMAMOD : POINTEURS vers les MAILLAGES des IMODEL
  53. C PMACHA : POINTEURS vers les MAILLAGES des MCHAML
  54. C PMLENT : POINTEURS vers les MLENTI des intersections
  55. C NINTSA : Nombre d'intersections deja sauvees
  56. C PARAMETER (NBASMA=64)
  57. PARAMETER (NTRIPL=NBASMA)
  58. INTEGER NINTSA,PMAMOD,PMACHA,PMLENT
  59. COMMON/CREDIN/NINTSA(NBASMA+1), PMAMOD(NTRIPL,NBASMA+1),
  60. & PMACHA(NTRIPL,NBASMA+1),PMLENT(NTRIPL,NBASMA+1)
  61.  
  62.  

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