c......................................................character operations
	integer FUNCTION string_length(string)
*
* $Log: string_length.f,v $
* Revision 1.1  1994/02/22 20:03:04  cdaq
* Initial revision
*
*
	character*(*) string
c
c			returns the declared length of the string
c
	string_length= LEN(string)
	RETURN
	end