From 5dd58583367a578d8ad82ebcd5c9f93c768241b9 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 30 Sep 2015 12:51:58 +0200
Subject: es werden nun nur die Felder linearkombiniert, die auch Ableitungen
 haben.

---
 genLikoInc            | 2 +-
 linearkombination.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/genLikoInc b/genLikoInc
index 2c0120f..ab0035d 100755
--- a/genLikoInc
+++ b/genLikoInc
@@ -65,7 +65,7 @@ echo "var" >> ${file}
 echo "  i,j: longint;" >> ${file}
 echo "  emF: tEMFeldGroesze;" >> ${file}
 echo "begin" >> ${file}
-echo "  for emF:=low(tEMFeldGroesze) to high(tEMFeldGroesze) do" >> ${file}
+echo "  for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do" >> ${file}
 echo "    for i:=0 to aX-1 do" >> ${file}
 echo "      (emFelder[emF,false]+i)^:=" >> ${file}
 echo -ne "        (in1.emFelder[emF,false]+i)^" >> ${file}
diff --git a/linearkombination.inc b/linearkombination.inc
index 5727f04..05aeeee 100644
--- a/linearkombination.inc
+++ b/linearkombination.inc
@@ -67,7 +67,7 @@ var
   i,j: longint;
   emF: tEMFeldGroesze;
 begin
-  for emF:=low(tEMFeldGroesze) to high(tEMFeldGroesze) do
+  for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do
     for i:=0 to aX-1 do
       (emFelder[emF,false]+i)^:=
         (in1.emFelder[emF,false]+i)^
-- 
cgit v1.2.3-70-g09d2