/*  rmatch.c

This file is part of a program that implements a Software-Defined Radio.

Copyright (C) 2017, 2018, 2022 Warren Pratt, NR0V

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

The author can be reached by email at

warren@wpratt.com

*/

#include "comm.h"

MAV create_mav (int ringmin, int ringmax, double nom_value)
{
    MAV a = (MAV) malloc0 (sizeof (mav));
    a->ringmin = ringmin;
    a->ringmax = ringmax;
    a->nom_value = nom_value;
    a->ring = (int *) malloc0 (a->ringmax * sizeof (int));
    a->mask = a->ringmax - 1;
    a->i = 0;
    a->load = 0;
    a->sum = 0;
    return a;
}

void destroy_mav (MAV a)
{
    _aligned_free (a->ring);
    _aligned_free (a);
}

void flush_mav (MAV a)
{
    memset (a->ring, 0, a->ringmax * sizeof (int));
    a->i = 0;
    a->load = 0;
    a->sum = 0;
}
void xmav (MAV a, int input, double* output)
{
    if (a->load >= a->ringmax)
        a->sum -= a->ring[a->i];
    if (a->load < a->ringmax) a->load++;
    a->ring[a->i] = input;
    a->sum += a->ring[a->i];

    if (a->load >= a->ringmin)
        *output = (double)a->sum / (double)a->load;
    else
        *output = a->nom_value;
    a->i = (a->i + 1) & a->mask;
}

AAMAV create_aamav (int ringmin, int ringmax, double nom_ratio)
{
    AAMAV a = (AAMAV) malloc0 (sizeof (aamav));
    a->ringmin = ringmin;
    a->ringmax = ringmax;
    a->nom_ratio = nom_ratio;
    a->ring = (int *) malloc0 (a->ringmax * sizeof (int));
    a->mask = a->ringmax - 1;
    a->i = 0;
    a->load = 0;
    a->pos = 0;
    a->neg = 0;
    return a;
}

void destroy_aamav (AAMAV a)
{
    _aligned_free (a->ring);
    _aligned_free (a);
}

void flush_aamav (AAMAV a)
{
    memset (a->ring, 0, a->ringmax * sizeof (int));
    a->i = 0;
    a->load = 0;
    a->pos = 0;
    a->neg = 0;
}

void xaamav (AAMAV a, int input, double* output)
{
    if (a->load >= a->ringmax)
    {
        if (a->ring[a->i] >= 0)
            a->pos -= a->ring[a->i];
        else
            a->neg += a->ring[a->i];
    }
    if (a->load <= a->ringmax) a->load++;
    a->ring[a->i] = input;
    if (a->ring[a->i] >= 0)
        a->pos += a->ring[a->i];
    else
        a->neg -= a->ring[a->i];
    if (a->load >= a->ringmin)
        *output = (double)a->neg / (double)a->pos;
    else if (a->neg > 0 && a->pos > 0)
    {
        double frac = (double)a->load / (double)a->ringmin;
        *output = (1.0 - frac) * a->nom_ratio + frac * ((double)a->neg / (double)a->pos);
    }
    else
        *output = a->nom_ratio;
    a->i = (a->i + 1) & a->mask;
}

