Create time_func.f90