SUBROUTINE IA0101(LUN,REC,NR,IER)
C
C
	LOGICAL*1 REC(1),SEN(1)
	DATA SEN/'A'/

	CALL ENI101(LUN,IER)
	IF(IER.NE.1) GO TO 900

	NR=6
	CALL IO101(LUN,SEN,1,REC,NR,IER)
	IF(IER.EQ.1) GO TO 1000

900	WRITE(6,905)
905	FORMAT(15X,'ERROR IN [IA0101]'/)

1000	RETURN
	END