Repatch (from linux) of OSX IRAF

1 files changed, 27 insertions, 0 deletions

diff --git a/noao/twodspec/multispec/setfitparams.x b/noao/twodspec/multispec/setfitparams.x
new file mode 100644
index 00000000..780572c3
--- /dev/null
+++ b/noao/twodspec/multispec/setfitparams.x
@@ -0,0 +1,27 @@
+include "ms.h"
+
+# SET_FITPARAMS -- Set the fitparams array from the spectra range array
+# and the parameters array.
+
+procedure set_fitparams (spectra, parameters, nspectra, nparams, fitparams)
+
+int	spectra[ARB]
+int	parameters[nparams]
+int	nspectra
+int	nparams
+int	fitparams[nspectra, nparams]
+
+int	i, j
+
+bool	is_in_range()
+
+begin
+	do i = 1, nspectra {
+	    do j = 1, nparams {
+	        if (is_in_range (spectra, i) && (parameters[j] == YES))
+		    fitparams[i, j] = YES
+		else
+		    fitparams[i, j] = NO
+	    }
+	}
+end