Télécharger CCPRECO.INC

Retour à la liste

Numérotation des lignes :

  1. C
  2. C-INC CCPRECO
  3. C
  4.  
  5. C NBASMA : Nombre d'assistants MAXI
  6. PARAMETER (NBASMA=64)
  7.  
  8.  
  9. C PRENUM : tableau de pointeurs sur des maillages stockant la numerotation
  10. INTEGER PRENUM
  11. parameter (npreco=128)
  12. COMMON/CPRECO/PRENUM(NPRECO)
  13.  
  14. C
  15. INTEGER PREORI,PREPRE
  16. COMMON/CMPREC/PREORI(30),PREPRE(30)
  17. COMMON/CMPCLE/PRECLE(30)
  18. CHARACTER*16 PRECLE
  19. C
  20. C CMPREC : preconditionnement pour COMP
  21. C associer 2 segments pour eviter de refaire certains traitements
  22. C PREORI pointeur objet initial, PREPRE pointeur ad hoc, PRECLE etiquette
  23. C
  24. parameter (nbemel=100)
  25. integer premel,hash1,hash2,hash3,nbso
  26. COMMON/CCRECH/premel(nbemel,0:NBASMA),
  27. & hash1(nbemel,0:NBASMA),
  28. & hash2(nbemel,0:NBASMA),
  29. & hash3(nbemel,0:NBASMA),
  30. & nbso(nbemel,0:NBASMA)
  31. C
  32. C CCRECH preconditionnement pour crechp
  33. C premel liste des maillages, hash1 hash2 et hash3 les hash codes associes
  34. C
  35.  
  36.  
  37. C CPART6 preconditionnement pour part6 (Partitionnement des MMODEL)
  38. C NMOPAR : Nombre de pointeurs que l'on conserve en memoire
  39. C PARMOD : POINTEURS vers les MMODEL qui ont ete partitionnes
  40. C PESCLA : POINTEURS vers les TABLES ESCLAVES equivalentes
  41. PARAMETER (NMOPAR=5)
  42. INTEGER PARMOD,PESCLA
  43. COMMON/CPART6/PARMOD(NMOPAR),PESCLA(NMOPAR)
  44.  
  45.  
  46. C CREDUA preconditionnement pour reduaf (Reduction de MCHAML deja fait)
  47. C NPREDU : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  48. C PRECMO : POINTEURS vers les MMODEL en entree de REDU
  49. C PRECM1 : POINTEURS vers les MCHELM en entree de REDU
  50. C PRECM2 : POINTEURS vers les MCHELM en sortie de REDU
  51. C PRECM3 : option de redu STRICT ou non
  52. C PRECM4 : Horodatage des MMODEL en entree de REDU
  53. C PRECM5 : Horodatage des MCHELM en entree de REDU
  54. C NBPRRE : Nombre de preconditionnements deja sauves
  55. PARAMETER (NPREDU=30)
  56. INTEGER PRECMO,PRECM1,PRECM2,PRECM3,PRECM4,PRECM5,NBPRRE
  57. COMMON/CREDUA/PRECMO(NPREDU,NBASMA+1),
  58. & PRECM1(NPREDU,NBASMA+1),
  59. & PRECM2(NPREDU,NBASMA+1),
  60. & PRECM3(NPREDU,NBASMA+1),
  61. & PRECM4(NPREDU,NBASMA+1),
  62. & PRECM5(NPREDU,NBASMA+1),
  63. & NBPRRE(NBASMA+1)
  64.  
  65.  
  66. C CMOMOD preconditionnement pour extension de MMODEL (modete.eso pour l'instant)
  67. C NBMOMO : Nombre de MMODEL preconditionnes
  68. C PMOMO1 : POINTEUR MMODEL d'entree
  69. C PMOMO2 : POINTEUR MMODEL etendu (MODELE MELANGE PARALLELE)
  70. INTEGER NBMOMO,PMOMO1,PMOMO2
  71. COMMON/CMOMOD/NBMOMO(NBASMA+1),
  72. & PMOMO1(NPREDU,NBASMA+1),
  73. & PMOMO2(NPREDU,NBASMA+1)
  74.  
  75.  
  76. C CREDIN preconditionnement pour reduaf (intersection des MAILLAGES)
  77. C NTRIPL : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  78. C PMAMOD : POINTEURS vers les MAILLAGES des IMODEL
  79. C PMAMOH : HORODATAGE des MAILLAGES des IMODEL
  80. C PMACHA : POINTEURS vers les MAILLAGES des MCHAML
  81. C PMACHH : HORODATAGE des MAILLAGES des MCHAML
  82. C PMLENT : POINTEURS vers les MLENTI des intersections
  83. C NINTSA : Nombre d'intersections deja sauvees
  84. PARAMETER (NTRIPL=NBASMA)
  85. INTEGER NINTSA,PMAMOD,PMACHA,PMLENT,PMACHH,PMAMOH
  86. COMMON/CREDIN/NINTSA(NBASMA+1), PMAMOD(NTRIPL,NBASMA+1),
  87. & PMAMOH(NTRIPL,NBASMA+1),PMACHA(NTRIPL,NBASMA+1),
  88. & PMACHH(NTRIPL,NBASMA+1),PMLENT(NTRIPL,NBASMA+1)
  89.  
  90. C CACTOB preconditionnement pour ACTOBJ
  91. INTEGER PACTOB
  92. COMMON/CACTOB/PACTOB(NBASMA+1)
  93. C CCHAME1 preconditionnement pour CHAME1
  94. PARAMETER (NPRCHA=5)
  95. CHARACTER*8 IPRCHA
  96. COMMON/CCHAME1/IPRMA(nprcha,0:nbasma),IPRHOA(nprcha,0:nbasma),
  97. > IPRMO(nprcha,0:nbasma),IPRHOM(nprcha,0:nbasma),
  98. > IPRCHP(nprcha,0:nbasma),IPRHOC(nprcha,0:nbasma),
  99. > IPRSU(nprcha,0:nbasma),IPRCHL(nprcha,0:nbasma),
  100. > IPRCHA(nprcha,0:nbasma)
  101. save /cpreco/,/cmprec/,/cmpcle/,/ccrech/,/cpart6/,/credua/
  102. save /cmomod/,/credin/,/cactob/,/cchame1/
  103.  
  104.  

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