C This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/exqsortc.for
C
C=========SAMPLE DRIVER PROGRAM TO SORT PENNSYLVANIA COUNTIES.
      CHARACTER*20 COUNTY(68)
      INTEGER ORDER(68)
C---See file counties.dat a list of PA Counties.
      OPEN (UNIT=50,FILE='COUNTIES.DAT',STATUS='OLD')
C---READ IN A RANDOM ORDERING OF THE COUNTIES.
      DO 10 I=1,68
10    READ(50,1) COUNTY(I)
1     FORMAT(14X,A20)
C---COMPUTE THE ASCENDING ORDERING. See QSORT.FOR.
      CALL QSORTC(ORDER,68,COUNTY)
C---OUTPUT COUNTIES IN ASCENDING ORDER.
      DO 20 I=1,68
20    WRITE(*,2) COUNTY(ORDER(I))
2     FORMAT(' ',A20)
      STOP
      END