DATA (IDUP(i, 1),i=1, 6)/ 2, -2, 1, -1, 23, 23/ DATA (MOTHUP(1,i, 1),i=1, 6)/ 0, 0, 1, 1, 1, 1/ DATA (MOTHUP(2,i, 1),i=1, 6)/ 0, 0, 2, 2, 2, 2/ DATA (ICOLUP(1,i, 1),i=1, 6)/502, 0,502, 0, 0, 0/ DATA (ICOLUP(2,i, 1),i=1, 6)/ 0,501, 0,501, 0, 0/ DATA (ICOLUP(1,i, 2),i=1, 6)/501, 0,501, 0, 0, 0/ DATA (ICOLUP(2,i, 2),i=1, 6)/ 0,502, 0,502, 0, 0/ DATA (ICOLUP(1,i, 3),i=1, 6)/501, 0,502, 0, 0, 0/ DATA (ICOLUP(2,i, 3),i=1, 6)/ 0,501, 0,502, 0, 0/