Return to SORT.f CVS log

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

researchv10 Norman

      SUBROUTINE SORT(IPT, L)
      EXTERNAL EXCH
      INTEGER HASH, PDSA, DSA
      COMMON /CHASH/ LHASH, HASH(401)
      COMMON /CTABL/ LDSA, PDSA, DSA(5000)
C
C     PUT ALL SUMBOL INDICES IN HASH TABLE TO SORT THEM
C
      L = 0
      I = IPT
   10 IF (I.EQ.0) GO TO 20
      L = L + 1
      HASH(L) = I
      I = DSA(I+3)
      GO TO 10
C
C     CALL SORT ROUTINE
C     UPON RETURN HASH CONTAINS INDICES OF ALL SYMBOLS OR LABELS IN
C     DSA IN LEXICOGRAPHIC ORDER
C
   20 CALL SSORT(EXCH, DSA, LDSA, HASH, L, 4)
      RETURN
      END

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