1 files changed, 18 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fsgtcs.x b/pkg/tbtables/fitsio/fitssppb/fsgtcs.x
new file mode 100644
index 00000000..5ef0818e
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgtcs.x
@@ -0,0 +1,18 @@
+include "fitsio.h"
+
+procedure fsgtcs(iunit,xcol,ycol,xrval,yrval,xrpix,yrpix,xinc,yinc,
+           rot,coord,status)
+
+int     iunit,xcol,ycol
+double  xrval,yrval,xrpix,yrpix,xinc,yinc,rot
+char    coord[4]
+%       character fcoord*4
+int     status          # o error status
+
+begin
+
+call ftgtcs(iunit,xcol,ycol,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,
+            fcoord,status)
+call f77upk(fcoord,coord,4)
+
+end