1 files changed, 23 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fspsvc.x b/pkg/tbtables/fitsio/fitssppb/fspsvc.x
new file mode 100644
index 00000000..2c6ac3eb
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fspsvc.x
@@ -0,0 +1,23 @@
+include "fitsio.h"
+
+procedure fspsvc(keyrec,value,comm,status)
+
+# parse the header record to find value and comment strings
+
+char    keyrec[SZ_FCARD]     # i header keyword string
+%       character fkeyre*80
+char    value[SZ_FSTRVAL]      # o data value
+%       character fvalue*70
+char    comm[SZ_FCOMMENT]       # o keyword comment
+%       character fcomm*48
+int     status          # o error status
+
+begin
+
+call f77pak(keyrec,fkeyre,SZ_FCARD)
+
+call ftpsvc(fkeyre,fvalue,fcomm,status)
+
+call f77upk(fvalue ,value,SZ_FSTRVAL)
+call f77upk(fcomm  ,comm ,SZ_FCOMMENT)
+end