GEIsystem.f