c_ ---------------------------------------------------------------------
c_ RCS lines preceded by "c_ "
c_ ---------------------------------------------------------------------
c_
c_ $Source: /www/html/ipsl/OCMIP/phase2/simulations/CFC/distrib/RCS/len_trim.f,v $
c_ $Revision: 1.1 $
c_ $Date: 1998/07/21 16:55:54 $   ;  $State: Exp $
c_ $Author: jomce $ ;  $Locker:  $
c_
c_ ---------------------------------------------------------------------
c_ $Log: len_trim.f,v $
c_ Revision 1.1  1998/07/21 16:55:54  jomce
c_ Initial revision
c_
c_ ---------------------------------------------------------------------
c_
	FUNCTION LEN_TRIM(STRING)

	CHARACTER*(*) STRING
	INTEGER*4 I 
	
	DO I=LEN(STRING),1,-1
		LEN_TRIM=I
		IF (STRING(I:I).NE.' ') RETURN
	END DO

	END