Create email_func.f90