Repatch (from linux) of OSX IRAF

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/mwcs/mwfindsys.x b/sys/mwcs/mwfindsys.x
new file mode 100644
index 00000000..e997fc42
--- /dev/null
+++ b/sys/mwcs/mwfindsys.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"mwcs.h"
+
+# MW_FINDSYS -- Lookup the named world coordinate system and return a pointer
+# to the WCS descriptor, or NULL if the system is not defined.
+
+pointer procedure mw_findsys (mw, system)
+
+pointer	mw			#I pointer to MWCS descriptor
+char	system[ARB]		#I system to be looked up
+
+int	i
+pointer	wp
+bool	streq()
+
+begin
+	# Search the list of defined systems.
+	do i = 1, MI_NWCS(mw) {
+	    wp = MI_WCSP(mw,i)
+	    if (WCS_SYSTEM(wp) != NULL)
+		if (streq (S(mw,WCS_SYSTEM(wp)), system))
+		    return (wp)
+	}
+
+	# Not found.
+	return (NULL)
+end