path: root/pkg/tbtables/fitsio/fitssppb/fsdhdu.x

include "fitsio.h"

procedure fsdhdu(iunit,hdutyp,status)

# delete the CHDU

int     iunit           # i input file pointer
int     hdutyp          # o type of the new CHDU
int     status          # o error status

begin

call ftdhdu(iunit,hdutyp,status)
end