diff options
-rwxr-xr-x | genLikoInc | 2 | ||||
-rw-r--r-- | linearkombination.inc | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -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)^ |