Return to SSORT.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/SSORT.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE SSORT(EX, X, LX, Q, L, OFFSET)
                      2:       INTEGER EX, X(LX), Q(L), OFFSET
                      3:       EXTERNAL EX
                      4: C
                      5: C     ENTRIES SPACED 1 APART IN HASH TABLE
                      6: C     EX IS EXCHANGE ROUTINE--RETURNS<0 IF EXCHANGES ITEMS
                      7: C     RETURNS >=0 IF DOESN'T
                      8: C     L  IS NUMBER OF THINGS TO BE SORTED,  SPACING IS 1 HERE
                      9: C     START SHELL SORT
                     10: C
                     11:       M = 1
                     12:    10 IF (M.GE.L) GO TO 20
                     13:       M = M*2
                     14:       GO TO 10
                     15:    20 M = M/2
                     16:       IF (M.LT.1) RETURN
                     17:       K = L - M
                     18: C
                     19: C      IN PASS1 ARE SORTING SYMBOL TABLE
                     20: C      IN PASS 2 ARE SORTING LATTICE
                     21: C     OR COMMON BLOCK DEFS
                     22: C
                     23:       DO 50 J=1,K
                     24:         I = J
                     25:    30   IF (EX(I+M,I,X,LX,Q,L,OFFSET)) 40, 50, 50
                     26: C
                     27: C     BUBBLE SORT W/I SUBLIST
                     28: C
                     29:    40   I = I - M
                     30:         IF (I.GE.1) GO TO 30
                     31:    50 CONTINUE
                     32:       GO TO 20
                     33:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.