my ($alpha1,$alpha2,$alpha3,$delta1,$delta2,$delta3);
my ($m0,$m1,$m2,$theta,$alpha,$delta,$H,$az,$h,$h0,$aznow,$hnow,$corr);
my ($i,$arg,$argtest,$H0,$alphanow,$deltanow,$distance,$distancenow);
my ($alpha1,$alpha2,$alpha3,$delta1,$delta2,$delta3);
my ($m0,$m1,$m2,$theta,$alpha,$delta,$H,$az,$h,$h0,$aznow,$hnow,$corr);
my ($i,$arg,$argtest,$H0,$alphanow,$deltanow,$distance,$distancenow);