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