home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / GSDLNS.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  427 b   |  19 lines
  1.         SUBROUTINE GSDLNS(ILTYPE,ON1,OFF1,ON2,OFF2)
  2.         IMPLICIT NONE
  3. C
  4. C       Define Line Style
  5. C
  6.         REAL*4 ON1,OFF1,ON2,OFF2
  7.         INTEGER ILTYPE,INDEX
  8. C
  9.         INCLUDE DIGLIB$KOM:GCLTYP.PRM
  10. C
  11.         IF (ILTYPE .LT. 2 .OR. ILTYPE .GT. 4) RETURN
  12.         INDEX = ILTYPE-1
  13.         DIST(1,INDEX) = ON1
  14.         DIST(2,INDEX) = OFF1
  15.         DIST(3,INDEX) = ON2
  16.         DIST(4,INDEX) = OFF2
  17.         RETURN
  18.         END
  19.