	SUBROUTINE SPSCAL(X,NLOW,NHI)
C
C  TO SCALE A FILE TO MAX. 9000.
C  J.C. PHILLIPS, EMBL OUTSTATION, HAMBURG.
C		17/10/79
C
	DIMENSION X(1)
	FMAX=0.
	DO 1 I=NLOW,NHI
	IF(FMAX.LT.ABS(X(I))) FMAX=ABS(X(I))
1	CONTINUE
	SCALE=9000./FMAX
	DO 2 I=NLOW,NHI
	X(I)=SCALE*X(I)
2	CONTINUE
	RETURN
	END


