first commit

Annie Hughes
1 parent dc84fd94
Showing 1 changed file with 60 additions and 0 deletions Show diff stats
src/idl/dustem_filter2name.pro
@@ -0,0 +1,60 @@
+FUNCTION dustem_filter2name,filter,help=help,restart=restart
+
+;+
+; NAME:
+;    dustem_filter2name
+; PURPOSE:
+;    Returns the instrument team's name for a given filter
+; CATEGORY:
+;    Dustem
+; CALLING SEQUENCE:
+;    filename=dustem_filter2name(filter[,/help][,/restart])
+; INPUTS:
+;    filter  = Filter name
+; OPTIONAL INPUT PARAMETERS:
+;    None
+; OUTPUTS:
+;    filename = file name
+; OPTIONAL OUTPUT PARAMETERS:
+;    None
+; ACCEPTED KEY-WORDS:
+;    help      = If set, print this help
+;    restart   = If set, (re-)initialise DustEMWrap  
+; COMMON BLOCKS:
+;    None
+; RESTRICTIONS:
+;    The DustEMWrap IDL code must be installed
+; PROCEDURE:
+;    None
+; EXAMPLES
+;    print,dustem_filter2name(['MIRI1'])
+; MODIFICATION HISTORY:
+;    Written by J.-Ph. Bernard
+;    see Evolution details on the DustEMWrap gitlab
+;    Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems.
+
+IF keyword_set(help) THEN BEGIN
+  doc_library,'dustem_filter2name'
+  fc='UNKNOWN'
+  goto,the_end
+ENDIF
+
+if keyword_set(restart) then dustem_init
+
+Nfilt=n_elements(filter)
+
+ind1=lonarr(Nfilt)
+FOR i=0L,Nfilt-1 DO BEGIN
+  ind=where(!dustem_instrument_description.filter EQ strtrim(filter(i),2),count)
+  IF count EQ 0 THEN BEGIN
+    message,'Filter: '+strtrim(filter(i),2)+' not found',/info
+  ENDIF
+  ind1(i)=ind(0)
+ENDFOR
+fc=!dustem_instrument_description(ind1).name
+
+the_end:
+
+RETURN,fc
+
+END