Update funcion4escalar.c