Google
 
Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/locate/qcjtrim.for
There are 3 other files named qcjtrim.for in the archive. Click here to see a list.
	INTEGER*4 FUNCTION qcj_trim(string)
C
C	    Purpose:	return length of trimmed string.
C
C	    Call Args:	input string
C
C	    Assumptions:
C
C	    Actions:	CALL STR$TRIM
C
	    IMPLICIT	INTEGER*4	(a-z)
	    CHARACTER*512	junk

	    CALL STR$TRIM(junk,string,qcj_trim)
	RETURN
	END