src/tool/Includes_Generaux/hexcf4.h

   1 c
   2 c Pour la permutation p :
   3 c hepers(n,p) = numero global du sommet dans l'hexaedre courant
   4 c               correspondant au n-eme dans l'hexaedre de reference
   5 c hepera = pour les aretes
   6 c heperf, heperc = pour les faces et leurs codes
   7 c
   8 c Permutation 0
   9 c
  10         hepers(1,0) = listso(1)
  11         hepers(2,0) = listso(2)
  12         hepers(3,0) = listso(3)
  13         hepers(4,0) = listso(4)
  14         hepers(5,0) = listso(5)
  15         hepers(6,0) = listso(6)
  16         hepers(7,0) = listso(7)
  17         hepers(8,0) = listso(8)
  18 c
  19         hepera(1,0) = listar(1)
  20         hepera(2,0) = listar(2)
  21         hepera(3,0) = listar(3)
  22         hepera(4,0) = listar(4)
  23         hepera(5,0) = listar(5)
  24         hepera(6,0) = listar(6)
  25         hepera(7,0) = listar(7)
  26         hepera(8,0) = listar(8)
  27         hepera(9,0) = listar(9)
  28         hepera(10,0) = listar(10)
  29         hepera(11,0) = listar(11)
  30         hepera(12,0) = listar(12)
  31 c
  32         heperf(1,0) = quahex(lehexa,1)
  33         heperc(1,0) = per002(1,coquhe(lehexa,1))
  34         heperf(2,0) = quahex(lehexa,2)
  35         heperc(2,0) = per002(1,coquhe(lehexa,2))
  36         heperf(3,0) = quahex(lehexa,3)
  37         heperc(3,0) = per002(1,coquhe(lehexa,3))
  38         heperf(4,0) = quahex(lehexa,4)
  39         heperc(4,0) = per002(1,coquhe(lehexa,4))
  40         heperf(5,0) = quahex(lehexa,5)
  41         heperc(5,0) = per002(1,coquhe(lehexa,5))
  42         heperf(6,0) = quahex(lehexa,6)
  43         heperc(6,0) = per002(1,coquhe(lehexa,6))
  44 c
  45 c Permutation 1
  46 c
  47         hepers(1,1) = listso(4)
  48         hepers(2,1) = listso(1)
  49         hepers(3,1) = listso(2)
  50         hepers(4,1) = listso(3)
  51         hepers(5,1) = listso(6)
  52         hepers(6,1) = listso(7)
  53         hepers(7,1) = listso(8)
  54         hepers(8,1) = listso(5)
  55 c
  56         hepera(1,1) = listar(2)
  57         hepera(2,1) = listar(4)
  58         hepera(3,1) = listar(1)
  59         hepera(4,1) = listar(3)
  60         hepera(5,1) = listar(7)
  61         hepera(6,1) = listar(5)
  62         hepera(7,1) = listar(8)
  63         hepera(8,1) = listar(6)
  64         hepera(9,1) = listar(10)
  65         hepera(10,1) = listar(12)
  66         hepera(11,1) = listar(9)
  67         hepera(12,1) = listar(11)
  68 c
  69         heperf(1,1) = quahex(lehexa,1)
  70         heperc(1,1) = per002(1,coquhe(lehexa,1))
  71         heperf(2,1) = quahex(lehexa,3)
  72         heperc(2,1) = per002(1,coquhe(lehexa,3))
  73         heperf(3,1) = quahex(lehexa,5)
  74         heperc(3,1) = per002(1,coquhe(lehexa,5))
  75         heperf(4,1) = quahex(lehexa,2)
  76         heperc(4,1) = per002(1,coquhe(lehexa,2))
  77         heperf(5,1) = quahex(lehexa,4)
  78         heperc(5,1) = per002(1,coquhe(lehexa,4))
  79         heperf(6,1) = quahex(lehexa,6)
  80         heperc(6,1) = per002(1,coquhe(lehexa,6))
  81 c
  82 c Permutation 10
  83 c
  84         hepers(1,10) = listso(2)
  85         hepers(2,10) = listso(5)
  86         hepers(3,10) = listso(8)
  87         hepers(4,10) = listso(3)
  88         hepers(5,10) = listso(6)
  89         hepers(6,10) = listso(1)
  90         hepers(7,10) = listso(4)
  91         hepers(8,10) = listso(7)
  92 c
  93         hepera(1,10) = listar(6)
  94         hepera(2,10) = listar(3)
  95         hepera(3,10) = listar(11)
  96         hepera(4,10) = listar(8)
  97         hepera(5,10) = listar(1)
  98         hepera(6,10) = listar(9)
  99         hepera(7,10) = listar(4)
 100         hepera(8,10) = listar(12)
 101         hepera(9,10) = listar(5)
 102         hepera(10,10) = listar(2)
 103         hepera(11,10) = listar(10)
 104         hepera(12,10) = listar(7)
 105 c
 106         heperf(1,10) = quahex(lehexa,4)
 107         heperc(1,10) = per002(2,coquhe(lehexa,4))
 108         heperf(2,10) = quahex(lehexa,2)
 109         heperc(2,10) = per002(1,coquhe(lehexa,2))
 110         heperf(3,10) = quahex(lehexa,1)
 111         heperc(3,10) = per002(1,coquhe(lehexa,1))
 112         heperf(4,10) = quahex(lehexa,6)
 113         heperc(4,10) = per002(1,coquhe(lehexa,6))
 114         heperf(5,10) = quahex(lehexa,5)
 115         heperc(5,10) = per002(1,coquhe(lehexa,5))
 116         heperf(6,10) = quahex(lehexa,3)
 117         heperc(6,10) = per002(1,coquhe(lehexa,3))
 118 c
 119 c Permutation 20
 120 c
 121         hepers(1,20) = listso(5)
 122         hepers(2,20) = listso(6)
 123         hepers(3,20) = listso(7)
 124         hepers(4,20) = listso(8)
 125         hepers(5,20) = listso(1)
 126         hepers(6,20) = listso(2)
 127         hepers(7,20) = listso(3)
 128         hepers(8,20) = listso(4)
 129 c
 130         hepera(1,20) = listar(9)
 131         hepera(2,20) = listar(11)
 132         hepera(3,20) = listar(10)
 133         hepera(4,20) = listar(12)
 134         hepera(5,20) = listar(6)
 135         hepera(6,20) = listar(5)
 136         hepera(7,20) = listar(8)
 137         hepera(8,20) = listar(7)
 138         hepera(9,20) = listar(1)
 139         hepera(10,20) = listar(3)
 140         hepera(11,20) = listar(2)
 141         hepera(12,20) = listar(4)
 142 c
 143         heperf(1,20) = quahex(lehexa,6)
 144         heperc(1,20) = per002(1,coquhe(lehexa,6))
 145         heperf(2,20) = quahex(lehexa,2)
 146         heperc(2,20) = per002(1,coquhe(lehexa,2))
 147         heperf(3,20) = quahex(lehexa,4)
 148         heperc(3,20) = per002(1,coquhe(lehexa,4))
 149         heperf(4,20) = quahex(lehexa,3)
 150         heperc(4,20) = per002(1,coquhe(lehexa,3))
 151         heperf(5,20) = quahex(lehexa,5)
 152         heperc(5,20) = per002(1,coquhe(lehexa,5))
 153         heperf(6,20) = quahex(lehexa,1)
 154         heperc(6,20) = per002(1,coquhe(lehexa,1))
 155 c
 156 c Permutation 21
 157 c
 158         hepers(1,21) = listso(8)
 159         hepers(2,21) = listso(5)
 160         hepers(3,21) = listso(6)
 161         hepers(4,21) = listso(7)
 162         hepers(5,21) = listso(2)
 163         hepers(6,21) = listso(3)
 164         hepers(7,21) = listso(4)
 165         hepers(8,21) = listso(1)
 166 c
 167         hepera(1,21) = listar(11)
 168         hepera(2,21) = listar(12)
 169         hepera(3,21) = listar(9)
 170         hepera(4,21) = listar(10)
 171         hepera(5,21) = listar(8)
 172         hepera(6,21) = listar(6)
 173         hepera(7,21) = listar(7)
 174         hepera(8,21) = listar(5)
 175         hepera(9,21) = listar(3)
 176         hepera(10,21) = listar(4)
 177         hepera(11,21) = listar(1)
 178         hepera(12,21) = listar(2)
 179 c
 180         heperf(1,21) = quahex(lehexa,6)
 181         heperc(1,21) = per002(4,coquhe(lehexa,6))
 182         heperf(2,21) = quahex(lehexa,4)
 183         heperc(2,21) = per002(1,coquhe(lehexa,4))
 184         heperf(3,21) = quahex(lehexa,5)
 185         heperc(3,21) = per002(1,coquhe(lehexa,5))
 186         heperf(4,21) = quahex(lehexa,2)
 187         heperc(4,21) = per002(1,coquhe(lehexa,2))
 188         heperf(5,21) = quahex(lehexa,3)
 189         heperc(5,21) = per002(1,coquhe(lehexa,3))
 190         heperf(6,21) = quahex(lehexa,1)
 191         heperc(6,21) = per002(1,coquhe(lehexa,1))
 192 c
 193 c Permutation 30
 194 c
 195         hepers(1,30) = listso(6)
 196         hepers(2,30) = listso(1)
 197         hepers(3,30) = listso(4)
 198         hepers(4,30) = listso(7)
 199         hepers(5,30) = listso(2)
 200         hepers(6,30) = listso(5)
 201         hepers(7,30) = listso(8)
 202         hepers(8,30) = listso(3)
 203 c
 204         hepera(1,30) = listar(5)
 205         hepera(2,30) = listar(10)
 206         hepera(3,30) = listar(2)
 207         hepera(4,30) = listar(7)
 208         hepera(5,30) = listar(9)
 209         hepera(6,30) = listar(1)
 210         hepera(7,30) = listar(12)
 211         hepera(8,30) = listar(4)
 212         hepera(9,30) = listar(6)
 213         hepera(10,30) = listar(11)
 214         hepera(11,30) = listar(3)
 215         hepera(12,30) = listar(8)
 216 c
 217         heperf(1,30) = quahex(lehexa,3)
 218         heperc(1,30) = per002(4,coquhe(lehexa,3))
 219         heperf(2,30) = quahex(lehexa,2)
 220         heperc(2,30) = per002(1,coquhe(lehexa,2))
 221         heperf(3,30) = quahex(lehexa,6)
 222         heperc(3,30) = per002(1,coquhe(lehexa,6))
 223         heperf(4,30) = quahex(lehexa,1)
 224         heperc(4,30) = per002(1,coquhe(lehexa,1))
 225         heperf(5,30) = quahex(lehexa,5)
 226         heperc(5,30) = per002(1,coquhe(lehexa,5))
 227         heperf(6,30) = quahex(lehexa,4)
 228         heperc(6,30) = per002(1,coquhe(lehexa,4))
 229 c
 230 c Permutation 100
 231 c
 232         hepers(1,100) = listso(6)
 233         hepers(2,100) = listso(5)
 234         hepers(3,100) = listso(2)
 235         hepers(4,100) = listso(1)
 236         hepers(5,100) = listso(8)
 237         hepers(6,100) = listso(7)
 238         hepers(7,100) = listso(4)
 239         hepers(8,100) = listso(3)
 240 c
 241         hepera(1,100) = listar(9)
 242         hepera(2,100) = listar(5)
 243         hepera(3,100) = listar(6)
 244         hepera(4,100) = listar(1)
 245         hepera(5,100) = listar(10)
 246         hepera(6,100) = listar(11)
 247         hepera(7,100) = listar(2)
 248         hepera(8,100) = listar(3)
 249         hepera(9,100) = listar(12)
 250         hepera(10,100) = listar(7)
 251         hepera(11,100) = listar(8)
 252         hepera(12,100) = listar(4)
 253 c
 254         heperf(1,100) = quahex(lehexa,2)
 255         heperc(1,100) = per002(3,coquhe(lehexa,2))
 256         heperf(2,100) = quahex(lehexa,6)
 257         heperc(2,100) = per002(1,coquhe(lehexa,6))
 258         heperf(3,100) = quahex(lehexa,3)
 259         heperc(3,100) = per002(1,coquhe(lehexa,3))
 260         heperf(4,100) = quahex(lehexa,4)
 261         heperc(4,100) = per002(1,coquhe(lehexa,4))
 262         heperf(5,100) = quahex(lehexa,1)
 263         heperc(5,100) = per002(1,coquhe(lehexa,1))
 264         heperf(6,100) = quahex(lehexa,5)
 265         heperc(6,100) = per002(1,coquhe(lehexa,5))
 266 c
 267 c Permutation 101
 268 c
 269         hepers(1,101) = listso(1)
 270         hepers(2,101) = listso(6)
 271         hepers(3,101) = listso(5)
 272         hepers(4,101) = listso(2)
 273         hepers(5,101) = listso(7)
 274         hepers(6,101) = listso(4)
 275         hepers(7,101) = listso(3)
 276         hepers(8,101) = listso(8)
 277 c
 278         hepera(1,101) = listar(5)
 279         hepera(2,101) = listar(1)
 280         hepera(3,101) = listar(9)
 281         hepera(4,101) = listar(6)
 282         hepera(5,101) = listar(2)
 283         hepera(6,101) = listar(10)
 284         hepera(7,101) = listar(3)
 285         hepera(8,101) = listar(11)
 286         hepera(9,101) = listar(7)
 287         hepera(10,101) = listar(4)
 288         hepera(11,101) = listar(12)
 289         hepera(12,101) = listar(8)
 290 c
 291         heperf(1,101) = quahex(lehexa,2)
 292         heperc(1,101) = per002(2,coquhe(lehexa,2))
 293         heperf(2,101) = quahex(lehexa,3)
 294         heperc(2,101) = per002(1,coquhe(lehexa,3))
 295         heperf(3,101) = quahex(lehexa,1)
 296         heperc(3,101) = per002(1,coquhe(lehexa,1))
 297         heperf(4,101) = quahex(lehexa,6)
 298         heperc(4,101) = per002(1,coquhe(lehexa,6))
 299         heperf(5,101) = quahex(lehexa,4)
 300         heperc(5,101) = per002(1,coquhe(lehexa,4))
 301         heperf(6,101) = quahex(lehexa,5)
 302         heperc(6,101) = per002(1,coquhe(lehexa,5))
 303 c
 304 c Permutation 110
 305 c
 306         hepers(1,110) = listso(5)
 307         hepers(2,110) = listso(8)
 308         hepers(3,110) = listso(3)
 309         hepers(4,110) = listso(2)
 310         hepers(5,110) = listso(7)
 311         hepers(6,110) = listso(6)
 312         hepers(7,110) = listso(1)
 313         hepers(8,110) = listso(4)
 314 c
 315         hepera(1,110) = listar(11)
 316         hepera(2,110) = listar(6)
 317         hepera(3,110) = listar(8)
 318         hepera(4,110) = listar(3)
 319         hepera(5,110) = listar(9)
 320         hepera(6,110) = listar(12)
 321         hepera(7,110) = listar(1)
 322         hepera(8,110) = listar(4)
 323         hepera(9,110) = listar(10)
 324         hepera(10,110) = listar(5)
 325         hepera(11,110) = listar(7)
 326         hepera(12,110) = listar(2)
 327 c
 328         heperf(1,110) = quahex(lehexa,4)
 329         heperc(1,110) = per002(3,coquhe(lehexa,4))
 330         heperf(2,110) = quahex(lehexa,6)
 331         heperc(2,110) = per002(1,coquhe(lehexa,6))
 332         heperf(3,110) = quahex(lehexa,2)
 333         heperc(3,110) = per002(1,coquhe(lehexa,2))
 334         heperf(4,110) = quahex(lehexa,5)
 335         heperc(4,110) = per002(1,coquhe(lehexa,5))
 336         heperf(5,110) = quahex(lehexa,1)
 337         heperc(5,110) = per002(1,coquhe(lehexa,1))
 338         heperf(6,110) = quahex(lehexa,3)
 339         heperc(6,110) = per002(1,coquhe(lehexa,3))
 340 c
 341 c Permutation 120
 342 c
 343         hepers(1,120) = listso(8)
 344         hepers(2,120) = listso(7)
 345         hepers(3,120) = listso(4)
 346         hepers(4,120) = listso(3)
 347         hepers(5,120) = listso(6)
 348         hepers(6,120) = listso(5)
 349         hepers(7,120) = listso(2)
 350         hepers(8,120) = listso(1)
 351 c
 352         hepera(1,120) = listar(12)
 353         hepera(2,120) = listar(8)
 354         hepera(3,120) = listar(7)
 355         hepera(4,120) = listar(4)
 356         hepera(5,120) = listar(11)
 357         hepera(6,120) = listar(10)
 358         hepera(7,120) = listar(3)
 359         hepera(8,120) = listar(2)
 360         hepera(9,120) = listar(9)
 361         hepera(10,120) = listar(6)
 362         hepera(11,120) = listar(5)
 363         hepera(12,120) = listar(1)
 364 c
 365         heperf(1,120) = quahex(lehexa,5)
 366         heperc(1,120) = per002(3,coquhe(lehexa,5))
 367         heperf(2,120) = quahex(lehexa,6)
 368         heperc(2,120) = per002(1,coquhe(lehexa,6))
 369         heperf(3,120) = quahex(lehexa,4)
 370         heperc(3,120) = per002(1,coquhe(lehexa,4))
 371         heperf(4,120) = quahex(lehexa,3)
 372         heperc(4,120) = per002(1,coquhe(lehexa,3))
 373         heperf(5,120) = quahex(lehexa,1)
 374         heperc(5,120) = per002(1,coquhe(lehexa,1))
 375         heperf(6,120) = quahex(lehexa,2)
 376         heperc(6,120) = per002(1,coquhe(lehexa,2))
 377 c
 378 c Permutation 121
 379 c
 380         hepers(1,121) = listso(3)
 381         hepers(2,121) = listso(8)
 382         hepers(3,121) = listso(7)
 383         hepers(4,121) = listso(4)
 384         hepers(5,121) = listso(5)
 385         hepers(6,121) = listso(2)
 386         hepers(7,121) = listso(1)
 387         hepers(8,121) = listso(6)
 388 c
 389         hepera(1,121) = listar(8)
 390         hepera(2,121) = listar(4)
 391         hepera(3,121) = listar(12)
 392         hepera(4,121) = listar(7)
 393         hepera(5,121) = listar(3)
 394         hepera(6,121) = listar(11)
 395         hepera(7,121) = listar(2)
 396         hepera(8,121) = listar(10)
 397         hepera(9,121) = listar(6)
 398         hepera(10,121) = listar(1)
 399         hepera(11,121) = listar(9)
 400         hepera(12,121) = listar(5)
 401 c
 402         heperf(1,121) = quahex(lehexa,5)
 403         heperc(1,121) = per002(2,coquhe(lehexa,5))
 404         heperf(2,121) = quahex(lehexa,4)
 405         heperc(2,121) = per002(1,coquhe(lehexa,4))
 406         heperf(3,121) = quahex(lehexa,1)
 407         heperc(3,121) = per002(1,coquhe(lehexa,1))
 408         heperf(4,121) = quahex(lehexa,6)
 409         heperc(4,121) = per002(1,coquhe(lehexa,6))
 410         heperf(5,121) = quahex(lehexa,3)
 411         heperc(5,121) = per002(1,coquhe(lehexa,3))
 412         heperf(6,121) = quahex(lehexa,2)
 413         heperc(6,121) = per002(1,coquhe(lehexa,2))
 414 c
 415 c Permutation 130
 416 c
 417         hepers(1,130) = listso(7)
 418         hepers(2,130) = listso(6)
 419         hepers(3,130) = listso(1)
 420         hepers(4,130) = listso(4)
 421         hepers(5,130) = listso(5)
 422         hepers(6,130) = listso(8)
 423         hepers(7,130) = listso(3)
 424         hepers(8,130) = listso(2)
 425 c
 426         hepera(1,130) = listar(10)
 427         hepera(2,130) = listar(7)
 428         hepera(3,130) = listar(5)
 429         hepera(4,130) = listar(2)
 430         hepera(5,130) = listar(12)
 431         hepera(6,130) = listar(9)
 432         hepera(7,130) = listar(4)
 433         hepera(8,130) = listar(1)
 434         hepera(9,130) = listar(11)
 435         hepera(10,130) = listar(8)
 436         hepera(11,130) = listar(6)
 437         hepera(12,130) = listar(3)
 438 c
 439         heperf(1,130) = quahex(lehexa,3)
 440         heperc(1,130) = per002(3,coquhe(lehexa,3))
 441         heperf(2,130) = quahex(lehexa,6)
 442         heperc(2,130) = per002(1,coquhe(lehexa,6))
 443         heperf(3,130) = quahex(lehexa,5)
 444         heperc(3,130) = per002(1,coquhe(lehexa,5))
 445         heperf(4,130) = quahex(lehexa,2)
 446         heperc(4,130) = per002(1,coquhe(lehexa,2))
 447         heperf(5,130) = quahex(lehexa,1)
 448         heperc(5,130) = per002(1,coquhe(lehexa,1))
 449         heperf(6,130) = quahex(lehexa,4)
 450         heperc(6,130) = per002(1,coquhe(lehexa,4))
 451 c
 452 c Permutation 200
 453 c
 454         hepers(1,200) = listso(7)
 455         hepers(2,200) = listso(8)
 456         hepers(3,200) = listso(5)
 457         hepers(4,200) = listso(6)
 458         hepers(5,200) = listso(3)
 459         hepers(6,200) = listso(4)
 460         hepers(7,200) = listso(1)
 461         hepers(8,200) = listso(2)
 462 c
 463         hepera(1,200) = listar(12)
 464         hepera(2,200) = listar(10)
 465         hepera(3,200) = listar(11)
 466         hepera(4,200) = listar(9)
 467         hepera(5,200) = listar(7)
 468         hepera(6,200) = listar(8)
 469         hepera(7,200) = listar(5)
 470         hepera(8,200) = listar(6)
 471         hepera(9,200) = listar(4)
 472         hepera(10,200) = listar(2)
 473         hepera(11,200) = listar(3)
 474         hepera(12,200) = listar(1)
 475 c
 476         heperf(1,200) = quahex(lehexa,6)
 477         heperc(1,200) = per002(3,coquhe(lehexa,6))
 478         heperf(2,200) = quahex(lehexa,5)
 479         heperc(2,200) = per002(1,coquhe(lehexa,5))
 480         heperf(3,200) = quahex(lehexa,3)
 481         heperc(3,200) = per002(1,coquhe(lehexa,3))
 482         heperf(4,200) = quahex(lehexa,4)
 483         heperc(4,200) = per002(1,coquhe(lehexa,4))
 484         heperf(5,200) = quahex(lehexa,2)
 485         heperc(5,200) = per002(1,coquhe(lehexa,2))
 486         heperf(6,200) = quahex(lehexa,1)
 487         heperc(6,200) = per002(1,coquhe(lehexa,1))
 488 c
 489 c Permutation 201
 490 c
 491         hepers(1,201) = listso(6)
 492         hepers(2,201) = listso(7)
 493         hepers(3,201) = listso(8)
 494         hepers(4,201) = listso(5)
 495         hepers(5,201) = listso(4)
 496         hepers(6,201) = listso(1)
 497         hepers(7,201) = listso(2)
 498         hepers(8,201) = listso(3)
 499 c
 500         hepera(1,201) = listar(10)
 501         hepera(2,201) = listar(9)
 502         hepera(3,201) = listar(12)
 503         hepera(4,201) = listar(11)
 504         hepera(5,201) = listar(5)
 505         hepera(6,201) = listar(7)
 506         hepera(7,201) = listar(6)
 507         hepera(8,201) = listar(8)
 508         hepera(9,201) = listar(2)
 509         hepera(10,201) = listar(1)
 510         hepera(11,201) = listar(4)
 511         hepera(12,201) = listar(3)
 512 c
 513         heperf(1,201) = quahex(lehexa,6)
 514         heperc(1,201) = per002(2,coquhe(lehexa,6))
 515         heperf(2,201) = quahex(lehexa,3)
 516         heperc(2,201) = per002(1,coquhe(lehexa,3))
 517         heperf(3,201) = quahex(lehexa,2)
 518         heperc(3,201) = per002(1,coquhe(lehexa,2))
 519         heperf(4,201) = quahex(lehexa,5)
 520         heperc(4,201) = per002(1,coquhe(lehexa,5))
 521         heperf(5,201) = quahex(lehexa,4)
 522         heperc(5,201) = per002(1,coquhe(lehexa,4))
 523         heperf(6,201) = quahex(lehexa,1)
 524         heperc(6,201) = per002(1,coquhe(lehexa,1))
 525 c
 526 c Permutation 210
 527 c
 528         hepers(1,210) = listso(8)
 529         hepers(2,210) = listso(3)
 530         hepers(3,210) = listso(2)
 531         hepers(4,210) = listso(5)
 532         hepers(5,210) = listso(4)
 533         hepers(6,210) = listso(7)
 534         hepers(7,210) = listso(6)
 535         hepers(8,210) = listso(1)
 536 c
 537         hepera(1,210) = listar(8)
 538         hepera(2,210) = listar(11)
 539         hepera(3,210) = listar(3)
 540         hepera(4,210) = listar(6)
 541         hepera(5,210) = listar(12)
 542         hepera(6,210) = listar(4)
 543         hepera(7,210) = listar(9)
 544         hepera(8,210) = listar(1)
 545         hepera(9,210) = listar(7)
 546         hepera(10,210) = listar(10)
 547         hepera(11,210) = listar(2)
 548         hepera(12,210) = listar(5)
 549 c
 550         heperf(1,210) = quahex(lehexa,4)
 551         heperc(1,210) = per002(4,coquhe(lehexa,4))
 552         heperf(2,210) = quahex(lehexa,5)
 553         heperc(2,210) = per002(1,coquhe(lehexa,5))
 554         heperf(3,210) = quahex(lehexa,6)
 555         heperc(3,210) = per002(1,coquhe(lehexa,6))
 556         heperf(4,210) = quahex(lehexa,1)
 557         heperc(4,210) = per002(1,coquhe(lehexa,1))
 558         heperf(5,210) = quahex(lehexa,2)
 559         heperc(5,210) = per002(1,coquhe(lehexa,2))
 560         heperf(6,210) = quahex(lehexa,3)
 561         heperc(6,210) = per002(1,coquhe(lehexa,3))
 562 c
 563 c Permutation 220
 564 c
 565         hepers(1,220) = listso(3)
 566         hepers(2,220) = listso(4)
 567         hepers(3,220) = listso(1)
 568         hepers(4,220) = listso(2)
 569         hepers(5,220) = listso(7)
 570         hepers(6,220) = listso(8)
 571         hepers(7,220) = listso(5)
 572         hepers(8,220) = listso(6)
 573 c
 574         hepera(1,220) = listar(4)
 575         hepera(2,220) = listar(3)
 576         hepera(3,220) = listar(2)
 577         hepera(4,220) = listar(1)
 578         hepera(5,220) = listar(8)
 579         hepera(6,220) = listar(7)
 580         hepera(7,220) = listar(6)
 581         hepera(8,220) = listar(5)
 582         hepera(9,220) = listar(12)
 583         hepera(10,220) = listar(11)
 584         hepera(11,220) = listar(10)
 585         hepera(12,220) = listar(9)
 586 c
 587         heperf(1,220) = quahex(lehexa,1)
 588         heperc(1,220) = per002(1,coquhe(lehexa,1))
 589         heperf(2,220) = quahex(lehexa,5)
 590         heperc(2,220) = per002(1,coquhe(lehexa,5))
 591         heperf(3,220) = quahex(lehexa,4)
 592         heperc(3,220) = per002(1,coquhe(lehexa,4))
 593         heperf(4,220) = quahex(lehexa,3)
 594         heperc(4,220) = per002(1,coquhe(lehexa,3))
 595         heperf(5,220) = quahex(lehexa,2)
 596         heperc(5,220) = per002(1,coquhe(lehexa,2))
 597         heperf(6,220) = quahex(lehexa,6)
 598         heperc(6,220) = per002(1,coquhe(lehexa,6))
 599 c
 600 c Permutation 221
 601 c
 602         hepers(1,221) = listso(2)
 603         hepers(2,221) = listso(3)
 604         hepers(3,221) = listso(4)
 605         hepers(4,221) = listso(1)
 606         hepers(5,221) = listso(8)
 607         hepers(6,221) = listso(5)
 608         hepers(7,221) = listso(6)
 609         hepers(8,221) = listso(7)
 610 c
 611         hepera(1,221) = listar(3)
 612         hepera(2,221) = listar(1)
 613         hepera(3,221) = listar(4)
 614         hepera(4,221) = listar(2)
 615         hepera(5,221) = listar(6)
 616         hepera(6,221) = listar(8)
 617         hepera(7,221) = listar(5)
 618         hepera(8,221) = listar(7)
 619         hepera(9,221) = listar(11)
 620         hepera(10,221) = listar(9)
 621         hepera(11,221) = listar(12)
 622         hepera(12,221) = listar(10)
 623 c
 624         heperf(1,221) = quahex(lehexa,1)
 625         heperc(1,221) = per002(1,coquhe(lehexa,1))
 626         heperf(2,221) = quahex(lehexa,4)
 627         heperc(2,221) = per002(1,coquhe(lehexa,4))
 628         heperf(3,221) = quahex(lehexa,2)
 629         heperc(3,221) = per002(1,coquhe(lehexa,2))
 630         heperf(4,221) = quahex(lehexa,5)
 631         heperc(4,221) = per002(1,coquhe(lehexa,5))
 632         heperf(5,221) = quahex(lehexa,3)
 633         heperc(5,221) = per002(1,coquhe(lehexa,3))
 634         heperf(6,221) = quahex(lehexa,6)
 635         heperc(6,221) = per002(1,coquhe(lehexa,6))
 636 c
 637 c Permutation 230
 638 c
 639         hepers(1,230) = listso(4)
 640         hepers(2,230) = listso(7)
 641         hepers(3,230) = listso(6)
 642         hepers(4,230) = listso(1)
 643         hepers(5,230) = listso(8)
 644         hepers(6,230) = listso(3)
 645         hepers(7,230) = listso(2)
 646         hepers(8,230) = listso(5)
 647 c
 648         hepera(1,230) = listar(7)
 649         hepera(2,230) = listar(2)
 650         hepera(3,230) = listar(10)
 651         hepera(4,230) = listar(5)
 652         hepera(5,230) = listar(4)
 653         hepera(6,230) = listar(12)
 654         hepera(7,230) = listar(1)
 655         hepera(8,230) = listar(9)
 656         hepera(9,230) = listar(8)
 657         hepera(10,230) = listar(3)
 658         hepera(11,230) = listar(11)
 659         hepera(12,230) = listar(6)
 660 c
 661         heperf(1,230) = quahex(lehexa,3)
 662         heperc(1,230) = per002(2,coquhe(lehexa,3))
 663         heperf(2,230) = quahex(lehexa,5)
 664         heperc(2,230) = per002(1,coquhe(lehexa,5))
 665         heperf(3,230) = quahex(lehexa,1)
 666         heperc(3,230) = per002(1,coquhe(lehexa,1))
 667         heperf(4,230) = quahex(lehexa,6)
 668         heperc(4,230) = per002(1,coquhe(lehexa,6))
 669         heperf(5,230) = quahex(lehexa,2)
 670         heperc(5,230) = per002(1,coquhe(lehexa,2))
 671         heperf(6,230) = quahex(lehexa,4)
 672         heperc(6,230) = per002(1,coquhe(lehexa,4))
 673 c
 674 c Permutation 300
 675 c
 676         hepers(1,300) = listso(4)
 677         hepers(2,300) = listso(3)
 678         hepers(3,300) = listso(8)
 679         hepers(4,300) = listso(7)
 680         hepers(5,300) = listso(2)
 681         hepers(6,300) = listso(1)
 682         hepers(7,300) = listso(6)
 683         hepers(8,300) = listso(5)
 684 c
 685         hepera(1,300) = listar(4)
 686         hepera(2,300) = listar(7)
 687         hepera(3,300) = listar(8)
 688         hepera(4,300) = listar(12)
 689         hepera(5,300) = listar(2)
 690         hepera(6,300) = listar(3)
 691         hepera(7,300) = listar(10)
 692         hepera(8,300) = listar(11)
 693         hepera(9,300) = listar(1)
 694         hepera(10,300) = listar(5)
 695         hepera(11,300) = listar(6)
 696         hepera(12,300) = listar(9)
 697 c
 698         heperf(1,300) = quahex(lehexa,5)
 699         heperc(1,300) = per002(1,coquhe(lehexa,5))
 700         heperf(2,300) = quahex(lehexa,1)
 701         heperc(2,300) = per002(1,coquhe(lehexa,1))
 702         heperf(3,300) = quahex(lehexa,3)
 703         heperc(3,300) = per002(1,coquhe(lehexa,3))
 704         heperf(4,300) = quahex(lehexa,4)
 705         heperc(4,300) = per002(1,coquhe(lehexa,4))
 706         heperf(5,300) = quahex(lehexa,6)
 707         heperc(5,300) = per002(1,coquhe(lehexa,6))
 708         heperf(6,300) = quahex(lehexa,2)
 709         heperc(6,300) = per002(1,coquhe(lehexa,2))
 710 c
 711 c Permutation 301
 712 c
 713         hepers(1,301) = listso(7)
 714         hepers(2,301) = listso(4)
 715         hepers(3,301) = listso(3)
 716         hepers(4,301) = listso(8)
 717         hepers(5,301) = listso(1)
 718         hepers(6,301) = listso(6)
 719         hepers(7,301) = listso(5)
 720         hepers(8,301) = listso(2)
 721 c
 722         hepera(1,301) = listar(7)
 723         hepera(2,301) = listar(12)
 724         hepera(3,301) = listar(4)
 725         hepera(4,301) = listar(8)
 726         hepera(5,301) = listar(10)
 727         hepera(6,301) = listar(2)
 728         hepera(7,301) = listar(11)
 729         hepera(8,301) = listar(3)
 730         hepera(9,301) = listar(5)
 731         hepera(10,301) = listar(9)
 732         hepera(11,301) = listar(1)
 733         hepera(12,301) = listar(6)
 734 c
 735         heperf(1,301) = quahex(lehexa,5)
 736         heperc(1,301) = per002(4,coquhe(lehexa,5))
 737         heperf(2,301) = quahex(lehexa,3)
 738         heperc(2,301) = per002(1,coquhe(lehexa,3))
 739         heperf(3,301) = quahex(lehexa,6)
 740         heperc(3,301) = per002(1,coquhe(lehexa,6))
 741         heperf(4,301) = quahex(lehexa,1)
 742         heperc(4,301) = per002(1,coquhe(lehexa,1))
 743         heperf(5,301) = quahex(lehexa,4)
 744         heperc(5,301) = per002(1,coquhe(lehexa,4))
 745         heperf(6,301) = quahex(lehexa,2)
 746         heperc(6,301) = per002(1,coquhe(lehexa,2))
 747 c
 748 c Permutation 310
 749 c
 750         hepers(1,310) = listso(3)
 751         hepers(2,310) = listso(2)
 752         hepers(3,310) = listso(5)
 753         hepers(4,310) = listso(8)
 754         hepers(5,310) = listso(1)
 755         hepers(6,310) = listso(4)
 756         hepers(7,310) = listso(7)
 757         hepers(8,310) = listso(6)
 758 c
 759         hepera(1,310) = listar(3)
 760         hepera(2,310) = listar(8)
 761         hepera(3,310) = listar(6)
 762         hepera(4,310) = listar(11)
 763         hepera(5,310) = listar(4)
 764         hepera(6,310) = listar(1)
 765         hepera(7,310) = listar(12)
 766         hepera(8,310) = listar(9)
 767         hepera(9,310) = listar(2)
 768         hepera(10,310) = listar(7)
 769         hepera(11,310) = listar(5)
 770         hepera(12,310) = listar(10)
 771 c
 772         heperf(1,310) = quahex(lehexa,4)
 773         heperc(1,310) = per002(1,coquhe(lehexa,4))
 774         heperf(2,310) = quahex(lehexa,1)
 775         heperc(2,310) = per002(1,coquhe(lehexa,1))
 776         heperf(3,310) = quahex(lehexa,5)
 777         heperc(3,310) = per002(1,coquhe(lehexa,5))
 778         heperf(4,310) = quahex(lehexa,2)
 779         heperc(4,310) = per002(1,coquhe(lehexa,2))
 780         heperf(5,310) = quahex(lehexa,6)
 781         heperc(5,310) = per002(1,coquhe(lehexa,6))
 782         heperf(6,310) = quahex(lehexa,3)
 783         heperc(6,310) = per002(1,coquhe(lehexa,3))
 784 c
 785 c Permutation 320
 786 c
 787         hepers(1,320) = listso(2)
 788         hepers(2,320) = listso(1)
 789         hepers(3,320) = listso(6)
 790         hepers(4,320) = listso(5)
 791         hepers(5,320) = listso(4)
 792         hepers(6,320) = listso(3)
 793         hepers(7,320) = listso(8)
 794         hepers(8,320) = listso(7)
 795 c
 796         hepera(1,320) = listar(1)
 797         hepera(2,320) = listar(6)
 798         hepera(3,320) = listar(5)
 799         hepera(4,320) = listar(9)
 800         hepera(5,320) = listar(3)
 801         hepera(6,320) = listar(2)
 802         hepera(7,320) = listar(11)
 803         hepera(8,320) = listar(10)
 804         hepera(9,320) = listar(4)
 805         hepera(10,320) = listar(8)
 806         hepera(11,320) = listar(7)
 807         hepera(12,320) = listar(12)
 808 c
 809         heperf(1,320) = quahex(lehexa,2)
 810         heperc(1,320) = per002(1,coquhe(lehexa,2))
 811         heperf(2,320) = quahex(lehexa,1)
 812         heperc(2,320) = per002(1,coquhe(lehexa,1))
 813         heperf(3,320) = quahex(lehexa,4)
 814         heperc(3,320) = per002(1,coquhe(lehexa,4))
 815         heperf(4,320) = quahex(lehexa,3)
 816         heperc(4,320) = per002(1,coquhe(lehexa,3))
 817         heperf(5,320) = quahex(lehexa,6)
 818         heperc(5,320) = per002(1,coquhe(lehexa,6))
 819         heperf(6,320) = quahex(lehexa,5)
 820         heperc(6,320) = per002(1,coquhe(lehexa,5))
 821 c
 822 c Permutation 321
 823 c
 824         hepers(1,321) = listso(5)
 825         hepers(2,321) = listso(2)
 826         hepers(3,321) = listso(1)
 827         hepers(4,321) = listso(6)
 828         hepers(5,321) = listso(3)
 829         hepers(6,321) = listso(8)
 830         hepers(7,321) = listso(7)
 831         hepers(8,321) = listso(4)
 832 c
 833         hepera(1,321) = listar(6)
 834         hepera(2,321) = listar(9)
 835         hepera(3,321) = listar(1)
 836         hepera(4,321) = listar(5)
 837         hepera(5,321) = listar(11)
 838         hepera(6,321) = listar(3)
 839         hepera(7,321) = listar(10)
 840         hepera(8,321) = listar(2)
 841         hepera(9,321) = listar(8)
 842         hepera(10,321) = listar(12)
 843         hepera(11,321) = listar(4)
 844         hepera(12,321) = listar(7)
 845 c
 846         heperf(1,321) = quahex(lehexa,2)
 847         heperc(1,321) = per002(4,coquhe(lehexa,2))
 848         heperf(2,321) = quahex(lehexa,4)
 849         heperc(2,321) = per002(1,coquhe(lehexa,4))
 850         heperf(3,321) = quahex(lehexa,6)
 851         heperc(3,321) = per002(1,coquhe(lehexa,6))
 852         heperf(4,321) = quahex(lehexa,1)
 853         heperc(4,321) = per002(1,coquhe(lehexa,1))
 854         heperf(5,321) = quahex(lehexa,3)
 855         heperc(5,321) = per002(1,coquhe(lehexa,3))
 856         heperf(6,321) = quahex(lehexa,5)
 857         heperc(6,321) = per002(1,coquhe(lehexa,5))
 858 c
 859 c Permutation 330
 860 c
 861         hepers(1,330) = listso(1)
 862         hepers(2,330) = listso(4)
 863         hepers(3,330) = listso(7)
 864         hepers(4,330) = listso(6)
 865         hepers(5,330) = listso(3)
 866         hepers(6,330) = listso(2)
 867         hepers(7,330) = listso(5)
 868         hepers(8,330) = listso(8)
 869 c
 870         hepera(1,330) = listar(2)
 871         hepera(2,330) = listar(5)
 872         hepera(3,330) = listar(7)
 873         hepera(4,330) = listar(10)
 874         hepera(5,330) = listar(1)
 875         hepera(6,330) = listar(4)
 876         hepera(7,330) = listar(9)
 877         hepera(8,330) = listar(12)
 878         hepera(9,330) = listar(3)
 879         hepera(10,330) = listar(6)
 880         hepera(11,330) = listar(8)
 881         hepera(12,330) = listar(11)
 882 c
 883         heperf(1,330) = quahex(lehexa,3)
 884         heperc(1,330) = per002(1,coquhe(lehexa,3))
 885         heperf(2,330) = quahex(lehexa,1)
 886         heperc(2,330) = per002(1,coquhe(lehexa,1))
 887         heperf(3,330) = quahex(lehexa,2)
 888         heperc(3,330) = per002(1,coquhe(lehexa,2))
 889         heperf(4,330) = quahex(lehexa,5)
 890         heperc(4,330) = per002(1,coquhe(lehexa,5))
 891         heperf(5,330) = quahex(lehexa,6)
 892         heperc(5,330) = per002(1,coquhe(lehexa,6))
 893         heperf(6,330) = quahex(lehexa,4)
 894         heperc(6,330) = per002(1,coquhe(lehexa,4))