Return to SORT.f CVS log

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

Annotation of researchv10no/cmd/pfort/SORT.f, revision 1.1

1.1     ! root        1:       SUBROUTINE SORT(IPT, L)
        !             2:       EXTERNAL EXCH
        !             3:       INTEGER HASH, PDSA, DSA
        !             4:       COMMON /CHASH/ LHASH, HASH(401)
        !             5:       COMMON /CTABL/ LDSA, PDSA, DSA(5000)
        !             6: C
        !             7: C     PUT ALL SUMBOL INDICES IN HASH TABLE TO SORT THEM
        !             8: C
        !             9:       L = 0
        !            10:       I = IPT
        !            11:    10 IF (I.EQ.0) GO TO 20
        !            12:       L = L + 1
        !            13:       HASH(L) = I
        !            14:       I = DSA(I+3)
        !            15:       GO TO 10
        !            16: C
        !            17: C     CALL SORT ROUTINE
        !            18: C     UPON RETURN HASH CONTAINS INDICES OF ALL SYMBOLS OR LABELS IN
        !            19: C     DSA IN LEXICOGRAPHIC ORDER
        !            20: C
        !            21:    20 CALL SSORT(EXCH, DSA, LDSA, HASH, L, 4)
        !            22:       RETURN
        !            23:       END

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