Télécharger la plaquette Cast3M


fr en

Télécharger isova4.eso

Retour à la liste

Numérotation des lignes : 

isova4

  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