1 files changed, 19 insertions, 3 deletions

diff --git a/ROM.lpr b/ROM.lpr
index f7ca02c..ae493b2 100644
--- a/ROM.lpr
+++ b/ROM.lpr
@@ -15,7 +15,7 @@ uses
 var inPulsO,inPuls,refPulsO,refPuls,surTraj,cRefPuls:      tExtPointArray;
     smooth,betaSmooth:                                     longint;
     tmax,wmax,absShift,betaBound:                          extended;
-    force,fourier:                                         boolean;
+    force,fourier,mitAmplMod:                              boolean;
     f:                                                     textfile;
     s,t,u,lpicIn,rohIn,rohRef,outIn,outRef,outRefC,outSur: string;
 
@@ -34,6 +34,7 @@ begin
   absShift:=-1e9;
   betaBound:=0.95;
   fourier:=false;
+  mitAmplMod:=true;
 
   lpicIn:='';
   rohIn:='';
@@ -71,6 +72,15 @@ begin
       force:=false;
       continue;
     end;
+    if s='mit Amplitudenmodulation' then begin
+      mitAmplMod:=true;
+      continue;
+    end;
+    if (s='ohne Amplitudenmodulation') or
+       (s='nur Phasenmodulation') then begin
+      mitAmplMod:=false;
+      continue;
+    end;
     if pos('Glätte:',s)=1 then begin
       delete(s,1,pos(':',s));
       s:=trim(s);
@@ -202,8 +212,14 @@ begin
   interpoliere(refPulsO);
   writeln(stderr,' fertig');
   flip(inPulsO);
-  integrate(inPulsO,inPuls);
-  integrate(refPulsO,refPuls);
+  if mitAmplMod then begin
+    integrate(inPulsO,inPuls);
+    integrate(refPulsO,refPuls);
+  end
+  else begin
+    copyArray(inPulsO,inPuls);
+    copyArray(refPulsO,refPuls);
+  end;
   removeLinearOffset(inPuls);
   removeLinearOffset(refPuls);
   if smooth>1 then begin