1 files changed, 140 insertions, 0 deletions
diff --git a/pkg/dataio/lib/addcards.x b/pkg/dataio/lib/addcards.x
new file mode 100644
index 00000000..42699380
--- /dev/null
+++ b/pkg/dataio/lib/addcards.x
@@ -0,0 +1,140 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+define	MAXLEN_STRVAL	65
+define	LEN_KEYWORD	8
+define	LEN_STRING	18
+
+# ADDCARD_R -- Format and append a FITS header card with a real
+# keyword value to the input string buffer.  
+
+procedure addcard_r (fd, keyword, value, comment, precision)
+
+int	fd			# File descriptor of input string buffer
+char	keyword[LEN_KEYWORD]	# FITS keyword
+real	value			# Value of FITS keyword
+char	comment[ARB]		# Comment string
+int	precision		# Number of decimal places output
+
+
+begin
+	call fprintf (fd, "%-8.8s= %20.*g  /  %-45.45s\n")
+	    call pargstr (keyword)
+	    call pargi (precision)
+	    call pargr (value)
+	    call pargstr (comment)
+end
+
+
+# ADDCARD_I -- Format and append a FITS header card with an integer
+# keyword value to the input string buffer.
+
+procedure addcard_i (fd, keyword, value, comment)
+
+int	fd			# File descriptor of input string buffer
+char	keyword[LEN_KEYWORD]	# FITS keyword
+int	value			# Value of FITS keyword
+char	comment[ARB]		# Comment string
+
+begin
+	call fprintf (fd, "%-8.8s= %20d  /  %-45.45s\n")
+	    call pargstr (keyword)
+	    call pargi (value)
+	    call pargstr (comment)
+end
+
+
+# ADDCARD_TIME -- Format and append a FITS header card to the input
+# file descriptor.  The value is input as a real number; it is output
+# in HH:MM:SS.S format with %h.  The procedure can be used for RA, DEC
+# and ST, UT and HA.
+
+procedure addcard_time (fd, keyword, value, comment)
+
+int	fd			# File descriptor
+char	keyword[LEN_KEYWORD]	# FITS keyword
+real	value			# Value of FITS keyword to be encoded
+char	comment[ARB]			# Comment string
+
+
+begin
+	call fprintf (fd, "%-8.8s= '%-18.1h'  /  %-45s\n")
+	    call pargstr (keyword)
+	    call pargr (value)
+	    call pargstr (comment)
+end
+
+
+# ADDCARD_ST -- Format and output a FITS header card to the input
+# file descriptor.  The value is output as a string with the given keyword.
+# If the string value is longer than 18 characters, it is output without
+# a comment.
+
+procedure addcard_st (fd, keyword, value, comment, length)
+
+int	fd			# File descriptor
+char	keyword[LEN_KEYWORD]	# FITS keyword
+char	value[SZ_LINE]		# String value of FITS keyword to be encoded
+char	comment[ARB]		# Comment string
+int	length			# Length of string value
+
+begin	
+	if (length <= LEN_STRING) {
+	    call fprintf (fd, "%-8.8s= '%-18.18s'  /  %-44s\n")
+	        call pargstr (keyword)
+	        call pargstr (value)
+	        call pargstr (comment)
+	} else  {
+	    length = min (length, MAXLEN_STRVAL)
+	    call fprintf (fd, "%-8.8s= '%*.*s'  /\n")
+		call pargstr (keyword)
+		call pargi (-length)
+		call pargi (length)
+		call pargstr (value)
+	}
+end
+
+
+# ADDCARD_B -- Format and output a FITS header card to the input file
+# descriptor.  The value is output as a boolean with the given keyword.
+# Unlike string parameters, booleans are not enclosed in quotes.
+
+procedure addcard_b (fd, keyword, value, comment)
+
+int	fd			# File descriptor
+char	keyword[LEN_KEYWORD]	# FITS keyword
+bool	value			# Boolean parameter (T/F)
+char	comment[ARB]		# Comment string
+char	truth
+
+begin
+	if (value)
+	    truth = 'T'
+	else
+	    truth = 'F'
+
+	call fprintf (fd, "%-8.8s= %20c  /  %-45.45s\n")
+	    call pargstr (keyword)
+	    call pargc (truth)
+	    call pargstr (comment)
+end
+
+
+# ADDCARD_D -- Format and append a FITS header card with a double
+# keyword value to the input string buffer.  
+
+procedure addcard_d (fd, keyword, value, comment, precision)
+
+int	fd			# File descriptor of input string buffer
+char	keyword[LEN_KEYWORD]	# FITS keyword
+double	value			# Value of FITS keyword
+char	comment[ARB]		# Comment string
+int	precision		# Number of decimal places output
+
+
+begin
+	call fprintf (fd, "%-8.8s= %20.*f  /  %-45.45s\n")
+	    call pargstr (keyword)
+	    call pargi (precision)
+	    call pargd (value)
+	    call pargstr (comment)
+end