	SUBROUTINE SEDILG
C CONDUCT DIALOG FOR SEARCH PROGRAM
C
C	CALLED BY:	SEARCH
C	CALLS:		SEELEM,SECODE,SESPAC
C	LIBRARY:	IPRMPT,RPRMPT,LINYND
C
	INCLUDE 'SEARCH.INC'
C REFERENCE FIGURE OF MERIT
	IPFOM = IPRMPT ('CUT OFF % FOR FOM',0,0,85)
C REQUIRED # OF ELEMENT HITS
	NEHITS = IPRMPT ('NUMBER OF ELEMENT HITS REQUIRED',0,0,1)
C CAMERA CONSTANT
	CAMCON = RPRMPT ('CAMERA CONSTANT',0.,0.,2.487)
	WRITE (ILUO,10)
10	FORMAT (' ENTER ELEMENTS AS FOLLOWS:'/
     *		'   SINGLE SYMBOLS ARE SEPARATED BY A BLANK'/
     *		'   AN ELEMENT RANGE IS DESIGNATED BY A DASH'/
     *		' EXAMPLE:  NA AL CL H-O ')
C SET UP BIT MAP FOR DETECTED ELEMENTS
	CALL SEELEM ('ELEMENTS DETECTED IN THIS COMPOUND',IELDET,
     *		.TRUE.)
C SET UP BIT MAP FOR EXCLUDED ELEMENTS
	CALL SEELEM ('ELEMENTS TO BE EXCLUDED',IELEXC,.FALSE.)
C SET UP BIT MAP FOR REQUIRED ELEMENTS
	CALL SEELEM ('ELEMENTS REQUIRED TO BE PRESENT',IELREQ,.FALSE.)
C SET FLAG FOR SEARCHING LIGHT ELEMENTS
	LNACM = LINYND('SEARCH OUTSIDE NA-CM RANGE','N')
C SET CODE FLAGS THAT MUST BE PRESENT
	CALL SECODE ('BE PRESENT',IPCODE)
C SET CODE FLAGS THAT MUST NOT BE PRESENT
	CALL SECODE ('NOT BE PRESENT',INCODE)
C READ THE RSPACES
	CALL SESPAC 
	RETURN
	END
