1 #include "isajet/pilot.h"
2 SUBROUTINE ISASRT(X,NCH,IMAP)
3 C----------------------------------------------------------------------
5 C- Purpose and Methods : Sorts a floating point array X into ascending order.
6 C- The array IMAP contains ordered list of pointers
8 C- Inputs : X - Floating point array
9 C- NCH - Number of elements in X
10 C- Outputs : IMAP - pointer to ordered list in X
13 C- Created 3-OCT-1988 Rajendran Raja
14 C- Based on the Algorithm of D.L.Shell, High speed sorting
15 C- procedure , Communications of the ACM, Vol 2, July 1959, PP 30-32
16 C----------------------------------------------------------------------
17 #if defined(CERNLIB_IMPNONE)
22 INTEGER IMAP(*),NCH,M,I,J,K,IM,IT
23 C----------------------------------------------------------------------
31 IF(X(I).LE.X(IM))GO TO 40