dir1=getDirectory("Choose Folder with Images");
dir2=getDirectory("Choose Folder To Save Output");
dir3=getDirectory("Choose PSF Folder");
setBatchMode(true);
PSFFilename="PSF_";
list=getFileList(dir1);

for (i=0; i<list.length; i++)
{
	showProgress(i+1, list.length);
	open(dir1+list[i]);
	print(list[i]);
	width=getWidth();
	print(width);
	print(indexOf(list[i], "BF"));
	if (width==512 && (indexOf(list[i], "BF")<0))
		{
		
		if (indexOf(list[i], "TRITC")>1)
			{
			open(dir3+"PSF_T19.tif");
			imageName=list[i];
			run("Iterative Deconvolve 3D", "image=&imageName point=PSF_T19.tif output=Deconvolved normalize show log perform detect wiener=0.000 low=1 z_direction=1 maximum=40 terminate=0.010");
			selectImage("PSF_T19.tif");
			close();

			}
		if (indexOf(list[i], "FITC")>1)
			{
			open(dir3+"PSF_F19.tif");
			imageName=list[i];
			run("Iterative Deconvolve 3D", "image=&imageName point=PSF_F19.tif output=Deconvolved normalize show log perform detect wiener=0.000 low=1 z_direction=1 maximum=40 terminate=0.010");
			selectImage("PSF_F19.tif");
			run("Close");
			}
		if (indexOf(list[i], "Cy5")>1)
			{open(dir3+"PSF_C19.tif");
			imageName=list[i];
			run("Iterative Deconvolve 3D", "image=&imageName point=PSF_C19.tif output=Deconvolved normalize show log perform detect wiener=0.000 low=1 z_direction=1 maximum=40 terminate=0.010");
			selectImage("PSF_C19.tif");
			run("Close");
			}
		if (indexOf(list[i], "DAPI")>1)
			{open(dir3+"PSF_D19.tif");
			imageName=list[i];
			run("Iterative Deconvolve 3D", "image=&imageName point=PSF_D19.tif output=Deconvolved normalize show log perform detect wiener=0.000 low=1 z_direction=1 maximum=40 terminate=0.010");
			selectImage("PSF_D19.tif");
			run("Close");
			}

		
	
		print(i+"_"+list.length);
		
		selectImage("Deconvolved");
		newfilename="D"+list[i];
		
		saveAs("TIFF", dir2+newfilename);
		close();

		selectImage(list[i]);
		close();

		
		}
	else
	{
	selectImage(list[i]);
	run("Close");
	print("Window Closed!");}
}

print("All Done!");
return;