;+
; NAME:
;	smei_star_formatpnt
; PURPOSE:
;	Controls formatting of time series files
; CATEGORY:
;	camera/idl/star
; CALLING SEQUENCE:
	FUNCTION smei_star_formatpnt, get_titles=get_titles, get_format=get_format, get_timefmt=get_timefmt
; OUTPUTS:
;	/get_titles 		if set then return string of column titles that preceeds the numbers
;							in the time series files
;	/get_format 		if set then return the format string used to write the smei_star_fit
;							structures produced by href=smei_star_fit=
;	/get_timefmt		if set then return the format used to write the time of observation
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; PROCEDURE:
; MODIFICATION HISTORY:
;	AUG-2006, Paul Hick (UCSD/CASS)
;       NOV-2006, Jordan Vaughan (UCSD; jtvaugha@ucsd.edu)
;		Added gain column to PNT titles, formatc, and format
;	MAY-2007, Paul Hick (UCSD/CASS)
;		Modified to take changes in smei_star__define into
;		account (changed scalar fovxangle to 2-element
;		array fovangle; added dfovangle)
;	JUL-2007, Paul Hick (UCSD/CASS)
;		Modified to take changes in smei_star__define into
;		account
;	JAN-2008, Paul Hick (UCSD/CASS)
;		Fixed bug in format (star name has 12 chars, not 11)
;	FEB-2008, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;		Added X column (point source removed from skymap)
;-

timefmt = 'YYYY_DOY_hhmmss'

InitVar, get_timefmt, /key
IF get_timefmt THEN RETURN, timefmt 

titles  = [';'       ,'RA','dec'       ,'C',timefmt,				$
			'PSFangle','FOVXangle','FOVYangle','cosFOVX','cosFOVY', $
			'gain','close','Istd','Isky/Istd','Imdl/Istd','I/Istd',	$
			'BckCnst','BckRAslope','BckDecslope','nbkg','npsf', 	$
			'sigbkg','sigpsf','corr','dRA','dDec','dPSFangle',		$
			'dcosFOVX','dcosFOVY','widRA','widDec',' X','  ']
formatc = '(A1,11X,7X,A2,6X,A3,   3X,1X,A1,1X,A15,'					+ $
			'2X,A8,    1X,A9,      1X,A9,      3X,A7,    3X,A7,'	+ $
			'6X,A4,1X,A5,6X,8X,A4, 3X,A9,      3X,A9,      6X,A6,'	+ $
			'5X,A7,    2X,A10,      1X,A11,       1X,A4,1X,A4,'		+ $
			'8X,A6,  8X,A6,   4X,A4, 11X,A3, 10X,A4, 5X,A9, 6X,A8,' + $
			'6X,A8   , 9X,A5       , 8X,A6        ,  A2,  A2)'
format  = '(A12   , F9.4, F9.4,1X,A2,1X,I1,1X,A15,' 				+ $
			'F10.4,F10.4,F10.4,F10.4,F10.4,' 						+ $
			'F10.4,1X,A11, E12.4, E12.4,       E12.4,       E12.4,'	+ $
			'E12.4, E12.4, E12.4,   I5,   I5,'						+ $
			'E14.6,E14.6, F8.4, E14.6, E14.6, E14.6,E14.6,' 		+ $
			'E14.6   , E14.6       ,E14.6         , I2  , I2)'

InitVar, get_titles, /key
InitVar, get_format, /key

CASE 1 OF
get_format : RETURN, format
get_titles : RETURN, string(titles,format=formatc)
ENDCASE

END