Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50521/chainb.f4
There are 2 other files named chainb.f4 in the archive. Click here to see a list.
	SUBROUTINE CHAINB(X,Y)
	RETURN
	END