void calc_rmatch (RMATCH a)
{
    int m;
    double theta, dtheta;
    int max_ring_insize;
    a->nom_ratio = (double)a->nom_outrate / (double)a->nom_inrate;
    max_ring_insize = (int)(1.0 + (double)a->insize * (1.05 * a->nom_ratio));
    if (a->ringsize < 2 * max_ring_insize)  a->ringsize = 2 * max_ring_insize;
    if (a->ringsize < 2 * a->outsize) a->ringsize = 2 * a->outsize;
    a->ring = (double *) malloc0 (a->ringsize * sizeof (complex));
    a->rsize = a->ringsize;
    a->n_ring = a->rsize / 2;
    a->iin = a->rsize / 2;
    a->iout = 0;
    a->resout = (double *) malloc0 (max_ring_insize * sizeof (complex));
    a->v = create_varsamp (1, a->insize, a->in, a->resout, a->nom_inrate, a->nom_outrate,
        a->fc_high, a->fc_low, a->R, a->gain, a->var, a->varmode);
    a->ffmav = create_aamav (a->ff_ringmin, a->ff_ringmax, a->nom_ratio);
    a->propmav = create_mav (a->prop_ringmin, a->prop_ringmax, 0.0);
    a->pr_gain = a->prop_gain * 48000.0 / (double)a->nom_outrate;   // adjust gain for rate
    a->inv_nom_ratio = (double)a->nom_inrate / (double)a->nom_outrate;
    a->feed_forward = 1.0;
    a->av_deviation = 0.0;
    InitializeCriticalSectionAndSpinCount (&a->cs_ring, 2500);
    InitializeCriticalSectionAndSpinCount (&a->cs_var,  2500);
    a->ntslew = (int)(a->tslew * a->nom_outrate);
    if (a->ntslew + 1 > a->rsize / 2) a->ntslew = a->rsize / 2 - 1;
    a->cslew = (double *) malloc0 ((a->ntslew + 1) * sizeof (double));
    dtheta = PI / (double)a->ntslew;
    theta = 0.0;
    for (m = 0; m <= a->ntslew; m++)
    {
        a->cslew[m] = 0.5 * (1.0 - cos (theta));
        theta += dtheta;
    }
    a->baux = (double *) malloc0 (a->ringsize / 2 * sizeof (complex));
    a->readsamps = 0;
    a->writesamps = 0;
    a->read_startup = (unsigned int)((double)a->nom_outrate * a->startup_delay);
    a->write_startup = (unsigned int)((double)a->nom_inrate * a->startup_delay);
    a->control_flag = 0;
    // diagnostics
    a->underflows = 0;
    a->overflows = 0;
}

void decalc_rmatch (RMATCH a)
{
    _aligned_free (a->baux);
    _aligned_free (a->cslew);
    DeleteCriticalSection (&a->cs_var);
    DeleteCriticalSection (&a->cs_ring);
    destroy_mav (a->propmav);
    destroy_aamav (a->ffmav);
    destroy_varsamp (a->v);
    _aligned_free (a->resout);
    _aligned_free (a->ring);
}

RMATCH create_rmatch (
    int run,                // 0 - input and output calls do nothing; 1 - operates normally
    double* in,             // pointer to input buffer
    double* out,            // pointer to output buffer
    int insize,             // size of input buffer
    int outsize,            // size of output buffer
    int nom_inrate,         // nominal input samplerate
    int nom_outrate,        // nominal output samplerate
    double fc_high,         // high cutoff frequency if lower than max
    double fc_low,          // low cutoff frequency if higher than zero
    double gain,            // gain to be applied during this process
    double startup_delay,   // time (seconds) to delay before beginning measurements to control variable resampler
    int auto_ringsize,      // 0 specified ringsize is used; 1 ringsize is auto-optimized - FEATURE NOT IMPLEMENTED!!
    int ringsize,           // specified ringsize; max ringsize if 'auto' is enabled
    int R,                  // density factor for varsamp coefficients
    double var,             // initial value of variable resampler ratio (value of ~1.0)
    int ffmav_min,          // minimum feed-forward moving average size to put full weight on data in the ring
    int ffmav_max,          // maximum feed-forward moving average size - MUST BE A POWER OF TWO!
    double ff_alpha,        // feed-forward exponential averaging multiplier
    int prop_ringmin,       // proportional feedback min moving average ringsize
    int prop_ringmax,       // proportional feedback max moving average ringsize - MUST BE A POWER OF TWO!
    double prop_gain,       // proportional feedback gain factor
    int varmode,            // 0 - use same var for all samples of the buffer; 1 - interpolate from old_var to this var
    double tslew            // slew/blend time (seconds)
    )
{
    RMATCH a = (RMATCH) malloc0 (sizeof (rmatch));
    a->run = run;
    a->in = in;
    a->out = out;
    a->insize = insize;
    a->outsize = outsize;
    a->nom_inrate = nom_inrate;
    a->nom_outrate = nom_outrate;
    a->fc_high = fc_high;
    a->fc_low = fc_low;
    a->gain = gain;
    a->startup_delay = startup_delay;
    a->auto_ringsize = auto_ringsize;
    a->ringsize = ringsize;
    a->R = R;
    a->var = var;
    a->ff_ringmin = ffmav_min;
    a->ff_ringmax = ffmav_max;      // must be a power of two
    a->ff_alpha = ff_alpha;
    a->prop_ringmin = prop_ringmin;
    a->prop_ringmax = prop_ringmax; // must be a power of two
    a->prop_gain = prop_gain;
    a->varmode = varmode;
    a->tslew = tslew;
    calc_rmatch(a);
    return a;
}

