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

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.