pro azam_prep_hmi,hmi_datadir,afiles_dir=afiles_dir ; routine to generate the ASP-format a_* files needed for ; input to AZAM. This routine reads the FITS output from the ; HMI inversion, then prepares the needed a_files and writes them out ;INPUTS: hmi_datadir = path to directory containing HMI FITS inversion output ; ;KEYWORDS: afiles_dir = output directory for a_* files. If not ; set, files output to the present working ; directory ; common area for inversion results read in rdmerlinftis.pro common com_invertresults, $ fld, psi, azm, eta0, dmp, dop, bzero, b1mu, cen1, alpha, $ cct, chisq, occt, fld_er, psi_er, azm_er, $ cen1_er, alpha_er, xx, yy, slat, slong, $ yr, mnth, dy, hr, minit, sec, cdelt1, cdelt2,rconv outdir = './' if keyword_set(afiles_dir) then outdir = afiles_dir ; !!!check to see if directory exists, if not, create it!!! ; first read in the HMI inversion results print, 'in azam_prep_hmi, begin rdhmifits' rdhmifits,hmi_datadir ; generate the a_files print, 'in azam_prep_hmi, begin azam_hmi2afiles' azam_hmi2afiles,outdir return end