aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/fitsio/fitssppb/fspdef.x
diff options
context:
space:
mode:
Diffstat (limited to 'pkg/tbtables/fitsio/fitssppb/fspdef.x')
-rw-r--r--pkg/tbtables/fitsio/fitssppb/fspdef.x19
1 files changed, 19 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fspdef.x b/pkg/tbtables/fitsio/fitssppb/fspdef.x
new file mode 100644
index 00000000..f9368e99
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fspdef.x
@@ -0,0 +1,19 @@
+include "fitsio.h"
+
+procedure fspdef(ounit,bitpix,naxis,naxes,pcount,gcount,status)
+
+# Primary data DEFinition
+# define the structure of the primary data unit or an IMAGE extension
+
+int ounit # i output file pointer
+int bitpix # i bits per pixel
+int naxis # i number of axes
+int naxes[ARB] # i dimension of each axis
+int pcount # i number of group parame
+int gcount # i number of groups
+int status # o error status
+
+begin
+
+call ftpdef(ounit,bitpix,naxis,naxes,pcount,gcount,status)
+end