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