Refs #8387 Updated Bayes scripts to clear Fortran arrays.

Also added code to tidy up the generated files if you didn't
choose to save the output.

Code/Mantid/scripts/Inelastic/IndirectBayes.py

@@ -62,6 +62,14 @@ def GetResNorm(resnormWS,ngrp):
 	dtn=PadArray(dtnorm,51)                      # pad for Fortran call
 	xsc=PadArray(xscale,51)
 	return dtn,xsc
+
+#Remove any files output from the Fortran code
+def removeGeneratedFiles(flist, workdir):
+	for fname in flist:
+		fname = os.path.join(workdir, fname)
+		if os.path.isfile(fname):
+			os.remove(fname)
+
 
 def ReadNormFile(readRes,resnormWS,nsam,Verbose):            # get norm & scale values
 	if readRes:                   # use ResNorm file option=o_res
@@ -139,7 +147,7 @@ def ReadWidthFile(readWidth,widthFile,numSampleGroups,Verbose):
 # QLines programs
 def QLRun(program,samWS,resWS,resnormWS,erange,nbins,Fit,wfile,Loop,Verbose,Plot,Save):
 	StartTime(program)
-
+	
 	#expand fit options
 	elastic, background, width, resnorm = Fit
 
@@ -249,6 +257,7 @@ def QLRun(program,samWS,resWS,resnormWS,erange,nbins,Fit,wfile,Loop,Verbose,Plot
 		numb = [nsam, nsp, ntc, Ndat, nbin, Imin, Imax, Nb, nrbin]
 		rscl = 1.0
 		reals = [efix, theta[m], rscl, bnorm]
+
 		if prog == 'QLr':
 			nd,xout,yout,eout,yfit,yprob=QLr.qlres(numb,Xv,Yv,Ev,reals,fitOp,
 												   Xdat,Xb,Yb,Wy,We,dtn,xsc,
@@ -361,6 +370,13 @@ def QLRun(program,samWS,resWS,resnormWS,erange,nbins,Fit,wfile,Loop,Verbose,Plot
 		if Verbose:
 			logger.notice('Output fit file created : ' + fit_path)
 			logger.notice('Output paramter file created : ' + out_path)
+	else:
+		#remove any files generated by the Fortran code
+		flist = [fname+'.ql'+str(i) for i in range(1,4)]
+		flist.append(fname+'.lpt')
+
+		removeGeneratedFiles(flist, workdir)
+
 	EndTime(program)
 
 
@@ -759,6 +775,15 @@ def QuestRun(samWS,resWS,nbs,erange,nbins,Fit,Loop,Verbose,Plot,Save):
 		if Verbose:
 			logger.notice('Output file for Fit : ' + fpath)
 			logger.notice('Output file for Contours : ' + cpath)
+	else:
+		#remove files generated by Fortran code
+		flist = []
+		flist.append(fname+'.lpt')
+		flist.append(samWS[:-4] + '_Qsb.ql1')
+		flist.append(samWS[:-4] + '_Qss.ql2')
+
+		removeGeneratedFiles(flist, workdir)
+
 	if (Plot != 'None'):
 		QuestPlot(fname,Plot)
 	EndTime('Quest')
@@ -848,6 +873,10 @@ def ResNormRun(vname,rname,erange,nbin,Verbose=False,Plot='None',Save=False):
 		if Verbose:
 			logger.notice('Parameter file created : ' + par_path)
 			logger.notice('Fit file created : ' + fit_path)
+	else:
+		#Remove any files generated by Fortran code
+		removeGeneratedFiles([fname + '_resnrm.lpt'], workdir)
+
 	if (Plot != 'None'):
 		ResNormPlot(fname,Plot)
 	EndTime('ResNorm')