From 2e3ecb4b296d39a60e66c9edb453bdea09b723ce Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 30 Sep 2015 15:01:41 +0200
Subject: Fehlerausgabe bei Impulsintegral über unbekannte Größe
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Physikunit.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Physikunit.pas b/Physikunit.pas
index 6c89ac4..abbb05d 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -1027,6 +1027,11 @@ begin
       for i:=1 to aP-1 do
         result:=
           result + abs((impulsraum[tlc,false]+i+ort*aP)^-(impulsraum[tlc,false]+i-1+ort*aP)^)*dP;
+    else begin
+      gitter.prot.schreibe('unbekannte Materiefeldgröße in Impulsintegral!');
+      gitter.prot.destroyall;
+      halt(1);
+    end;
   end{of case};
 end;
 
-- 
cgit v1.2.3-70-g09d2