; from nsx.c
; Return an empty NCP structure

function nsxng_ncptype

; NIRES Calibration Parameter for each echelle order.
  NCPstructure = { $
                 porda: 0, $
                 xoffa: 0.d,     $;         /* polynomial solution for lower edge. */
                 coefa: dblarr(9),              $ ;
                 pordb: 0, $
                 xoffb: 0.d,     $;         /* polynomial solution for upper edge. */
                 coefb: dblarr(9) $
                 }

  return, create_struct(name="NCP",NCPstructure)

end

;/* NIRES Calibration Parameter for each echelle order. */
;struct NCPstructure {
;  int    porda;
;  double xoffa;         /* polynomial solution for lower edge. */
;  double coefa[9];
;  int    pordb;
;  double xoffb;         /* polynomial solution for upper edge. */
;  double coefb[9];
;};
;typedef struct NCPstructure NCPtype;