void destroy_rmatch (RMATCH a)
{
    decalc_rmatch (a);
    _aligned_free (a);
}

void reset_rmatch (RMATCH a)
{
    InterlockedBitTestAndReset (&a->run, 0);
    Sleep (10);
    decalc_rmatch(a);
    calc_rmatch (a);
    InterlockedBitTestAndSet (&a->run, 0);
}

void control (RMATCH a, int change)
{
    {
        double current_ratio;
        xaamav (a->ffmav, change, &current_ratio);
        current_ratio *= a->inv_nom_ratio;
        a->feed_forward = a->ff_alpha * current_ratio + (1.0 - a->ff_alpha) * a->feed_forward;
    }
    {
        int deviation = a->n_ring - a->rsize / 2;
        xmav (a->propmav, deviation, &a->av_deviation);
    }
    EnterCriticalSection (&a->cs_var);
    a->var = a->feed_forward - a->pr_gain * a->av_deviation;
    if (a->var > 1.04) a->var = 1.04;
    if (a->var < 0.96) a->var = 0.96;
    LeaveCriticalSection (&a->cs_var);
}

void blend (RMATCH a)
{
    int i, j;
    for (i = 0, j = a->iout; i <= a->ntslew; i++, j = (j + 1) % a->rsize)
    {
        a->ring[2 * j + 0] = a->cslew[i] * a->ring[2 * j + 0] + (1.0 - a->cslew[i]) * a->baux[2 * i + 0];
        a->ring[2 * j + 1] = a->cslew[i] * a->ring[2 * j + 1] + (1.0 - a->cslew[i]) * a->baux[2 * i + 1];
    }
}

void upslew (RMATCH a, int newsamps)
{
    int i, j;
    i = 0;
    j = a->iin;
    while (a->ucnt >= 0 && i < newsamps)
    {
        a->ring[2 * j + 0] *= a->cslew[a->ntslew - a->ucnt];
        a->ring[2 * j + 1] *= a->cslew[a->ntslew - a->ucnt];
        a->ucnt--;
        i++;
        j = (j + 1) % a->rsize;
    }
}

PORT
void xrmatchIN (void* b, double* in)
{
    RMATCH a = (RMATCH)b;
    if (InterlockedAnd (&a->run, 1))
    {
        int newsamps, first, second, ovfl;
        double var;
        a->v->in = a->in = in;
        EnterCriticalSection (&a->cs_var);
        if (!a->force)
            var = a->var;
        else
            var = a->fvar;
        LeaveCriticalSection (&a->cs_var);
        newsamps = xvarsamp (a->v, var);
        EnterCriticalSection (&a->cs_ring);
        a->n_ring += newsamps;
        if ((ovfl = a->n_ring - a->rsize) > 0)
        {
            InterlockedIncrement (&a->overflows);
            // a->n_ring = a->rsize / 2;
            a->n_ring = a->rsize; //
            if ((a->ntslew + 1) > (a->rsize - a->iout))
            {
                first = a->rsize - a->iout;
                second = (a->ntslew + 1) - first;
            }
            else
            {
                first = a->ntslew + 1;
                second = 0;
            }
            memcpy (a->baux, a->ring + 2 * a->iout, first * sizeof (complex));
            memcpy (a->baux + 2 * first, a->ring, second * sizeof (complex));
            // a->iout = (a->iout + ovfl + a->rsize / 2) % a->rsize;
            a->iout = (a->iout + ovfl) % a->rsize; //
        }
        if (newsamps > (a->rsize - a->iin))
        {
            first = a->rsize - a->iin;
            second = newsamps - first;
        }
        else
        {
            first = newsamps;
            second = 0;
        }
        memcpy (a->ring + 2 * a->iin, a->resout, first * sizeof (complex));
        memcpy (a->ring, a->resout + 2 * first, second * sizeof (complex));
        if (a->ucnt >= 0) upslew(a, newsamps);
        a->iin = (a->iin + newsamps) % a->rsize;
        if (ovfl > 0) blend (a);
        if (!a->control_flag)
        {
            a->writesamps += a->insize;
            if ((a->readsamps >= a->read_startup) && (a->writesamps >= a->write_startup))
                a->control_flag = 1;
        }
        if (a->control_flag) control (a, a->insize);
        LeaveCriticalSection (&a->cs_ring);
    }
}

