d 	function jjlen( string ) !! << Non blank length
È c.		Returns the printing character length of a string
,c.
c.out.	JJLEN	The number of characters to the last printing char.
ôc.		For empty string JJLEN <= 1
Xc.in.	STRING	The string whose length is of interest.
¼c.		Character*(*) string
 C.
„C. -END.OF.INFO-
èC.
L	CHARACTER*(*) STRING
°C.
	DO 210 JJLEN=LEN(STRING),2,-1
x	  IF( STRING(JJLEN:JJLEN).GT.' ' ) GOTO 215
Ü210	CONTINUE
@215	CONTINUE
¤	RETURN
		end