Return to gw.rr CVS log | Up to [local] / OpenXM / src / asir-contrib / testing / noro |
version 1.2, 2008/03/12 08:58:54 | version 1.3, 2014/09/05 11:55:19 | ||
---|---|---|---|
|
|
||
V = vector(N); | V = vector(N); | ||
for ( I = 0; I < N; I++ ) | for ( I = 0; I < N; I++ ) | ||
V[I] = [G[I],GH[I]]; | V[I] = [G[I],GH[I]]; | ||
V1 = qsort(V,comp_second); | V1 = qsort(V,noro_gw.comp_second); | ||
for ( I = 0; I < N; I++ ) { | for ( I = 0; I < N; I++ ) { | ||
G[I] = V1[I][0]; GH[I] = V1[I][1]; | G[I] = V1[I][0]; GH[I] = V1[I][1]; | ||
} | } |