Google
 

Trailing-Edge - PDP-10 Archives - tops10_integ_tools_v4_10jan-86 - 70,6067/locate/qcjtri.for
There is 1 other file named qcjtri.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