sub read_tagdata
{
        my  $tag_start= $_[0];     #read the start of the tag
        my $tag_end=$_[1];        #read the end of the tag
        my $temp_buffer_data= $_[2];  #read the tagged line
        my @buffer_data_split;
        $tag_error=($temp_buffer_data=~ s/$tag_start/;/);
        $tag_error1=($temp_buffer_data=~ s/$tag_end/;/);

        if (($tag_error==0) || ($tag_error1==0))
        {
            if(!($tag_start=~ /parameter/) && !($tag_start=~ /intern/) && !($tag_start=~ /out/) && !($tag_start=~ /visu/))
                {
                   print OUT_LOG "WARNING: No data found at $tag_start $tag_end for $name_data  \n";
                       $buffer_data_split[1]="UNKNOWN DATA";
                }
        }
        else
        {
            @buffer_data_split= split(/;/,$temp_buffer_data);
        }
            return($buffer_data_split[1])

}