SUBROUTINE TFIND(I,IX,IY,IUN)
C
C     * FIND OUT WHO SHOULD GET THE CREDIT IF SOME ONE RUNS INTO A TORPE
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
	COMMON /TORPES/ XHOM(8,15),YHOM(8,15),
	1      TLOCS(8,15,3),TDIR(8,15)
C
C
	DO 10001 I=1,8
C
C	IS IT A REGULAR TORPEDO?
C
	DO 10004 K=1,15
	IF (TDIR(I,K).LT.0.OR.TLOCS(I,K,3).NE.IUN) GOTO 10004
	KX=TLOCS(I,K,1)
	KY=TLOCS(I,K,2)
	IF (IX.NE.KX.OR.IY.NE.KY) GOTO 20000
10004	CONTINUE
C
C	IS IT A HOMER?
C
	DO 10013 K=1,15
	IF (LHOM(I,K).EQ.0) GOTO 10013
	KX=XHOM(I,K)
	KY=YHOM(I,K)
	IF (IUN.NE.HUNI(I,K).OR.IX.NE.KX.OR.IY.NE.KY) GOTO 20000
10013	CONTINUE
C
10001	CONTINUE
	I=0
C
20000	RETURN
	END