1 files changed, 29 insertions, 0 deletions
diff --git a/noao/astcat/src/agetcat/atrcsym.x b/noao/astcat/src/agetcat/atrcsym.x
new file mode 100644
index 00000000..268ea86b
--- /dev/null
+++ b/noao/astcat/src/agetcat/atrcsym.x
@@ -0,0 +1,29 @@
+include "../../lib/astrom.h"
+
+# AT_RCSYM -- Return the symbol for the specified field nymber.
+
+pointer procedure at_rcsym (at, fieldno)
+
+pointer	at		#I the astrometry package descriptor
+int	fieldno		#I the region whose symbol is to be locate
+
+pointer	sp, symname, st, sym
+pointer	at_statp(), stfind()
+
+begin
+	st = at_statp (at, RCST)
+	if (st == NULL)
+	    return (NULL)
+
+	call smark (sp)
+	call salloc (symname, SZ_FNAME, TY_CHAR)
+
+	call sprintf (Memc[symname], SZ_FNAME, "%s%d")
+	    call pargstr (DEF_RCST_ROOTNAME)
+	    call pargi (fieldno)
+	sym = stfind (st, Memc[symname])
+
+	call sfree (sp)
+
+	return (sym)
+end