void dslew (RMATCH a)
{
    int i, j, k, n;
    int zeros, first, second;
    if (a->n_ring > a->ntslew + 1)
    {
        i = (a->iout + (a->n_ring - (a->ntslew + 1))) % a->rsize;
        j = a->ntslew;
        k = a->ntslew + 1;
        n = a->n_ring - (a->ntslew + 1);
    }
    else
    {
        i = a->iout;
        j = a->ntslew;
        k = a->n_ring;
        n = 0;
    }
    while (k > 0 && j >= 0)
    {
        if (k == 1)
        {
            a->dlast[0] = a->ring[2 * i + 0];
            a->dlast[1] = a->ring[2 * i + 1];
        }
        a->ring[2 * i + 0] *= a->cslew[j];
        a->ring[2 * i + 1] *= a->cslew[j];
        i = (i + 1) % a->rsize;
        j--;
        k--;
        n++;
    }
    while (j >= 0)
    {
        a->ring[2 * i + 0] = a->dlast[0] * a->cslew[j];
        a->ring[2 * i + 1] = a->dlast[1] * a->cslew[j];
        i = (i + 1) % a->rsize;
        j--;
        n++;
    }
    // zeros = a->outsize + a->rsize / 2 - n;
    if ((zeros = a->outsize - n) > 0) //
    { //
        if (zeros > a->rsize - i)
        {
            first = a->rsize - i;
            second = zeros - first;
        }
        else
        {
            first = zeros;
            second = 0;
        }
        memset (a->ring + 2 * i, 0, first  * sizeof (complex));
        memset (a->ring,         0, second * sizeof (complex));
        n += zeros; //
    } //
    // a->n_ring = a->outsize + a->rsize / 2;
    a->n_ring = n; //
    // a->iin = (a->iout + a->outsize + a->rsize/2) % a->rsize;
    a->iin = (a->iout + a->n_ring) % a->rsize; //
}

PORT
void xrmatchOUT (void* b, double* out)
{
    RMATCH a = (RMATCH)b;
    if (InterlockedAnd (&a->run, 1))
    {
        int first, second;
        a->out = out;
        EnterCriticalSection (&a->cs_ring);
        if (a->n_ring < a->outsize)
        {
            dslew (a);
            a->ucnt = a->ntslew;
            InterlockedIncrement (&a->underflows);
        }
        if (a->outsize > (a->rsize - a->iout))
        {
            first = a->rsize - a->iout;
            second = a->outsize - first;
        }
        else
        {
            first = a->outsize;
            second = 0;
        }
        memcpy (a->out, a->ring + 2 * a->iout, first * sizeof (complex));
        memcpy (a->out + 2 * first, a->ring, second * sizeof (complex));
        a->iout = (a->iout + a->outsize) % a->rsize;
        a->n_ring -= a->outsize;
        a->dlast[0] = a->out[2 * (a->outsize - 1) + 0];
        a->dlast[1] = a->out[2 * (a->outsize - 1) + 1];
        if (!a->control_flag)
        {
            a->readsamps += a->outsize;
            if ((a->readsamps >= a->read_startup) && (a->writesamps >= a->write_startup))
                a->control_flag = 1;
        }
        if (a->control_flag) control (a, -(a->outsize));
        LeaveCriticalSection (&a->cs_ring);
    }
}

PORT
void getRMatchDiags (void* b, int* underflows, int* overflows, double* var, int* ringsize, int* nring)
{
    RMATCH a = (RMATCH)b;
    *underflows = InterlockedAnd (&a->underflows, 0xFFFFFFFF);
    *overflows  = InterlockedAnd (&a->overflows,  0xFFFFFFFF);
    EnterCriticalSection (&a->cs_var);
    *var = a->var;
    *ringsize = a->ringsize;
    *nring = a->n_ring;
    LeaveCriticalSection (&a->cs_var);
}

PORT
void resetRMatchDiags (void* b)
{
    RMATCH a = (RMATCH)b;
    InterlockedExchange (&a->underflows, 0);
    InterlockedExchange (&a->overflows,  0);
}

