pkg/tbtables/fitsio/fitssppb/fsgtcl.x


1
2
3
4
5
6
7
8
9
10
11
12

include "fitsio.h"

procedure fsgtcl(iunit,colnum,tcode,rpeat,wdth,status)

int     iunit,colnum,tcode,rpeat,wdth
int     status          # o error status

begin

call ftgtcl(iunit,colnum,tcode,rpeat,wdth,status)

end