1 files changed, 55 insertions, 0 deletions
diff --git a/noao/twodspec/longslit/lscombine/src/ichdr.x b/noao/twodspec/longslit/lscombine/src/ichdr.x
new file mode 100644
index 00000000..2d19c5bd
--- /dev/null
+++ b/noao/twodspec/longslit/lscombine/src/ichdr.x
@@ -0,0 +1,55 @@
+include	<imset.h>
+
+
+# IC_HDR -- Set output header.
+
+procedure ic_hdr (in, out, nimages)
+
+pointer	in[nimages]		#I Input images
+pointer	out[ARB]		#I Output images
+int	nimages			#I Number of images
+
+int	i, imgnfn()
+pointer	sp, key, str, list, imofnlu()
+
+begin
+	call smark (sp)
+	call salloc (key, SZ_LINE, TY_CHAR)
+	call salloc (str, SZ_FNAME, TY_CHAR)
+
+	# Set new PROCID.
+	call xt_procid (out)
+
+	# Set input PROCIDs.
+	if (nimages < 100) {
+	    list = imofnlu (out, "PROCID[0-9][0-9]")
+	    while (imgnfn (list, Memc[key], SZ_LINE) != EOF)
+		call imdelf (out, Memc[key])
+	    call imcfnl (list)
+	    do i = 1, nimages {
+		call sprintf (Memc[key], 8, "PROCID%02d")
+		    call pargi (i)
+		iferr (call imgstr (in[i], "PROCID", Memc[str], SZ_LINE)) {
+		    iferr (call imgstr (in[i], "OBSID", Memc[str], SZ_LINE))
+			Memc[str] = EOS
+		}
+		if (Memc[str] != EOS)
+		    call imastr (out, Memc[key], Memc[str])
+	    }
+
+	    # Set input image names.
+	    list = imofnlu (out, "IMCMB[0-9][0-9][0-9]")
+	    while (imgnfn (list, Memc[key], SZ_LINE) != EOF)
+		call imdelf (out, Memc[key])
+	    call imcfnl (list)
+	    do i = 1, nimages {
+		iferr (call imgstr (in[i], "ICFNAME", Memc[str], SZ_LINE))
+		    call imstats (in[i], IM_IMAGENAME, Memc[str], SZ_LINE)
+		call sprintf (Memc[key], SZ_LINE, "IMCMB%03d")
+		    call pargi (i)
+		call imastr (out, Memc[key], Memc[str])
+	    }
+	}
+
+	call sfree (sp)
+end