PRO compile_dical

;;-----------------------------------------------------------------------------
;; PURPOSE:
;;	Compiles all of the routines needed by DICal if they have not already
;;	been compiled. This is needed because there are a bunch of files
;;	with subroutines, that are not automatically compiled whith the main
;;	routine.
;;
;; CALLING SEQUENCE:
;;	compile_dical
;;
;; REQUIRED INPUTS:
;;
;; OUTPUTS:
;;
;; OPTIONAL INPUT KEYWORDS:
;;
;; EXAMPLE:
;;      IDL> compile_dical
;;
;; PROCEDURES USED (i.e. called directly!):
;;
;; MODIFICATION HISTORY:
;;   2004-07-21  M. Desnoyer    Created
;;
;;-----------------------------------------------------------------------------

;; The list of files to compile
files = ['di_sqlquery', $
	'dical_bitweight', $
	'dical_darkframe', $
	'dical_decompress', $
	'dical_denoise', $
	'dical_desmear', $
	'dical_despike', $
	'dical_fillgaps', $
	'dical_fixbadpixs', $
	'dical_flaggaps', $
	'dical_flagsat', $
	'dical_flatfield', $
	'dical_geom', $
	'dical_ir', $
	'dical_lineardn', $
	'dical_mtf', $
	'dical_vis', $
	'dicalvis_dntoradif', $
	'dicalir_dntorad', $
	'getbiascols', $
	'getlocfn', $
	'getpocrows', $
	'getsqlserver', $
	'getirspectralmap', $
	'dical_radtoif', $
	'dical_insertcalkeywords' $
]

n = (size(files,/dimensions))[0]

!QUIET = 1
FOR i=0, n-1 DO $
	resolve_routine, files[i], /compile_full_file, /either, /no_recompile
!QUIET = 0

END