SUBROUTINE PCARD
1	READ(1,1000,END=500)A,ITYPE,FLO,FHI
	CALL PLIM(A,ITYPE,FLO,FHI)
	GO TO 1
500	CALL CLOSE(1)		!END THE INPUT FILE
	RETURN
1000	FORMAT(A4,I7,2F10.0)
	END