### SubRoutines Qualitätsüberprüfung

sub sub_QC_temp {

my $zeit_index=$_[0];
my $tiefe_index=$_[1];
my $wert_index=$_[2];

@QV=();

# Beispiel  Temperatur 
for ($i=0;$i<=$#stationsdaten;$i++) { 
if ($aktzeile[$i][$temp_index] < !!!!!Min-Wert aus Referenzdatensatz || $aktzeile[$i][$temp_index] > !!!!!Max-Wert aus Referenzdatensatz ) { $QV[$i]=4 } else {$QV[$i]=2}
}
return @QV;
}