pro azam_init_hmi, hmi_datadir, data_directory=data_directory, $ azam_source_directory=azam_source_directory ; Initialize AZAM for Hinode ; INPUTS: ; hmi_datadir - directory containing HMI inversion FITS files ; KEYWORDS: ; data_directory - path to output directory for AZAM results ; default = current directory ; azam_source_directory - path to AZAM source code to be used here ; If directory not passed, use current working directory. if keyword_set(data_directory) then begin print,' using current directory to output AZAM results' cd, current = data_directory endif else begin data_directory = './' endelse ; For consistency, append directory path with '/'. if(strmid(data_directory, strlen(data_directory)-1, 1) ne '/') then begin data_directory = data_directory + '/' endif ; Prepend source to SSW path. path = './' if keyword_set(azam_source_directory) then begin ssw_path, azam_source_directory, /full_prepend path = azam_source_directory endif ; Prepend source to IDL path. ;path = azam_source_directory path_separator = path_sep(/search_path) !path = expand_path('+'+path) + path_separator + !path ; prepare the ASP-like a_* files for AZAM ; check to see if AZAM file exists in data_directory. If it does, ; then bypass the azam_prep_hinode and continue to the main part of ; azam azam_file = read_floats( data_directory+'AZAM', error ) if error ne 0 then begin azam_prep_hmi, hmi_datadir, afiles_dir = data_directory endif print,' in azam_init_hmi, completed azam_prep_hmi' ; run the AZAM code adapted for HMI data azam_hmi, data_directory, hmi_datadir end