[CONFIG]
INCLUDE=0
VAR=1
LOWINIT=1
FCT=0
SSP=0
CODE=1
LIBRARY=0
FINISH=0

[VAR]
VAR1=%     %NB_PTS_FFT_XX_NUMFCT1_XX : INTEGER = XX_PARAM1_XX;
VAR2=%     %NB_PTS_FFT2_XX_NUMFCT1_XX : INTEGER = XX_PARAM3_XX;
VAR3=%     %N_XX_NUMFCT1_XX : INTEGER;
VAR4=%     %%tabCos_XX_NUMFCT1_XX : ARRAY[1..XX_PARAM1_XX] OF DOUBLE;
VAR5=%     %tabSin_XX_NUMFCT1_XX : ARRAY[1..XX_PARAM1_XX] OF DOUBLE;
VAR6=%     %reFFT_XX_NUMFCT1_XX  : ARRAY[1..XX_PARAM1_XX] OF DOUBLE;
VAR7=%     %imFFT_XX_NUMFCT1_XX  : ARRAY[1..XX_PARAM1_XX] OF DOUBLE;
VAR8=%     %reFFTTemp_XX_NUMFCT1_XX : DOUBLE;
VAR9=%     %imFFTTemp_XX_NUMFCT1_XX : DOUBLE;
VAR10=%     %XX_ENTREE1_XX_Register_XX_NUMFCT1_XX : ARRAY[1..XX_PARAM3_XX] OF DOUBLE;

[LOWINIT]
LI1=FOR N_XX_NUMFCT1_XX := 0 TO NB_PTS_FFT_XX_NUMFCT1_XX - 1 DO BEGIN
LI2=%     %tabCos_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] := cos(2*PI*N_XX_NUMFCT1_XX/NB_PTS_FFT2_XX_NUMFCT1_XX);
LI3=%     %tabSin_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] := sin(2*PI*N_XX_NUMFCT1_XX/NB_PTS_FFT2_XX_NUMFCT1_XX);
LI4=%     %imFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] := 0.0;
LI5=%     %reFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] := 0.0;
LI6=END;

[CODE]
C1=FOR N_XX_NUMFCT1_XX := 1 TO NB_PTS_FFT2_XX_NUMFCT1_XX - 1 DO BEGIN
C2=%     %XX_ENTREE1_XX_Register_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX]:=XX_ENTREE1_XX_Register_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1];
C3=END;
C4=XX_ENTREE1_XX_Register_XX_NUMFCT1_XX[NB_PTS_FFT2_XX_NUMFCT1_XX] := XX_ENTREE1_XX;
C5=FOR N_XX_NUMFCT1_XX := 0 TO NB_PTS_FFT_XX_NUMFCT1_XX - 1 DO BEGIN
C6=%     %reFFTTemp_XX_NUMFCT1_XX := XX_PARAM2_XX*reFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1];
C7=%     %reFFTTemp_XX_NUMFCT1_XX := reFFTTemp_XX_NUMFCT1_XX + (XX_ENTREE1_XX_Register_XX_NUMFCT1_XX[NB_PTS_FFT2_XX_NUMFCT1_XX] - XX_ENTREE1_XX_Register_XX_NUMFCT1_XX[1])/NB_PTS_FFT2_XX_NUMFCT1_XX;
C8=%     %imFFTTemp_XX_NUMFCT1_XX := XX_PARAM2_XX*imFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1];
C9=%     %reFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] := tabCos_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]*reFFTTemp_XX_NUMFCT1_XX - tabSin_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]*imFFTTemp_XX_NUMFCT1_XX;
C10=%     %imFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] := tabSin_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]*reFFTTemp_XX_NUMFCT1_XX + tabCos_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]*imFFTTemp_XX_NUMFCT1_XX;
C11=%     %XX_SORTIE1_XX[N_XX_NUMFCT1_XX + 1] := SQRT(reFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]*reFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1] + imFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]*imFFT_XX_NUMFCT1_XX[N_XX_NUMFCT1_XX + 1]);
C12=END;