PRO PMTRAS_DBASE_PHOTOMETRY, dbsolution, photometry_mode
; Generates photometry-based display of PMTRAS database.
;
; 1-Aug-03		Initial version (ghurford@ssl.berkeley.edu)
;
; Create an array of structures to hold photometry data
nrp = N_ELEMENTS(dbsolution) 		; number of roll points in dbsolution
indat = {detections:	0,	$
		 id:		 	0,	$
		 intensity:		0,	$
		 sctime:		0L}
indat = REPLICATE(indat, nrp*10L)		; oversized array of structures to hold all star data
;
; Populate the indat structure, looping over roll points in dbsolution
m = 0L
FOR i = 0L, nrp-1 DO BEGIN
	nstar = dbsolution[i].starcount
	IF dbsolution[i].roll_quality GE 216 THEN BEGIN
		FOR n=0L, nstar-1 DO BEGIN
			indat[m].detections = dbsolution[i].stars[n].detections
			indat[m].id			= dbsolution[i].stars[n].id
			indat[m].intensity	= dbsolution[i].stars[n].intensity
			indat[m].sctime		= dbsolution[i].sctime
			m					= m + 1
		ENDFOR
	ENDIF
ENDFOR
npt	= m
indat = indat[0:npt-1]
;
; Make an ordered list of unique starIDs.
			ids 					= indat.id
			sorted_ids 				= ids(SORT(ids))
			hrnlist					= sorted_ids(UNIQ (sorted_ids))	; array of unique HRN values for this interval
			nstars					= N_ELEMENTS(hrnlist)			; number of unique stars for this interval
stop



PLOT, indat.id, indat.intensity, PSYM=1,SYMSIZE=0.5, XRANGE=[0,500], YLOG=1
RETURN
ENDtime, dbsolution[n].est_error*1000., dbsolution[n].roll_quality, $