#!/afs/athena/contrib/perl/p
#xform.prl -- takes integers in even-numbered lines and right-justifies them
#in an eight-byte field.

if ($#ARGV < $[) {
	print "Usage: xform.prl fname\n";
	exit;
}

$odd_line = 1;
open(F, "$ARGV[0]") || die "cannot open $ARGV[0]: $!";
while (<F>) {
	if ($odd_line == 0) {
		if ($_ =~ /[0-9\-]+\.[0-9]+/) {
			printf "%14.6f\n", $_;
		}
		elsif ($_ =~ /[0-9\-]+/) {
			printf "%6d\n", $_;
		}
		else {
			print "$_";
		}
		$odd_line = 1;
	}
	else {
		printf "%3d\n", $_;
		if ($odd_line == 1) {
			$odd_line = 0;
		}
	}
}