#pragma rtGlobals=1		// Use modern global access method.


function load_DLS_ALV_New()
	variable i=0 
	
	variable /G points
	string wnameIACF, fname, wnameTau, wnameEACF, wStr, wnameParam, mystring
	string Tau = "_Tau", EACF="_EACF", IACF="_IACF", Param="_Param"    //wave names 
	getfilefolderinfo/D
	newpath/O cgms S_path
	string filelist= indexedfile(cgms,-1,".asc")
	Display/W=(0,0,340,280);
	Display/W=(440,0,780,280);

	do
		fname = stringfromlist(i,filelist)
		wnameTau = fname[0,strlen(fname)-5]+Tau
		wnameIACF = fname[0,strlen(fname)-5]+IACF
		wnameParam = fname[0,strlen(fname)-5]+Param
		wnameEACF = fname[0,strlen(fname)-5]+EACF
		
		wave w0 = $wnameTau
		wave w1 = $wnameIACF
		wave w2 = $wnameParam
		wave w3 = $wnameEACF
		
			//print num2str(round(10*w2[4])/10)
			
	
		if (!waveexists(w))
			LoadWave/J/D/A=wave/P=cgms/K=0 /L={0,27,231,0,1} stringfromlist(i,filelist)
			LoadWave/J/D/A=wave/P=cgms/K=0 /L={0,27,231,1,1} stringfromlist(i,filelist)
			LoadWave/J/D/A=wave/P=cgms/K=0 /L={0,14,10,1,1} stringfromlist(i,filelist)
			
			//Calculate EACFs
			Duplicate/O wave1 wave3
			wave3/=mean(wave1,20,40) //Do calculation
			
			//print wave3
			
			rename wave0 $wnameTau
			rename wave1 $wnameIACF
			rename wave2 $wnameParam
			rename wave3 $wnameEACF
			
			AppendToGraph/W=Graph0 $wnameIACF vs $wnameTau
			AppendToGraph/W=Graph1 $wnameEACF vs $wnameTau
			
		else 
			print 	fname+" was previously loaded. Its corresponding wave exists."
		endif

				
		i += 1  		//move to next file
		print i
		
	while(i<itemsinlist(filelist)) 			//end when all files are processed.
		ModifyGraph/W=Graph0 log(bottom)=1
		ModifyGraph/W=Graph0 width=340,height=280
		ModifyGraph/W=Graph0/Z lSize=2
		ModifyGraph/W=Graph0/Z rgb[0]=(3,52428,1),rgb[1]=(0,0,0),rgb[2]=(1,16019,65535),rgb[4]=(65535,49157,16385)
		ModifyGraph/W=Graph0/Z rgb[5]=(0,43690,65535),rgb[6]=(65535,16385,55749),rgb[7]=(1,39321,39321)
		ModifyGraph/W=Graph0/Z rgb[8]=(39321,26208,1),rgb[9]=(2,39321,1),rgb[10]=(65535,65532,16385)
		ModifyGraph/W=Graph0/Z rgb[11]=(36873,14755,58982)
		ModifyGraph/W=Graph0/Z tick=2
		ModifyGraph/W=Graph0/Z zero(left)=0
		ModifyGraph/W=Graph0/Z mirror=1
		ModifyGraph/W=Graph0/Z minor=1
		ModifyGraph/W=Graph0/Z sep=10
		ModifyGraph/W=Graph0/Z fSize=14
		ModifyGraph/W=Graph0/Z lblMargin(left)=18
		ModifyGraph/W=Graph0/Z axThick=1.5
		ModifyGraph/W=Graph0/Z gridRGB(left)=(21845,21845,21845)
		ModifyGraph/W=Graph0/Z notation(left)=1
		ModifyGraph/W=Graph0/Z gridHair(left)=1
		ModifyGraph/W=Graph0/Z lblLatPos(left)=-12
		Label/W=Graph0/Z left "\\Z16 IACF"
		Label/W=Graph0/Z bottom "\\Z16 Delay time [ms]"
		Legend/W=Graph0/C/N=text0/F=0/A=MC		
		ModifyGraph/W=Graph0 btLen=4

		ModifyGraph/W=Graph1 log(bottom)=1
		ModifyGraph/W=Graph1 width=340,height=280
		ModifyGraph/W=Graph1/Z lSize=2
		ModifyGraph/W=Graph1/Z rgb[0]=(3,52428,1),rgb[1]=(0,0,0),rgb[2]=(1,16019,65535),rgb[4]=(65535,49157,16385)
		ModifyGraph/W=Graph1/Z rgb[5]=(0,43690,65535),rgb[6]=(65535,16385,55749),rgb[7]=(1,39321,39321)
		ModifyGraph/W=Graph1/Z rgb[8]=(39321,26208,1),rgb[9]=(2,39321,1),rgb[10]=(65535,65532,16385)
		ModifyGraph/W=Graph1/Z rgb[11]=(36873,14755,58982)
		ModifyGraph/W=Graph1/Z tick=2
		ModifyGraph/W=Graph1/Z zero(left)=0
		ModifyGraph/W=Graph1/Z mirror=1
		ModifyGraph/W=Graph1/Z minor=1
		ModifyGraph/W=Graph1/Z sep=10
		ModifyGraph/W=Graph1/Z fSize=14
		ModifyGraph/W=Graph1/Z lblMargin(left)=18
		ModifyGraph/W=Graph1/Z axThick=1.5
		ModifyGraph/W=Graph1/Z gridRGB(left)=(21845,21845,21845)
		ModifyGraph/W=Graph1/Z notation(left)=1
		ModifyGraph/W=Graph1/Z gridHair(left)=1
		ModifyGraph/W=Graph1/Z lblLatPos(left)=-12
		Label/W=Graph1/Z left "\\Z16 ISF"
		Label/W=Graph1/Z bottom "\\Z16 Delay time [ms]"
		Legend/C/N=text0/F=0/A=MC		
		ModifyGraph/W=Graph1 btLen=4					
end