	SUBROUTINE GSLTYP(ITYPE)
C
C
	LOGICAL*1 LINILT, LPOSND
	COMMON /GCLTYP/ ILNTYP, DLEFT, DIST(4,3), LINILT, LPOSND
C
C	SET THE CURRENT LINE TYPE
C
	ILNTYP = ITYPE
	IF (ILNTYP .LE. 0 .OR. (ILNTYP .GT. 4)) ILNTYP = 1
	LINILT = .TRUE.
	RETURN
	END