PORT
void forceRMatchVar (void* b, int force, double fvar)
{
    RMATCH a = (RMATCH)b;
    EnterCriticalSection (&a->cs_var);
    a->force = force;
    a->fvar = fvar;
    LeaveCriticalSection (&a->cs_var);
}

PORT
void* create_rmatchV(int in_size, int out_size, int nom_inrate, int nom_outrate, int ringsize, double var)
{
    return (void*)create_rmatch (
        1,                      // run
        0,                      // input buffer, stuffed in other calls
        0,                      // output buffer, stuffed in other calls
        in_size,                // input buffer size (complex samples)
        out_size,               // output buffer size (complex samples)
        nom_inrate,             // nominal input sample-rate
        nom_outrate,            // nominal output sample-rate
        0.0,                    // fc_high (0.0 -> automatic)
        -1.0,                   // fc_low  (-1.0 -> no low cutoff)
        1.0,                    // gain
        3.0,                    // startup delay (seconds)
        1,                      // automatic ring-size [not implemented yet]
        ringsize,               // ringsize
        1024,                   // R, coefficient density
        var,                    // initial variable ratio
        4096,                   // feed-forward moving average min size
        262144,                 // feed-forward moving average max size - POWER OF TWO!
        0.01,                   // feed-forward exponential smoothing
        4096,                   // proportional feedback min moving av ringsize
        16384,                  // proportional feedback max moving av ringsize - POWER OF TWO!
        4.0e-06,                // proportional feedback gain
        1,                      // linearly interpolate cvar by sample
        0.003 );                // slew time (seconds)
}

PORT
void destroy_rmatchV (void* ptr)
{
    RMATCH a = (RMATCH)ptr;
    destroy_rmatch (a);
}

PORT
void setRMatchInsize (void* ptr, int insize)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset (&a->run, 0);
    Sleep (10);
    decalc_rmatch(a);
    a->insize = insize;
    calc_rmatch (a);
    InterlockedBitTestAndSet (&a->run, 0);
}

PORT
void setRMatchOutsize (void* ptr, int outsize)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset (&a->run, 0);
    Sleep (10);
    decalc_rmatch(a);
    a->outsize = outsize;
    calc_rmatch (a);
    InterlockedBitTestAndSet (&a->run, 0);
}

PORT
void setRMatchNomInrate (void* ptr, int nom_inrate)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset (&a->run, 0);
    Sleep (10);
    decalc_rmatch(a);
    a->nom_inrate = nom_inrate;
    calc_rmatch (a);
    InterlockedBitTestAndSet (&a->run, 0);
}

PORT
void setRMatchNomOutrate (void* ptr, int nom_outrate)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset (&a->run, 0);
    Sleep (10);
    decalc_rmatch(a);
    a->nom_outrate = nom_outrate;
    calc_rmatch (a);
    InterlockedBitTestAndSet (&a->run, 0);
}

PORT
void setRMatchRingsize (void* ptr, int ringsize)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset (&a->run, 0);
    Sleep (10);
    decalc_rmatch(a);
    a->ringsize = ringsize;
    calc_rmatch (a);
    InterlockedBitTestAndSet (&a->run, 0);
}

PORT
void setRMatchFeedbackGain (void* b, double feedback_gain)
{
    RMATCH a = (RMATCH)b;
    EnterCriticalSection(&a->cs_var);
    a->prop_gain = feedback_gain;
    a->pr_gain = a->prop_gain * 48000.0 / (double)a->nom_outrate;
    LeaveCriticalSection(&a->cs_var);
}

PORT
void setRMatchSlewTime (void* b, double slew_time)
{
    RMATCH a = (RMATCH)b;
    InterlockedBitTestAndReset(&a->run, 0);     // turn OFF new data coming into the rmatch
    Sleep(10);                                  // wait for processing to cease
    decalc_rmatch(a);                           // deallocate all memory EXCEPT the data structure holding all current parameters
    a->tslew = slew_time;                       // change the value of 'slew_time'
    calc_rmatch(a);                             // recalculate/reallocate everything in the RMATCH
    InterlockedBitTestAndSet(&a->run, 0);       // turn ON the dataflow
}

