1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include "fitsio.h"
procedure fsgcxd(iunit,colnum,frow,nrow,fbit,nbit,dvalue,status)
# read consecutive bits from 'X' or 'B' column as an unsigned integer
int iunit # i input file pointer
int colnum # i column number
int frow # i first row
int nrow # i number of rows
int fbit # i first bit
int nbit # i number of bits
double dvalue[ARB] # o double integer array
int status # o error status
begin
call ftgcxd(iunit,colnum,frow,nrow,fbit,nbit,dvalue,status)
end
|