From 6deeaf68d44504df1d25b7a03cff0d4b4d226b5c Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 30 Sep 2015 15:08:49 +0200
Subject: Fehlermeldung bei unbekannter EMQuellgröße in Impulsintegral
 eingefügt
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 e5057e7..8aec754 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -985,6 +985,11 @@ begin
     eqRho: result:=impulsIntegral(ort,tlc,msN);
     eqJX:  result:=impulsIntegral(ort,tlc,msVX);
     eqJY:  result:=impulsIntegral(ort,tlc,msVY);
+    else begin
+      gitter.prot.schreibe('unbekannte EMQuellgröße in Impulsintegral!');
+      gitter.prot.destroyall;
+      halt(1);
+    end;
   end{of case};
   result:=result * teilchen[tlc].eigenschaften[tsgLadung];
 end;
-- 
cgit v1.2.3-54-g00ecf