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