        SUBROUTINE GSLTYP(ITYPE)
        IMPLICIT NONE
C
C
        INCLUDE DIGLIB$KOM:GCLTYP.PRM
C
C       SET THE CURRENT LINE TYPE
C
        ILNTYP = ITYPE
        IF (ILNTYP .LE. 0 .OR. (ILNTYP .GT. 4)) ILNTYP = 1
        LINILT = .TRUE.
        RETURN
        END
