Aim: Write bad pixels array into a table.
The routine declaration is:
subroutine writeBadpix(bad_tab, xbad, ybad, yext, tbad, fbad, nbad)
! bad_tab : Handle to the output bad pixels table
! The columns should exist already
! xbad : array of RAWX coordinates
! ybad : array of RAWY coordinates
! yext : array of RAWY extensions (YEXTENT)
! tbad : array of bad pixel types (TYPE)
! fbad : array of bad pixel status (BADFLAG: uplinked, CCF or new)
! nbad : number of bad pixels
type(TableT), intent(in) :: bad_tab
integer(kind=int16), dimension(:), intent(in) :: xbad, ybad, yext, &
tbad, fbad
integer, intent(in) :: nbad