Method handleReduceMin

src/library/blas/gens/kprintf.cpp:1415–1470

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

    *_dst = dst;
}

void kprintf::handleReduceHypot(char **_src, char **_dst)