SUBROUTINE CUTGET
	PARAMETER	ISIZA=24
	COMMON /SCRAT/ IA(8) ,IC(10),A(ISIZA)
	CALL ASSSAV
	READ(4,*,ERR=9000,END=9000)IRUN,ICUTS,IHIST
	IF( ICUTS .LE. 0) GO TO 70
	DO 50 I = 1,ICUTS,ISIZA
	MAX	= ICUTS - I + 1
	IF(MAX .GT. ISIZA)MAX	= ISIZA
	READ(4,*,ERR=200,END=200)(A(J),J	= 1,MAX)
	DO 50 J = 1,MAX
	ICT = I + J - 1
	IF(ICT .GT. ICUTS)GO TO 50
	CALL MARKA(ICT,0,A(J))
50	CONTINUE
70	IF( IHIST .LE. 0) GO TO 200
	DO 100 I = 1,IHIST
	READ(4,*,ERR=200,END=200)(IA(J),J=1,5)
	CALL SCALH2(IA(1),IA(2),IA(3),IA(4),IA(5))
100	CONTINUE
200	CONTINUE
	CALL CLOSE(4)
	WRITE(5,1002)IC
9000	RETURN
1002	FORMAT(' CUTS + HIST SCALES RESTORED FROM '10A2)
	END