Method handleReduceSum

src/library/blas/gens/kprintf.cpp:1240–1281

}

void kprintf::handleReduceSum(char **_src, char **_dst)
{
    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(vectorWidth > 1)
    {
    if ( s_or_v == SCALAR)
    {
        for( int i = 0 ; i < (vectorWidth - 1); i++)
        {
            numCharsWritten = sprintf(dst,"%s.%s + ", id1, vecIndices[i]);
            dst += numCharsWritten;
        }
        numCharsWritten = sprintf(dst,"%s.%s;\n", id1, vecIndices[ (vectorWidth - 1)]);
        dst += numCharsWritten;
    }
    else
    {
        for( int i = 0 ; i < (vectorWidth- 1); i++)
        {
            numCharsWritten = sprintf(dst,"%s.s%d%d + ", id1,(i*2), (i*2 + 1));
            dst += numCharsWritten;
        }
        numCharsWritten = sprintf(dst,"%s.s%d%d;\n", id1,((vectorWidth- 1)*2), ((vectorWidth- 1)*2 + 1));
        dst += numCharsWritten;
    }
    } else {
        numCharsWritten = sprintf(dst,"(%s);\n", id1);
        dst += numCharsWritten;
    }

    *_dst = dst;
}

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