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

procedure fsgtdm(iunit,colnum,maxdim,naxis,naxes,status)

# read the TDIMnnn keyword

int     iunit           # i input file pointer
int     colnum          # i column number
int     maxdim          # i maximum number of dimensions to return
int     naxis           # i number of axes
int     naxes[ARB]      # i dimension of each axis
int     status          # o error status

begin

call ftgtdm(iunit,colnum,maxdim,naxis,naxes,status)
end