# File lib/results.com
# August 18, 1999
# Cross-correlation answers from XCSAO
common /answr/ zvel,cz,czerr,czr,xcrmax, tcent,thght,twdth,tvw,tarms,tsrms,
taa, tvshift,tsig1,tsig2,tpcent,tphght,tpwdth,
tnpfit,itmax,npmax,tschop,tachop, tscont,tconproc,toverlap
double zvel[MAXTEMPS] # True barycentric velocities per template
double cz[MAXTEMPS] # Cz for template correlations
double czerr[MAXTEMPS] # Cz error for template correlations
double czr[MAXTEMPS] # R-values for template correlations
double xcrmax # Cz for template with maximum R value
double tcent[MAXTEMPS] # Centers for template correlations
double thght[MAXTEMPS] # Fit heights for template correlations
double twdth[MAXTEMPS] # Peak width(pixel) for template correlations
double tvw[MAXTEMPS] # Peak width(velocity) for template correlations
double tarms[MAXTEMPS] # Antisymmetric rms for template correlations
double tsrms[MAXTEMPS] # Symmetric rms for template correlations
double taa[MAXTEMPS] # Pixels per log wavelength for each template
double tvshift[MAXTEMPS] # Velocity shift from successive guesses
double tsig1[MAXTEMPS] # Sigma of spectrum transforms
double tsig2[MAXTEMPS] # Sigma of template transforms
double tpcent[MAXTEMPS] # Measured centers for template correlations
double tphght[MAXTEMPS] # Measured heights for template correlations
double tpwdth[MAXTEMPS] # Measured widths for template correlations
int tnpfit[MAXTEMPS] # Number of points fit for each template
int itmax # Template with maximum R value
int npmax # Number of points fit for max R template
bool tschop[MAXTEMPS] # Emission line chopping per template
bool tachop[MAXTEMPS] # Absorption line chopping per template
bool tscont[MAXTEMPS] # Subtract continuum from template
int tconproc[MAXTEMPS] # Method for continuum removal
bool toverlap[MAXTEMPS] # Use overlapping spectrum region, not one set
common /answrq/ sig,sigerr,gam,gamerr,perdeg
double sig[MAXTEMPS]
double sigerr[MAXTEMPS]
double gam[MAXTEMPS]
double gamerr[MAXTEMPS]
real perdeg[MAXTEMPS]
# Parameters for error testing
common/errtest/ tczerr1, tczerr2, czerr1, czerr2
double tczerr1 # Error from peak counting
double tczerr2 # Error from peak width
double czerr1[MAXTEMPS] # Error from peak counting
double czerr2[MAXTEMPS] # Error from peak width
common/templ/ itr
int itr[MAXTEMPS] # Template indices sorted by R-value
# Mar 13 1995 Add TACHOP as a flag for absorption line chopping
# Jun 26 1995 Add TOVERLAP to bypass limiting wavelength parameters
# Jul 3 1995 Add TPHGHT to save measured height
# Apr 7 1997 Add ITR for template indices sorted by R-value
# Aug 18 1999 Change bool tdivcon to int tcontproc