pkg/tbtables/fitsio/fitssppb/fsdelt.x


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

include "fitsio.h"

procedure fsdelt(iunit,status)

# close and delete a FITS file that was previously opened with ftopen or ftinit

int     iunit           # i input file pointer
int     status          # o error status

begin

call ftdelt(iunit,status)
end