sort3.cpp

VC常用数值算法集C7 ECLASS.CPP ECLAZZ.CPP INDEXX.CPP PIKSR2.CPP PIKSRT.CPP QCKSRT.CPP RANK.CPP SHELL

void sort3(int n, double ra[], double rb[], double rc[], double wksp[], int iwksp[])
{
	int j;
    indexx(n, ra, iwksp);
    for (j=1; j<=n; j++)
	{
        wksp[j] = ra[j];
    }
    for (j=1; j<=n; j++)
	{
        ra[j] = wksp[iwksp[j]];
    }
    for (j=1; j<=n; j++)
	{
        wksp[j] = rb[j];
    }
    for (j=1; j<=n; j++)
	{
        rb[j] = wksp[iwksp[j]];
    }
    for (j=1; j<=n; j++)
	{
        wksp[j] = rc[j];
    }
    for (j=1; j<=n; j++)
	{
        rc[j] = wksp[iwksp[j]];
    }
}