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

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