; docformat = 'rst'
;
; NAME:
;    genoidCloseObs
; PURPOSE:
;    Write the footer of a VOTable for Genoid, and close the file
;
;+
; :Description:
;    Write the footer of a VOTable for Genoid, and close the file
;
; :Categories:
;    Disk I/O, Genoidx
;
; :Params:
;    unit: in, required, type=long
;        The file unit to be closed
;
; :Author:
;    B.Carry (OCA)
;
; :History:
;    Change History::
;      Written in July 2013, B. Carry (IMCCE)
;      2017 Apr. - B. Carry (OCA) - Update to new Genoid XML format
;-
pro genoidCloseObs, unit
  COMPILE_OPT hidden, idl2

 ;--I-- Syntax Validation  ---------------------------------------------------------------------;
  if not keyword_set(unit) then begin
    message, /ioError, 'Syntax: genoidCloseObs, unit'
    return
  endif

 ;--II-- Write VOTable Footer  -----------------------------------------------------------------;
  printf, unit, '        </vot:TABLEDATA>'
  printf, unit, '      </vot:DATA>'
  printf, unit, '    </vot:TABLE>'
  printf, unit, '  </vot:RESOURCE>'
  printf, unit, '</vot:VOTABLE>'

 ;--III-- Close File & Free Logical Unit  -----------------------------------------------------;
  close, unit
  free_lun, unit

end