use strict;

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

my $data_point = 1;

print "Fitting data\n";

while (<>)
  {
	 if (m/^\s*([\d\+\-\.eE]+)\s+([\d\+\-\.eE]+)\s+([\d\+\-\.eE]+)\s*$/)
		{
		  print (" $data_point $1 $2 $3 1.0 1.0 1.0\n");
		  $data_point++;
		}
  }