##
sub find_range
{
my $max=$_[0];
my $min=$_[1];
my $step=$_[2];
my @step_part;
my $range;
$range=($max-$min)/($step_real);
return($range);
}
####
$range_int= int($range_data);