pro Simple_Reduction, RawFileName, $
	Date = Date, RootDir = RootDir, ReducedDir = ReducedDir,$
	NReads = NReads, ObjectName = ObjectName, $
	DarkDir = DarkDir, DarkName = DarkName, SkyName = SkyName
 
 Common KeyParams, KeyStr, SlopeStr, SlopeFitStr

 ;Include the keywords and plot settings
 @KeywordStruct.pro
 @PlotSettings.pro

 ;Open up the file
 RawPosition = Fits_Open_DataCube(RawFileName, RawFCB, RawHeader, 'Read')
 Key = Return_File_Params(RawHeader) 
 DarkPosition = Fits_Open_DataCube(KeyStr.DarkName, DarkFCB, DarkHeader, 'Read')
 FlatPosition = Fits_Open_DataCube(KeyStr.FlatName, FlatFCB, FlatHeader, 'Read')

 ;Get the First and Last Reads for the Raw Image
 FirstRawRead = Fits_Read_DataCube_Region(RawFileName, RawFCB, RawHeader, $
		0, Naxis1-1, 0, Naxis2-1, 0, 0)
 ;FirstRawRead = Subtract_60Hz(FirstRawRead)
 LastRawRead  = Fits_Read_DataCube_Region(RawFileName, RawFCB, RawHeader, $
		0, Naxis1-1, 0, Naxis2-1, $
		KeyStr.TotalReads-1, KeyStr.TotalReads-1)
 ;LastRawRead  = Subtract_60Hz(LastRawRead)
 FC = Fits_Close_DataCube(RawFCB)
 LastDarkRead  = Fits_Read_DataCube_Region(DarkFileName, DarkFCB, DarkHeader, $
                0, Naxis1-1, 0, Naxis2-1, $
                KeyStr.TotalReads-1, KeyStr.TotalReads-1)
 FC = Fits_Close_DataCube(DarkFCB)
 LastFlatRead  = Fits_Read_DataCube_Region(FlatFileName, FlatFCB, FlatHeader, $
                0, Naxis1-1, 0, Naxis2-1, 1, 1)
 FC = Fits_Close_DataCube(FlatFCB)

 RawImMinusBias = long(LastRawRead) - long(FirstRawRead)
 
 RawImMinusBiasDark = long(RawImMinusBias) - long(LastDarkRead)


 Masks = Return_Pixel_Masks()
 RawImMinusBiasDark(Masks.BadPixels)   = 0

 Fits_Write, '~/Test.fits', RawImMinusBiasDark

 RawImMinusBiasDarkFlat = (Float(RawImMinusBiasDark)/Float(LastFlatRead))*$
			  Max(Float(LastFlatRead)) 
 Fits_Write, '~/TestFlat.fits', RawImMinusBiasDarkFlat

 stop

end