Initial commit

1 files changed, 30 insertions, 0 deletions

diff --git a/sys/plio/plnewcopy.x b/sys/plio/plnewcopy.x
new file mode 100644
index 00000000..a429bc6e
--- /dev/null
+++ b/sys/plio/plnewcopy.x
@@ -0,0 +1,30 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<plset.h>
+include	<plio.h>
+
+# PL_NEWCOPY -- Create a new, empty mask with the same size and depth
+# attributes as the reference mask.
+
+pointer procedure pl_newcopy (old_pl)
+
+pointer	old_pl			#I mask descriptor
+
+pointer	new_pl
+int	naxes, depth
+long	axlen[PL_MAXDIM]
+pointer	pl_open()
+errchk	pl_open
+
+begin
+	new_pl = pl_open (NULL)
+
+	call pl_gsize (old_pl, naxes, axlen, depth)
+	call pl_ssize (new_pl, naxes, axlen, depth)
+
+	PL_PRIVATE1(new_pl) = PL_PRIVATE1(old_pl)
+	PL_PRIVATE2(new_pl) = PL_PRIVATE2(old_pl)
+	PL_MAXLINE(new_pl)  = PL_MAXLINE(old_pl)
+
+	return (new_pl)
+end