Create functions.f90