procedure smaperloc (intable, outtable, contourkeep, contourtable, edge_level)

file intable = ""		{prompt = "input table name"}
file outtable = ""		{prompt = "output table name"}
bool contourkeep = no	{prompt = "keep contour's coordinates in a table?"}
file contourtable = ""	{prompt = "table containing edge contour coordinates"}
real edge_level = 0.5		{prompt = "ratio between count levels of the\
 edge and the maximum", min = 0, max = 1}

string v2_key = "V2"		{prompt = "column name of the V2 coordinate"}
string v3_key = "V3"		{prompt = "column name of the V3 coordinate"}
string count_key = "DOBJ"	{prompt = "column name of input count rate"}
string counterr_key = "DOBJ_ERR"{prompt = "column name of input count rate's standard dev"}

real v2weight = -2.		{prompt = "weighting scheme of V2 axis"}
real v3weight = -2.		{prompt = "weighting scheme of V3 axis"}

int itermax = 100	{prompt = "maximum number of least square iteration",
				 min = 1}
real tolern = 1.e-12	{prompt = "tolerance of sigma-squared convergence",
				 min = 0, max = 1}
real frac = .5		{prompt = "specified fraction applied to coefficients\
 modification", min = 0, max = 1}

string v2name = "V2"	{prompt = "column name of the V2 coordinate in contour\
 table"}
string v3name = "V3"	{prompt = "column name of the V3 coordinate in contour\
 table"}
string dv2name = "DV2"	{prompt = "column name of V2 coordinate's error in\
 contour table"}
string dv3name = "DV3"	{prompt = "column name of V3 coordinate's error in\
 contour table"}

string mode = "al"

begin

vap3s (intable = intable, outtable = outtable, contourkeep = contourkeep, 
	contourtable = contourtable, edge_level = edge_level, 
	count_key = count_key, counterr_key = counterr_key, v2_key = v2_key,
	v3_key = v3_key, v2weight = v2weight, v3weight = v3weight,
	itermax = itermax, tolern = tolern, frac = frac, v2name = v2name,
        v3name = v3name, dv2name = dv2name, dv3name = dv3name)

end