Update coloca4.c