UV tables column codes

#
UV tables column codes

    ! Column kind of the uv tables
    integer(kind=4), parameter :: code_type_r4 = 1 ! Real number
    integer(kind=4), parameter :: code_type_r8 = 2 ! Doubleprecision number
    !
    integer(kind=4), parameter :: code_follow   = -1 ! Column is a follower of the previous one
    integer(kind=4), parameter :: code_uvt_u    =  1 ! u
    integer(kind=4), parameter :: code_uvt_v    =  2 ! v
    integer(kind=4), parameter :: code_uvt_w    =  3 ! w
    integer(kind=4), parameter :: code_uvt_date =  4 ! Date
    integer(kind=4), parameter :: code_uvt_time =  5 ! Time
    integer(kind=4), parameter :: code_uvt_anti =  6 ! Antenna i
    integer(kind=4), parameter :: code_uvt_antj =  7 ! Antenna j
    integer(kind=4), parameter :: code_uvt_scan =  8 ! Scan number
    integer(kind=4), parameter :: code_uvt_topo =  9 ! Topocentric to System Doppler effect
    integer(kind=4), parameter :: code_uvt_loff = 10 ! Phase center offset
    integer(kind=4), parameter :: code_uvt_moff = 11 ! Phase center offset
    integer(kind=4), parameter :: code_uvt_xoff = 12 ! X Pointing Offset
    integer(kind=4), parameter :: code_uvt_yoff = 13 ! Y Pointing Offset
    integer(kind=4), parameter :: code_uvt_stok = 14 ! Polarization state
    integer(kind=4), parameter :: code_uvt_el   = 15 ! Elevation
    integer(kind=4), parameter :: code_uvt_ha   = 16 ! Hour angle
    integer(kind=4), parameter :: code_uvt_para = 17 ! Parallactic angle
    integer(kind=4), parameter :: code_uvt_int  = 18 ! Integration time
    integer(kind=4), parameter :: code_uvt_weig = 19 ! Weight column for SD
    integer(kind=4), parameter :: code_uvt_xofi = 20 ! Pointing error Ant I
    integer(kind=4), parameter :: code_uvt_yofi = 21 ! Pointing error Ant I
    integer(kind=4), parameter :: code_uvt_xofj = 22 ! Pointing error Ant J
    integer(kind=4), parameter :: code_uvt_yofj = 23 ! Pointing error Ant J
    integer(kind=4), parameter :: code_uvt_ra   = 24 ! RA of reference
    integer(kind=4), parameter :: code_uvt_dec  = 25 ! DEC of reference
    integer(kind=4), parameter :: code_uvt_if   = 26 ! VLA IF identification
    integer(kind=4), parameter :: code_uvt_tele = 27 ! Telescope pair ID
    integer(kind=4), parameter :: code_uvt_id   = 28 ! Any counter (e.g. source ID from UVFITS)
    integer(kind=4), parameter :: code_uvt_last = 28 ! Last uvt code
    ! currently up to code_uvt_last = 29 can fit in a single block