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