Create constants.f90