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. COMMON/CPRECO/PRENUM(30)
  12.  
  13. C
  14. INTEGER PREORI,PREPRE
  15. COMMON/CMPREC/PREORI(30),PREPRE(30)
  16. COMMON/CMPCLE/PRECLE(30)
  17. CHARACTER*16 PRECLE
  18. C
  19. C CMPREC : preconditionnement pour COMP
  20. C associer 2 segments pour eviter de refaire certains traitements
  21. C PREORI pointeur objet initial, PREPRE pointeur ad hoc, PRECLE etiquette
  22. C
  23. parameter (nbemel=100)
  24. integer premel,hash1,hash2,hash3,nbso
  25. COMMON/CCRECH/premel(nbemel,0:NBASMA),
  26. & hash1(nbemel,0:NBASMA),
  27. & hash2(nbemel,0:NBASMA),
  28. & hash3(nbemel,0:NBASMA),
  29. & nbso(nbemel,0:NBASMA)
  30. C
  31. C CCRECH preconditionnement pour crechp
  32. C premel liste des maillages, hash1 hash2 et hash3 les hash codes associes
  33. C
  34.  
  35.  
  36. C CPART6 preconditionnement pour part6 (Partitionnement des MMODEL)
  37. C NMOPAR : Nombre de pointeurs que l'on conserve en memoire
  38. C PARMOD : POINTEURS vers les MMODEL qui ont ete partitionnes
  39. C PESCLA : POINTEURS vers les TABLES ESCLAVES equivalentes
  40. PARAMETER (NMOPAR=5)
  41. INTEGER PARMOD,PESCLA
  42. COMMON/CPART6/PARMOD(NMOPAR),PESCLA(NMOPAR)
  43.  
  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 NBPRRE : Nombre de preconditionnements deja sauves
  51. PARAMETER (NPREDU=30)
  52. INTEGER PRECMO,PRECM1,PRECM2,PRECM3,NBPRRE
  53. COMMON/CREDUA/PRECMO(NPREDU,NBASMA+1),
  54. & PRECM1(NPREDU,NBASMA+1),
  55. & PRECM2(NPREDU,NBASMA+1),
  56. & PRECM3(NPREDU,NBASMA+1),
  57. & NBPRRE(NBASMA+1)
  58.  
  59.  
  60. C CMOMOD preconditionnement pour extension de MMODEL (modete.eso pour l'instant)
  61. C NBMOMO : Nombre de MMODEL preconditionnes
  62. C PMOMO1 : POINTEUR MMODEL d'entree
  63. C PMOMO2 : POINTEUR MMODEL etendu (MODELE MELANGE PARALLELE)
  64. INTEGER NBMOMO,PMOMO1,PMOMO2
  65. COMMON/CMOMOD/NBMOMO(NBASMA+1),
  66. & PMOMO1(NPREDU,NBASMA+1),
  67. & PMOMO2(NPREDU,NBASMA+1)
  68.  
  69.  
  70. C CREDIN preconditionnement pour reduaf (intersection des MAILLAGES)
  71. C NTRIPL : Nombre de triples de pointeurs que l'on conserve en memoire par ASSISTANT
  72. C PMAMOD : POINTEURS vers les MAILLAGES des IMODEL
  73. C PMAMOH : HORODATAGE des MAILLAGES des IMODEL
  74. C PMACHA : POINTEURS vers les MAILLAGES des MCHAML
  75. C PMACHH : HORODATAGE des MAILLAGES des MCHAML
  76. C PMLENT : POINTEURS vers les MLENTI des intersections
  77. C NINTSA : Nombre d'intersections deja sauvees
  78. PARAMETER (NTRIPL=NBASMA)
  79. INTEGER NINTSA,PMAMOD,PMACHA,PMLENT,PMACHH,PMAMOH
  80. COMMON/CREDIN/NINTSA(NBASMA+1), PMAMOD(NTRIPL,NBASMA+1),
  81. & PMAMOH(NTRIPL,NBASMA+1),PMACHA(NTRIPL,NBASMA+1),
  82. & PMACHH(NTRIPL,NBASMA+1),PMLENT(NTRIPL,NBASMA+1)
  83.  
  84. C CACTOB preconditionnement pour ACTOBJ
  85. INTEGER PACTOB
  86. COMMON/CACTOB/PACTOB(NBASMA+1)
  87. C CCHAME1 preconditionnement pour CHAME1
  88. PARAMETER (NPRCHA=5)
  89. CHARACTER*8 IPRCHA
  90. COMMON/CCHAME1/IPRMA(nprcha,0:nbasma),IPRMO(nprcha,0:nbasma),
  91. > IPRCHP(nprcha,0:nbasma),IPRHOC(nprcha,0:nbasma),
  92. > IPRSU(nprcha,0:nbasma),IPRCHL(nprcha,0:nbasma),
  93. > IPRCHA(nprcha,0:nbasma)
  94.  
  95.  
  96.  

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