PDP-10 Archive: 70,6067/locate/qcjtri.for from tops10and20_integ_tools_v9

Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-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