SUBROUTINE SORT1(XM,J)
	DIMENSION XM(16)
	DO 7 I=2,J
	I1=I-1
	IF(XM(I1)-XM(I))4,7,7
4	XK=XM(I)
	XM(I)=XM(I1)
	DO 5 L=2,I1
	IF(XK-XM(I-L))6,6,5
5	XM(I-L+1)=XM(I-L)
C	L=I
6	XM(I-L+1)=XK
7	CONTINUE
	RETURN
	END
$