diff options
-rw-r--r-- | Physikunit.pas | 5 |
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; |