home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / GSXLCM.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  237 b   |  12 lines
  1.         REAL*4 FUNCTION GSXLCM()
  2.     IMPLICIT NONE
  3. C
  4. C       THIS FUNCTION RETURNS THE X AXIS LENGTH OF THE CURRENT DEVICE
  5. C       IN CENTIMETERS.
  6. C
  7.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  8. C
  9.         GSXLCM = XLENCM
  10.         RETURN
  11.         END
  12.