Update fahr.c