home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / NRPAS13.ZIP / RANK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  298 b   |  13 lines
  1. PROCEDURE rank(n: integer; indx: gliarray; VAR irank: gliarray);
  2. (* Programs using routine RANK must define type
  3. TYPE
  4.    gliarray = ARRAY [1..np] OF real;
  5. in the main routine, with np >= n.   *)
  6. VAR
  7.    j: integer;
  8. BEGIN
  9.    FOR j := 1 TO n DO BEGIN
  10.       irank[indx[j]] := j
  11.    END
  12. END;
  13.