Initial commit

1 files changed, 24 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fspsse.x b/pkg/tbtables/fitsio/fitssppb/fspsse.x
new file mode 100644
index 00000000..ffe42b34
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fspsse.x
@@ -0,0 +1,24 @@
+include "fitsio.h"
+
+procedure fspsse(iunit,group,naxis,naxes,fpixel,lpixel,array,status)
+
+# Write a subsection of real values to the primary array.
+# A subsection is defined to be any contiguous rectangular
+# array of pixels within the n-dimensional FITS data file.
+# Data conversion and scaling will be performed if necessary
+# (e.g, if the datatype of the FITS array is not the same
+# as the array being read).
+
+int     iunit           # i input file pointer
+int     group           # i group number
+int     naxis           # i number of axes
+int     naxes[ARB]      # i dimension of each axis
+int     fpixel[ARB]     # i first pixel
+int     lpixel[ARB]     # i last pixel
+real    array[ARB]      # i array of values
+int     status          # o error status
+
+begin
+
+call ftpsse(iunit,group,naxis,naxes,fpixel,lpixel,array,status)
+end