pro bsc_old_struct, FIT_2041_BSC = FIT_2041_BSC, $ BSC_RoadMap = BSC_RoadMap ;+ ; NAME: ; BSC_OLD_STRUCT ; PURPOSE: ; Define the following BSC specific database structures ; * FIT_2041_BSC_Rec ; ; CALLING SEQUENCE: ; BSC_OLD_STRUCT ; HISTORY: ; Created 3-Feb-94 by M.Morrison to store FIT_2041_BSC_Rec ;- FIT_2041_BSC = { FIT_2041_BSC_Rec, $ index_version : FIX('2041'x), $ ; ; z: FIX(0), $ ; 2- Atomic Number st$elem: BYTARR(16), $ ; 4- Element (string) chan: BYTE(0), $ ; 20- channel number ; 1 = Fe XXVI ; 2 = Fe XXV ; 3 = Ca XIX ; 4 = S XV st$spacecraft: BYTARR(3), $ ; 21- Identification of the spacecraft from ; which the data originated ; Valid Options are: ; SMM, P78, HIN, YOH (Yohkoh, Solar-A), ; Gnd (Ground testing) ; ;-------------------- Fitting Specific parameters -------------------- ; Fit_level: FIX(0), $ ; 24- Level of Fitting (0=No fit, 1=First guess) Fit_attempt: FIX(0), $ ; 26- Next highest level attempted (if fit_attempt gt fit_level, fittin Chi2: FLOAT(0), $ ; 28- Total Chi^2 NFree: FIX(0), $ ; 32- Number of degrees of freedom Nparams: FIX(0), $ ; 34- Number of parameters allowed to vary Num_iter: FIX(0), $ ; 36- Number of iterations Ncomp_req : FIX(1), $ ; 38- Number of components requested in fit (1 or 2) Ncomp_fit: FIX(0), $ ; 40- Number of components actually fit (1 or 2) Fit_model: FIX(0), $ ; 42- Fit model (0=no contraints or links) Fit_flags: INTARR(10), $ ; 44- Fit flags (e.g. fit_flag(i) = -1 ---> i'th parameter was not vari ; = 0 ---> i'th parameter was fit ; = j ---> i'th parameter was linked to Fit_range: INTARR(2,3)+(-1), $ ; 64- Fit range = indicies of wavelength ranges used in fit and chi2 ca ; (up to 3 ranges for each of 2 components) spare1: BYTARR(4), $ ; 76- Padding ; ;-------------------- Fitting parameters -------------------- ; Te6: FLOAT(0), $ ; 80- (1) Electron Temperature main component (MK) Td6: FLOAT(0), $ ; 84- (2) Doppler Temperature main component (MK) EM50: FLOAT(0), $ ; 88- (3) Emission measure of main component (cm-3) wshift: FLOAT(0), $ ; 92- (4) Source position wavelength shift (Ang) cnorm : FLOAT(1), $ ; 96- (5) Continuum normalization factor Te6_s: FLOAT(0), $ ;100- (6) Electron Temperature of 2nd component (MK) Td6_s: FLOAT(0), $ ;104- (7) Doppler Temperature of 2nd component (MK) EM50_s: FLOAT(0), $ ;108- (8) Emission measure of 2nd component (cm-3) Vel: FLOAT(0), $ ;112- (9) Velocity 2nd relative to 1st (km/s, negative is blueshift) spare2: FLOAT(0), $ ;116-(10) Reserved for future use ; ;-------------------- Uncertainties in Fitting parameters ------------- ; u_Te6: FLOAT(0), $ ;120- (1) Electron Temperature main component (MK) u_Td6: FLOAT(0), $ ;124- (2) Doppler Temperature main component (MK) u_EM50: FLOAT(0), $ ;128- (3) Emission measure of main component (cm-3) u_wshift: FLOAT(0), $ ;132- (4) Source position wavelength shift (Ang) u_cnorm : FLOAT(1), $ ;136- (5) Continuum normalization factor u_Te6_s: FLOAT(0), $ ;140- (6) Electron Temperature of 2nd component (MK) u_Td6_s: FLOAT(0), $ ;144- (7) Doppler Temperature of 2nd component (MK) u_EM50_s: FLOAT(0), $ ;148- (8) Emission measure of 2nd component (cm-3) u_Vel: FLOAT(0), $ ;152- (9) Velocity 2nd relative to 1st (km/s, negative is blue) spare3: FLOAT(0), $ ;156-(10) Reserved for future use ; ;-------------------- Spectral Calculation parameters ----------------- ; Ashift: FLOAT(0), $ ;160- Bulk wavelength shift of spectrum in atomic calculation (A) elem_num: FLOAT(0), $ ;164- Number of Abundance table used abun: FLOAT(0), $ ;168- Abundance used [N(Z)/N(H)] st$abun_info: BYTARR(32), $ ;172- Text describing abundance Utdoppw: FLOAT(0), $ ;204- User supplied Gaussian broadening (A) ioncal: BYTE(0), $ ;208- Number of ionization balance calculation atocal: BYTE(0), $ ;209- Number of atomic parameter file spare4: BYTARR(2), $ ;210- Pad to end on 4 byte boundary st$ion_info: BYTARR(32), $ ;212- Text describing ionization balance calculation st$ion_file: BYTARR(20), $ ;244- File containing ionization balance calculation st$ato_info: BYTARR(60), $ ;264- Text describing atomic data calculation st$ato_file: BYTARR(20), $ ;324- File containing atomic data parameters nocont: BYTE(0), $ ;344- 1 if No continuum calculation noline: BYTE(0), $ ;345- 1 if No line calculation ; spare: BYTARR(22) } ;346- Spare bytes BSC_RoadMap = { BSC_RoadMap_Rec, $ ; For a full description of the fields, ; look at the Index_Rec definition ByteSkip: LONG(0), $ ; 00- Offset in bytes from the beginning of ; of the data file for the beginning ; of the data set index structure. ; time: LONG(0), $ ; 04- Start time (millisec of day) day: FIX(0), $ ; 08- Start day (since 1-jan-1979) chan: BYTE(0), $ ; 10- Channel number spare1: BYTE(0), $ ; 11 -Padding byte actim: LONG(0), $ ; 12- Accumulation time in ms nBin: FIX(0), $ ; 16- Number of bins for selected channel ; spare2: BYTARR(2), $ ; 18 -Padding byte total_cnts: FLOAT(0), $ ; 20- Total counts in the selected channel for actim max_cps: FLOAT(0), $ ; 24- Maximum counts per second of limited counts from dp_sync for ; the channel DP_Flags: BYTE(0), $ ; 28- DP Flags received by BCS spare3: BYTARR(3), $ ; 29 -Padding byte ; length: FIX(0), $ ; 32- The number of points in the spectra. dataRecTypes: FIX(0), $ ; 34- Type of data the is included in the data portion spare: BYTARR(12) } ; 36- Spare bytes end