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