Update core.f90

added Initialize call