home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / GSWDTH.for < prev    next >
Encoding:
Text File  |  1991-05-22  |  372 b   |  18 lines
  1.     REAL FUNCTION GSWDTH(SIZE)
  2.         IMPLICIT NONE
  3.         REAL*4 TEMP,GSCHIT,GSCWID
  4. C
  5. C    This function returns the width in virtual coordinates of
  6. C    a character.  If SIZE=0 then the current character size is assumed.
  7. C
  8.     INCLUDE DIGLIB$KOM:GCCPAR.PRM
  9. C
  10.     EXTERNAL LEN
  11.     INTEGER LEN
  12. C
  13.     TEMP = SIZE*GSCHIT()
  14.     IF (TEMP .EQ. 0.0) TEMP = CSIZE
  15.     GSWDTH = GSCWID()*TEMP
  16.     RETURN
  17.     END
  18.