pkg/tbtables/fitsio/fitssppb/fspcks.x


1
2
3
4
5
6
7
8
9
10
11

include "fitsio.h"

procedure fspcks(iunit,status)

int     iunit          
int     status          # o error status

begin

call ftpcks(iunit,status)
end