From 9491825ddff7a294d1f49061bae7044e426aeb2e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= Date: Fri, 6 Nov 2015 05:38:49 +0100 Subject: Imported Upstream version 1.8.3 --- spectro/rspec.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) mode change 100644 => 100755 spectro/rspec.c (limited to 'spectro/rspec.c') diff --git a/spectro/rspec.c b/spectro/rspec.c old mode 100644 new mode 100755 index 49d725b..e0e0194 --- a/spectro/rspec.c +++ b/spectro/rspec.c @@ -43,6 +43,7 @@ #include "sa_config.h" #include "numsup.h" #endif /* !SALONEINSTLIB */ +#include "plot.h" #include "xspect.h" #include "insttypes.h" #include "conv.h" @@ -152,9 +153,6 @@ double rspec_raw2nm(rspec_inf *inf, double rix) { if (inf->nwlcal == 0) error("rspec_raw2nm: nwlcal == 0"); -// ~~~~9999 test fudge -// rix += 15; - /* Compute polinomial */ for (wl = inf->wlcal[inf->nwlcal-1], k = inf->nwlcal-2; k >= 0; k--) wl = wl * rix + inf->wlcal[k]; -- cgit v1.2.3