Power-Programmierung/CD1.mdf/pascal/library/dos/nrpas/rank.pas

Pascal/Delphi Source File | 1994-04-11 | 298 b | 13 lines

PROCEDURE rank(n: integer; indx: gliarray; VAR irank: gliarray);
(* Programs using routine RANK must define type
TYPE
   gliarray = ARRAY [1..np] OF real;
in the main routine, with np >= n.   *)
VAR
   j: integer;
BEGIN
   FOR j := 1 TO n DO BEGIN
      irank[indx[j]] := j
   END
END;