summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Physikunit.pas7
1 files changed, 4 insertions, 3 deletions
diff --git a/Physikunit.pas b/Physikunit.pas
index a8c0c22..2102877 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -1409,12 +1409,13 @@ begin
{$ENDIF}
{$IF dichteNichtnegativieren = perSkalieren}
if enfizit=0 then
- {$ENDIF} begin
- gitter.prot.schreibe('Kann Defizit der Teilchensorte '+inttostr(i+1)+' nicht ausgleichen, '+floattostr(defizit)+' bleibt übrig!',true);
- gitter.prot.schreibe('Kann Defizit der Teilchensorte '+inttostr(i+1)+' nicht ausgleichen, es ist nichts positives mehr übrig!',true);
+ {$ENDIF}
+ {$IF dichteNichtnegativieren <> perGeneration} begin
+ gitter.prot.schreibe('Kann Defizit der Teilchensorte '+inttostr(i+1)+' nicht ausgleichen!',true);
gitter.abbrechen;
continue;
end;
+ {$ENDIF}
{$IF dichteNichtnegativieren = perSkalieren}
enfizit:=1-defizit/enfizit;