pro getdetname, fitsHeader, detname

      ; NAME:
      ;      pro getdetname.pro
      ;
      ; PURPOSE:
      ;      This program searches IDTL FITS headers for the
      ;      DETNAME keyword and returns its value in the string
      ;      detname.
      ;
      ; CALLING SEQUENCE:
      ;      IDL> detname = '' ; Declare an empty string to hold the result
      ;      IDL> getdetname, fitsHeader, detname
      ;
      ; INPUTS:
      ;      fitsHeader - A valid fits header.
      ;
      ; KEYWORD PARAMETERS:
      ;      none
      ;
      ;
      ; EXAMPLE
      ;
      ;     getdetname, fitsHeader, detname
      ;
      ;
      ; REFERENCE:
      ;
      ;
      ; MODIFICATION HISTORY:
      ;      Written by:
      ;      Modified:    B.J. Rauscher, IDTL, October 9, 2002
      ;                   Initial release
      ;-


      ;; Search the header for the keyword DETNAME
      a = strpos(fitsHeader, 'DETNAME')

      ;; Search for the line in which the match occurs at the first
      ;; char, index=0.
      for i=0, n_elements(a)-1 do begin
          if (a[i] eq 0) then begin

              ;; This command extracts the full substring starting
              ;; with the '=' character that ends the FITS keyword
              ;; field. The strtrim command trims off the leading and
              ;; trailing blanks.
              strlen = strpos(fitsHeader[i], '/') - strpos(fitsHeader[i], '=') - 2
              detname = strtrim(strmid(fitsHeader[i], strpos(fitsHeader[i], '=') + 1, strlen), 2)

              goto, done

          endif
      endfor

      done:

end