Update f2c.c