Repatch (from linux) of OSX IRAF

1 files changed, 29 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fspcls.x b/pkg/tbtables/fitsio/fitssppb/fspcls.x
new file mode 100644
index 00000000..2d4f4a56
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fspcls.x
@@ -0,0 +1,29 @@
+include "fitsio.h"
+
+procedure fspcls(ounit,colnum,frow,felem,nelem,sray,dim1,status)
+
+# write an array of character string values to the  specified column of
+# the table.
+# The binary or ASCII table column being written to must have datatype 'A'
+
+int     ounit           # i output file pointer
+int     colnum          # i column number
+int     frow            # i first row
+int     felem           # i first element in row
+int     nelem           # i number of elements
+char    sray[dim1,ARB]       # i array of strings
+int     dim1            # i size of 1st dimension of 2D character string array
+%       character*256 fsray
+int     status          # o error status
+int	i
+int	elem
+
+begin
+
+elem=felem
+do i=1,nelem            {
+  call f77pak(sray(1,i),fsray,dim1)
+  call ftpcls(ounit,colnum,frow,elem,1,fsray,status)
+  elem=elem+1
+}
+end