; from nsx.c
; Return an empty WSC structure

function wsctype

; NIRES Calibration Parameter for each echelle order.
  WSCstructure = { $
                 order:0, $
                 xoff: 0.d, $   ; polynomial solution for wave = func(column)
                 coef: dblarr(4), $
                 orderinv: 0, $
                 xoffinv: 0.d, $ ;  polynomial solution for column = func(wave)
                 coefinv: dblarr(4) $
                 }

  return, WSCstructure

end

;/* Wavelength Scale Calibration for each echelle order. */
;struct WSCstructure {
;  int    order;
;  double xoff;          /* polynomial solution for wave = func(column) */
;  double coef[4];
;  int    orderinv;
;  double xoffinv;       /* polynomial solution for column = func(wave) */
;  double coefinv[4];
;};
;typedef struct WSCstructure WSCtype;