[Previous]
[Next]
Name:
F_GAUSSINT
Purpose:
Make a function call out of the procedure gaussint_funct
CALLS:
[Previous]
[Next]
color = fcolor(icolor)
input:
icolor - the linecolor index, i.e. 5 is yellow
Use with linecolors to select the appropriate value for
color if the device does not support colors.
common fcolor_ps, pscolor - used to communicate ps color state
with ps.pro
CALLS:
CALLED BY
CAL_SHER, FS_ARCHIVE_DRAW, QL_DAY_PLOT, SPEX_BACKGROUND [1], SPEX_BACKGROUND [2]
SPEX_COMMONS [2], SPEX_COMMONS [4], SPEX_FLASH [1], SPEX_FLASH [2]
SPEX_PROC [1], SPEX_PROC [2], SPEX_THISTORY [1], SPEX_THISTORY [2], TIMESTAMP
USERLABEL, VERT_LINE, countsmod_plot [1], countsmod_plot [2], rd_sxs_pha [1]
rd_sxs_pha [2], read_yohkoh_4_spex [1], read_yohkoh_4_spex [2], spec_plot [1]
spec_plot [2], spec_plot [3], spec_plot [4], spex_intervals [1]
spex_intervals [2], spex_spec_plot [1], spex_spec_plot [2], spex_spec_plot [3]
spex_spec_plot [4]
[Previous]
[Next]
NAME:
FCS
PURPOSE:
to provide GUI interface to FCS software
CATEGORY:
widgets
CALLING SEQUENCE:
FCS
CALLS: ***
CHKLOG [1], CHKLOG [2], CHKPOINT, CLEANPLOT [1], CLEANPLOT [2], CLEANPLOT [3]
CONCAT_DIR [1], CONCAT_DIR [2], CONCAT_DIR [3], DATATYPE [1], DATATYPE [2]
DATATYPE [3], FCS_EVENT, FCS_HELP, FDECOMP [1], FDECOMP [2], FDECOMP [3], FIT_SPEC
GET_UVSP, LOC_FILE [1], LOC_FILE [2], LOC_FILE [3], MKLOG, PLOTMAP, PLOTSPEC
RDFIS_SPEC, RUST, TVGRAB, TWIDGET, WIDG_TYPE, WOBJECT, WR_ASC, XDISPLAYFILE [1]
XDISPLAYFILE [2], XLOADCT [1], XLOADCT [2], XLOADCT [3], XMANAGER, XMENU [1]
XMENU [2], XREGISTERED, concat_dir [4], find_uvexp, fluxcon, get_wind, getfisblk
rdfis_img, rdmap, set_hard
CALLED BY:
SDAC
RESTRICTIONS:
needs X-windows
MODIFICATION HISTORY:
written March'92 by DMZ (ARC)
made UNIX compatible Jan'93 (DMZ)
[Previous]
[Next]
name: FCS_INTERP
purpose: linearly interpolate in_data to fit the out_template via the
in_template
category: lo-level, no user interaction
calling sequence: out_data = FCS_INTERP( in_data, in_template, out_template )
input parameters:
name type description returned by
in_data xxxARR input data to interpolate caller
in_template xxxARR
out_template xxxARR
optional inputs: NONE
output parameters:
name type description
out_data xxxARR in_data interpolated to out_template via in_template
optional outputs: NONE
called by:
calls to: INTERPOL, user's library
CALLS: ***
INTERPOL
CALLED BY:
GETFIS_1BLK
common blocks: NONE
side effects: NONE
restrictions: all arrays must be one-dimensional
in_template must overlap out_template
templates must be monotonic increasing
in_template must be LE out_template
N_ELEMENTS( in_data ) = N_ELEMENTS( in_template )
procedure: use INTERPOL, check in_data for drop outs
created: 25 JUL 90 by J D Hawley, Applied Physics Department,
Lockheed Missiles and Space Company, Inc.
modified: Nov'92 - renamed from INTERP2 by D .Zarro (ARC)
[Previous]
[Next]
NAME:
fcs_par
PURPOSE:
compute useful FCS detector parameters
CALLING SEQUENCE:
fcs_par,chan,add,disp,drock,darea,dref,dwave,xtemp=xtemp
INPUTS:
chan = FCS channel no.
add= FCS crystal address
OUTPUTS:
disp = detector dispersion (Ang/Address)
drock = rocking width (address units)
darea = detector area (cm^2)
dref = reflectivity (counts/photon)
dwave = line wavelength (A)
KEYWORDS:
xtemp = FCS xtal drive temperature [def = 17.5 C]
CALLS: ***
DERIV, EFAREA, INTERPOL, WLFCS, gextal
CALLED BY:
FTEMAP, fluxcal, temcal
PROCEDURE:
reads file CRYSTAL.DAT which must be defined as a logical CRYSTAL
MODIFICATION HISTORY:
Written Apr'92 by DMZ (ARC)
[Previous]
[Next]
NAME:
FCS_WINDOW
PURPOSE:
Compute FCS window Transmission as a function of wavelength.
CALLING SEQUENCE:
Result = FCS_WINDOW(ICHAN,WL)
Result = FCS_WINDOW(ICHAN,WL,S2)
INPUTS:
ICHAN = FCS channel number (values from 1 to 7).
WL = Vector of wavelengths (Ang)
OPTIONAL INPUT PARAMETERS:
S2 = 2 * sin( theta ) * cos( theta ) where theta is the Bragg angle.
OUTPUTS:
The function result is the transmission fraction (max value = 1.0)
OPTIONAL OUTPUT PARAMETERS:
None.
CALLS: ***
INTERPOL
CALLED BY:
EFAREA
COMMON BLOCKS:
None.
SIDE EFFECTS:
None.
RESTRICTIONS:
ICHAN must be a scalar.
PROCEDURE:
The total absorption coefficients of Henke are used for carbon,
polypropylene, and beryllium. The assumed window thicknesses in
microns are defined as a vector called "T_W" (first four values are
channels 1-4: polypropylene, and the last three values are channels
5-7: beryllium). The assumed thickness of carbon is defined as a
vector called T_C (microns) for channels 1-4. These values were
determined by using T_W and the assumed "effective" carbon thicknesses
used by J.W. Leibacher (which modelled the polypropylene and the carbon
as simply carbon of an effective thickness). This is a wavelength-
dependent assumption, thus the home position wavelengths have been
used to compute the actual amount of carbon.
The table below shows the correspondence between the JWL model and
that which is currently used. All the thicknesses are in microns.
Note that the JWL assumed value for channel 1 has been increased by
1 micron from the value determined from the "ST = [0.41" statement
(JWL assumed Thickness = ST/.225 = .41/.225 = 1.822 microns)
-----------------------------------------------------
Chan H.P. JWL Assumed Polyprop Derived
Wavelength Eff. C thickness Carbon
(Ang) thickness (fr Rapley) thickness
1 18.963 2.8222* 1.3000 2.2623
2 13.443 1.6889 1.3000 1.1865
3 9.1666 7.3778 10.000 3.8561
4 6.6488 6.1778 10.000 2.6441
-----------------------------------------------------
MODIFICATION HISTORY:
25-Feb-88, 1985, Written, J.R. Lemen, LPARL
[Previous]
[Next]
Name:
FGAUSSINT_FUNCT
Purpose:
Make a function call out of the procedure gaussint_funct
CALLS:
CALLED BY
GAUSSINTFIT
[Previous]
[Next]
Open file to get at the record header (exdp header is used as backup).
Return times for start time of each detector, or every logical record if /ALL
if set.
FILE : file name
HD : exp header
ALL : if set, return UTPLOT,/YOHKOH format string for start time
of every logical record else return the string values for
start time of each detector
UTSTART : return string of start times
CALLS:
[Previous]
[Next]
NAME:
FILEFLARES
PURPOSE:
Search the info in common FLRDIR to find the flares requested.
CATEGORY:
HXRBS
CALLING SEQUENCE:
FILEFLARES,Flarray,Count,List,List_back,List_mem,List_auto
INPUTS:
Flarray: Array of requested flares.
Count: Number of requested flares.
List: Indices of files that contain the flare data
(also output).
List_back: Indices of files that contain the background for
the flares (also output).
List_mem: Indices of files that contain memory dumps for
the flares (also output).
List_auto: Indices of the AUTODCP summary files containing
the requested flares (also output).
OUTPUTS:
List: Indices of files that contain the flare data.
List_back: Indices of files that contain the background for
the flares.
List_mem: Indices of files that contain memory dumps for
the flares.
List_auto: Indices of the AUTODCP summary files containing
the requested flares.
CALLED BY:
FLARES
COMMON BLOCKS:
FLRDIR, AUTODIR
PROCEDURE:
FILEFLARES is called by FLARES - searches the info in common FLRDIR to
find the flares requested (which are passed in FLARRAY, #=COUNT) and
returns in LIST, LIST_BACK, and LIST_MEM the indices of the files
which contain the flare data, the background for the flares, or
memory dumps for the flares respectively. Returns the indices of
the AUTODCP summary files containing the requested flares in
LIST_AUTO. First element of these LIST arrays is already 0; we'll
concatenate to that and then not use the first element.
MODIFICATION HISTORY:
K.T. 11/14/89
Mod. 05/09/96 by RCJ. Added documentation.
[Previous]
[Next]
NAME:
find_uvexp
PURPOSE:
find UVSP expt nearest input time
CALLING SEQUENCE:
find_uvexp,ut
INPUTS:
ut = UT time
OUTPUTS:
expno = UVSP expt no. nearest UT
KEYWORDS:
info = informational messages
image : if set, find images only
CALLS: ***
ATIME [1], ATIME [2], UTIME [1], UTIME [2], anytim [1], anytim [2], anytim [3]
anytim [4], anytim [5], get_uvexp
CALLED BY:
FCS
MODIFICATION HISTORY:
written - DMZ (ARC) June'93
[Previous]
[Next]
NAME:
FLAG2ARRAY
PURPOSE:
Convert a 64 bit flag word to a byte array of 1's and 0's.
CATEGORY:
HXRBS
CALLING SEQUENCE:
FLAG2ARRAY,Flag,Array
INPUTS:
Flag: Double precision word containing 64 bit flag to convert
OUTPUTS:
Array: 64 element byte array with value of 1 when corresponding
bit in FLAG is on, otherwise 0. ARRAY(0) corresponds
to least significant bit in FLAG.
OPTIONAL OUTPUTS:
Onflags: Array containing elements of ARRAY that are 1.
MODIFICATION HISTORY:
Written by Kim Tolbert 03/15/94.
Mod. 05/08/96 by RCJ. Added documentation.
[Previous]
[Next]
NAME:
FLARES
PURPOSE:
Search the flare catalog on optical disk.
CATEGORY:
HXRBS
CALLING SEQUENCE:
FLARES
CALLS: ***
ATIME [1], ATIME [2], CHKLOG [1], CHKLOG [2], CONCAT_DIR [1], CONCAT_DIR [2]
CONCAT_DIR [3], FILEFLARES, FSELECT, HXRBS_FILETIMES, concat_dir [4]
INPUTS:
none explicit, only through commons
COMMON BLOCKS:
FLRDIR,AUTODIR.
PROCEDURE:
FLARES lets a user search the catalog of flares on optical disk by
flare number of time and lists the flare number, optical disk side,
file name, and start/end times of that file. Calls READ_FLRDIR to
read the FLARE catalog and READ_AUTODIR to read the AUTODCP Summary
file catalog, then calls either HXRBS_FILETIMES or FILEFLARES to search
either by flare numbers or times. Writes output on terminal and to
file ODFLARES.OUT in current directory.
MODIFICATION HISTORY:
K.T. 11/14/89
Mod. 3/15/91 by K.T. to add AUTODCP Summary file information.
Mod. 7/7/93 by KT to run under IDL Version 3. (from Version 1.)
Mod. 05/06/96 by RCJ. Added documentation. And made LIST* be
initialized in FILEFLARES.
version 5, ras, 21-mar-1997, changed filetimes to hxrbs_filetimes
[Previous]
[Next]
NAME:
fluxcal
PURPOSE:
calibrates FCS counts/sec to flux (photons s-1 cm-2) in a given
channel given an address and a characteristic
value for the Doppler broadening.
CALLING SEQUENCE:
fluxcal(rate,chan,add,flux,dopp=dopp,drift=drift,xtemp=xtemp)
INPUTS:
rate = scalar or vector of FCS counts per second.
chan = FCS channel no.
add= XTAL address of line
OUTPUTS:
flux = rate converted to flux
KEYWORDS:
dopp= total doppler width of line [def=100 km/s]
drift= address drift from line center of observation [def=0]
xtemp = XTAL bank temperature [def = 17]
/total: if set then input rate is assumed to be already integrated
and rate is simply converted using efficiency factor.
OUTPUTS:
flux= total line flux
CALLS: ***
fcs_par
PROCEDURE:
Assumes observed line profile can be approximated as a Voigt function
defined by a doppler and rocking width. The total count rate in the
line is derived from the integral of the Voigt function intensity
profile. Note that this profile sits on a "pedestal" background
that is dependent upon peak intensities in other FCS detectors.
The pedestal correction is not applied in this program.
MODIFICATION HISTORY:
Written by DMZ (ARC) December 1987
Simplified by DMZ (ARC) January 1990
Converted to version 2 (DMZ Mar'92)
[Previous]
[Next]
NAME:
fluxcon
PURPOSE:
compute count rate to flux conversion factor for given FCS channel
CALLING SEQUENCE:
cfac=fluxcon(chan,add,disp,drock,darea,dref,xtemp=xtemp)
INPUTS:
chan = FCS channel no. (scalar)
add= FCS crystal address (array)
OUTPUTS:
cfac = conversion factor for each count rate in the corresponding
address array.
OPTIONAL OUTPUTS:
disp = dispersion (A/address)
darea = detector area (cm^2)
dref = reflectivity (counts/photon)
drock = rocking width (address FWHM)
(cfac = dref*darea)
KEYWORDS:
xtemp = FCS xtal drive temperature [def = 17.5 C]
CALLS: ***
DERIV, EFAREA, INTERPOL, WLFCS, gextal
CALLED BY:
FCS, RDFIS_SPEC
PROCEDURE:
reads file CRYSTAL.DAT which must be defined as a logical CRYSTAL
MODIFICATION HISTORY:
Written June'92 by DMZ (ARC)
[Previous]
[Next]
NAME:
FTEMAP
PURPOSE:
compute isothermal temperature and column emission measure
from ratios of FCS ion maps.
CALLING SEQUENCE:
ftemap,temp,emiss,flux1,flux2
INPUTS:
FCS FIS structures
OUTPUTS:
TEMP = raster array of electron temperatures (MK)
EMISS = raster array of column emission measures (10^28 cm-5)
OPTIONAL OUTPUTS:
FLUX1,FLUX2 = ion flux arrays used in computing ratios
CALLS: ***
BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], LAMDAD, NINT [1], NINT [2], PLOTMAP
RDFCS, RUST, STDEV, STREP [1], STREP [2], STREP [3], STREP [4], STREP [5], binup
break_file [4], coreg, fcs_par, mewe, temcal
PROCEDURE:
User is prompted to enter 2 different FCS ion raster images from
a FIS file. Count rates in each image are converted to
fluxes (ph cm-2 s-1). The Mewe G(T)
functions (corrected for updated Meyer coronal abundances)
are obtained for each ion using the MEWE procedure. The ratio of
ion fluxes is interpolated in the corresponding ratio of G(T)
functions to deduce TEMP (isothermal temperature at each pixel)
and EMISS (corresponding column emission measure).
User is given options to change ion abundances; rebin data to
improve statistics; change the line Doppler width; set a threshold
above which to compute ratio; and save the results (fluxes, temps,
and emission measures as structures) in portable XDR IDL savesets
(called FTE files) for subsequent analysis at the home institution.
Finally, the resulting TEMP and EMISS are imaged using PLOTMAP.
MODIFICATION HISTORY:
written June 1990 (DMZ, ARC) - based on TEMPIX in IDL V1
modified to read FIS structures - DMZ (ARC) Jan'91
made UNIX compatible, Jan'93 (DMZ)
[Previous]
[Next]
FUNCTION: FUNCTION CRANGE, XYZ
PURPOSE: Return the plot range limits for the X,Y, or Z coordinate
e.g. !c.xrange depends on whether plot scale is linear or log
This returns the actual value of the range!
CALL: range = crange( XYZ )
where XYZ is a string specifying the range of interest.
RAS, 1/6/93
CALLS: