问scilab中“C2F”的含义

EN

extern double C2F(ddot)(int *n, double *A, int *iA, double *B, int *iB);
/*--------------------------------------------------------------------------*/
void conv2_separable_R(double *R, int nR, double *C, int mC, double *A, int mA, int nA, double *Out, int mOut, int nOut, int edgM, int edgN, double *T)
{
    int ai = 0, tj = 0, ci = 0, rj = 0; /*current index over A,T,C and R */
    int i = 0, j = 0; /* loop variables*/
    int l = 0;
    int one = 1, minusone = -1;

    for (i = 0; i < mOut; i++ )
    {
        /*Compute  the 1-D conv A(i,:) and C  in T */
        ai = Max(0, i - edgM) ;
        ci = mC - 1 - Max(0, edgM - i);
        l = Min(ci + 1, mA - ai);
        for (j = 0; j < nA; j++ )
        {
            T[j] = C2F(ddot)(&l, A + ai + mA * j, &one, C + ci - l + 1, &minusone);
        }
        /*1-D convolution of T and  R */
        for (j = 0; j < nOut; j++ )
        {
            rj = nR - 1 - Max(0, edgN - j);
            tj = Max(0, j - edgN) ;
            l = Min(rj + 1, nA - tj);
            Out[i + j * mOut] = C2F(ddot)(&l, T + tj, &one, R + rj - l + 1, &minusone);
        }
    }
}