	SUBROUTINE DSORT (DSPACE,INT,NDSINT)
C
C  BUBBLE SORTS DSPACE ARRAY FROM HIGH TO LOW
C
	LOGICAL NSWAP
	DIMENSION DSPACE(100)
	INTEGER*2 INT(100)
	N=NDSINT-1
100	NSWAP = .false.
	DO 300 K=1,N
	  IF(DSPACE(K).LT.DSPACE(K+1)) THEN 
	    TEMP=DSPACE(K+1)
	    DSPACE(K+1)=DSPACE(K)
	    DSPACE(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
