use strict;

#Usage: perl exnode2ipdata.pl < test.exnode > test.ipdata

my $data_point = 1;

print "Fitting data\n";

while (<>)
  {
	 if (m/Node:/)
		{
		  $_ = <>;
		  #Try all the values on one line
		  if (m/^\s+([\d+-.eE]+)\s+([\d+-.eE]+)\s+([\d+-.eE]+)\s+$/)
			 {
				print (" $data_point $1 $2 $3 1 1 1\n");
				$data_point++;
			 }
		  #Try three single values on consecutive lines
		  else
			 {
				my $x;
				my $y;
				my $z;

				if (m/^\s+([\d+-.eE]+)\s+$/)
				  {
					 $x = $1;
				  }
				$_ = <>;
				if (m/^\s+([\d+-.eE]+)\s+$/)
				  {
					 $y = $1;
				  }
				$_ = <>;
				if (m/^\s+([\d+-.eE]+)\s+$/)
				  {
					 $z = $1;
				  }
				if (defined $x && defined $y && defined $z)
				  {
					 print (" $data_point $x $y $z 1 1 1\n");
					 $data_point++;
				  }
			 }
		}
  }