Repatch (from linux) of OSX IRAF

1 files changed, 20 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fsmnam.x b/pkg/tbtables/fitsio/fitssppb/fsmnam.x
new file mode 100644
index 00000000..8c7d4e82
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsmnam.x
@@ -0,0 +1,20 @@
+include "fitsio.h"
+
+procedure fsmnam(ounit,oldkey,newkey,status)
+
+# modify the name of a header keyword
+
+int     ounit           # i output file pointer
+char    oldkey[SZ_FKEYWORD]     # i keyword name
+%       character fokey*8
+char    newkey[SZ_FKEYWORD]     # i keyword name
+%       character fnkey*8
+int     status          # o error status
+
+begin
+
+call f77pak(oldkey,fokey,SZ_FKEYWORD)
+call f77pak(newkey,fnkey,SZ_FKEYWORD)
+
+call ftmnam(ounit,fokey,fnkey,status)
+end