PORT
void setRMatchSlewTime1(void* b, double slew_time)
{
    RMATCH a = (RMATCH)b;
    double theta, dtheta;
    int m;
    InterlockedBitTestAndReset(&a->run, 0);
    Sleep(10);
    _aligned_free(a->cslew);
    a->tslew = slew_time;
    a->ntslew = (int)(a->tslew * a->nom_outrate);
    if (a->ntslew + 1 > a->rsize / 2) a->ntslew = a->rsize / 2 - 1;
    a->cslew = (double*)malloc0((a->ntslew + 1) * sizeof(double));
    dtheta = PI / (double)a->ntslew;
    theta = 0.0;
    for (m = 0; m <= a->ntslew; m++)
    {
        a->cslew[m] = 0.5 * (1.0 - cos(theta));
        theta += dtheta;
    }
    InterlockedBitTestAndSet(&a->run, 0);
}

PORT
void setRMatchPropRingMin(void* ptr, int prop_min)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset(&a->run, 0);
    Sleep(10);
    decalc_rmatch(a);
    a->prop_ringmin = prop_min;
    calc_rmatch(a);
    InterlockedBitTestAndSet(&a->run, 0);
}

PORT
void setRMatchPropRingMax(void* ptr, int prop_max)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset(&a->run, 0);
    Sleep(10);
    decalc_rmatch(a);
    a->prop_ringmax = prop_max; // must be a power of two
    calc_rmatch(a);
    InterlockedBitTestAndSet(&a->run, 0);
}

PORT
void setRMatchFFRingMin(void* ptr, int ff_ringmin)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset(&a->run, 0);
    Sleep(10);
    decalc_rmatch(a);
    a->ff_ringmin = ff_ringmin;
    calc_rmatch(a);
    InterlockedBitTestAndSet(&a->run, 0);
}

PORT
void setRMatchFFRingMax(void* ptr, int ff_ringmax)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset(&a->run, 0);
    Sleep(10);
    decalc_rmatch(a);
    a->ff_ringmax = ff_ringmax; // must be a power of two
    calc_rmatch(a);
    InterlockedBitTestAndSet(&a->run, 0);
}

PORT
void setRMatchFFAlpha(void* ptr, double ff_alpha)
{
    RMATCH a = (RMATCH)ptr;
    InterlockedBitTestAndReset(&a->run, 0);
    Sleep (10);
    a->ff_alpha = ff_alpha;
    InterlockedBitTestAndSet(&a->run, 0);
}

PORT
void getControlFlag(void* ptr, int* control_flag)
{
    RMATCH a = (RMATCH)ptr;
    EnterCriticalSection(&a->cs_ring);
    *control_flag = a->control_flag;
    LeaveCriticalSection(&a->cs_ring);
}

// the following function is DEPRECATED
// it is intended for Legacy PowerSDR use only
PORT
void* create_rmatchLegacyV(int in_size, int out_size, int nom_inrate, int nom_outrate, int ringsize)
{
    return (void*)create_rmatch(
        1,                      // run
        0,                      // input buffer, stuffed in other calls
        0,                      // output buffer, stuffed in other calls
        in_size,                // input buffer size (complex samples)
        out_size,               // output buffer size (complex samples)
        nom_inrate,             // nominal input sample-rate
        nom_outrate,            // nominal output sample-rate
        0.0,                    // fc_high (0.0 -> automatic)
        -1.0,                   // fc_low  (-1.0 -> no low cutoff)
        1.0,                    // gain
        3.0,                    // startup delay (seconds)
        1,                      // automatic ring-size [not implemented yet]
        ringsize,               // ringsize
        1024,                   // R, coefficient density
        1.0,                    // initial variable ratio
        4096,                   // feed-forward moving average min size
        262144,                 // feed-forward moving average max size - POWER OF TWO!
        0.01,                   // feed-forward exponential smoothing
        4096,                   // proportional feedback min moving av ringsize
        16384,                  // proportional feedback max moving av ringsize - POWER OF TWO!
        1.0e-06,                // proportional feedback gain  ***W4WMT - reduce loop gain a bit for PowerSDR to help Primary buffers > 512
        0,                      // linearly interpolate cvar by sample  ***W4WMT - set varmode = 0 for PowerSDR (doesn't work otherwise!?!)
        0.003);                 // slew time (seconds)
}
