	SUBROUTINE DSORT (DSPACE,INT,NDSINT)
C
C  BUBBLE SORTS DSPACE ARRAY FROM HIGH TO LOW
C
	DIMENSION DSPACE(100)
	INTEGER INT(100)
	N=NDSINT-1
100	NSWAP=0
	DO 300 K=1,N
	IF(DSPACE(K).GE.DSPACE(K+1))GO TO 300
	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=1
300	CONTINUE
	IF(NSWAP.NE.0)GO TO 100
	RETURN
	END
