1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
include "fitsio.h"
procedure fsgbcl(iunit,colnum,ttype,tunit,dtype,rcount,
tscal,tzero,tnull,tdisp,status)
# Get information about a Binary table CoLumn
# returns the parameters which define the column
int iunit # i input file pointer
int colnum # i column number
char ttype[SZ_FTTYPE] # o column name
char tunit[SZ_FTUNIT] # o physical units of the column
char dtype[SZ_FTFORM] # o datatype code
int rcount # o repeat count for vector column
double tscal # o scaling factor
double tzero # o scaling zero point
int tnull # o integer used to represent null values
char tdisp[SZ_FTFORM] # o Fortran display format
int status # o error status
% character fttype*24, ftunit*24, ftdisp*16, fdtype*16
begin
call ftgbcl(iunit,colnum,fttype,ftunit,fdtype,rcount,
tscal,tzero,tnull,ftdisp,status)
call f77upk(fttype,ttype,SZ_FTTYPE)
call f77upk(ftunit,tunit,SZ_FTUNIT)
call f77upk(ftdisp,tdisp,SZ_FTFORM)
call f77upk(fdtype,dtype,SZ_FTFORM)
end
|
