1
DATA (IDUP(I,1,1),I=1,6)/21,21,2,2,-2,-2/
2
DATA (MOTHUP(1,I),I=1, 6)/ 0, 0, 1, 1, 1, 1/
3
DATA (MOTHUP(2,I),I=1, 6)/ 0, 0, 2, 2, 2, 2/
4
DATA (ICOLUP(1,I,1,1),I=1, 6)/501,503,501,502, 0, 0/
5
DATA (ICOLUP(2,I,1,1),I=1, 6)/503,504, 0, 0,504,502/
6
DATA (ICOLUP(1,I,2,1),I=1, 6)/501,503,501,502, 0, 0/
7
DATA (ICOLUP(2,I,2,1),I=1, 6)/503,504, 0, 0,502,504/
8
DATA (ICOLUP(1,I,3,1),I=1, 6)/502,503,501,502, 0, 0/
9
DATA (ICOLUP(2,I,3,1),I=1, 6)/503,504, 0, 0,504,501/
10
DATA (ICOLUP(1,I,4,1),I=1, 6)/502,503,501,502, 0, 0/
11
DATA (ICOLUP(2,I,4,1),I=1, 6)/503,504, 0, 0,501,504/
12
DATA (ICOLUP(1,I,5,1),I=1, 6)/501,502,501,502, 0, 0/
13
DATA (ICOLUP(2,I,5,1),I=1, 6)/503,504, 0, 0,503,504/
14
DATA (ICOLUP(1,I,6,1),I=1, 6)/501,502,501,502, 0, 0/
15
DATA (ICOLUP(2,I,6,1),I=1, 6)/503,504, 0, 0,504,503/
16
DATA (ICOLUP(1,I,7,1),I=1, 6)/502,501,501,502, 0, 0/
17
DATA (ICOLUP(2,I,7,1),I=1, 6)/503,504, 0, 0,503,504/
18
DATA (ICOLUP(1,I,8,1),I=1, 6)/502,501,501,502, 0, 0/
19
DATA (ICOLUP(2,I,8,1),I=1, 6)/503,504, 0, 0,504,503/
20
DATA (ICOLUP(1,I,9,1),I=1, 6)/504,501,501,502, 0, 0/
21
DATA (ICOLUP(2,I,9,1),I=1, 6)/503,504, 0, 0,503,502/
22
DATA (ICOLUP(1,I,10,1),I=1, 6)/504,501,501,502, 0, 0/
23
DATA (ICOLUP(2,I,10,1),I=1, 6)/503,504, 0, 0,502,503/
24
DATA (ICOLUP(1,I,11,1),I=1, 6)/504,502,501,502, 0, 0/
25
DATA (ICOLUP(2,I,11,1),I=1, 6)/503,504, 0, 0,503,501/
26
DATA (ICOLUP(1,I,12,1),I=1, 6)/504,502,501,502, 0, 0/
27
DATA (ICOLUP(2,I,12,1),I=1, 6)/503,504, 0, 0,501,503/
28
DATA (IDUP(I,2,1),I=1,6)/21,21,3,3,-3,-3/
29
DATA (IDUP(I,1,2),I=1,6)/21,21,2,3,-2,-3/
30
DATA (ICOLUP(1,I,1,2),I=1, 6)/501,503,501,502, 0, 0/
31
DATA (ICOLUP(2,I,1,2),I=1, 6)/503,504, 0, 0,504,502/
32
DATA (ICOLUP(1,I,2,2),I=1, 6)/501,503,501,502, 0, 0/
33
DATA (ICOLUP(2,I,2,2),I=1, 6)/503,504, 0, 0,502,504/
34
DATA (ICOLUP(1,I,3,2),I=1, 6)/502,503,501,502, 0, 0/
35
DATA (ICOLUP(2,I,3,2),I=1, 6)/503,504, 0, 0,504,501/
36
DATA (ICOLUP(1,I,4,2),I=1, 6)/502,503,501,502, 0, 0/
37
DATA (ICOLUP(2,I,4,2),I=1, 6)/503,504, 0, 0,501,504/
38
DATA (ICOLUP(1,I,5,2),I=1, 6)/501,502,501,502, 0, 0/
39
DATA (ICOLUP(2,I,5,2),I=1, 6)/503,504, 0, 0,503,504/
40
DATA (ICOLUP(1,I,6,2),I=1, 6)/501,502,501,502, 0, 0/
41
DATA (ICOLUP(2,I,6,2),I=1, 6)/503,504, 0, 0,504,503/
42
DATA (ICOLUP(1,I,7,2),I=1, 6)/502,501,501,502, 0, 0/
43
DATA (ICOLUP(2,I,7,2),I=1, 6)/503,504, 0, 0,503,504/
44
DATA (ICOLUP(1,I,8,2),I=1, 6)/502,501,501,502, 0, 0/
45
DATA (ICOLUP(2,I,8,2),I=1, 6)/503,504, 0, 0,504,503/
46
DATA (ICOLUP(1,I,9,2),I=1, 6)/504,501,501,502, 0, 0/
47
DATA (ICOLUP(2,I,9,2),I=1, 6)/503,504, 0, 0,503,502/
48
DATA (ICOLUP(1,I,10,2),I=1, 6)/504,501,501,502, 0, 0/
49
DATA (ICOLUP(2,I,10,2),I=1, 6)/503,504, 0, 0,502,503/
50
DATA (ICOLUP(1,I,11,2),I=1, 6)/504,502,501,502, 0, 0/
51
DATA (ICOLUP(2,I,11,2),I=1, 6)/503,504, 0, 0,503,501/
52
DATA (ICOLUP(1,I,12,2),I=1, 6)/504,502,501,502, 0, 0/
53
DATA (ICOLUP(2,I,12,2),I=1, 6)/503,504, 0, 0,501,503/