GEsystem.f