From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/tbtables/fitsio/ftgcno.f | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 pkg/tbtables/fitsio/ftgcno.f (limited to 'pkg/tbtables/fitsio/ftgcno.f') diff --git a/pkg/tbtables/fitsio/ftgcno.f b/pkg/tbtables/fitsio/ftgcno.f new file mode 100644 index 00000000..d5c9ca03 --- /dev/null +++ b/pkg/tbtables/fitsio/ftgcno.f @@ -0,0 +1,22 @@ +C-------------------------------------------------------------------------- + subroutine ftgcno(iunit,casesn,templt,colnum,status) + +C determine the column number corresponding to an input column name. +C This supports the * and ? wild cards in the input template. + +C iunit i Fortran i/o unit number +C casesn l true if an exact case match of the names is required +C templt c name of column as specified in a TTYPE keyword +C colnum i number of the column (first column = 1) +C (a value of 0 is returned if the column is not found) +C status i returned error status + +C modified by Wm Pence, HEASARC/GSFC, December 1994 + + integer iunit,colnum,status + character*(*) templt + logical casesn + character*8 dummy + + call ftgcnn(iunit,casesn,templt,dummy,colnum,status) + end -- cgit