        SUBROUTINE GSDLNS(ILTYPE,ON1,OFF1,ON2,OFF2)
        IMPLICIT NONE
C
C       Define Line Style
C
        REAL*4 ON1,OFF1,ON2,OFF2
        INTEGER ILTYPE,INDEX
C
        INCLUDE DIGLIB$KOM:GCLTYP.PRM
C
        IF (ILTYPE .LT. 2 .OR. ILTYPE .GT. 4) RETURN
        INDEX = ILTYPE-1
        DIST(1,INDEX) = ON1
        DIST(2,INDEX) = OFF1
        DIST(3,INDEX) = ON2
        DIST(4,INDEX) = OFF2
        RETURN
        END
