Method handleReduceSumReal

src/library/blas/gens/kprintf.cpp:1533–1572

scalar = %REDUCE_SUM_REAL_HV(half-vector), %REDUCE_SUM_REAL_V(vector)

// scalar = %REDUCE_SUM_REAL_HV(half-vector), %REDUCE_SUM_REAL_V(vector)
//
void kprintf::handleReduceSumReal(char **_src, char **_dst, int vlength)
{
    int numCharsWritten = 0;
    char id1[256];
    char * ptr;
    char *src = *_src;
    char *dst = *_dst;


    ptr = mystrtok( src, "(,)");
    ptr = mystrtok( NULL, "(,)"); // Get first ID
    strcpy( id1, ptr);
    *_src = ptr + strlen(ptr) + 1;

    if (!vlength) //Can happen for SCALAR cases where source code contains this within COMPLEX define
    {
        //
        // Don't generate a thing.
        // The src pointer has already been advanced to next line
        // Just move on..
        //
        return;
    }

    if (vlength != 1)
    {
        for( int i = 0 ; i < (vlength - 1); i++)
        {
            numCharsWritten = sprintf(dst,"(%s).%s + ", id1, vecIndices[i]);
            dst += numCharsWritten;
        }
        numCharsWritten = sprintf(dst,"(%s).%s;\n", id1, vecIndices[ (vlength - 1)]);
        dst += numCharsWritten;
    } else {
        numCharsWritten = sprintf(dst,"(%s);\n ", id1);
        dst += numCharsWritten;
    }

    *_dst = dst;
}

void kprintf::handleCONJUGATE(char **_src, char **_dst)
{