SUBROUTINE	AM1GET(LUN,A,SCAL)
	COMMON	/SCRAT/IDVM(16),ISTAT(2)
	EXTERNAL	RDAM1
	CALL	CAMAC(LUN,RDAM1,IDVM,32,0,ISTAT)
	IF(ISTAT(1) .NE. 1) RETURN
	CALL	ADCONV(A,IDVM,SCAL,16)
	END