	SUBROUTINE ISORT (TTHETA,INT,NDSINT)
C
C  Bubble sorts TTHETA and INT array from low to high INT
C
	LOGICAL NSWAP
	DIMENSION TTHETA(100)
	INTEGER*2 INT(100)
100	NSWAP = .false.
	DO 300 K=1,NDSINT-1
	  IF (INT(K).LT.INT(K+1)) THEN
	    TEMP = TTHETA(K+1)
	    TTHETA(K+1) = TTHETA(K)
	    TTHETA(K) = TEMP
	    ITEMP = INT(K+1)
	    INT(K+1) = INT(K)
	    INT(K) = ITEMP
	    NSWAP = .true.
	  ENDIF
300	CONTINUE
	IF (NSWAP) GO TO 100
	RETURN
	END
