1
DATA (IDUP(I,1,1),I=1,4)/21,2,21,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,503,503,501/
5
DATA (ICOLUP(2,I,1,1),I=1, 4)/502, 0,502, 0/
6
DATA (ICOLUP(1,I,2,1),I=1, 4)/503,502,503,501/
7
DATA (ICOLUP(2,I,2,1),I=1, 4)/502, 0,501, 0/
8
DATA (IDUP(I,2,1),I=1,4)/21,3,21,3/
9
DATA (IDUP(I,1,2),I=1,4)/21,-1,21,-1/
10
DATA (ICOLUP(1,I,1,2),I=1, 4)/501, 0,503, 0/
11
DATA (ICOLUP(2,I,1,2),I=1, 4)/502,501,502,503/
12
DATA (ICOLUP(1,I,2,2),I=1, 4)/503, 0,503, 0/
13
DATA (ICOLUP(2,I,2,2),I=1, 4)/502,501,501,502/
14
DATA (IDUP(I,2,2),I=1,4)/21,-2,21,-2/
15
DATA (IDUP(I,3,2),I=1,4)/21,-3,21,-3/