add subr.c file