SUBROUTINE HCSGET( NAME, LL, SCALE, DSCRB, DEF )
C
C	This subroutine reads in the named file and return the
C	following information:
C
C	LL
C	SCALE
C	DSCRB
C	DEF
C
	INTEGER DSCRB(256), DEF(1)
C
	OPEN( UNIT= 2, NAME=NAME, TYPE='OLD', FORM='UNFORMATTED', READONLY )
	READ(10) LL, SCALE, ISAT, DSCRB
	READ(10) ( DEF(I), I=1,ISAT+1 )
	CALL CLOSE(10)
	RETURN
	END