1 files changed, 40 insertions, 0 deletions
diff --git a/noao/onedspec/smw/smwsapid.x b/noao/onedspec/smw/smwsapid.x
new file mode 100644
index 00000000..1bdf30a8
--- /dev/null
+++ b/noao/onedspec/smw/smwsapid.x
@@ -0,0 +1,40 @@
+include	<smw.h>
+
+
+# SMW_SAPID -- Set aperture id.
+
+procedure smw_sapid (smw, index1, index2, apid)
+
+pointer	smw				#I SMW pointer
+int	index1				#I Spectrum index
+int	index2				#I Spectrum index
+char	apid[ARB]			#I Aperture id
+
+pointer	ptr
+bool	streq()
+errchk	malloc
+
+begin
+	switch (SMW_FORMAT(smw)) {
+	case SMW_ND:
+	    call strcpy (apid, Memc[SMW_APID(smw)], SZ_LINE)
+	case SMW_ES, SMW_MS:
+	    if (index1 < 0 || index1 > SMW_NSPEC(smw))
+		call error (1, "smw_sapid: index out of bounds")
+
+	    if (index1 == 0)
+		call strcpy (apid, Memc[SMW_APID(smw)], SZ_LINE)
+
+	    else {
+		ptr = Memi[SMW_APIDS(smw)+index1-1]
+		if (streq (apid, Memc[SMW_APID(smw)]))
+		    call mfree (ptr, TY_CHAR) 
+		else {
+		    if (ptr == NULL)
+			call malloc (ptr, SZ_LINE, TY_CHAR)
+		    call strcpy (apid, Memc[ptr], SZ_LINE)
+		}
+		Memi[SMW_APIDS(smw)+index1-1] = ptr
+	    }
+	}
+end