#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3		// Use modern global access method and strict wave access.
//________________________________________________________________________________________________//
//	MultiPeakFit Output - generate a table of peak fit results
//	version 0.3 - 23.04.2010
//________________________________________________________________________________________________//

Function MPFTable(SetNum)
	Variable SetNum
	
	String PeakFitSet = "root:Packages:MultiPeakFit2:MPF_SetFolder_"+num2str(SetNum)+":"
	if (Exists(PeakFitSet+"MPF2_ResultsListWave"))
		Wave/T PeakResultWave	= $PeakFitSet+"MPF2_ResultsListWave"
		Wave/T PeakNamingWave	= $PeakFitSet+"MPF2_ResultsListTitles"
		Variable Rows = DimSize(PeakResultWave,0), Columns = DimSize(PeakResultWave,1)
		
		String SetName = "root:MPF_Set"+num2str(SetNum)
		Make/O/T/N=(Rows+1, Columns) $SetName = ""
		Wave/T inwave = $SetName
		inwave[0][]		= PeakNamingWave[q]
		inwave[1,Rows][]	= PeakResultWave[p-1][q]
		inwave[0][0] 	= "Peak Num"
		inwave[][]		= SelectString(StringMatch(inwave[p][q], "+/- 0"), inwave[p][q] ,"hold / n.a.")
	else
		Abort "Set doesn't exist"
	endif
End