procedure tdouble (cpAcross, inPref, Nsl, matchRad, outPref, verb)

bool cpAcross 	{yes, prompt="Copy and compile double.f?"}
string inPref	{"try",prompt="Input file extension"}
int Nsl		{9, prompt="Number of wavelength slices"}
real matchRad	{5.0, prompt="Maximum object-matching distance (in pix)"}
string outPref	{"jnk",prompt="Output file extension"}
bool verb	{yes, prompt="Verbose mode?"}



begin

	# Variable declarations:



	# Running choose: ------------------------------------------

	if (verb==yes) {
		print (" ")
		print ("================================================")	
		print (" ")
	}	

	if (cpAcross==yes) {
		if (verb==yes) {
	 		print (" Copying double.f across...")
		}
	 	!cp /home/dhj/iraf/TFred/double.f .
		if (verb==yes) {	
		 	print (" ")	
		 	print (" Compiling...")
		}
	 	!f77 -C double.f -o choose
		if (verb==yes) {
	 		print (" ")
		}		
	}


	# Creating choose.in:
	if (verb==yes) {
		print (" Creating double.in:")
		print (" ")
	}
	!/bin/rm double.in
	print (inPref, >> "double.in")
	print (Nsl, >> "double.in")
	print (matchRad, >> "double.in")
	print (outPref, >> "double.in")
	if (verb==yes) {	
		type (input_fi="double.in", map_cc+, device="terminal", flpar-)

		print(" ")
		print(" ")
		print ("------------------------------------------------")
		print(" ")
		print(" Running double...")
		print (" ")
	}	
	!choose

	if (verb==yes) {	
		print (" ")
		print ("================================================")	
		# print (" ")	
		# print (" Done.")
		print (" ")	
		print (" ")
	}

end