summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Physikunit.pas5
1 files changed, 5 insertions, 0 deletions
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;