; feed this routine with the filepath and fileinfo
; it will find the reference period, if there to be found

pro SearchRef, FilePath, FileInfo, RefName

RefName = "missing"
StringN = 8 & FoundN = 0

SearchStr = strarr (StringN)
SearchStr = ['6089','1960-89','1960-1989','6190','1961-90','1961-1990','con','240']

RefStr = strarr (StringN)
RefStr = ['1960-89','1960-89','1960-89','1961-90','1961-90','1961-90','control','control']

Text = strarr(2) & Text[0] = FilePath & Text[1] = FileInfo

for XText = 0, 1 do begin
 if (FoundN EQ 0) then begin
  for XSearch = 0, (StringN-1) do begin
    if (strpos(Text[XText],SearchStr(XSearch)) NE -1) then begin
    	RefName = RefStr(XSearch)
    	FoundN = FoundN + 1
    endif
  endfor
 endif
endfor

if (FoundN NE 1) then begin
  RefName = "missing"
  
  InputInt = -1 
  while (RefName EQ "missing") do begin
   print, "  > Identify the reference period (-1=list): "
   read, InputInt
    
   if (InputInt EQ -1) then begin
     for XString = 0, 6, 3 do begin
       print, "  > ", XString, " : ", RefStr(XString), format='(a4,i2,a3,a)'
     endfor
   endif else begin
     if (InputInt LT 0 OR InputInt GT (StringN-1)) then begin
       print, "  > Try again."
     endif else begin
       RefName = RefStr (InputInt)
     endelse
   endelse
  endwhile
endif

end