blob: a69e0ef15149b365822bc3931dac978eea2978dd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
|
