PRO db_search_raster_db


db_name = 'eis_raster_db'

dbhname = find_with_def(db_name+'.dbh', 'ZDBASE')
validFile = FILE_TEST( dbhname , /READ)
IF (validFile NE 1) THEN stop

dbopen, db_name, unavail = unavail
IF (unavail NE 0) THEN stop


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('author=John Rainnie')
; r = LONG Array [19]
; print,r
; 1           2           3           4           5           6           7
; 8           9          10          12          13          14          15
; 16          17         18          19          20


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('author=Matthew')
; r = LONG Array [1]
; print,r
; 11


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('date=10-Feb-2004')
; r = LONG Array [10]
; print,r
; 1,12,13,14,15,16,17,18,19,20

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('date>10-Feb-2005')
; r = LONG Array [10]
; print,r
; 2,3,4,5,6,7,8,9,10,11

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('acronym=QS3R')
; r = LONG Array [2]
; print,r
; 16 , 17

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('acronym=NRL_test')
; r = LONG Array [7]
; print,r
; 5, 6, 7, 8, 9, 10, 11

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('title=200')   ; Probably not much use! - Can actually use
; r = LONG Array [2]    ; individual raster database parameters.
; print,r
; 4, 10

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('wind_height<400')
; r = LONG Array [4]
; print,r
; 4, 10 , 15 , 19

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('wind_height>400')
; r = LONG Array [16]
; print,r
; 1,2,3,5,6,7,8,9,11,12,13,14,16,17,18,20

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r=dbfind('n_windows=6')
; r = LONG Array [8]
; print,r
; 4,6,7,8,9,11,12,13





END