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