Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/numrc.f4
There are no other files named numrc.f4 in the archive.
	FUNCTION NUMRC(N,M)
C		CONVERTS 10 DIGITS OF ALPHA DATA TO NUMERIC
	DIMENSION NARAY(2)
	NARAY(1)=N
	NARAY(2)=M
	DECODE(10,100,NARAY)NUMRC
100	FORMAT(I10)
	RETURN
	END