void mrqcof([..other args..], void (*funcs)(float, float, float [], float *, float [], int)){
[..]
(*funcs)(x[i],dfx[dfi],a,&ymod,dyda,ma);
[..]
}

//--------------------------------------------------------------------------------------------------------------------
#define size_t unsigned int
static void MySwap( char *a, char *b, size_t width )
{
    char tmp;

    if ( a != b )
        // Do the swap one character at a time to avoid potential alignment
        // problems.
        while ( width-- ) {
            tmp = *a;
            *a++ = *b;
            *b++ = tmp;
        }
}


static int DoubleComp( const void *arg1, const void *arg2 )
{
   double *ldLeft, *ldRight;
   ldLeft = (double *)arg1;
   ldRight = (double *)arg2;
   if ( *ldLeft > *ldRight )
	   return 1;
   else if( *ldLeft < *ldRight )
	   return -1;
   return 0;
}

typedef int (*MYFUNPTRTYPE )(const void *elem1, const void *elem2 );



void MyQsort( void *base, size_t num, size_t width, MYFUNPTRTYPE  MyComp  )
{
	LPSTR  lpLeft, lpRight, lpMid, lpLast, lpTemp;
	
	out_str("Entering MyQsort...");


	if (num < 2 || width == 0)
	{
	 	out_str("EXITING MyQsort...");

       return;                 // nothing to do
	}

	lpLeft = (char *)base;
	lpRight = (char *)base + ( num - 1 )*width;
	lpMid =  (char *)base + num/2*width;
	MySwap( lpLeft, lpMid, width);
	lpLast = lpLeft;
	for ( lpTemp = lpLeft + width; lpTemp <= lpRight;  lpTemp += width )
	{	
		if ( MyComp( lpTemp, lpLeft ) < 0 ) // runtime error here
		//if ( DoubleComp( lpTemp, lpLeft ) < 0 ) // runtime error here
		{	
			lpLast += width;
			MySwap( lpLast, lpTemp, width );
			
		}
	}
	MySwap( lpLeft, lpLast, width );
	MyQsort(lpLeft, ( lpLast - lpLeft )/ width, width, MyComp);
	MyQsort(lpLast + width, ( lpRight - lpLast )/ width, width, MyComp);
	
	out_str("EXITING MyQsort..."); 
}

void test11()
{

	double dd[7] = { 1, 7, 11, 4, 5, 3, 6};

	MyQsort(dd, 7, sizeof(double), DoubleComp);

	for( int i = 0; i < 7; i++ )
		printf ("  %f, ", dd[i]);
}
//-----------------------------------------------------------------------------------------------------------------------------