[Previous]
[Next]
CALLING SEQUENCE: Take_Away, entry
PURPOSE: Removes from the text table the text with index "entry"
CALLS:
CALLED BY
Overplot Texts, Texts_2D
[Previous]
[Next]
NAME:
TCFIT
PURPOSE:
Routine, called from FCALCHEK, to fit the frequencies corresponding
to the phase locks determined from an FCAL, for a single oscillator.
The fit is either a dual (broken) straight-line fit or a single line.
CATEGORY:
OVRO APC CALIBRATION
CALLING SEQUENCE:
TCfit,f,tc_old,tc_new,h_fit,tc_fit,minrms
INPUTS:
f the list of frequencies [MHz], every harmonic of 200 MHz,
that can be tuned by the oscillator in question
tc_old the tuning currents at each frequency listed in F, for
the NOMTUNE solution.
tc_new the tuning currents at each frequency listed in F, for
the currently found locks, with NaN for missing locks
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
h_fit the three harmonics for the updated solution. The first
and last are just the ends of the frequency range for
this oscillator, and the middle harmonic is the break
frequency.
tc_fit the corresponding tuning currents for the three harmonics
contained in H_FIT.
minrms the standard deviation for the difference betweent the
fit and the actual tuning currents
COMMENTS:
This routine works on a single oscillator at a time. Any missing
locks are filled in from the (possibly shifted) nominal tuning
solution before the fit is done. The fit is done by blindly trying
all possible break frequencies and selecting the one with the
smallest residuals.
CALLS: ***
LINFIT, MOMENT, NINT [1], NINT [2]
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 13-Mar-1999 by Dale E. Gary (adapted from earlier routine
by Jeongwoo Lee)
06-Apr-1999 DG
Adjust MINRMS to account for different width of locks for different
oscillators. Now an RMS of >1.0 signifies a bad fit.
22-May-2000 DG
Fixed deadly problem that occurred when only one good lock was found.
[Previous]
[Next]
NAME:
TCFIT2
PURPOSE:
Routine, called from FCALCHEK, to fit the frequencies corresponding
to the phase locks determined from an FCAL, for a single oscillator.
The fit is a degree-4 polynomial.
CATEGORY:
OVRO APC CALIBRATION
CALLING SEQUENCE:
TCfit2,f,tc_old,tc_new,tc_fit,sigma
INPUTS:
f the list of frequencies [MHz], every harmonic of 200 MHz,
that can be tuned by the oscillator in question
tc_old the tuning currents at each frequency listed in F, for
the NOMTUNE solution.
tc_new the tuning currents at each frequency listed in F, for
the currently found locks, with NaN for missing locks
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
tc_fit the 5 coefficients of the 4th-degree polynomial fit.
sigma the standard deviation returned by POLY_FIT
COMMENTS:
This routine works on a single oscillator at a time. Any missing
locks are filled in from the (possibly shifted) nominal tuning
solution before the fit is done.
CALLS: ***
MOMENT, POLY_FIT
CALLED BY:
FCALCHEK
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 13-Mar-1999 by Dale E. Gary (adapted from earlier routine
by Jeongwoo Lee)
06-Apr-1999 DG
Adjust MINRMS to account for different width of locks for different
oscillators. Now an RMS of >1.0 signifies a bad fit.
22-May-2000 DG
Fixed deadly problem that occurred when only one good lock was found.
14-Jan-2001 DG
Based on TCFIT, but completely rewritten for new FCAL scheme.
[Previous]
[Next]
NAME:
Texts_2D
CALLS:
[Previous]
[Next]
NAME:
TIME_IND
PURPOSE:
Recherche de l'indice correspondant a un temps donne dans un tableau de; temps
CATEGORY:
NRH 2D
CALLING SEQUENCE:
IND = TIME_IND(Time, val)
INPUTS:
TIME tableau de temps en ms
VAL Valeur du temps cherche en ms
OUTPUTS:
IND indice dans le tableau
ERREUR si IND= -1, Temps non trouve, ou TIME n'est pas un
tableau a 1 dimension
CALLED BY:
NRH2_PROJECTION, NRHR_CAL, READ_CENTER_POINT [1], READ_CENTER_POINT [2]
EXAMPLE:
data = MRDFITS('Fichier',1,Header)
temps = hms('10:30:50:80')
IND= TIME_IND(data.tempms,temps)
donne l'indice de l'image correspondant a 11h,30mn,50s,80 centieme)
data(ind).np est le tableau correspondant au prametre de STOKES I
data(ind).p est le tableau correspondant au prametre de STOKES V
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 21/10/97
Le 04/06/99 conversion des heures en entier(JB)
[Previous]
[Next]
NAME:
TIME_IND_NRH
PURPOSE:
Cette fonction determine le numero de la ligne contenant les donnees
correspondant a une heure donnee dans un fichier NRH
CATEGORY:
Traitement de fichiers NRH
CALLING SEQUENCE:
IND = TIME_IND_NRH, fichier, heure
INPUTS:
FICHIER Nom du fichier
HEURE Heure recherchee (chaine ASCII)
OUTPUTS:
IND Numero de la ligne
HEURE Retourne l'heure lue
CALLED BY:
CW_POS, CW_SCANSOURCE, GR_IMAGES, LEC_NRH1D, NRH2_PROJECT2D, NRH_ANIM, NRH_VISU_2D
PLOT_MAXPOS, RD_NRH2I, READ_NRH
PROCEDURE:
Cette fonction lit les heures successives contenues dans la colonne
TIME des fichiers NRH, jusqu'a trouver l'intervalle d'heure recherchee
Si l'heure cherchee n'est pas dans le fichier, un message d'erreur
est envoye et le numero de la ligne retourne = 0
CALLS: ***
FXBCLOSE [1], FXBCLOSE [2], FXBOPEN [1], FXBOPEN [2], FXBOPEN [3], FXBREAD [1]
FXBREAD [2], FXBREAD [3], FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2]
HEADFITS [3], HMS, MSH
EXAMPLE:
IND= TIME_IND_NRH( Str_fic.file, Str_visu.Hdem)
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 12/01/98
Le 03/11/98 Enleve HOURGLASS (JB)
[Previous]
[Next]
NAME:
TIME_LABEL
PURPOSE:
Make a time label array
CATEGORY:
CALLING SEQUENCE:
lbl = time_label(v, form)
INPUTS:
v = Array of values in seconds. in
form = Time date format string. in
KEYWORD PARAMETERS:
Keywords:
JD=jd Set Julian Day of reference date.
If not given the 1-Jan-2000 is used.
OUTPUTS:
lbl = String array of labels. out
CALLS: ***
DT_TM_MAK [1], DT_TM_MAK [2], DT_TM_MAK [3]
CALLED BY:
TIMEAXIS [1], TIMEAXIS [2], TIMEAXIS [3], XPRINT [1], XPRINT [3]
COMMON BLOCKS:
NOTES:
Notes: The input time array is really an array
of seconds from 0:00 on the reference date given
by JD=jd. If format string does not specify a
date output then JD=jd need not be given, it
defaults to 1-Jan-2000. When d$ is given in the
format string this just counts from day 1 up (to 31).
For a description of the time format string
see the routine dt_tm_mak.
MODIFICATION HISTORY:
R. Sterner. 18 Nov, 1988.
R. Sterner, 22 Feb, 1991 --- Converted to IDL V2.
R. Sterner, 26 Feb, 1991 --- Renamed from make_time_labels.pro
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
TIME_LABEL
PURPOSE:
Make a time label array
CATEGORY:
CALLING SEQUENCE:
lbl = time_label(v, form)
INPUTS:
v = Array of values in seconds. in
form = Time date format string. in
KEYWORD PARAMETERS:
Keywords:
JD=jd Set Julian Day of reference date.
If not given the current date is used.
OUTPUTS:
lbl = String array of labels. out
CALLS: ***
DT_TM_MAK [1], DT_TM_MAK [2], DT_TM_MAK [3]
CALLED BY:
TIMEAXIS [1], TIMEAXIS [2], TIMEAXIS [3], XPRINT [1], XPRINT [3]
COMMON BLOCKS:
NOTES:
Notes: The input time array is really an array
of seconds from 0:00 on the reference date given
by JD=jd. If format string does not specify a
date output then JD=jd need not be given, it
defaults to the current date.
For a description of the time format string
see the routine dt_tm_mak.
MODIFICATION HISTORY:
R. Sterner. 18 Nov, 1988.
R. Sterner, 22 Feb, 1991 --- Converted to IDL V2.
R. Sterner, 26 Feb, 1991 --- Renamed from make_time_labels.pro
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
TIMEAXIS
PURPOSE:
Plot a time axis.
CATEGORY:
CALLING SEQUENCE:
timeaxis, [t]
INPUTS:
t = optional array of seconds after midnight. in
KEYWORD PARAMETERS:
Keywords:
JD=jd Set Julian Day number of reference date.
FORM=f Set axis label format string, over-rides default.
do help,dt_tm_mak(/help) to get formats.
For multi-line labels use @ as line delimiter.
NTICKS=n Set approximate number of desired ticks (def=6).
TITLE=txt Time axis title (def=none).
TRANGE=[tmin,tmax] Set specified time range.
YVALUE=Y Y coordinate of time axis (def=bottom).
TICKLEN=t Set tick length as % of yrange (def=5).
/NOLABELS means suppress tick labels.
/NOYEAR drops year from automatically formatted labels.
Doesn't apply to user specified formats.
LABELOFFSET=off Set label Y offset as % yrange (def=0).
Allows label vertical position adjustment.
DY=d Set line spacing factor for multiline labels (def=1).
COLOR=c Axis color.
CHARSIZE=s Axis text size.
CHARTHICK=cth thickness of label text (def=1).
THICK=thk thickness of axes and ticks (def=1).
MAJOR=g Linestyle for an optional major tick grid.
MINOR=g2 Linestyle for an optional minor tick grid.
OUTPUTS:
CALLS: ***
GETWRD [1], GETWRD [2], JD2MDAYS, MAKEX [1], MAKEX [2], MAKEX [3], NWIN
TIME_LABEL [1], TIME_LABEL [2], TIME_LABEL [3], TNAXES [1], TNAXES [2], TNAXES [3]
VER, XPRINT [1], XPRINT [2], XPRINT [3], XPRINT [4], XPRINT [5]
CALLED BY:
Data Display, XPRINT [1], XPRINT [3], inspec_t
COMMON BLOCKS:
NOTES:
Notes: To use do the following:
plot, t, y, xstyle=4
timeaxis
If no arguments are given to TIMEAXIS then an
axis will be drawn based on the last plot, if any.
Try DY=1.5 for PS fonts.
MODIFICATION HISTORY:
R. Sterner, 25 Feb, 1991
R. Sterner, 26 Jun, 1991 --- made nticks=0 give default ticks.
R. Sterner, 18 Nov, 1991 --- allowed Log Y axes.
R. Sterner, 11 Dec, 1992 --- added /NOLABELS.
R. Sterner, 20 May, 1993 --- Made date labeling (jd2mdays).
Allowed CHARSIZE for SIZE.
Copyright (C) 1991, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
TIMEAXIS
PURPOSE:
Plot a time axis.
CATEGORY:
CALLING SEQUENCE:
timeaxis, [t]
INPUTS:
t = optional array of seconds after midnight. in
KEYWORD PARAMETERS:
Keywords:
JD=jd Set Julian Day number of reference dat.
FORM=f Set axis label format string, over-rides default.
do help,dt_tm_mak(/help) to get formats.
For multi-line labels use @ as line delimiter.
NTICKS=n Set approximate number of desired ticks (def=6).
TITLE=txt Time axis title (def=none).
TRANGE=[tmin,tmax] Set specified time range.
YVALUE=Y Y coordinate of time axis (def=bottom).
TICKLEN=t Set tick length as % of yrange (def=5).
LABELOFFSET=off Set label Y offset as % yrange (def=0).
Allows label vertical position adjustment.
DY=d Set line spacing factor for multiline labels (def=1).
COLOR=c Axis color.
SIZE=s Axis text size.
MAJOR=g Linestyle for an optional major tick grid.
MINOR=g2 Linestyle for an optional minor tick grid.
OUTPUTS:
CALLS: ***
GETWRD [1], GETWRD [2], JD2MDAYS, MAKEX [1], MAKEX [2], MAKEX [3], NWIN
TIME_LABEL [1], TIME_LABEL [2], TIME_LABEL [3], TNAXES [1], TNAXES [2], TNAXES [3]
VER, XPRINT [1], XPRINT [2], XPRINT [3], XPRINT [4], XPRINT [5]
CALLED BY:
Data Display, XPRINT [1], XPRINT [3], inspec_t
COMMON BLOCKS:
NOTES:
Notes: To use do the following:
plot, t, y, xstyle=4
timeaxis
If no arguments are given to TIMEAXIS then an
axis will be drawn based on the last plot, if any.
Try DY=1.5 for PS fonts.
MODIFICATION HISTORY:
R. Sterner, 25 Feb, 1991
R. Sterner, 26 Jun, 1991 --- made nticks=0 give default ticks.
Copyright (C) 1991, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
Titles Display
PURPOSE:
Changes title definitions, tick mark names, inteval
between ticks, number of tickmarks, style and
type of plot and plotting symbol.
CATEGORY:
User interface
CALLING SEQUENCE:
Titles_Display
SIDE EFFECTS
The value of some system variables are changed, dependent
on the option chosen.
Menus are used. On vt300 terminals, the
display is erased
[Previous]
[Next]
NAME:
TL_DECODE
PURPOSE:
Decodes the time/label field of a record (the first 12 words of
each record, and returns a TLFIELD structure
CATEGORY:
OVRO APC DATA-ANALYSIS
CALLING SEQUENCE:
tl_struct = tl_decode(tldata)
INPUTS:
tldata an intarr(12) containing the first 12 words of a record,
e.g. data(0:11), representing the time/label field
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
msec2str
OUTPUTS:
tl_struct an instance of a TLFIELD structure, filled in with the
values from the time/label field data in tldata
COMMENTS:
CALLS: ***
CVDOY, GET_TL_STRUCT, MSEC2STR, W2L
CALLED BY:
APCALCHEK, ARLOCPLOT, CREATE_INDEX, DECODE, DUMPREC, FCALCHEK, FCAL_UPDATE, FINDSEG
FIND_INDEX, GCALCHEK, GET_CYCLE, GET_SEGMENTS, LASTHREC, LIMCHEK, NEWSCAN, PCALCHEK
PKUPCHEK, PRINT_DATE, READ_MONITOR_SEG, SHOW_REGNS, SOLAID, TPANALYZE, TPCALCHEK2
TRUNCATE, UPDATE_TPRECS, WATCHER, WFSURVEY, WREGION, WRITE_DAILY, WRITE_TPSEG
WTESTPLOT, todays_targets
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 25-Sep-1997 by Dale Gary
26-Jan-1999 DG
Added DATE structure entry, which gives the date in a UTPLOT
friendly way.
29-Jan-1999 DG
Changed to call new routine GET_TL_STRUCT() to generate the structure
10-Mar-2003 DG
Try to handle undefined TLDATA gracefully by returning an empty structure
27-Sep-2005 DG
An unusually long file showed that record numbers need to be explicitly
interpreted as UINT.
[Previous]
[Next]
NAME:
TL_ENCODE
PURPOSE:
Encodes a time/label field of a record (the first 12 words of
each record), from a filled-in TLFIELD structure
CATEGORY:
OVRO APC DATA-GENERATION
CALLING SEQUENCE:
tldata = tl_encode(tl_struct)
INPUTS:
tl_struct an instance of a TLFIELD structure, filled in with the
values to place into a time/label field in tldata
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
tldata an intarr(12) to be written as the first 12 words of a record,
e.g. data(0:11), representing the time/label field
COMMENTS:
CALLS: ***
L2W
CALLED BY:
APCAL_ADD_27MANT [1], APCAL_ADD_27M_RL, APCAL_ADD_2MANT, APCAL_ADD_2M_RL
CREATE_INDEX, MAKE_APCAL, MAKE_APCAL2, MAKE_EPHEM, MAKE_TPCAL, MAKE_TPCAL2
TPCAL_ADD2M, UPDATE_TPRECS, WRITE_DAILY, WRITE_GAINREC
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 29-Jan-1999 by Dale Gary
[Previous]
[Next]
NAME:
TLSNOW
PURPOSE:
Function to return the system date and time as a Time/Label structure
CATEGORY:
OVRO APC TIME
CALLING SEQUENCE:
tls = tlsnow(segcode)
INPUTS:
segcode The segment code to write into the TLS.SEGMENTCODE entry,
to indicate what type of segment it is. E.g., to create
a TLS for a TPCAL segment, use TLS = tlsnow(!SEGM.TPCAL).
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
bin_date
OUTPUTS:
tls The Time/Label structure generated from the system time.
COMMENTS:
The record number (TLS.NREC) and scancode (TLS.SCANCODE) must be
filled in before using. For segments with multiple records, simply
use TLS multiple times, incrementing TLS.NRS each time.
CALLS: ***
BIN_DATE, DAYOFYR [1], GET_TL_STRUCT, dayofyr [2]
CALLED BY:
APCAL_ADD_27MANT [1], APCAL_ADD_27M_RL, APCAL_ADD_2MANT, APCAL_ADD_2M_RL
MAKE_APCAL, MAKE_APCAL2, MAKE_EPHEM, MAKE_TPCAL, MAKE_TPCAL2, WRITE_DAILY
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 23-Jul-2000 by Dale E. Gary
[Previous]
[Next]
16-Aug-2000 DG
Renamed PLOTERR (IDL version) to OVSA_PLOTERR, and copied to
OVSA tree, then changed PLOTERR calls to OVSA_PLOTERR, to avoid
conflict with SSW's PLOTERR.
CALLS:
[Previous]
[Next]
NAME:
TNAXES
PURPOSE:
Find nice time axis tics.
CATEGORY:
CALLING SEQUENCE:
tnaxes, xmn, xmx, nx, mjx1, mjx2, xinc, [mnx2, mnx2, xinc2]
INPUTS:
xmn, xmx = Axis min and max in sec. in
nx = Desired number of axis tics. in
KEYWORD PARAMETERS:
Keywords:
FORM=form returns a suggested format, suitable
for use in formatting time axis labels.
Ex: h$:m$:s$, h$:m$, d$
OUTPUTS:
mjx1 = first major tic position in sec. out
mjx2 = last major tic position in sec. out
xinc = Suggested major tic spacing in sec. out
mnx1 = first minor tic position in sec. out
mnx2 = last minor tic position in sec. out
xinc2 = suggested minor tic spacing in sec. out
CALLS: ***
INRANGE [1], INRANGE [2], INRANGE [3]
CALLED BY:
TIMEAXIS [1], TIMEAXIS [2], TIMEAXIS [3], XPRINT [1], XPRINT [3]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner. 18 Nov, 1988.
R. Sterner, 22 Feb, 1991 --- converted to IDL V2.
R. Sterner, 25 Feb, 1991 --- added minor ticks.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
TNAXES
PURPOSE:
Find nice time axis tics.
CATEGORY:
CALLING SEQUENCE:
tnaxes, xmn, xmx, nx, mjx1, mjx2, xinc, [mnx2, mnx2, xinc2]
INPUTS:
xmn, xmx = Axis min and max in sec. in
nx = Desired number of axis tics. in
KEYWORD PARAMETERS:
Keywords:
FORM=form returns a suggested format, suitable
for use in formatting time axis labels.
Ex: h$:m$:s$, h$:m$, d$
OUTPUTS:
mjx1 = first major tic position in sec. out
mjx2 = last major tic position in sec. out
xinc = Suggested major tic spacing in sec. out
mnx1 = first minor tic position in sec. out
mnx2 = last minor tic position in sec. out
xinc2 = suggested minor tic spacing in sec. out
CALLS: ***
INRANGE [1], INRANGE [2], INRANGE [3]
CALLED BY:
TIMEAXIS [1], TIMEAXIS [2], TIMEAXIS [3], XPRINT [1], XPRINT [3]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner. 18 Nov, 1988.
R. Sterner, 22 Feb, 1991 --- converted to IDL V2.
R. Sterner, 25 Feb, 1991 --- added minor ticks.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
Project : ovsa
Name : todays_targets
Purpose : Create a web page which includes the latest
FeXII EIT image overplotted with the active regions
named in the OVSA schedule. A table of observing
times, AR numbers and coordinates is also produced.
Category : OVSA web
Explanation : FTP latest EIT image and OVSA schedule and overplot
the pointings.
Syntax : IDL> todays_targets
CALLS: ***
ARCMIN2HEL, ARR2STR [1], Arr2Str [2], DATE_CODE, DECODE, DEFPARMS, EIT_PREP, GAMMA_CT
HEL2ARCMIN [1], HEL2ARCMIN [2], INDEX2MAP, LOADCT, PB0R, PLOT_MAP, RD_TEXT, ROT_XY
SIGRANGE [1], SIGRANGE [2], SOHOFILE2TIME, TL_DECODE, UTC2DOY, doy2date [1]
doy2date [2], draw_circle [1], draw_circle [2], draw_circle [3], read_eit
Examples :
Inputs :
Outputs : An html file called todays_targets.html
Keywords : None
History : Written 24-july-1999 ptg
Contact : ptg@bbso.njit.edu (Peter Gallagher, NJIT)
[Previous]
[Next]
NAME:
TOK_RD_DAILY
PURPOSE:
This procedure is for reading and daily averaged NoRP data.
CALLING SEQUENCE:
norp_rd_avg,st_day,ed_day,day,fiavg
norp_rd_avg,day_in,day,fiavg
INPUTS:
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
CALLS: ***
CONCAT2D, UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], file_list [1], file_list [2], rd_tfile [1], rd_tfile [2]
HISTORY:
[Previous]
[Next]
NAME:
TOP20
PURPOSE:
Plot an overview of data coverage for a file, so that flare
occurrences and data problems can be quickly identified.
CATEGORY:
OVRO APC DATA ANALYSIS
CALLING SEQUENCE:
top20[,filename][,hrec,erec | ,after=after][,outfile=outfile][,/debug][,/cmdfile]
INPUTS:
filename the name of the file containing PNTCAL data. If
omitted, the file DAILY.ARC in directory
!DEFAULTS.WORKDIR is assumed.
hrec the record number of the SOLAR scan header. Data
will be processed up to the next EOS segment.
If this argument is given, then AFTER keyword
is ignored.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
erec the record number of the end of the scan. This is
needed for the convenience of knowing how long the
arrays should be. If not included, the data are
limited to MAXLEN cycles.
after an optional time string of the standard form
[yyyy.ddd ]hh:mm[:ss] after which to start
looking for a valid PNTCAL or TEST DATA scan.
cmdfile a switch that indicates that the routine was called
from a command file, so issue no modal messages, and
print any error messages to <WORKDIR>\ACAL.MSG.
debug a switch that activates some debugging statements
for getting an indication of intermediate steps.
This switch is not compatible with /CMDFILE switch.
outfile a string that is returned, containing the name of the
output file that was written.
ROUTINES CALLED:
openarc, getdata, lasthrec, tl_decode, decode, acfit
OUTPUTS:
COMMENTS:
CALLS: ***
FILENAME2DATE, FLAGOOL, FREESCAN, GET_CYCLE, MSEC2STR, NEWSCAN, OPENARC, PROGMETER
REVERSE, SOL2TXT, STR_SEP
CALLED BY:
QUICKLOOK
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 07-Jan-1999 by Dale Gary
22-Jun-1999 DG
Changed to output the baseline 12 amplitude instead of total
power, and to save to an ASCII file with a standard name, to be
used as database info. The total power code exists, but has been
commented out for speed and to conserve disk space.
31-Jul-1999 DG
Fixed to continue past MONITOR and other interleaving segments
within a DATA segment.
27-Oct-1999 DG
Changed to write the .ASC output file name using the date rather
than the esoteric .ARC file name.
04-Dec-1999 DG
Changed to write the .ASC output file name using the time rather
than the record number.
04-Jun-2000 DG
Changes to write the .TXT file and free memory even when the data
are all bad (e.g. when one of the 27 m is not tracking.
[Previous]
[Next]
NAME:
TOPRINTER
PURPOSE:
General routine to print text to the printer.
CATEGORY:
OVRO APC UTILITY
CALLING SEQUENCE:
toprinter,text[,/fit | ,perpage=perpage][,/xcenter]
INPUTS:
text The string array of text to be printed
OPTIONAL (KEYWORD) INPUT PARAMETERS:
fit A keyword indicating that the font size should be
adjusted so that the entire text will fit on a
page. Maximum font size is 50 (in device units)
and minimum is 20, so text will only fit if it is
not too many lines (generally about 160 lines).
Setting this keyword overrides the PERPAGE keyword.
perpage A keyword giving the number of lines per page. This
adjusts the font size so that exactly PERPAGE lines
will fit. Maximum font size is 50 (in device units)
and minimum is 20, so specifying less than 53 lines
or more than about 160 lines will force the actual
number of lines to be 53 or 160, respectively.
xcenter A keyword that forces the text to be horizontally
centered on the page. If the text is too wide, the
left margin will default to 5 characters and the
long lines will extend off the page.
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
CALLS: ***
NINT [1], NINT [2]
CALLED BY:
WDIALOG_HISTORY, WDUMPREC, WLOKMAP
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 21-Aug-1998 by Dale E. Gary
26-Jul-1999 DG
Several changes to allow automatic choice of LANDSCAPE printing
if that is the most appropriate direction for the text to be
printed.
[Previous]
[Next]
NAME:
TP_FIT
PURPOSE:
To fit the spectral data with the functional form
'(exp(A) * x^alpha) * ( 1 - exp( -exp(B)*x^(beta) ) )'
CATEGORY:
CALLING SEQUENCE:
tp_fit,freq,flux [,frame=frame,lf=lf,uf=uf,title=title][,/noplot]
INPUTS:
freq: an array of spectral frequencies
flux: an array of the same dimension as freq
OUTPUTS: An array of structures containing the fit results for each fitted frequency range.
The meanings of each tag are as follows:
frame: the time index of the fit. If no frame keyword is provided, it is assumed to be 0.
All the structures returned by tp_fit after one call have the same frame number.
param: an array containig the fited parameters [A,alpha,B,beta]
band : the frequency band used to fit the data [lowfreq,highfreq]
range: the indexes of frequency band in the freq array [lowindex,highindex]
peakfreq: the fitted peak frequency. It may not be exactly one of the frequencies in the freq array.
peakflux: the fitted peak flux
perror:an arry of standard deviations corresponding to fitted parameters
conv:the goddness of fit probability
data_peakfreq: the frequency corresponding to the highest recorded data in the fitted range
data_peakflux: the highest recorded data in the fitted range
data_guess: the initial guess parameters. They are based on data and are returned even if the fit fails.
COMMENTS: If the fitting algorithm fails to converge for any reason, the returned structure is filled with NANs except
for the data based estimations.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
noplot a switch that turns off plotting of the fitted spectrum
title: the title to be displayed on the plot
frame: the time index of the fitted frame. It has to correspond to the index of the corresponding time in the
lf: an array containing the low frequency edges of each range to be fitted
uf: an array containing the high frequency edges of each range to be fitted
COMMENTS: These two arrays must have the same dimension and must be provided together in order
to force some predefined fit ranges. Otherwise, the other input parameters, if any,
are ignored and range_detector is called in order to find the ranges to be fitted using an algorithm
based on the intrinsec data fluctuations.
CALLED BY:
OVSA_EXPLORER formerly OVSA_PRESUB
EXAMPLE:tp_fit,freq,flux,lf=[1.0,3.0],uf=[2.5,18.0] is supossed to return an array of two structures containing
the fit results for [1.0,2.5]GHz and [3.0,18.0]GHz frequency ranges
ROUTINES CALLED:
range_detector
CALLS: ***
LINFIT, MPFITEXPR, RANGE_DETECTOR, SPFIT, SPFIT2, TEST_FIT, XSQ_TEST
SIDE EFFECTS: The rotine plot the data and fit results on a log-log scale in the previously selected window,
or in a new one if no window is active.
RESTRICTIONS: BEFORE CALLING TP_FIT THE NAN DATA POINTS MUST BE DISCARDED, FREQ AND FLUX ARRAYS HAVING THE SAME
DIMENSION, NOT LESS THAN 4 DATA POINTS.
MODIFICATION HISTORY:
Written 14-Aug-2002 by Gelu M. Nita (gn2@njit.edu)
13-April-2003 GN
Cosmetic changes
04-Jun-2006 DG
Added NOPLOT keyword, to be able to turn off plotting.
[Previous]
[Next]
NAME:
TPANALYZE
PURPOSE:
Reduce total power observations to create an IDL save file of
calibrated data for conversion to FITS as near real time data
product.
CATEGORY:
OVRO APC DATA ANALYSIS
CALLING SEQUENCE:
tpanalyze,filename,hrec,timavg,range[,time=time]
INPUTS:
filename the name of the file containing the data.
hrec the record number of the scan header. Data
will be processed up to the next EOS segment.
timavg a single integer or float value: the time, in sec, over
which to integrate. Must correspond to an integral number
of cycles. Specify the cycle time for no integration.
range a 2-element array indicating the range of data wanted, as
either record numbers or times (the latter is
indicated by the /TIME keyword). Times are specified
as HHMMSS.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
time if set, specifies that the RANGE is to be interpreted as
a time range. If unset or omitted, the RANGE is interpreted
as a record range.
ROUTINES CALLED:
openarc, newscan, getcycle, flagool, gaincor
OUTPUTS:
COMMENTS:
CALLS: ***
ANYTIM2UTC [1], ANYTIM2UTC [2], BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3]
FLAGOOL, GAINCOR, GET_CYCLE, HMS2SEC, MAKE_TPOVIEW, MEAN, MOMENT, MSEC2STR, NEWSCAN
OPENARC, PROGMETER, TL_DECODE, break_file [4], write_ovsa_fits
CALLED BY:
WATCHER
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 09-Feb-2000 by Dale Gary
09-Mar-2000 DG
Interface to Peter Gallagher's WRITE_OVSA_FITS routine
14-Apr-2000 DG
Get rid of C:\TEMP references (use !Defaults.workdir)
18-Apr-2000 DG
Get rid of now unused OUTFILE keyword. Call MAKE_TPOVIEW after FTS
file is created.
05-Jul-2000 DG
Added AGC-mode correction for noise diode increment changes, for those
observing sequences where the noise diode is used.
10-Jul-2000 DG
Removed the AGC mode correction for the time being, since it has some
problems.
28-Apr-2001 DG
Another attempt at applying the AGC mode correction, but only for 2m
antennas.
08-May-2001 DG
Changed avg() to avg[] so ensure it is interpreted as an array and
not as the AVG() function.
13-Oct-2002 DG
Fixed bug where 40 frequencies was hard-wired in (now we use only 39...)
01-Jun-2003 DG
Routine would hang when no ND-on data in observing sequence. It now
returns without analysis when this is the case.
15-Oct-2003 DG
Normalize ND correction to 4th index (5 GHz) due to problems with 2.8 GHz.
14-Nov-2003 DG
Changed IFEED, RFEED, LFEED definitions to reflect new feed arrangement,
but in a way that allows routine to work for old data. When the small
dishes are outfitted with the new feeds, this routine should continue
to work, although labels will have to change, and probably WRITE_TPOVIEW
also.
20-Feb-2004 DG
Changed FEEDS string to handle more feeds--this needs to be updated
as additional feeds are added.
12-Aug-2004 DG
Update for remaining dual-polarization feeds.
[Previous]
[Next]
NAME:
TPCAL_ADD2M
PURPOSE:
Adds 2m calibration information to an existing TPCAL.REC file in
C:\EPHEM, for writing into each scan by ARCHIVE.
CATEGORY:
OVRO APC DATA CALIBRATION
CALLING SEQUENCE:
tpcal_add2m,filename
INPUTS:
filename The name of an existing IDL save file containing the 2m
TPCAL data in the form of a variable TLS (has the
time/label structure corresponding to the date/scan
of the flare used), a variable F(NF) containing
the frequencies for which the 2m TPCAL data are
known, and CAL(NANT,NF), with the actual calibration
factors (already normalized to ND_EFF=500). These
variables are returned by the SRBL_2M_CAL routine.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
tl_encode
OUTPUTS:
COMMENTS:
The values written to the file are in scaled, 2-byte integer form. To convert
the 2-byte values back to units/SFU, read the integer value, multiply by 0.01,
and apply to TP data by multiplying by the factors.
CALLS: ***
NINT [1], NINT [2], TL_ENCODE
SIDE EFFECTS:
Data are written to the file !DEFAULTS.EPHEMDIR+'TPCAL.REC'. The existing
TPCAL.REC file is renamed to !DEFAULTS.EPHEMDIR+'TPCAL.OLD' for safe keeping.
Any existing TPCAL.OLD file is overwritten.
RESTRICTIONS:
MODIFICATION HISTORY:
Written 11-Sep-1999 by Dale E. Gary
11-Jan-2000 DG
Eliminated hardwired directory locations.
[Previous]
[Next]
NAME:
TPCALCHEK
PURPOSE:
Main routine to analyze total power calibration data (just a
date-sensitive shell to call TPCALCHEK1, TPCALCHEK2, etc.).
CATEGORY:
OVRO APC DATA CALIBRATION
CALLING SEQUENCE:
tpcalchek[,filename][,hrec | ,after=after][,debug][,/cmdfile]
INPUTS:
filename the name of the file containing TPCAL data. If
omitted, the file DAILY.ARC in directory
!DEFAULTS.WORKDIR is assumed.
hrec the record number of the TPCAL scan header. Data
will be processed up to the next EOS segment.
If this argument is given, then AFTER keyword
is ignored.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
after an optional time string of the standard form
[yyyy.ddd ]hh:mm[:ss]m after which to start
looking for a valid TPCAL scan.
cmdfile a switch that indicates that the routine was called
from a command file, so issue no modal messages, and
print any error messages to <WORKDIR>\TPCAL.MSG.
debug a switch that activates some debugging statements
for getting an indication of intermediate steps.
This switch is not compatible with /CMDFILE switch.
ROUTINES CALLED:
break_file, tpcalchek1, tpcalchek2
OUTPUTS:
COMMENTS:
CALLS: ***
BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3], TPCALCHEK1, TPCALCHEK2
break_file [4]
CALLED BY:
WATCHER
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 28-Aug-2000 by Dale E. Gary
[Previous]
[Next]
NAME:
TPCALCHEK1
PURPOSE:
Analyze total power calibration data (called by TPCALCHEK main
routine, which is just a date-sensitive shell). Responds
to scans of type REFTPCAL (scan code 5).
CATEGORY:
OVRO APC DATA CALIBRATION
CALLING SEQUENCE:
tpcalchek1[,filename][,hrec | ,after=after][,debug][,/cmdfile]
INPUTS:
filename the name of the file containing TPCAL data. If
omitted, the file DAILY.ARC in directory
!DEFAULTS.WORKDIR is assumed.
hrec the record number of the TPCAL scan header. Data
will be processed up to the next EOS segment.
If this argument is given, then AFTER keyword
is ignored.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
after an optional time string of the standard form
[yyyy.ddd ]hh:mm[:ss]m after which to start
looking for a valid TPCAL scan.
cmdfile a switch that indicates that the routine was called
from a command file, so issue no modal messages, and
print any error messages to <WORKDIR>\TPCAL.MSG.
debug a switch that activates some debugging statements
for getting an indication of intermediate steps.
This switch is not compatible with /CMDFILE switch.
ROUTINES CALLED:
openarc, lasthrec, getdata, tl_decode, decode, tpnorm, gettpnd
OUTPUTS:
COMMENTS:
There will have to be modifications to this routine when
additional antennas are available.
CALLS: ***
GETDATA, GETTPND, LASTHREC, NEWSCAN, OPENARC, TPNORM
CALLED BY:
TPCALCHEK
SIDE EFFECTS:
RESTRICTIONS:
This version written to work on first-generation data.
Changes will be made as new capabilities are added to
the system.
MODIFICATION HISTORY:
Written 30-Jul-1998 by Dale Gary
22-Aug-1998 DG
Changed NRPT to 40 for a special total power run to evaluate
whether running it longer helps. Also made changes to TPNORM
and GETTPND routines to automatically adjust to different NRPTs.
25-Aug-1998 DG
Added check for new TRAJECTORY segments (but contents ignored
for now.)
29-Oct-1998 DG
Some changes in GETTPND and TPNORM required changes to this routine.
16-Apr-2000 DG
Changed to use GPARM for offsets and nonlinearity, as returned by
NEWSCAN call.
[Previous]
[Next]
NAME:
TPCALCHEK2
PURPOSE:
Analyze total power calibration data (called by TPCALCHEK main
routine, which is just a date-sensitive shell). Responds
to scans of type REFTPCAL (scan code 5).
CATEGORY:
OVRO APC DATA CALIBRATION
CALLING SEQUENCE:
tpcalchek2[,filename][,hrec | ,after=after][,debug][,/cmdfile]
INPUTS:
filename the name of the file containing TPCAL data. If
omitted, the file DAILY.ARC in directory
!DEFAULTS.WORKDIR is assumed.
hrec the record number of the TPCAL scan header. Data
will be processed up to the next EOS segment.
If this argument is given, then AFTER keyword
is ignored.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
after an optional time string of the standard form
[yyyy.ddd ]hh:mm[:ss]m after which to start
looking for a valid TPCAL scan.
cmdfile a switch that indicates that the routine was called
from a command file, so issue no modal messages, and
print any error messages to <WORKDIR>\TPCAL.MSG.
debug a switch that activates some debugging statements
for getting an indication of intermediate steps.
This switch is not compatible with /CMDFILE switch.
ROUTINES CALLED:
openarc, lasthrec, getdata, tl_decode, decode, tpnorm, gettpnd,
tpsolve2, make_tpcal2, plot_tpcal, write_tpseg
OUTPUTS:
COMMENTS:
This version works with 2-element data, where the TRAJECTORY is
defined to take on-source data for two full cycles, then off-source
data for two full cycles.
CALLS: ***
FINDSEG, GETDATA, GETTPND, LASTHREC, MAKE_TPCAL2, NEWSCAN, OPENARC, OVSA_GET_INDEX
PLOT_TPCAL, TL_DECODE, TPNORM, TPSOLVE2, WRITE_TPSEG
CALLED BY:
TPCALCHEK
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 28-Aug-2000 by Dale E. Gary
25-Nov-2000 DG
Changed call to PLOT_TPCAL, to reflect changes to that routine.
30-Nov-2000 DG
Routine was not tolerant of extra non-data records in a scan.
Changed loop reading BIGDATA to ignore non-data records.
18-Jul-2001 GN
Replaced get_index by ovsa_get_index to avoid conflict with Yohkoh
[Previous]
[Next]
NAME:
TPINTERP
PURPOSE:
Interpolate missing TP calibration factors, based on adjacent good measurements
and the ND increment at the missing frequency, for 27-m total power calibration.
CATEGORY:
OVRO APC CALIBRATION
CALLING SEQUENCE:
tpinterp,fghz,tpfac,tprms,ndavg,tpnew
INPUTS:
fghz The array of frequencies at which the factors were measured
tpfac The array of total power factors, as determined from TPSOLVE,
as an array of size (2,2,85), where the first index is the
feed (R-position or L-position), the second is the antenna
(antennas 1 and 2), and the third is the frequency.
tprms The corresponding array of RMS variations (not used)
ndavg The noise diode increments corresponding to the input data,
of identical size and meaning to TPFAC.
OPTIONAL (KEYWORD) INPUT PARAMETERS
ROUTINES CALLED:
OUTPUTS:
tpnew The output array, same as TPFAC but with missing frequencies
interpolated.
COMMENTS:
CALLED BY:
TPSOLVE, TPSOLVE2
SIDE EFFECTS:
A total power calibration file (.TPC file) is written)
RESTRICTIONS:
MODIFICATION HISTORY:
Written 02-Oct-1998 by Dale E. Gary
04-Oct-1998 DG
Improve results by normalizing to the noise diode (which should
take out the frequency-to-frequency variations due to the receiver,
standing waves, etc.), eliminating obviously bad measurements,
fitting a smooth gaussian, interpolating missing measurements,
then de-normalizing to obtain final factors.
22-Jul-1999 DG
Changed MAXDIF from 2 to 10, due to the fact that there really is
a systematic difference between (R-L) and (L-R) as defined here.
Typically it can reach a value of 6 and still be perfectly good
data.
[Previous]
[Next]
NAME:
TPNORM
PURPOSE:
Routine to take TPCAL data for a given polarization
and normalize it to the noise diode, then return the averaged
on-feed minus off-feed values.
CATEGORY:
OVRO APC DATA CALIBRATION
CALLING SEQUENCE:
on_off = tpnorm(tpdata,tpflag,ndfac,ndavg,tpavg,tprms)
INPUTS:
tpdata the TPCAL data array, of size (4,2,85,NRPT), containing
only the data for which the noise diode is off. The first
index is the polarization state (e.g. RR, RL, LL, or LR)
the second index is the number of total power channels,
the third index is the frequency, and the last is
the measurement number (NRPT independent measurements).
tpflag parallel array to TPDATA, with 0 indicating good data, 1 bad
data.
ndfac the noise diode factors for each data point, relative to
the noise diode level averaged over the NRPT measurements.
The size is NDFAC(4,2,85,NRPT).
ndavg the noise diode increments, averaged over the NRPT measurements.
The size is NDAVG(4,2,85)
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
tpavg the TPCAL output array, of size (2,2,85), containing
the on-off feed data, summed over the NRPT independent
measurements. The first index is R/L, second is antenna,
and third is frequency.
tprms the RMS deviations (array size same as for TPAVG) determined
from the NRPT independent measurements.
COMMENTS:
CALLED BY:
TPCALCHEK1, TPCALCHEK2
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 01-Aug-1998 by Dale E. Gary
27-Oct-1998 DG
R-L values are very different at some harmonics for ND-off data
vs. ND-on data, so try eliminating ND-on data from consideration
31-Oct-1998 DG
Tweaked and finalized code to work better.
[Previous]
[Next]
NAME:
TPSOLVE
PURPOSE:
A temporary routine to take the two total power calibrations,
one on-source and one off-source, and solve for the total power
calibration factors. This routine will be replaced when a
TRAJECTORY has been defined for total power calibrations, so that
two calibrations are unnecessary.
CATEGORY:
OVRO APC TEMPORARY
CALLING SEQUENCE:
tpsolve
INPUTS:
OPTIONAL (KEYWORD) INPUT PARAMETERS
ROUTINES CALLED:
gaussfit
OUTPUTS:
COMMENTS:
CALLS: ***
CALSPEC, MAKE_TPCAL, OPLOTERR, PICKFILE, TPINTERP
SIDE EFFECTS:
A total power calibration file (.TPC file) is written)
RESTRICTIONS:
MODIFICATION HISTORY:
Written 02-Oct-1998 by Dale E. Gary
04-Oct-1998 DG
Improve results by normalizing to the noise diode (which should
take out the frequency-to-frequency variations due to the receiver,
standing waves, etc.), eliminating obviously bad measurements,
fitting a smooth gaussian, interpolating missing measurements,
then de-normalizing to obtain final factors.
22-Jul-1999 DG
Changed MAXDIF from 2 to 10, due to the fact that there really is
a systematic difference between (R-L) and (L-R) as defined here.
Typically it can reach a value of 6 and still be perfectly good
data.
16-Apr-2000 DG
Added code to eliminate excessively small or large calibration
factors (since they can cause problems with under or overflows
in TPCAL factors).
[Previous]
[Next]
NAME:
TPSOLVE2
PURPOSE:
Routine to take the on- and off-source total power calibrations,
and solve for the total power calibration factors.
CATEGORY:
OVRO APC TP CALIBRATION
CALLING SEQUENCE:
tpsolve2,tpon,onrms,onnd,onvar,tpoff,offrms,offnd,offvar,f,tls,tpfac,tprms[,/debug]
INPUTS:
tpon The on-source total power data, of size
TPON(2,2,85) => R/L,nant,nharm
tpoff The off-source total power data, of size
TPOFF(2,2,85) => R/L,nant,nharm
onrms The on-source 1-sigma deviation in total power, of
same size as TPON
offrms The off-source 1-sigma deviation in total power, of
same size as TPOFF
onnd The on-source noise diode data, of same size as TPON
offnd The off-source noise diode data, of same size as TPOFF
onvar The on-source 1-sigma deviation in total power, of
same size as TPON
offrms The off-source 1-sigma deviation in total power, of
same size as TPOFF
OPTIONAL (KEYWORD) INPUT PARAMETERS
ROUTINES CALLED:
calspec, tpinterp
OUTPUTS:
tpfac The final array of total power calibration factors,
of same size/meaning as input arrays (e.g. TPON)
tprms The total power 1 sigma uncertainties--corresponding to TPFAC
COMMENTS:
CALLS: ***
CALSPEC, OPLOTERR, TPINTERP
CALLED BY:
TPCALCHEK2
SIDE EFFECTS:
A total power calibration file (.TPC file) is written)
RESTRICTIONS:
MODIFICATION HISTORY:
Written 30-Aug-2000 by Dale E. Gary (adapted from TPSOLVE)
12-Nov-2000 DG
Significant changes--moved MAKE_TPCAL and the plotting to TPCALCHEK2.
[Previous]
[Next]
NAME:
TR_TIME_NRH
PURPOSE:
Cette procedure trace une donnee en fonction du temps.
CATEGORY:
VISUALISATION.
CALLING SEQUENCE:
TR_TIME_NRH, Param, Time
INPUTS:
PARAM Tableau a tracer
TIME Tableau contenant les temps en ms
KEYWORD PARAMETERS:
HR_BEG Heure de debut du trace, debut du fichier par defaut
HR_END Heure de fin du trace, fin du fichier par defaut
TITLE Titre du trace
CLAB Texte, reperrage de la courbe
XLAB Label porte sur l'axe X
YLAB Label porte sur l'axe Y
OPLOT Appel a OPLOT sinon appel a PLOT
YLOG 0 Echelle Y logarithmique, 1 echelle lineaire
YRANGE YRANGE de PLOT IDL
LINESTYLE LINESTYLE de PLOT IDL
CHARSIZE Taille des caracteres
OUTPUTS:
Describe any outputs here
CALLS: ***
HMS, MILSEC_AXIS
CALLED BY:
CENTER_NRH2, FLUX_NRH2, NRHR_CAL, NRH_PLOTF, NRH_PLOTI
COMMON BLOCKS:
BLOCK1: Describe any common blocks here. If there are no COMMON
blocks, just delete this entry.
PROCEDURE:
Cette procedure permet de tracer plusieurs courbes dans le meme cadre
Pour obtenir plusieurs cadres dans la meme fenetre gerer !P.MULTI
Le trace de en couleur se fait en chargeant une nouvelle table de
couleurs. L'indice de la couleur utilisee est donne par la valeur de
LINESTYLE
EXAMPLE:
TR_TIME_NRH, Flux, Time, DEB='10:30', FIN='11:10:40', $
TITLE= 'date',LINESTYLE=1, YLOG = 1
Trace du flux en echelle lineaire
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 30/01/98
Le 10/05/99 Limites de traces definis par HR_BEG et HR_END (JB)
LE 11/10/00 Rajoute le traitement de la couleur
corrige la limite X en lineaire (JB)
[Previous]
[Next]
NAME:
TRACE1D
PURPOSE:
Cette procedure trace l'evolution temporelle d'un parametre
CATEGORY:
NRH1 Trace
CALLING SEQUENCE:
TRACE1D, Temps, Ordonnee
INPUTS:
TEMPS Tableau de temps [abscisse; ms du jour]
ORDONNEE Tableau des grandeurs a tracer (ordonnee)
KEYWORD PARAMETERS:
TITLE Titre (au-dessus du cadre)
XTITLE Annotation de l'abscisse
YTITLE Annotation de l'ordonnee
CALLS: ***
MILSEC_AXIS
CALLED BY:
MENUTRACEISOPH
MODIFICATION HISTORY: bonmartin@obspm.fr
Adapte de XHELIO le 20/12/98
[Previous]
[Next]
NAME:
TRACEPOS
PURPOSE:
Cette procedure trace le resultat de calcul de position des centroids
en fonction du temps
CATEGORY:
NRH1 Trace
CALLING SEQUENCE:
TRACEPOS, Position, Str, Unit, Numero, Grandeur
INPUTS:
POSITION ...... Tableau issu de LECP1D contenant les images
POSITION(Num_position,type,indice temporel)
type = 0 ---> No d'image
1 ---> canal
2 ---> amplitude
3 ---> flux
4 ---> diametre
STR ....... Structure associee aux donnees (NRH1_STR_IMAGE)
UNIT ........ no. de l'unite logique dont est issu tabparam
NUMRO ..... no. de la position a tracer
GRANDEUR ... no. du type a tracer
KEYWORD PARAMETERS:
HEURES Tableau d'heures de debut et de fin de trace
['hh:mn:ss:ccc','hh:mn:ss:ccc']
MINMAX tableau des kimites de l'echelle Y [Min, Max]
ECHLOG Echelle log
COLOR Indice de la couleur
NOERASE
OLDPAGE
LASER
CHARSIZE
OUTPUTS:
Trace temporel
CALLS: ***
HMS, LASER, MILSEC_AXIS, MOTCLE, MSH
CALLED BY:
MENUTRACEPOS
COMMON BLOCKS:
NRH1_GLOBAL
MODIFICATION HISTORY: (bonmartin@obspm.fr)
26/11/98 adapte de XHELIO (JB)
[Previous]
[Next]
NAME:
Transform Qualifiers
PURPOSE:
Transforms the qualifiers used by PV-WAVE
with the variable !p.linestyle and !p.psym into
an mdisp format for writing them in an mdisp file.
CALLING SEQUENCE:
result = TransfQualif( qualifier, lineStyle, userSym )
INPUT PARAMETERS:
qualifier: The WAVE/IDL plot symbol number (see !p.psym)
lineStyle: The WAVE/IDL linestyle number (see !p.linestyle)
userSym: The user-defined symbol number (see manuals)
RESULT OF FUNCTION:
the mdisp qualifier stored in the mdisp files.
CALLS: ***
TRANSFQUALIF
SEE ALSO:
http://
MODIFICATION HISTORY:
Cretaed: in 1991 by A.Csillaghy, ETHZ.
[Previous]
[Next]
NAME:
TRI_CENTRES
PURPOSE:
Tri en position(s) les volumes gaussiens determines apres la procedure
SCAN_SOURCES
CATEGORY:
RH_2D, Recherche de position
CALLING SEQUENCE:
TRI_CENTRES, Fich1, Fich2, Nbposi, Nbhit
OPTIONAL INPUTS:
Fich1: nom du fichier binaire dans lequel est stocke la description
des volumes gaussiens (defaut centres.dat)
OUTPUTS:
Nbposi: nombre de positions trouvees
Nbhit: nombre maximum de sources par position
OPTIONAL OUTPUTS:
Fich2: nom du fichier binaire qui contient la description des volumes
gaussiens classes par position (defaut positions.dat)
CALLED BY:
CW_POS
EXAMPLE:
TRI_CENTRES, 'cent2101_2.dat', 'posi2101_2.dat', nbposi, nbmaxhit
MODIFICATION HISTORY:
Ecrit par: C. Renié
LE 13/09/00 Rajout BUFSIZE=0 pour openr
[Previous]
[Next]
NAME:
TRUNCATE
PURPOSE:
Routine to convert an archive file with zero-filled records
at the end into a generally smaller (truncated) archive file.
CATEGORY:
OVRO APC DATA-ANALYSIS
CALLING SEQUENCE:
truncate[,infile=infile][,outfile=outfile][,/delete][,/auto][,safe=safe]
INPUTS:
OPTIONAL (KEYWORD) INPUT PARAMETERS:
infile the name of the file to be truncated. If omitted,
the user is prompted for an input file.
outfile the name of the truncated file. If omitted, the
user is prompted for an output file name.
delete a flag that, if set, makes truncate attempt to
delete the input file after the truncation is
completed. Note that the /AUTO keyword implies
the /DELETE keyword.
auto a flag that, if set, causes the input file to
be read and automatically sets the output
name to Ddddhhmm.ARC where ddd is the day of
year, hhmm is the time of the first record in
the file. Also, if /AUTO is used and no input
file is given, the file DAILY.ARC is assumed
if it exists.
ROUTINES CALLED:
openarc getlrecn tl_decode
OUTPUTS:
safe a variable that is normally 0, but if set to 1 will
indicate that the calling program is to wait until
infile is deleted manually. Used by WATCHER to avoid
annoying loop.
COMMENTS:
CALLS: ***
FILENAME2DATE, GETLRECN, OPENARC, OVIEW2WEB, PICKFILE, TL_DECODE
CALLED BY:
WATCHER
SIDE EFFECTS:
A file is created, and optionally another file is deleted
RESTRICTIONS:
MODIFICATION HISTORY:
Written 12-Jan-1998 by Dale E. Gary
22-Jun-1998 DG
Fix off-by-one error that wrote one blank record at the end
of truncated file.
27-Jun-1999 DG
Add lines to run quicklook and oview2web
24-Aug-1999 DG
Add NPLOT output to TRUNCATE so that OVIEW2WEB can be conditionally
run, since it doesn't work if there are no solar scans, so should
not be run.
03-Mar-2002 DG
Changed to handle new .PNG files--no need to call QUICKLOOK anymore.
18-Jul-2003 DG
Added SAFE keyword, to inform WATCHER to wait until DAILY.ARC is deleted.
Also added new language to popup window.
[Previous]
[Next]
Cette procedure determine les distances entre le centre et la
frontiere valmax/seuil dans 8 directions privilegiees (kpi/4)
APPEL:
tab: tableau a deux dimensions contenant l'image
xm, ym: indices du maximum du tableau
d: tableau des 8 distances a calculer
seuil: critere de recherche des 8 distances
CALLED BY
CW_SCANSOURCE, TRV_GAUS
[Previous]
[Next]
NAME:
TRV_GAUS
PURPOSE:
Cette procedure permet de localiser et de caracteriser une source
gaussienne par la methode de la mi-hauteur
CATEGORY:
RH_2D, recherche de positions
CALLING SEQUENCE:
TRV_GAUS, T, Xmax, Ymax, Gauss, Seuil
INPUTS:
T: tableau à deux dimensions contenant l'image
Xmax, Ymax: indices du maximum du tableau
Seuil: critere de recherche des 8 distances (mi-hauteur)
OUTPUTS:
Gauss: structure qui recoit les parametres de la gaussienne
CALLS: ***
det_ellip, trv_dist
CALLED BY:
EXTRACT_SOURCES
MODIFICATION HISTORY:
Written by: C. Renié 12/1997
[Previous]
[Next]
PROJECT:
Phoenix II
NAME:
Tv_Zoom
PURPOSE:
Zoom interactively an image:
1. by defining the corners of the zoom window on the
display with the mouse;
2. By defining the x or y boundaries on the window display
with the mouse
3. By entering the x- or y-boundaries on the terminal
window with the keyboard;
4. By defining the zoom to be in full resolution around
the cursor on the display window.
CATEGORY:
Radio
CALLING SEQUENCE:
Tv_Zoom, xAxis, yAxis, xMin, xMax, yMin, yMax
INPUT ARGUMENTS:
image: the image to be zoomed
xMin, xMax, yMin, yMax: The pixel number
of the part of the image currently displayed.
xAxis, yAxis: must be given for the static zooms, 1D
OUTPUT ARGUMENTS:
xMin, xMax, yMin, yMax: The new pixel coordinates of
the zoom boundary.
KEYWORDS:
WINNR: to be specified if the image is not displayed
in the current window.
CALLS: ***
CLEAR_SCREEN [1], CLEAR_SCREEN [2], GETBREAKS, GETHMS, GETIMAGESIZES, GETOFFSETS
General_Menu [1], General_Menu [2], Read_Test, SETAROUND, XKILL, XMESSAGE, ZOOMSTAT
devtopix, n_breaks
CALLED BY:
Display 2D Image
MODIFICATION HISTORY:
Created, 4/91 A.Csillaghy,
Institute of Astronomy, ETH Zurich
Modified strongly in August 1991, A.Cs.
Modifications for IDL 5.1 and SSW December 1998
csillag@ssl.berkeley.edu
[Previous]
[Next]
NAME:
TYKW_0PA_FREQ
PURPOSE:
This function is to extract the 0p0a data of the specified frequency
CALLING SEQUENCE:
d0pa=tykw_0pa_freq(rd0pa,mfreq)
INPUTS:
rd0pa: structure of the 0P0A data
mfreq: frequency ID (0: 9GHz, 1: 4GHz, 2: 2GHz, 3: 1GHz)
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
d0pa: structure of the 0P0A data of the specified frequency
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_GT_LONLAT
PURPOSE:
This function returns the value of the longitude and latitude
of the Toyokawa in units of degree
CALLING SEQUENCE:
lonlat=tykw_gt_lonlat()
OUTPUTS:
lonlat: [longitude, latitude]
HISTORY:
Writtern 2000-09-10 TY
[Previous]
[Next]
NAME:
TYKW_GT_MFREQ
PURPOSE:
This procedure is getting the frequency information from the
TYKW raw data
CALLING SEQUENCE:
mfreq=tykw_gt_mfreq(rdata)
INPUTS:
rdata: structure of the raw data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
mfreq: frequency ID (0: 9GHz, 1: 4GHz, 2: 2GHz, 3: 1GHz)
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_GT_MIV
PURPOSE:
This procedure is getting the Polarization information from the
TYKW raw data
CALLING SEQUENCE:
miv=tykw_gt_miv(rdata)
INPUTS:
rdata: structure of the raw data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
miv: Polarization ID (0: I(R+L), 1: V(R-L))
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_GT_NPA
PURPOSE:
This function is for getting the mode number of ATT
CALLING SEQUENCE:
npa=tykw_gt_npa(timej,dstt)
INPUTS:
timej: structure array with 'time internal format'. Time is in JST.
dstt: TYKW structure including the status information
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
npa: 1-dimensional integer array indicating the ATT mode
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_MVALID_CLB
PURPOSE:
This function is to get the information if the data is valid or not
from the calibration info
CALLING SEQUENCE:
mvalid=tykw_mvalid_clb(timej,dstt,dtclb)
INPUTS:
timej: structure array with 'time internal format'.
dtclb: time margin for nclbi. 2 elements floating array.
dtclb(0) is before the calibration, dtclb(1) is after.
dstt: structure of the stt data of the specified frequency
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
mvalid: 1-dimensional byte array
if 1 the data is valid
CALLS: ***
NORP_T2I
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_MVALID_INT
PURPOSE:
This function is to get the information if the data is valid or not
from the observation interuption info
CALLING SEQUENCE:
mvalid=tykw_mvalid_int(timej,d0pa)
INPUTS:
timej: structure array with 'time internal format'.
d0pa: structure of the 0p0a data of the specified frequency
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
mvalid: 1-dimensional byte array
if 1 the data is valid
CALLS: ***
NORP_T2I
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_RD_0PA
PURPOSE:
This procedure is for reading the 0P0A calibration data of TYKW.
CALLING SEQUENCE:
tykw_rd_0pa,file,rd0pa
INPUTS:
file: file name of TYKW 0P0A data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
rd0pa: structure of the 0P0A data
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_RD_DAILY
PURPOSE:
This procedure is for reading and daily averaged NoRP data.
CALLING SEQUENCE:
norp_rd_avg,st_day,ed_day,day,fiavg
norp_rd_avg,day_in,day,fiavg
INPUTS:
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
CALLS: ***
CONCAT2D, UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], file_list [1], file_list [2], rd_tfile [1], rd_tfile [2]
HISTORY:
[Previous]
[Next]
NAME:
TYKW_RD_DAT
PURPOSE:
This procedure is for reading and calibrating the TYKW data.
CALLING SEQUENCE:
tykw_rd_dat,file,file0pa,filestt,mvalid,time,data
tykw_rd_dat,day,mvalid,time,fi,fv
INPUTS:
file: file name of TYKW data
file0pa: file name of TYKW 0p0a data
filestt: file name of TYKW status data
OPTIONAL INPUT :
timerange: 2-elements string array indicating the
time range of the data to be read
e.g. ['1998-1-1 4:00','1998-1-1 5:00']
OUTPUTS:
mvalid: byte array indicating the data is valid or not.
e.g. if the data(123) obtained at time(123)
was the calibration data mvalid(123)=0.
If the data(124) was the real Sun flux mvalid(124)=1.
time: structure array with 'time internal format'. Time is in UT.
data: data array
OPTIONAL OUTPUT :
npa: 1-dimensional integer array indicating the ATT mode
CALLS: ***
NORP_GT_NATTI, NORP_GT_NDATA, NORP_MVALID, NORP_T2I, TYKW_0PA_FREQ, TYKW_GT_MFREQ
TYKW_GT_MIV, TYKW_GT_NPA, TYKW_MVALID_CLB, TYKW_MVALID_INT, TYKW_RDT2TIMEJ
TYKW_RD_0PA, TYKW_RD_RDT, TYKW_RD_STT, TYKW_REFORM, TYKW_STT_FREQ, anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1], anytim2ints [2]
file_list [1], file_list [2]
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
1999-03-16 debug by TY
2000-04-11 by TY read by day
[Previous]
[Next]
NAME:
TYKW_RD_RDT
PURPOSE:
This procedure is for reading the raw data of TYKW.
CALLING SEQUENCE:
tykw_rd_rdt,file,rdata
INPUTS:
file: file name of TYKW data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
rdata: structure of the raw data
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_RD_STT
PURPOSE:
This procedure is for reading the status data of TYKW.
CALLING SEQUENCE:
tykw_rd_stt,file,rdstt
INPUTS:
file: file name of TYKW status data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
rdstt: structure of the status data
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_RDT2TIMEJ
PURPOSE:
This function is for getting the JST time array from the TYKW raw data
CALLING SEQUENCE:
timej=tykw_rdt2timej(rdata)
INPUTS:
rdata: structure of the raw data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
timej: structure array with 'time internal format'. Time is in JST.
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_REFORM
PURPOSE:
This procedure is for reforming data strip from the raw TYKW structure
CALLING SEQUENCE:
data=tykw_reform(rdata)
INPUTS:
rdata: structure of the raw data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
data: 1-dimensional reformed data
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY
[Previous]
[Next]
NAME:
TYKW_STT_FREQ
PURPOSE:
This function is to extract the stt data of the specified frequency
CALLING SEQUENCE:
dstt=tykw_stt_freq(rdstt,mfreq)
INPUTS:
rdstt: structure of the stt data
mfreq: frequency ID (0: 9GHz, 1: 4GHz, 2: 2GHz, 3: 1GHz)
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
dstt: structure of the stt data of the specified frequency
CALLED BY:
TYKW_RD_DAT
HISTORY:
4/6/79 ver.0.0 K. Shibasaki as fortran program
Sep. 09, 1994 ver.1.0 M. Nishio
Jan. 10, 1995 ver.2.0 M. Nishio
Apr. 13, 1995 ver.3.2 M. Nishio
Apr. 13, 1995 ver.4.0 M. Nishio
May. 23, 1995 ver.5.0 M. Nishio
May 01, 1995 ver.5.2 M. Nishio
Apr. 25, 1995 ver.5.0 M. Nishio
1999-01-12 ported to IDL by TY