Télécharger isova4.eso

Retour à la liste

Numérotation des lignes :

  1. C ISOVA4 SOURCE BP208322 16/11/18 21:17:55 9177
  2.  
  3. SUBROUTINE ISOVA4(ITYPEL,MATCAS,NMAXCA,NMAXPT,MATARE,npt2,NMAXAR)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IMPLICIT INTEGER (I-N)
  6. C***********************************************************************
  7. C NOM : ISOVA4
  8. C DESCRIPTION : Remplit les tableaux MATCAS et MATARE decrivant les cas
  9. C et aretes selon le type d element
  10. C "Marching Cubes Algorithm"
  11. C
  12. C LANGAGE : ESOPE
  13. C AUTEUR : Benoit Prabel (CEA/DEN/DM2S/SEMT/DYN)
  14. C***********************************************************************
  15. C VERSION : 19/12/2011, BP : création pour les CUB8
  16. C HISTORIQUE :
  17. C HISTORIQUE :
  18. C***********************************************************************
  19. -INC CCOPTIO
  20. -INC CCGEOME
  21. INTEGER MATCAS(NMAXPT,NMAXCA),MATARE(npt2,NMAXAR)
  22. INTEGER MATAR1(2,12)
  23. INTEGER MATCA1(16,16),MATCA2(16,16),MATCA3(16,16),MATCA4(16,16)
  24. INTEGER MATCA5(16,16),MATCA6(16,16),MATCA7(16,16),MATCA8(16,16)
  25. INTEGER MATCA9(16,16),MATC10(16,16),MATC11(16,16),MATC12(16,16)
  26. INTEGER MATC13(16,16),MATC14(16,16),MATC15(16,16),MATC16(16,16)
  27. C
  28. c******* Aiguillage selon type d element ******************************
  29. c
  30. if(ITYPEL.eq.14) goto 114
  31.  
  32. c******* ERREUR Type d'élément inconnu ********************************
  33. MOTERR(1:4)=NOMS(ITYPEL)
  34. CALL ERREUR(44)
  35. RETURN
  36.  
  37. ******** Cas des CUB8 ***********************************************
  38. 114 CONTINUE
  39. DATA MATAR1 / 1,4 , 4,3 , 3,2 , 2,1 ,
  40. > 5,8 , 8,7 , 7,6 , 6,5 , 1,5 , 4,8 , 3,7 , 2,6 /
  41. DATA MATCA1 / 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  42. > 1, 9, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  43. > 1, 2,10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  44. > 2, 9, 4, 10, 9, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  45. > 2, 3,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  46. > 1, 9, 4, 2, 3,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  47. > 10, 3,11, 1, 3,10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  48. > 3, 9, 4, 3,11, 9, 11,10, 9, 0, 0, 0, 0, 0, 0, 0,
  49. > 4,12, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  50. > 1,12, 3, 9,12, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  51. > 2,10, 1, 3, 4,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  52. > 2,12, 3, 2,10,12, 10, 9,12, 0, 0, 0, 0, 0, 0, 0,
  53. > 4,11, 2, 12,11, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  54. > 1,11, 2, 1, 9,11, 9,12,11, 0, 0, 0, 0, 0, 0, 0,
  55. > 4,10, 1, 4,12,10, 12,11,10, 0, 0, 0, 0, 0, 0, 0,
  56. > 10, 9,11, 11, 9,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  57. DATA MATCA2 / 5, 8, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  58. > 5, 4, 1, 8, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  59. > 1, 2,10, 9, 5, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  60. > 5, 2,10, 5, 8, 2, 8, 4, 2, 0, 0, 0, 0, 0, 0, 0,
  61. > 2, 3,11, 9, 5, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  62. > 4, 5, 8, 4, 1, 5, 2, 3,11, 0, 0, 0, 0, 0, 0, 0,
  63. > 10, 3,11, 10, 1, 3, 9, 5, 8, 0, 0, 0, 0, 0, 0, 0,
  64. > 3,11,10, 3,10, 8, 3, 8, 4, 8,10, 5, 0, 0, 0, 0,
  65. > 9, 5, 8, 4,12, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  66. > 12, 5, 8, 12, 3, 5, 3, 1, 5, 0, 0, 0, 0, 0, 0, 0,
  67. > 10, 1, 2, 9, 5, 8, 3, 4,12, 0, 0, 0, 0, 0, 0, 0,
  68. > 5, 8,12, 10, 5,12, 10,12, 3, 10, 3, 2, 0, 0, 0, 0,
  69. > 4,11, 2, 4,12,11, 8, 9, 5, 0, 0, 0, 0, 0, 0, 0,
  70. > 2,12,11, 2, 5,12, 2, 1, 5, 8,12, 5, 0, 0, 0, 0,
  71. > 5, 8, 9, 10, 1,12, 10,12,11, 12, 1, 4, 0, 0, 0, 0,
  72. > 5, 8,12, 5,12,10, 10,12,11, 0, 0, 0, 0, 0, 0, 0/
  73. DATA MATCA3 /10, 6, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  74. > 10, 6, 5, 1, 9, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  75. > 1, 6, 5, 2, 6, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  76. > 9, 6, 5, 9, 4, 6, 4, 2, 6, 0, 0, 0, 0, 0, 0, 0,
  77. > 2, 3,11, 10, 6, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  78. > 4, 1, 9, 2, 3,11, 5,10, 6, 0, 0, 0, 0, 0, 0, 0,
  79. > 6, 3,11, 6, 5, 3, 5, 1, 3, 0, 0, 0, 0, 0, 0, 0,
  80. > 3,11, 6, 4, 3, 6, 4, 6, 5, 4, 5, 9, 0, 0, 0, 0,
  81. > 10, 6, 5, 3, 4,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  82. > 1,12, 3, 1, 9,12, 5,10, 6, 0, 0, 0, 0, 0, 0, 0,
  83. > 1, 6, 5, 1, 2, 6, 3, 4,12, 0, 0, 0, 0, 0, 0, 0,
  84. > 3, 2, 6, 3, 6, 9, 3, 9,12, 5, 9, 6, 0, 0, 0, 0,
  85. > 11, 4,12, 11, 2, 4, 10, 6, 5, 0, 0, 0, 0, 0, 0, 0,
  86. > 5,10, 6, 1, 9, 2, 9,11, 2, 9,12,11, 0, 0, 0, 0,
  87. > 6, 5, 1, 6, 1,12, 6,12,11, 12, 1, 4, 0, 0, 0, 0,
  88. > 6, 5, 9, 6, 9,11, 11, 9,12, 0, 0, 0, 0, 0, 0, 0/
  89. DATA MATCA4 /10, 8, 9, 6, 8,10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  90. > 10, 4, 1, 10, 6, 4, 6, 8, 4, 0, 0, 0, 0, 0, 0, 0,
  91. > 1, 8, 9, 1, 2, 8, 2, 6, 8, 0, 0, 0, 0, 0, 0, 0,
  92. > 2, 6, 4, 4, 6, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  93. > 10, 8, 9, 10, 6, 8, 11, 2, 3, 0, 0, 0, 0, 0, 0, 0,
  94. > 11, 2, 3, 10, 6, 1, 6, 4, 1, 6, 8, 4, 0, 0, 0, 0,
  95. > 9, 1, 3, 9, 3, 6, 9, 6, 8, 11, 6, 3, 0, 0, 0, 0,
  96. > 3,11, 6, 3, 6, 4, 4, 6, 8, 0, 0, 0, 0, 0, 0, 0,
  97. > 8,10, 6, 8, 9,10, 4,12, 3, 0, 0, 0, 0, 0, 0, 0,
  98. > 10, 6, 8, 10, 8, 3, 10, 3, 1, 3, 8,12, 0, 0, 0, 0,
  99. > 3, 4,12, 1, 2, 9, 2, 8, 9, 2, 6, 8, 0, 0, 0, 0,
  100. > 12, 3, 2, 12, 2, 8, 8, 2, 6, 0, 0, 0, 0, 0, 0, 0,
  101. > 10, 6, 9, 9, 6, 8, 11, 2, 4, 11, 4,12, 0, 0, 0, 0,
  102. > 6, 8, 1, 6, 1,10, 8,12, 1, 2, 1,11, 12,11, 1, 0,
  103. > 12,11, 1, 12, 1, 4, 11, 6, 1, 9, 1, 8, 6, 8, 1, 0,
  104. > 12,11, 6, 8,12, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  105. DATA MATCA5 /11, 7, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  106. > 1, 9, 4, 6,11, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  107. > 10, 1, 2, 6,11, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  108. > 2, 9, 4, 2,10, 9, 6,11, 7, 0, 0, 0, 0, 0, 0, 0,
  109. > 2, 7, 6, 3, 7, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  110. > 2, 7, 6, 2, 3, 7, 4, 1, 9, 0, 0, 0, 0, 0, 0, 0,
  111. > 10, 7, 6, 10, 1, 7, 1, 3, 7, 0, 0, 0, 0, 0, 0, 0,
  112. > 6,10, 9, 6, 9, 3, 6, 3, 7, 4, 3, 9, 0, 0, 0, 0,
  113. > 3, 4,12, 11, 7, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  114. > 12, 1, 9, 12, 3, 1, 11, 7, 6, 0, 0, 0, 0, 0, 0, 0,
  115. > 1, 2,10, 3, 4,12, 6,11, 7, 0, 0, 0, 0, 0, 0, 0,
  116. > 6,11, 7, 2,10, 3, 10,12, 3, 10, 9,12, 0, 0, 0, 0,
  117. > 7, 4,12, 7, 6, 4, 6, 2, 4, 0, 0, 0, 0, 0, 0, 0,
  118. > 1, 9,12, 1,12, 6, 1, 6, 2, 6,12, 7, 0, 0, 0, 0,
  119. > 4,12, 7, 1, 4, 7, 1, 7, 6, 1, 6,10, 0, 0, 0, 0,
  120. > 7, 6,10, 7,10,12, 12,10, 9, 0, 0, 0, 0, 0, 0, 0/
  121. DATA MATCA6 / 6,11, 7, 5, 8, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  122. > 5, 4, 1, 5, 8, 4, 7, 6,11, 0, 0, 0, 0, 0, 0, 0,
  123. > 2,10, 1, 6,11, 7, 9, 5, 8, 0, 0, 0, 0, 0, 0, 0,
  124. > 11, 7, 6, 2,10, 8, 2, 8, 4, 8,10, 5, 0, 0, 0, 0,
  125. > 7, 2, 3, 7, 6, 2, 5, 8, 9, 0, 0, 0, 0, 0, 0, 0,
  126. > 2, 3, 6, 6, 3, 7, 4, 1, 5, 4, 5, 8, 0, 0, 0, 0,
  127. > 9, 5, 8, 10, 1, 6, 1, 7, 6, 1, 3, 7, 0, 0, 0, 0,
  128. > 8, 4,10, 8,10, 5, 4, 3,10, 6,10, 7, 3, 7,10, 0,
  129. > 4,12, 3, 8, 9, 5, 11, 7, 6, 0, 0, 0, 0, 0, 0, 0,
  130. > 6,11, 7, 5, 8, 3, 5, 3, 1, 3, 8,12, 0, 0, 0, 0,
  131. > 1, 2,10, 5, 8, 9, 3, 4,12, 6,11, 7, 0, 0, 0, 0,
  132. > 10, 3, 2, 10,12, 3, 10, 5,12, 8,12, 5, 6,11, 7, 0,
  133. > 9, 5, 8, 4,12, 6, 4, 6, 2, 6,12, 7, 0, 0, 0, 0,
  134. > 6, 2,12, 6,12, 7, 2, 1,12, 8,12, 5, 1, 5,12, 0,
  135. > 1, 6,10, 1, 7, 6, 1, 4, 7, 12, 7, 4, 9, 5, 8, 0,
  136. > 7, 6,10, 7,10,12, 5, 8,10, 8,12,10, 0, 0, 0, 0/
  137. DATA MATCA7 /11, 5,10, 7, 5,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  138. > 5,11, 7, 5,10,11, 1, 9, 4, 0, 0, 0, 0, 0, 0, 0,
  139. > 11, 1, 2, 11, 7, 1, 7, 5, 1, 0, 0, 0, 0, 0, 0, 0,
  140. > 9, 4, 2, 9, 2, 7, 9, 7, 5, 7, 2,11, 0, 0, 0, 0,
  141. > 2, 5,10, 2, 3, 5, 3, 7, 5, 0, 0, 0, 0, 0, 0, 0,
  142. > 4, 1, 9, 2, 3,10, 3, 5,10, 3, 7, 5, 0, 0, 0, 0,
  143. > 1, 3, 5, 5, 3, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  144. > 9, 4, 3, 9, 3, 5, 5, 3, 7, 0, 0, 0, 0, 0, 0, 0,
  145. > 11, 5,10, 11, 7, 5, 12, 3, 4, 0, 0, 0, 0, 0, 0, 0,
  146. > 1, 9, 3, 3, 9,12, 5,10,11, 5,11, 7, 0, 0, 0, 0,
  147. > 4,12, 3, 1, 2, 7, 1, 7, 5, 7, 2,11, 0, 0, 0, 0,
  148. > 7, 5, 2, 7, 2,11, 5, 9, 2, 3, 2,12, 9,12, 2, 0,
  149. > 10, 7, 5, 10, 4, 7, 10, 2, 4, 12, 7, 4, 0, 0, 0, 0,
  150. > 9,12, 2, 9, 2, 1, 12, 7, 2, 10, 2, 5, 7, 5, 2, 0,
  151. > 4,12, 7, 4, 7, 1, 1, 7, 5, 0, 0, 0, 0, 0, 0, 0,
  152. > 7, 5, 9, 12, 7, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  153. DATA MATCA8 / 8,11, 7, 8, 9,11, 9,10,11, 0, 0, 0, 0, 0, 0, 0,
  154. > 1, 8, 4, 1,11, 8, 1,10,11, 7, 8,11, 0, 0, 0, 0,
  155. > 11, 7, 8, 2,11, 8, 2, 8, 9, 2, 9, 1, 0, 0, 0, 0,
  156. > 11, 7, 8, 11, 8, 2, 2, 8, 4, 0, 0, 0, 0, 0, 0, 0,
  157. > 2, 3, 7, 2, 7, 9, 2, 9,10, 9, 7, 8, 0, 0, 0, 0,
  158. > 3, 7,10, 3,10, 2, 7, 8,10, 1,10, 4, 8, 4,10, 0,
  159. > 8, 9, 1, 8, 1, 7, 7, 1, 3, 0, 0, 0, 0, 0, 0, 0,
  160. > 8, 4, 3, 7, 8, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  161. > 3, 4,12, 11, 7, 9, 11, 9,10, 9, 7, 8, 0, 0, 0, 0,
  162. > 3, 1, 8, 3, 8,12, 1,10, 8, 7, 8,11, 10,11, 8, 0,
  163. > 2, 9, 1, 2, 8, 9, 2,11, 8, 7, 8,11, 3, 4,12, 0,
  164. > 12, 3, 2, 12, 2, 8, 11, 7, 2, 7, 8, 2, 0, 0, 0, 0,
  165. > 9,10, 7, 9, 7, 8, 10, 2, 7, 12, 7, 4, 2, 4, 7, 0,
  166. > 1,10, 2, 12, 7, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  167. > 8, 9, 1, 8, 1, 7, 4,12, 1, 12, 7, 1, 0, 0, 0, 0,
  168. > 8,12, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  169. DATA MATCA9 / 8, 7,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  170. > 4, 1, 9, 12, 8, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  171. > 1, 2,10, 12, 8, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  172. > 9, 2,10, 9, 4, 2, 12, 8, 7, 0, 0, 0, 0, 0, 0, 0,
  173. > 11, 2, 3, 7,12, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  174. > 2, 3,11, 4, 1, 9, 7,12, 8, 0, 0, 0, 0, 0, 0, 0,
  175. > 3,10, 1, 3,11,10, 7,12, 8, 0, 0, 0, 0, 0, 0, 0,
  176. > 7,12, 8, 3,11, 4, 11, 9, 4, 11,10, 9, 0, 0, 0, 0,
  177. > 8, 3, 4, 7, 3, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  178. > 8, 1, 9, 8, 7, 1, 7, 3, 1, 0, 0, 0, 0, 0, 0, 0,
  179. > 3, 8, 7, 3, 4, 8, 1, 2,10, 0, 0, 0, 0, 0, 0, 0,
  180. > 2, 7, 3, 2, 9, 7, 2,10, 9, 9, 8, 7, 0, 0, 0, 0,
  181. > 11, 8, 7, 11, 2, 8, 2, 4, 8, 0, 0, 0, 0, 0, 0, 0,
  182. > 11, 8, 7, 2, 8,11, 2, 9, 8, 2, 1, 9, 0, 0, 0, 0,
  183. > 1, 4, 8, 1, 8,11, 1,11,10, 7,11, 8, 0, 0, 0, 0,
  184. > 8, 7,11, 8,11, 9, 9,11,10, 0, 0, 0, 0, 0, 0, 0/
  185. DATA MATC10 / 7, 9, 5, 12, 9, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  186. > 4, 7,12, 4, 1, 7, 1, 5, 7, 0, 0, 0, 0, 0, 0, 0,
  187. > 9, 7,12, 9, 5, 7, 10, 1, 2, 0, 0, 0, 0, 0, 0, 0,
  188. > 10, 5, 7, 10, 7, 4, 10, 4, 2, 12, 4, 7, 0, 0, 0, 0,
  189. > 7, 9, 5, 7,12, 9, 3,11, 2, 0, 0, 0, 0, 0, 0, 0,
  190. > 2, 3,11, 4, 1,12, 1, 7,12, 1, 5, 7, 0, 0, 0, 0,
  191. > 5,12, 9, 5, 7,12, 1, 3,10, 3,11,10, 0, 0, 0, 0,
  192. > 11,10, 4, 11, 4, 3, 10, 5, 4, 12, 4, 7, 5, 7, 4, 0,
  193. > 9, 3, 4, 9, 5, 3, 5, 7, 3, 0, 0, 0, 0, 0, 0, 0,
  194. > 1, 5, 3, 5, 7, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  195. > 2,10, 1, 3, 4, 5, 3, 5, 7, 5, 4, 9, 0, 0, 0, 0,
  196. > 2,10, 5, 2, 5, 3, 3, 5, 7, 0, 0, 0, 0, 0, 0, 0,
  197. > 9, 2, 4, 9, 7, 2, 9, 5, 7, 7,11, 2, 0, 0, 0, 0,
  198. > 11, 2, 1, 11, 1, 7, 7, 1, 5, 0, 0, 0, 0, 0, 0, 0,
  199. > 5, 7, 4, 5, 4, 9, 7,11, 4, 1, 4,10, 11,10, 4, 0,
  200. > 11,10, 5, 7,11, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  201. DATA MATC11 / 5,10, 6, 8, 7,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  202. > 1, 9, 4, 5,10, 6, 12, 8, 7, 0, 0, 0, 0, 0, 0, 0,
  203. > 6, 1, 2, 6, 5, 1, 8, 7,12, 0, 0, 0, 0, 0, 0, 0,
  204. > 12, 8, 7, 9, 4, 5, 4, 6, 5, 4, 2, 6, 0, 0, 0, 0,
  205. > 10, 6, 5, 11, 2, 3, 8, 7,12, 0, 0, 0, 0, 0, 0, 0,
  206. > 7,12, 8, 2, 3,11, 1, 9, 4, 5,10, 6, 0, 0, 0, 0,
  207. > 8, 7,12, 6, 5,11, 5, 3,11, 5, 1, 3, 0, 0, 0, 0,
  208. > 4, 5, 9, 4, 6, 5, 4, 3, 6, 11, 6, 3, 12, 8, 7, 0,
  209. > 8, 3, 4, 8, 7, 3, 6, 5,10, 0, 0, 0, 0, 0, 0, 0,
  210. > 10, 6, 5, 1, 9, 7, 1, 7, 3, 7, 9, 8, 0, 0, 0, 0,
  211. > 4, 7, 3, 4, 8, 7, 2, 6, 1, 6, 5, 1, 0, 0, 0, 0,
  212. > 7, 3, 9, 7, 9, 8, 3, 2, 9, 5, 9, 6, 2, 6, 9, 0,
  213. > 10, 6, 5, 11, 2, 7, 2, 8, 7, 2, 4, 8, 0, 0, 0, 0,
  214. > 2, 7,11, 2, 8, 7, 2, 1, 8, 9, 8, 1, 10, 6, 5, 0,
  215. > 5, 1,11, 5,11, 6, 1, 4,11, 7,11, 8, 4, 8,11, 0,
  216. > 8, 7,11, 8,11, 9, 6, 5,11, 5, 9,11, 0, 0, 0, 0/
  217. DATA MATC12 / 7,10, 6, 7,12,10, 12, 9,10, 0, 0, 0, 0, 0, 0, 0,
  218. > 4, 7,12, 1, 7, 4, 1, 6, 7, 1,10, 6, 0, 0, 0, 0,
  219. > 1,12, 9, 1, 6,12, 1, 2, 6, 6, 7,12, 0, 0, 0, 0,
  220. > 7,12, 4, 7, 4, 6, 6, 4, 2, 0, 0, 0, 0, 0, 0, 0,
  221. > 2, 3,11, 10, 6,12, 10,12, 9, 12, 6, 7, 0, 0, 0, 0,
  222. > 1,12, 4, 1, 7,12, 1,10, 7, 6, 7,10, 2, 3,11, 0,
  223. > 12, 9, 6, 12, 6, 7, 9, 1, 6, 11, 6, 3, 1, 3, 6, 0,
  224. > 7,12, 4, 7, 4, 6, 3,11, 4, 11, 6, 4, 0, 0, 0, 0,
  225. > 6, 9,10, 6, 3, 9, 6, 7, 3, 4, 9, 3, 0, 0, 0, 0,
  226. > 10, 6, 7, 10, 7, 1, 1, 7, 3, 0, 0, 0, 0, 0, 0, 0,
  227. > 2, 6, 9, 2, 9, 1, 6, 7, 9, 4, 9, 3, 7, 3, 9, 0,
  228. > 2, 6, 7, 3, 2, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  229. > 2, 4, 7, 2, 7,11, 4, 9, 7, 6, 7,10, 9,10, 7, 0,
  230. > 11, 2, 1, 11, 1, 7, 10, 6, 1, 6, 7, 1, 0, 0, 0, 0,
  231. > 1, 4, 9, 6, 7,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  232. > 11, 6, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  233. DATA MATC13 /12, 6,11, 8, 6,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  234. > 12, 6,11, 12, 8, 6, 9, 4, 1, 0, 0, 0, 0, 0, 0, 0,
  235. > 6,12, 8, 6,11,12, 2,10, 1, 0, 0, 0, 0, 0, 0, 0,
  236. > 11, 8, 6, 11,12, 8, 10, 9, 2, 9, 4, 2, 0, 0, 0, 0,
  237. > 12, 2, 3, 12, 8, 2, 8, 6, 2, 0, 0, 0, 0, 0, 0, 0,
  238. > 1, 9, 4, 2, 3, 8, 2, 8, 6, 8, 3,12, 0, 0, 0, 0,
  239. > 10, 8, 6, 10, 3, 8, 10, 1, 3, 3,12, 8, 0, 0, 0, 0,
  240. > 8, 6, 3, 8, 3,12, 6,10, 3, 4, 3, 9, 10, 9, 3, 0,
  241. > 3, 6,11, 3, 4, 6, 4, 8, 6, 0, 0, 0, 0, 0, 0, 0,
  242. > 9, 3, 1, 9, 6, 3, 9, 8, 6, 11, 3, 6, 0, 0, 0, 0,
  243. > 10, 1, 2, 6,11, 4, 6, 4, 8, 4,11, 3, 0, 0, 0, 0,
  244. > 10, 9, 3, 10, 3, 2, 9, 8, 3, 11, 3, 6, 8, 6, 3, 0,
  245. > 2, 4, 6, 4, 8, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  246. > 1, 9, 8, 1, 8, 2, 2, 8, 6, 0, 0, 0, 0, 0, 0, 0,
  247. > 10, 1, 4, 10, 4, 6, 6, 4, 8, 0, 0, 0, 0, 0, 0, 0,
  248. > 10, 9, 8, 6,10, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  249. DATA MATC14 / 6, 9, 5, 6,11, 9, 11,12, 9, 0, 0, 0, 0, 0, 0, 0,
  250. > 6, 1, 5, 6,12, 1, 6,11,12, 12, 4, 1, 0, 0, 0, 0,
  251. > 1, 2,10, 9, 5,11, 9,11,12, 11, 5, 6, 0, 0, 0, 0,
  252. > 11,12, 5, 11, 5, 6, 12, 4, 5, 10, 5, 2, 4, 2, 5, 0,
  253. > 3, 6, 2, 3, 9, 6, 3,12, 9, 5, 6, 9, 0, 0, 0, 0,
  254. > 1, 5,12, 1,12, 4, 5, 6,12, 3,12, 2, 6, 2,12, 0,
  255. > 1, 3, 6, 1, 6,10, 3,12, 6, 5, 6, 9, 12, 9, 6, 0,
  256. > 10, 5, 6, 3,12, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  257. > 3, 6,11, 4, 6, 3, 4, 5, 6, 4, 9, 5, 0, 0, 0, 0,
  258. > 6,11, 3, 6, 3, 5, 5, 3, 1, 0, 0, 0, 0, 0, 0, 0,
  259. > 4,11, 3, 4, 6,11, 4, 9, 6, 5, 6, 9, 1, 2,10, 0,
  260. > 6,11, 3, 6, 3, 5, 2,10, 3, 10, 5, 3, 0, 0, 0, 0,
  261. > 9, 5, 6, 9, 6, 4, 4, 6, 2, 0, 0, 0, 0, 0, 0, 0,
  262. > 1, 5, 6, 2, 1, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  263. > 9, 5, 6, 9, 6, 4, 10, 1, 6, 1, 4, 6, 0, 0, 0, 0,
  264. > 10, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  265. DATA MATC15 / 5,12, 8, 5,10,12, 10,11,12, 0, 0, 0, 0, 0, 0, 0,
  266. > 1, 9, 4, 5,10, 8, 10,12, 8, 10,11,12, 0, 0, 0, 0,
  267. > 2,11,12, 2,12, 5, 2, 5, 1, 8, 5,12, 0, 0, 0, 0,
  268. > 4, 2, 5, 4, 5, 9, 2,11, 5, 8, 5,12, 11,12, 5, 0,
  269. > 5,12, 8, 10,12, 5, 10, 3,12, 10, 2, 3, 0, 0, 0, 0,
  270. > 10, 8, 5, 10,12, 8, 10, 2,12, 3,12, 2, 1, 9, 4, 0,
  271. > 12, 8, 5, 12, 5, 3, 3, 5, 1, 0, 0, 0, 0, 0, 0, 0,
  272. > 12, 8, 5, 12, 5, 3, 9, 4, 5, 4, 3, 5, 0, 0, 0, 0,
  273. > 3,10,11, 3, 8,10, 3, 4, 8, 8, 5,10, 0, 0, 0, 0,
  274. > 10,11, 8, 10, 8, 5, 11, 3, 8, 9, 8, 1, 3, 1, 8, 0,
  275. > 4, 8,11, 4,11, 3, 8, 5,11, 2,11, 1, 5, 1,11, 0,
  276. > 2,11, 3, 9, 8, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  277. > 5,10, 2, 5, 2, 8, 8, 2, 4, 0, 0, 0, 0, 0, 0, 0,
  278. > 5,10, 2, 5, 2, 8, 1, 9, 2, 9, 8, 2, 0, 0, 0, 0,
  279. > 5, 1, 4, 8, 5, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  280. > 5, 9, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  281. DATA MATC16 /10,11, 9, 11,12, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  282. > 4, 1,10, 4,10,12, 12,10,11, 0, 0, 0, 0, 0, 0, 0,
  283. > 1, 2,11, 1,11, 9, 9,11,12, 0, 0, 0, 0, 0, 0, 0,
  284. > 4, 2,11, 12, 4,11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  285. > 2, 3,12, 2,12,10, 10,12, 9, 0, 0, 0, 0, 0, 0, 0,
  286. > 4, 1,10, 4,10,12, 2, 3,10, 3,12,10, 0, 0, 0, 0,
  287. > 1, 3,12, 9, 1,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  288. > 4, 3,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  289. > 3, 4, 9, 3, 9,11, 11, 9,10, 0, 0, 0, 0, 0, 0, 0,
  290. > 10,11, 3, 1,10, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  291. > 3, 4, 9, 3, 9,11, 1, 2, 9, 2,11, 9, 0, 0, 0, 0,
  292. > 2,11, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  293. > 2, 4, 9, 10, 2, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  294. > 1,10, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  295. > 1, 4, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  296. > 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
  297.  
  298. c on remplit
  299. do i1=1,12
  300. MATARE(1,i1)=MATAR1(1,i1)
  301. MATARE(2,i1)=MATAR1(2,i1)
  302. enddo
  303. do i1=1,16
  304. do i2=1,16
  305. MATCAS(i2, i1)=MATCA1(i2,i1)
  306. MATCAS(i2, 16+i1)=MATCA2(i2,i1)
  307. MATCAS(i2, 32+i1)=MATCA3(i2,i1)
  308. MATCAS(i2, 48+i1)=MATCA4(i2,i1)
  309. MATCAS(i2, 64+i1)=MATCA5(i2,i1)
  310. MATCAS(i2, 80+i1)=MATCA6(i2,i1)
  311. MATCAS(i2, 96+i1)=MATCA7(i2,i1)
  312. MATCAS(i2,112+i1)=MATCA8(i2,i1)
  313. MATCAS(i2,128+i1)=MATCA9(i2,i1)
  314. MATCAS(i2,144+i1)=MATC10(i2,i1)
  315. MATCAS(i2,160+i1)=MATC11(i2,i1)
  316. MATCAS(i2,176+i1)=MATC12(i2,i1)
  317. MATCAS(i2,192+i1)=MATC13(i2,i1)
  318. MATCAS(i2,208+i1)=MATC14(i2,i1)
  319. MATCAS(i2,224+i1)=MATC15(i2,i1)
  320. MATCAS(i2,240+i1)=MATC16(i2,i1)
  321. enddo
  322. enddo
  323.  
  324.  
  325. RETURN
  326.  
  327. END
  328.  
  329.  
  330.  
  331.  
  332.  

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