[GRASS-SVN] r72055 - grass/branches/releasebranch_7_4/imagery/i.atcorr

[svn_grass at osgeo.org]

Author: mmetz
Date: 2018-01-08 07:27:32 -0800 (Mon, 08 Jan 2018)
New Revision: 72055

Modified:
   grass/branches/releasebranch_7_4/imagery/i.atcorr/iwave.cpp
Log:
i.atcorr: fix loading spectral responses (#3469, backport trunk r72054)

Modified: grass/branches/releasebranch_7_4/imagery/i.atcorr/iwave.cpp
===================================================================
--- grass/branches/releasebranch_7_4/imagery/i.atcorr/iwave.cpp	2018-01-08 15:26:52 UTC (rev 72054)
+++ grass/branches/releasebranch_7_4/imagery/i.atcorr/iwave.cpp	2018-01-08 15:27:32 UTC (rev 72055)
@@ -7872,8 +7872,25 @@
 	else G_warning(_("Unsupported iwave value: %d"), iwave);
     }
 
+    /* set wlinf, wlsup */
+    ffu.wlinf = 0.25;
+    iinf = 0;
+    while (ffu.s[iinf] == 0) {
+	ffu.wlinf += 0.0025;
+	iinf++;
+    }
+
+    ffu.wlsup = 4.0;
+    isup = 1500;
+    while (ffu.s[isup] == 0) {
+	ffu.wlsup -= 0.0025;
+	isup--;
+    }
+
+#if 0
     iinf = (int)((ffu.wlinf - 0.25f) / 0.0025f + 1.5f) - 1;	/* remember indexing */
     isup = (int)((ffu.wlsup - 0.25f) / 0.0025f + 1.5f) - 1;	/*		   "         */
+#endif
 
     if(iwave == 1)	/* moved here to avoid unnecessary gotos */
     {