; ----------------------------------------------------------------------
; Read in nsx.tbl if it exists.
; This file contains info on all NIRES image exposure files.
;

pro nsx_load_NLS, nsxout, NLS
  print, 'nsx_load_NLS not yet implemented'
end

;void nsx_load_NLS( char nsxout[], NLStype NLS[] )
;{
;/**/
;int kk;
;char line[300];
;char wrd[100];
;FILE *infu;
;/**/
;NLS[0].num=0; 
;sprintf(wrd,"%snsx.tbl",nsxout);
;if (FileExist(wrd)) {
;  infu = fopen_read(wrd);
;  kk=0;
;  while (fgetline(line,infu)) { 
;    if (line[0] != '|') {
;      substrcpy_terminate(line,108,111,NLS[kk].xtype,0);
;      substrcpy_terminate(line,113,132,wrd,0); wrd[clc(wrd)+1]='\0'; strcpy(NLS[kk].root,wrd);
;      NLS[kk].ra = cvalread0(line,36,44);
;      NLS[kk].dec= cvalread0(line,46,54);
;      NLS[kk].air= cvalread0(line,56,60);
;      NLS[kk].exp= cvalread0(line,83,88);
;      NLS[kk].EffTemp = cvalread0(line,140,148);
;      substrcpy_terminate(line,1,19,wrd,0);
;      NLS[kk].jd = misc_zulu_to_julian(wrd);
;      ++kk;
;      if (kk > MAXNLS-3) { printf("***error: too many entries in '%snsx.tbl' max is %d .\n",nsxout,MAXNLS); exit(1); }
;    }
;  }
;  fclose(infu);
;  NLS[0].num=kk;
;}
;return;
;}