function name, filename		;returns the name of the dataset
; created 8/4/96, csee

if strpos(filename,'Ir') ne -1 then goto,ir

d_read,filename,h0,p0
n=d_value(h0,18)

if n eq 'Image' then begin
 t=mtype(filename)
 case t of
  21: n = n + ', MRI'
  22: n = n + ', SLI'
  23: n = n + ', HRI'
 endcase 
endif

if n eq 'Visible' then begin
 t=mtype(filename)
 case t of
  16: n = n + ', DLVS'
  17: n = n + ', ULVS'
 endcase 
endif

goto,exit

ir:
d_irread,filename,h0,p0,g0
n=d_value(h0,18)

 if n eq 'Ir' then begin
 t=mtype(filename)
 case t of
  8: n = n + ', DLIS'
  9: n = n + ', ULIS'
  10: n = n + ', IR_comb'
  11: n = n + ', IR_long'
 endcase 
endif

exit:
return, n
end