function lgstr(str)
c-----
c	function to find the length of a string
c	this will only be used with file system path names
c	thus the first blank 
c	indicates the end of the string
c-----
	implicit none
	character*(*) str
	integer*4 lgstr
	integer n, i
	n = len(str)
	lgstr = 1
	do 1000 i=n,1,-1
		lgstr = i
		if(str(i:i).ne.' ')goto 100
 1000	continue
  100   continue
        return
	end