Initial commit

1 files changed, 20 insertions, 0 deletions

diff --git a/noao/artdata/mkexamples/henear.cl b/noao/artdata/mkexamples/henear.cl
new file mode 100644
index 00000000..cec48b98
--- /dev/null
+++ b/noao/artdata/mkexamples/henear.cl
@@ -0,0 +1,20 @@
+# henear - Helium-Neon-Argon spectrum (uncalibrated)
+
+file	out, hdr
+
+out = s1
+hdr = "mkexamples$archdr.dat"
+
+for (k=1; k<=i; k+=1) {
+    mk1dspec (out, output="", ap=k, rv=0., z=no, ncols=512, naps=i,
+	wstart=4209.0+k, wend=7361.7+k, title="Helium-Neon-Argon Arc Example",
+	header="", continuum=0.5, slope=0., temperature=0.,
+	lines="mkexamples$henear2.dat", profile="gaussian", gfwhm=14,
+	comments=b1)
+}
+
+mkheader (out, hdr, append=no, verbose=no)
+
+mknoise (out, output="", ncols=512, nlines=512, title="", header="",
+    background=0., gain=1., rdnoise=10., poisson=yes, seed=j, cosrays="",
+    ncosrays=0, energy=30000., radius=0.5, ar=1., pa=0., comments=b1)