A New Method for Quality Control of Geological Cores by X-Ray Computed Tomography: Application in IODP Expedition 370