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