pro set_imgdir, dir_path
IF !VERSION.OS EQ 'vms' THEN BEGIN
  IF dir_path EQ 'fusion' THEN $
    DEFSYSV, '!imgdir', 'DATAVS5:[FUSION]' ELSE $
  IF dir_path EQ 'nrl' THEN $ 
    DEFSYSV, '!imgdir', 'DATAVS5:[LASCO.IMAGES.MV_NRL.NRL]' $
  ELSE DEFSYSV, '!imgdir', '[]'
ENDIF ELSE BEGIN
  IF dir_path EQ 'antoine' THEN $
    DEFSYSV, '!imgdir', '/home/minerva/antoine/work' ELSE $
  IF dir_path EQ 'c2' THEN $
    DEFSYSV, '!imgdir', '/home/minerva/c2' ELSE $
    DEFSYSV, '!imgdir', dir_path
ENDELSE
    print, !imgdir
  return
  end