aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/fitsio/fitssppb/fsgdes.x
blob: c180304d6cc34c2bc9e0f3dcf51e3f44446581dc (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
include "fitsio.h"

procedure fsgdes(iunit,colnum,rownum,nelem,offset,status)

# read the descriptor values from a binary table.  This is only
# used for column which have TFORMn = 'P', i.e., for variable
# length arrays.

int     iunit           # i input file pointer
int     colnum          # i column number
int     rownum          # i row number
int     nelem           # o number of elements
int     offset          # o offset
int     status          # o error status

begin

call ftgdes(iunit,colnum,rownum,nelem,offset,status)
end