summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2015-09-30 15:08:49 +0200
committerErich Eckner <git@eckner.net>2015-09-30 15:08:49 +0200
commit6deeaf68d44504df1d25b7a03cff0d4b4d226b5c (patch)
treec52429728d7e395ad356af14bb3b333f8cdf7039
parente605478afe8b226e1452680152bd92d2758188d0 (diff)
downloadPlasmapropagation-6deeaf68d44504df1d25b7a03cff0d4b4d226b5c.tar.xz
Fehlermeldung bei unbekannter EMQuellgröße in Impulsintegral eingefügt
-rw-r--r--Physikunit.pas5
1 files changed, 5 insertions, 0 deletions
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;