home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FGETSTR.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  418 b   |  16 lines
  1.       interface to function C_getstring[c](ibcol, 
  2.      + string[reference])
  3.       integer *2 C_getstring, ibcol
  4.       character *(*) string
  5.       end
  6.  
  7.       integer function getstring(ibcol, string)
  8.       character *(*) string
  9.       integer *2 C_getstring
  10.       l = len(string)
  11.       i = C_getstring(ibcol, string)
  12.       if (i .lt. l) string(i + 1 : l) = ' '
  13.       getstring = i
  14.       return
  15.       end
  16.