Create str_func.f90