1       INTEGER A, B, C, D
2       PARAMETER (A=1, B=2, C=3, D=4)
3       INTEGER AB, AC, AD, BC, BD, CD
4       PARAMETER (AB=1, AC=2, AD=3, BC=4, BD=5, CD=6)
5       INTEGER ABC, ABD, ACD, BCD
6       PARAMETER (ABC=1, ABD = 2, ACD = 3, BCD = 4)
7 
8       INTEGER I1(6), I2(6), I3(6), I4(6), IP(6), IP1(3), IP2(3)
9       DATA I1  / A, A, A, B, B, C /
10       DATA I2  / B, C, D, C, D, D /
11       DATA I3  / C, B, B, A, A, A /
12       DATA I4  / D, D, C, D, C, B /
13       DATA IP  / CD, BD, BC, AD, AC, AB /
14       DATA IP1 / AB, AC, AD /
15       DATA IP2 / CD, BD, BC /
16