NDEX" BY L.BRUNS (DEC-10)
C

	IMPLICIT INTEGER (A-Z)

C	INCLUDE "FLX:FLXSY3.FLX"
$NOLIST
	INCLUDE "FLX:FLXSY3.FLX"
$LIST

	INTEGER*2 FLNDEX,SLEN,PLEN
	INTEGER*2 ISTRNG(1),IPATRN(1)
	BYTE      BSTRNG(100),BPATRN(100)

	EQUIVALENCE (BSTRNG(1),SSCRAT(1))
	EQUIVALENCE (BPATRN(1),SSCRAT(101))
	CALL CPYSTR (BSTRNG,ISTRNG)
	CALL CPYSTR (BPATRN,IPATRN)
	
	CALL STRUC (BSTRNG)
	CALL STRUC (BPATRN)

	SLEN = ISTRNG(1)
	PLEN = IPATRN(1)

	BSTRNG(SLEN+3) =0
	BPATRN(PLEN+3) = 0

	FLNDEX = INDEX