Create misc_func.f90