V10/cmd/pfort/SORT.f

      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