	SUBROUTINE ZSORT(ZARRAY,NSYM)
C
C  BUBBLE SORTS ZARRAY ARRAY FROM HIGH TO LOW
C
	BYTE ZARRAY(10),ITEMP
	LOGICAL NSWAP
	IF (NSYM.EQ.1) RETURN
	N=NSYM-1
100	NSWAP = .false.
	DO 300 K=1,N
	  IF (ZARRAY(K).LT.ZARRAY(K+1)) THEN 
	    ITEMP=ZARRAY(K+1)
	    ZARRAY(K+1)=ZARRAY(K)
	    ZARRAY(K)=ITEMP
	    NSWAP = .true.
	  ENDIF
300	CONTINUE
	IF (NSWAP) GO TO 100
	RETURN
	END
