function nrl2eit,nrlhdr ;+ ; NAME: ; NRL2EIT ; ; PURPOSE: ; To make a NRL formatted EIT FITS file compatible with EIT software. ; ; CATEGORY: ; FITS processing ; ; CALLING SEQUENCE: ; eithdr = nrl2eit(nrlhdr) ; ; INPUTS: NRL formatted FITS header ; ; KEYWORD PARAMETERS: none ; ; OUTPUTS: ; FITS header comptaible with EIT software. ; ; COMMON BLOCKS: none. ; ; SIDE EFFECTS: none. ; ; RESTRICTIONS: none. ; ; PROCEDURE: ; The only changes needed are to add new keywords to the ; header which already contains this info. The necessary info ; is grabbed out and re-written. ; ; MODIFICATION HISTORY: ; Written by: J. Newmark Date. Oct 08 1996 ; 2001.6.21, N.Rich - Fixed date_obs and object ; 2002.8.06 J. Newmark, fixed EXPTIME ; 2003.4.22, N.Rich - For MAP compatibility, Fixed date_obs AGAIN; ; added CDELT1,2 ; ;- eithdr = nrlhdr wave = fxpar(nrlhdr,'SECTOR') wave = fix(strmid(wave,0,3)) fxaddpar, eithdr,'WAVELNTH',wave date_obs = fxpar(nrlhdr,'DATE-OBS')+'t'+fxpar(nrlhdr,'TIME-OBS') fxaddpar, eithdr,'DATE_OBS',anytim2utc(date_obs,/ccsds) ;if eit_fxpar(eithdr,'NAXIS1') + eit_fxpar(eithdr,'NAXIS2') eq 2048 $ actual = eit_fxpar(eithdr,'NAXIS1') + eit_fxpar(eithdr,'NAXIS2') original = fxpar(nrlhdr,'R2COL') - fxpar(nrlhdr,'R1COL') $ +fxpar(nrlhdr,'R2ROW') - fxpar(nrlhdr,'R1ROW') IF original EQ 2046 $ then object = 'Full FOV' else object = 'Partial FOV' shrinkage = float(actual)/original cdelt = eit_pixsize() / shrinkage fxaddpar, eithdr,'CDELT1',cdelt fxaddpar, eithdr,'CDELT2',cdelt fxaddpar, eithdr,'OBJECT',object fxaddpar, eithdr,'COMMENT','SHUTTER CLOSE TIME = ' +$ strtrim(fxpar(nrlhdr,'EXP3'),2) + ' s' fxaddpar, eithdr,'comment','P1_X = ' + strtrim(fxpar(nrlhdr,'P1ROW'),2) fxaddpar, eithdr,'comment','P2_X = ' + strtrim(fxpar(nrlhdr,'P2ROW'),2) fxaddpar, eithdr,'comment','P1_Y = ' + strtrim(fxpar(nrlhdr,'P1COL'),2) fxaddpar, eithdr,'comment','P2_Y = ' + strtrim(fxpar(nrlhdr,'P2COL'),2) fxaddpar, eithdr,'HISTORY','Processed at NRL, header converted by NRL2EIT' return, eithdr end
Last revised: - Wed May 9 21:45:23 2007- F. Auchère