integer function lenstr(string)
	character*(*) string
	integer val,min,max

	min=ichar('!')
	max=ichar('z')
	lenstr = len(string)
	val=ichar(string(lenstr:lenstr))
	do while(((val.lt.min).or.(val.gt.max)).and.(lenstr.gt.0))
		lenstr = lenstr - 1
		val=ichar(string(lenstr:lenstr))
	end do
	return
	end