for ($i=0;$i<(scalar(@np));$i++)
{
	if ($gap[$index]>=-200)
	{
		print OFILE "$coordinate[$index]\t$np[$index]\n";
	}
	else
	{
		print OFILE "End of block $index.\n";
		print OFILE "$coordinate[$index]\n";
		print OFILE "Start of block $index.\n";
	}
	
$index++;	
}