SUBROUTINE C2SET
	READ(1,1000)IA			!READ 1 DUMMY CARD
	RETURN
1000	FORMAT(1A)
	END