Create control_func.f90