DATA (IDUP(i, 1),i=1, 6)/ 4, -4, 2,-24, -1, 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)/501, 0,501, 0, 0, 0/ DATA (ICOLUP(2,i, 1),i=1, 6)/ 0,502, 0, 0,502, 0/ DATA (ICOLUP(1,i, 2),i=1, 6)/501, 0,502, 0, 0, 0/ DATA (ICOLUP(2,i, 2),i=1, 6)/ 0,501, 0, 0,502, 0/