SUBROUTINE INDXFL(INDXS,LOCAT,FDB)
C+
C	SUBROUTINE INDXFL WILL FILL THE INDEXES VIRTUAL ARRAYS FROM
C	THE DICTIONARY RAF FILE.
C 
C	LOCAL VARIABLES
C		IER	- RETURN OF ERROR CODE FROM BLOCK READ ROUTINE
C		LETBLK	- BLOCK IN FILE WHICH CONTAINS INDEX FOR EACH LETTER
C		SIZE	- PART OF LOCAT CONTAINS # OF BLOCKS FOR EACH LETTER
C		START	- PART OF LOCAT CONTAINS START BLOCK FOR EACH LETTER
C		BUFFER	- BLOCK RETURNED FROM BLOCK READ
C 
C	SUBROUTINES REFERENCED
C		DABRD	- DIRECT ACCESS BLOCK READ
C 
C-
	PARAMETER (IBUFSZ=512)
	VIRTUAL INDXS(512,26)
	BYTE INDXS,FDB(128),BUFFER(IBUFSZ)
	INTEGER START,SIZE,IB
	INTEGER*4 LOCAT(2,26)
	EQUIVALENCE (IB,BUFFER(1))
	DATA START/1/SIZE/2/
C 
	DO 20,I=1,26
	LETBLK=LOCAT(START,I)-1
	CALL DABRD(FDB,BUFFER,IBUFSZ,LETBLK,NBT,IER)
	IF(IER.LT.0)WRITE(3,1000)IER
	DO 10,J=1,IBUFSZ
10	INDXS(J,I)=BUFFER(J)
20	CONTINUE
	RETURN
1000	FORMAT(' SPE - INDXFL ERR=',I6)
	END