C	COMPUTES NGRID=64*#X+#Y
	FUNCTION NGRID(IX,IY)
	COMMON NX,NY,KALX,MINY,IDUM
	DIMENSION KALX(8,8),MINY(8),IDUM(260)
	N=NY-1
	DO 50 I=1,N
	IF (IY-MINY(I))50,60,60
 50	CONTINUE
	I=NY
 60	N=NX-1
	DO 80 J=1,N
	IF(IX-KALX(I,J))80,90,90
 80	CONTINUE
	J=NX
 90	CONTINUE
S	TAD \I
S	CLL RTL;RTL;RTL
S	TAD \J
S	DCA \N
	NGRID=N
	RETURN
	END