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. C PRENUM : tableau de pointeurs sur des maillages stockant la numerotation
  9. PARAMETER (npreco=128)
  10.  
  11. INTEGER PRENUM
  12. COMMON/CPRECO/PRENUM(npreco)
  13.  
  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. C nbepre : Nombre d'objets preconditionnes pour COMP
  19. PARAMETER (nbepre=30)
  20.  
  21. INTEGER PREORI,PREPRE
  22. CHARACTER*16 PRECLE
  23. COMMON/CMPREC/PREORI(nbepre),PREPRE(nbepre)
  24. COMMON/CMPCLE/PRECLE(nbepre)
  25.  
  26. parameter (nbemel=100)
  27. integer premel,hash1,hash2,hash3,nbso
  28. COMMON/CCRECH/premel(nbemel,0:NBASMA),
  29. & hash1(nbemel,0:NBASMA),
  30. & hash2(nbemel,0:NBASMA),
  31. & hash3(nbemel,0:NBASMA),
  32. & nbso(nbemel,0:NBASMA)
  33. C
  34. C CCRECH preconditionnement pour crechp
  35. C premel liste des maillages, hash1 hash2 et hash3 les hash codes associes
  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. C CREDUA preconditionnement pour reduaf (Reduction de MCHAML deja fait)
  46. C NPREDU : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  47. C PRECMO : POINTEURS vers les MMODEL en entree de REDU
  48. C PRECM1 : POINTEURS vers les MCHELM en entree de REDU
  49. C PRECM2 : POINTEURS vers les MCHELM en sortie de REDU
  50. C PRECM3 : option de redu STRICT ou non
  51. C PRECM4 : Horodatage des MMODEL en entree de REDU
  52. C PRECM5 : Horodatage des MCHELM en entree de REDU
  53. C NBPRRE : Nombre de preconditionnements deja sauves
  54. PARAMETER (NPREDU=30)
  55. INTEGER PRECMO,PRECM1,PRECM2,PRECM3,PRECM4,PRECM5,NBPRRE
  56. COMMON/CREDUA/PRECMO(NPREDU,NBASMA+1),
  57. & PRECM1(NPREDU,NBASMA+1),
  58. & PRECM2(NPREDU,NBASMA+1),
  59. & PRECM3(NPREDU,NBASMA+1),
  60. & PRECM4(NPREDU,NBASMA+1),
  61. & PRECM5(NPREDU,NBASMA+1),
  62. & NBPRRE(NBASMA+1)
  63.  
  64. C CMOMOD preconditionnement pour extension de MMODEL (modete.eso pour l'instant)
  65. C NBMOMO : Nombre de MMODEL preconditionnes
  66. C PMOMO1 : POINTEUR MMODEL d'entree
  67. C PMOMO2 : POINTEUR MMODEL etendu (MODELE MELANGE PARALLELE)
  68. INTEGER NBMOMO,PMOMO1,PMOMO2
  69. COMMON/CMOMOD/NBMOMO(NBASMA+1),
  70. & PMOMO1(NPREDU,NBASMA+1),
  71. & PMOMO2(NPREDU,NBASMA+1)
  72.  
  73. C CREDIN preconditionnement pour reduaf (intersection des MAILLAGES)
  74. C NTRIPL : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  75. C PMAMOD : POINTEURS vers les MAILLAGES des IMODEL
  76. C PMAMOH : HORODATAGE des MAILLAGES des IMODEL
  77. C PMACHA : POINTEURS vers les MAILLAGES des MCHAML
  78. C PMACHH : HORODATAGE des MAILLAGES des MCHAML
  79. C PMLENT : POINTEURS vers les MLENTI des intersections
  80. C NINTSA : Nombre d'intersections deja sauvees
  81. PARAMETER (NTRIPL=NBASMA)
  82. INTEGER NINTSA,PMAMOD,PMACHA,PMLENT,PMACHH,PMAMOH
  83. COMMON/CREDIN/NINTSA(NBASMA+1), PMAMOD(NTRIPL,NBASMA+1),
  84. & PMAMOH(NTRIPL,NBASMA+1),PMACHA(NTRIPL,NBASMA+1),
  85. & PMACHH(NTRIPL,NBASMA+1),PMLENT(NTRIPL,NBASMA+1)
  86.  
  87. C CACTOB preconditionnement pour ACTOBJ
  88. INTEGER PACTOB
  89. COMMON/CACTOB/PACTOB(NBASMA+1)
  90.  
  91. C CCHAME1 preconditionnement pour CHAME1
  92. PARAMETER (NPRCHA=5)
  93. CHARACTER*8 IPRCHA
  94. COMMON/CCHAME1/IPRMA(nprcha,0:nbasma),IPRHOA(nprcha,0:nbasma),
  95. > IPRMO(nprcha,0:nbasma),IPRHOM(nprcha,0:nbasma),
  96. > IPRCHP(nprcha,0:nbasma),IPRHOC(nprcha,0:nbasma),
  97. > IPRSU(nprcha,0:nbasma),IPRCHL(nprcha,0:nbasma),
  98. > IPRCHA(nprcha,0:nbasma)
  99.  
  100. C Ne pas oublier SAVE a chaque COMMON pour garantir leur permanence :
  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