FUNCTION DeleteCalibrationPoint

(* Make sure pond number is between 1 and 4 *)
(* and point index is between 1 and 10 *)
IF 1 > linpPondNumber OR linpPondNumber > 4 OR 1 > linpPointIndex OR linpPointIndex > 10 THEN
	DeleteCalibrationPoint := FALSE;
END_IF;

IF linpPondNumber = 1 THEN
	FOR calIndex := linpPointIndex TO 9 DO
		pond1CalibrationHeight[calIndex] := pond1CalibrationHeight[calIndex + 1];
		pond1CalibrationVolume[calIndex] := pond1CalibrationVolume[calIndex + 1];
	END_FOR;
	
	pond1CalibrationHeight[10] := 0.0;
	pond1CalibrationVolume[10] := 0.0;
	DeleteCalibrationPoint := TRUE;
	
ELSIF linpPondNumber = 2 THEN
	FOR calIndex := linpPointIndex TO 9 DO
		pond2CalibrationHeight[calIndex] := pond2CalibrationHeight[calIndex + 1];
		pond2CalibrationVolume[calIndex] := pond2CalibrationVolume[calIndex + 1];
	END_FOR;
	
	pond2CalibrationHeight[10] := 0.0;
	pond2CalibrationVolume[10] := 0.0;
	DeleteCalibrationPoint := TRUE;
	
ELSIF linpPondNumber = 3 THEN
	FOR calIndex := linpPointIndex TO 9 DO
		pond3CalibrationHeight[calIndex] := pond3CalibrationHeight[calIndex + 1];
		pond3CalibrationVolume[calIndex] := pond3CalibrationVolume[calIndex + 1];
	END_FOR;
	
	pond3CalibrationHeight[10] := 0.0;
	pond3CalibrationVolume[10] := 0.0;
	DeleteCalibrationPoint := TRUE;
	
ELSIF linpPondNumber = 4 THEN
	FOR calIndex := linpPointIndex TO 9 DO
		pond4CalibrationHeight[calIndex] := pond4CalibrationHeight[calIndex + 1];
		pond4CalibrationVolume[calIndex] := pond4CalibrationVolume[calIndex + 1];
	END_FOR;
	
	pond4CalibrationHeight[10] := 0.0;
	pond4CalibrationVolume[10] := 0.0;
	DeleteCalibrationPoint := TRUE;
	
END_IF;
END_FUNCTION