Initial commit

1 files changed, 20 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fsgcno.x b/pkg/tbtables/fitsio/fitssppb/fsgcno.x
new file mode 100644
index 00000000..a69e0ef1
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgcno.x
@@ -0,0 +1,20 @@
+include "fitsio.h"
+
+procedure fsgcno(iunit,exact,colnam,colnum,status)
+
+# determine the column number corresponding to an input column name.
+# this assumes that the first 16 characters uniquely define the name
+
+int     iunit           # i input file pointer
+bool    exact           # i require same case?
+char    colnam[SZ_FTTYPE]     # column name
+%       character fcolna*24
+int     colnum          # o column number
+int     status          # o error status
+
+begin
+
+call f77pak(colnam,fcolna,SZ_FTTYPE)
+
+call ftgcno(iunit,exact,fcolna,colnum,status)
+end