[Previous]
[Next]
PURPOSE:
[Previous]
[Next]
PURPOSE:
Returns the effective number of breaks included in
"array", the array of break indices.
Part of the enrad system
CALLED BY
Show Image [1], Show Image [2], Show Image [3], Tv_Zoom, devtopix
[Previous]
[Next]
NAME:
N_PlotList
PURPOSE:
Returns the number of plots stored in the plot table
CALLING SEQUENCE:
nb = N_PlotList()
[Previous]
[Next]
NAME:
N_Texts
PURPOSE:
Returns the number of texts overplotted on the plot
window.
CALLING SEQUENCE:
nb = N_Texts()
CALLED BY
Data Display, Overplot Texts, Texts_2D, take_away
[Previous]
[Next]
NAME:
NEAREST
PURPOSE:
Return multiple of a given step nearest a target value.
CATEGORY:
CALLING SEQUENCE:
v = nearest( s, t, [ vlo, vhi ])
INPUTS:
s = step size. in
t = target value. in
KEYWORD PARAMETERS:
OUTPUTS:
vlo = largest multiple of S <= T. out
vhi = smallest multiple of S >= T. out
v = multiple of S nearest T. out
CALLED BY:
INRANGE [1], INRANGE [2], INRANGE [3]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner 10 Apr, 1986.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1986, 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:
NEAREST
PURPOSE:
For a target value, return value nearest to a multiple of given step
CATEGORY:
CALLING SEQUENCE:
V = NEAREST( S, T, [ VLO, VHI ])
INPUTS:
S = step size. in
T = target value. in
VLO = largest multiple of S <= T. in (optional)
VHI = smallest multiple of S > T. in (optional)
KEYWORD PARAMETERS:
OUTPUTS:
V = multiple of S nearest T. out
CALLED BY:
INRANGE [1], INRANGE [2], INRANGE [3]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner 10 Apr, 1986.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1986, 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:
NEWLEC1D
PURPOSE:
Cette procedure lit les images contenues dans un fichier NRH 1
dimension au format HELIO ou FITS
CATEGORY:
NRH1 fichier
CALLING SEQUENCE:
NEWLEC1D, Unit, Images, Str
INPUTS:
UNIT unite de lecture. Comme pour LEC1D, le nom du fichier
est donne dans COMMON NRH1_GLOBAL Nomfich(Unit)
KEYWORD PARAMETERS:
FICHIER nom du fichier a lire
OLDMODE a voir
OUTPUTS:
IMAGES Tableau contenant les images (voir LEC1D pour le format)
STR Structure liee au images lues (voir NRH1_STR_IMAGES__DEFINE
CALLS: ***
LEC1D
CALLED BY:
MENUBCKGRD, MENUCALCFLUX1D, MENUTRACEISOPH, MENUTRACEPROF, SHIFTRH1D
COMMON BLOCKS:
NRH1_GLOBAL
NRH1_HELIO
PROCEDURE:
Cette procedure appelle LEC1D qui lit les fichiers au format HELIO
ou qui appelle LEC_NRH1 pour lire les fichiers 1D FITS (extension fts)
MODIFICATION HISTORY: Contact: (bonmartin@obspm.fr)
12/11/98 adapte du logiciel XHELIO (JB)
15/01/99 nom de fichier memorise dans mainstruc.ewfile dans
tous les cas
[Previous]
[Next]
NAME:
NEWLECP1D
PURPOSE:
Cette fonction lit un fichier NRH de positions de centroid
CATEGORY:
NRH1 Position
CALLING SEQUENCE:
NEWLECP1D,Unit, Tabl, Str
INPUTS:
UNIT Unite de lecture associee au fichier
KEYWORD PARAMETERS:
FICHIER Nom du fichier, sinon nom contenu dans NRH1_GLOBAL
OLDMODE A voir
OUTPUTS:
TABL Tableau contenant le resultat (voir LECP1D pour le format)
STR Structure d'information (voir LECP1D pour le format)
CALLS: ***
LECP1D, MOTCLE
CALLED BY:
MENUCALCPOS2D, MENULISTPOS, MENUTRACEISOPH, MENUTRACEPOS
COMMON BLOCKS:
NRH1_GLOBAL
NRH1_HELIO
MODIFICATION HISTORY: (bonmartin@obspm.fr)
20/11/98 Adapte du logiciel XHELIO (JB)
[Previous]
[Next]
NAME:
NEWLECP2D
PURPOSE:
Cette fonction lit le contenu d'un fichier de position de centroid
CATEGORY:
NRH1 Positions
CALLING SEQUENCE:
NEWLECP2D, Unit, Positions, Str
INPUTS:
UNIT Unite asociee au fichier
KEYWORD PARAMETERS:
FICHIER Nom du fichier, si abscent UNIT definit le fichier
OLDMODE A voir
OUTPUTS:
POSITIONS Tableau de resultat de la lecture (voir LECP2D)
STR Structure associee (NRH1_STR_IMAGES)
CALLS: ***
LECP2D, MOTCLE, NEWLITENTETE
CALLED BY:
MENULISTPOS, MENUTRACEPOS
COMMON BLOCKS:
NRH1_GLOBAL
NRH1_HELIO
MODIFICATION HISTORY: (bonmartin@obspm.fr)
26/11/98 adapte de XHELIO (JB)
[Previous]
[Next]
NAME:
NEWLITENTETE
PURPOSE:
Cette procedure gere les fichiers d'images 1D pour la lecture
des informations d'entete des fichiers au format HELIO ou FITS
CATEGORY:
NRH1 Fichier
CALLING SEQUENCE:
Ret = NEWLITENTETE(Unit,Fichier,Info)
INPUTS:
UNIT Unite de lecture
FICHIER Nom du fichier
KEYWORD PARAMETERS:
Non
OUTPUTS:
INFO Structure de type NRH1_FILEINFO
RET Retour erreur: 0 = OK, 1 = Fichier non trouve
CALLS: ***
LITENTETE
CALLED BY:
MENUBCKGRD, MENUCALCFLUX1D, MENUCALCPOS2D, MENULISTPOS, MENUSHIFTRH1D
MENUTRACEISOPH, MENUTRACEPOS, MENUTRACEPROF, MENUVERIF, NEWLECP2D, NRH_VERIF
SHIFTRH1D
COMMON BLOCKS:
NRH1_GLOBAL
PROCEDURE:
Cette procedure appelle LITENTETE(fichiers HELIO) et eventuellement
LIT_HEADER_NRH1(Fichiers FITS) pour remplir la structure INFO ainsi
que FICHINFO du COMMON NRH1_GLOBAL
MODIFICATION HISTORY: (bonmartin@obspm.fr)
13/11/92 Adapte du logiciel XHELIO (JB)
15/01/99 test sur l'existence d'un fichier remplace par test sur
fichier = '' pour le retour erreur (JB)
[Previous]
[Next]
NAME:
NEWSCAN
PURPOSE:
Procedure to be called on starting a new scan. Reads header and other
segments and sets up variables as needed.
CATEGORY:
OVRO APC DATA ANALYSIS
CALLING SEQUENCE:
rec = newscan(a,nrec,hrec,header,obseq,cfg,traj,refcal,gparm[,geometry,pRecent,pOld,cycle]$
[,pshift=pshift][,xpol=xpol])
INPUTS:
a A file associated variable as returned from OPENARC.
nrec The number of records in the file, as returned from OPENARC
hrec The record number of the header record for the desired scan
OPTIONAL (KEYWORD) INPUT PARAMETERS:
pshift A two-element array giving the amount to shift the phase
center, in arcsec, as [x,y], with x positive W and
y positive N. If omitted, [0,0] is assumed.
xpol A switch that states whether cross-polarization measurements
(i.e. RL or LR) are analyzed. If omitted or set to zero,
cross-polarization measurements (if any) are ignored. If
set to 1, parallel-polarization measurements are ignored
and the crossed-polarization measurements RL are placed
where RR would go, and LR are placed where LL would go. This
is implemented by changing the OBSEQ structure.
ROUTINES CALLED:
getdata, tl_decode, decode, findseg, getparms, poly_fit, get_index,
ovsa_lun_assoc
OUTPUTS:
rec The record number of the next data record, or -1 if an error.
header A structure containing the information in the scan HEADER segment
obseq A structure containing the information in the OBSEQ segment
cfg A structure containing the information in the CONFIG segment
traj A structure containing the information in the TRAJECTORY segment
refcal A structure containing the baseline and total power calibration data
gparm A structure containing the GAINCAL parameters
geometry A structure containing the baseline geometry, source params, etc.
pRecent A pointer to the full-resolution data
pOld A pointer to time-averaged data (not used--not defined)
cycle A structure containing pointers to key tables used in the interpretation
of one cycle of data
COMMENTS:
CALLS: ***
ADJ2MCAL, CVDOY, DECODE, DIALOG_HISTORY, FINDSEG, FREE_POINTER, GETDATA, GETPARMS
GET_AMPCAL_STRUCT, GET_CALEPH, GET_DAILY_STRUCT, GET_EPH_STRUCT
GET_GPARM_STRUCT, GET_PHZCAL_STRUCT, GET_REFCAL_STRUCT, GET_SEGMENTS, GET_SOLEPH
GET_TIMING, GET_TPCAL_STRUCT, GET_TRAJ_STRUCT, GPARM_ACTIVE, HMS2SEC, JULDAY, LOBE
OVSA_GET_INDEX, OVSA_LUN_ASSOC, POLY_FIT, TL_DECODE, UNIQ [1], UNIQ [2], UNIQ [3]
WSTR
CALLED BY:
ACALCHEK, ANALYZE [1], ARLOCPLOT, BASFIT, CTRCALCHEK, DLACHEK, DLASCAN, DLCALCHEK
FCALCHEK, FLAREMETER, FST_MKPARM, GCALCHEK, HIGHRES, LIMCHEK, PKUPCHEK, PNTCHEK
Read_DriftData, SATCALCHEK, SOLAID, SURVANAL, TOP20, TPANALYZE, TPCALCHEK1, TPCALCHEK2
WFSURVEY
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 01-Sep-1998 by Dale E. Gary
03-Nov-1998 DG
Fixed problem with SOLAID hanging in real-time mode? Inserted
suitable wait for CONFIG and OBSEQ segments--up to 10 seconds
09-Nov-1998 DG
Add wait for trajectory as well.
20-Dec-1998 DG
Added TRAJ segment return argument and removed redundant SRCNAM
argument. Philosophy is that NEWSCAN can be called in a quite
general case of non-solar and non-pcal data, with arguments
excluding GEOMETRY, pRECENT, pOLD and CYCLE. Converted NEWSCAN
to a function, which returns the record number of the first
data record, or -1 if an error.
07-Feb-1999 DG
Implement decoding/accessing of EPHEMERIS segment and related
issues.
14-Feb-1999 DG
Fixed a couple of problems that surfaced when no TRAJ segment was
found in data file.
15-Mar-1999 DG
Added code for DLASCAN scan type, and also made TEST scan type a
little more clever.
26-Jul-1999 DG
Added handling for TPCAL, AMPCAL, and PHZCAL segments, which includes
a new argument REFCAL made up of data from these three segments.
27-Jul-1999 DG
Finished apportionment of ref calibration data into REFCAL structure.
09-Sep-1999 DG
Fixed small bug that caused a crash when more than one calibrator
entry had a given source name. Now issues appropriate error.
13-Sep-1999 DG
Changed to reflect changes to TPCAL segment, which has been enlarged
to 2 records. The code can handle either 1- or 2-record versions for
now.
13-Nov-1999 DG
REFCAL factor calculation made independent of number of antennas/baselines
in the data. Also other changes for independence on active antennas.
24-Nov-1999 DG
Add reading of GAINPARM segment
02-Dec-1999 DG
Changes to REFCAL structure to allow inclusion of update parameters
separately from primary parameters. This allows optional application of
update parameters.
11-Jan-2000 DG
Eliminated hardwired directory locations.
03-Feb-2000 DG
Simplified code by moving INDEX finding to a new routine, GET_INDEX
Also updated reading of the TPUPDATE segment, to read from the file using
the INDEX record if available.
04-Feb-2000 DG
Skip dlcal file handling on ioerror
13-Mar-2000 DG
Remove reading of PLD file for "offsun" measurement, use GAINPARM entries
instead. This removes a dependence on number of antennas.
14-Mar-2000 DG
Slight change to make RA and DEC of celestial sources slightly more
correct by bypassing POLY_FIT routine in that case. This probably has
no real consequence. Added DUT (from EPHEM structure) to GEOMETRY.
23-Mar-2000 DG
Fix bugs related to use of pre-GAINPARM-segment data (replace rec eq -1
with rec le 0 in several places, and set gcalflg when old-style gcal
files are being used).
17-Apr-2000 DG
Fixed bug with GPARM segment (T/L field was not removed from records
2 and 3 before decoding).
23-May-2000 DG
Change GEOMETRY structure to anonymous so that change in number of
antennas does not cause a problem.
08-Jun-2000 DG
Implement handling of DAILYPHZ segment and associated REFCAL PhaseUpd
NB: The REFCAL structure has changed due to these changes.
16-Jul-2000 DG
Tracked down and fixed long-standing bug in BC phases--a rather
complicated issue relating to phase closure to -135 degrees. Also
changed the PhaseUpd definition and handling.
23-Jul-2000 DG
Fixed a similar problem with the PhaseUpd, and verified that it is
correct.
28-Jul-2000 DG
Slight change to make DAILYPHZ reading work with older-style files
(those with DAILYPHZ segments written at the end of the file).
23-Sep-2000 DG
Remove restriction of 5 MB for pRecent size (since this gives
less than 1 hour of data for our normal mode, now, at 10 ms sampint)
07-Oct-2000 DG
Fixed phase closure of BC baseline to reflect new sign convention
implemented in GAINCOR on 26-Sep-2000. This was just a reversal of
sign when cfg.mux = -1, in the REFCAL section.
18-Mar-2001 DG
I find that reversal of the BC baseline sign in the phase update
parameters of the REFCAL section was NOT correct, so I removed it.
20-Mar-2001 DG
Added solar parameters to GEOMETRY structure, from EPHEM.SOLAR.
29-Mar-2001 DG
Corrected calculation of amplitude RMS factors for REFCAL structure.
Changed from ds = sqrt(da^2 + db^2) to ds = sqrt[(da*b)^2 + (a*db)^2]
03-Apr-2001 DG
Added call to GET_TIMING and added MSOFF to cycle structure
18-Jul-2001 GN
Replaced get_index by ovsa_get_index to avoid conflict with Yohkoh
15-Jan-2002 DG
Slight changes to work with new SATELLITE more (determined from
TRAJ.SRCNAME). Main change is to add SRCNAME to GEOMETRY structure
so that GAINCOR can skip phase correction if SRCNAME='SATELLITE'
06-Apr-2002 DG
Fixed a bug that never became important until new 426 mux sequence
was used. The POL indexing used ANT2 instead of IANTS[ANT2].
08-Jun-2002 DG
Added PSHIFT keyword to allow shifting the phase center.
08-Jul-2002 DG
Put in a "kludge" to force a scancode of TEST if the source is a
satellite.
14-Dec-2002 DG
Applied PSHIFT to TRAJ structure itself, so that shift will be
propagated to mapping stage.
23-Dec-2002 DG
Add code for handling special MUX mode 17 (GAINPARM swap).
03-Jan-2003 DG
Made (final?) change to REFCAL section to convert antenna-based
to baseline-based phase.
04-Jan-2003 DG
Fixed the above change due to discovery of a conceptual error.
11-Jan-2003 DG
Went to a slightly different scheme in which AB channel offset is
given, instead of making BC and CA relative to AB.
26-Jul-2003 DG
Added more diagnostic information to error message when CONFIG
segment is not found in time.
04-Aug-2003 DG
I learned that the problem is that NREC is not changed as the
file grows past 10000 records. I added code to determine the
new NREC, at least when the CONFIG segment is being sought. The
same error should just occur later, but we will see.
17-Aug-2003 DG
New version of IDL (6.0) required iant and jant to be scalar, so
fixed that.
07-Nov-2003 DG
Added XPOL keyword and associated code to determine whether to
analyze cross-polarization measurements.
14-Nov-2003 DG
Change GPARM part of code to read 6 records after 2003.310, to
use data from new dual-polarization front ends.
04-Dec-2003 DG
Fix bug in dual-polarization code, to check nrr, nrl, nlr, nll
before using corresponding indexes.
10-Jan-2004 DG
Dual polarization scheme changed on 2003 Nov 18, so that obseq
polarization code is now 3-bit corresponding to antennas n21.
A set bit means LCP, a 0 bit is RCP. Changed code to deal with
cross-polarization in the new scheme.
04-Apr-2004 DG
Change setting of APOL to reflect new dual polarization feeds
on ants 5 and 6.
07-Aug-2004 DG
Coded reading of GPS satellite ephemeris into GEOMETRY structure.
11-Sep-2004 DG
Change setting of APOL to reflect new dual polarization feeds
on ants 7 and 8.
26-Sep-2004 DG
Added code to regularize handling of polarization for data taken
after all antennas are outfitted with dual polarization feeds. The
handling of polarization after this time is much simpler both for
XPOL = 0 (no cross polarization) and XPOL = 1 (cross polarization
only) cases. New code is activated when header.tls.yrday > 2004.231
07-Oct-2004 DG
Standardize on 2 polarizations after 2004.231, even for data that
were taken only in R or L. Missing polarization will be treated
as NaN.
15-Mar-2005 DG
Added code to deal with new satellite scheme, in which SATPOS lines
are read from the dialog history and fit coefficients are entered
into the GEOMETRY structure. This supersedes changes of 07-Aug-2004.
23-Aug-2005 DG
I had the application of the ND_eff upside down on the OFFSUN adjustment.
27-Aug-2005 DG
Updated to handle 4-record TPCAL and TPUPD segments.
07-Nov-2005 DG
Fixed error in conversion of REFCAL phases to current MUX setting (and
corresponding error in APCAL_ADD_2M_RL). Also apply CFG.BLDIR to phase slope
in PHASEUPD.
20-Feb-2006 DG
Updated to handle 4-record AMPCAL and 2-record PHZCAL segments. Also
fixed code to work with R and L on all antennas.
29-Jun-2006 DG
Remove all calls to WIDGET_MESSAGE and WSTR, to avoid software hanging up
waiting for user input. Benign defaults assumed, or else error return.
18-Jul-2006 DG
The geometry structure for GPS satellites was too short in some cases due to
reliance on DIALOG HISTORY for SATPOS information. Changed to still read
DIALOG HISTORY, but now checks for on-disk file. If it exists and has
the same first line information, then the disk file is used instead. This
approach allows the scheme to work both in real-time at OVRO and for later
analysis.
[Previous]
[Next]
NAME:
NLFIT
PURPOSE:
GCALCHEK support routine. Finds the value of nonlinearity
parameter (NL) that gives the least variation in the ratio
of 0 DB data to 5 DB data.
CATEGORY:
OVRO APC GCALCHEK SUPPORT ROUTINE
CALLING SEQUENCE:
nlfit,gcdata,gcflag,offsets,res[,/debug]
INPUTS:
gcdata the GCAL data array, of size (2,7,N,86), where
the first index is ND off/on, second index is the
attenuation state (0,5,10,15,20,35,20*DB), the
third index is the total power channel for N
antennas, and the last index is the frequency
gcflag a parallel array to GCDATA, containing 1 where
data in GCDATA are good, and 0 where no good.
offsets an N-element array containing the Total Power offsets,
where N is the number of antennas.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
debug a switch to enable plotting of some intermediate
results.
ROUTINES CALLED:
OUTPUTS:
res an N-element array containing the residuals for
the best fit NL parameter for each antenna.
COMMENTS:
The routine just does a simple loop over NL parameter from
-1.0 to 1.0, with step of 0.02. Could be sped up by using
a minimum searching algorithm. Precision could also nominally
be improved but would be misplaced--accuracy is set by
systematics and 0.02 is sufficient accuracy.
CALLS: ***
MOMENT
CALLED BY:
GCALCHEK
SIDE EFFECTS:
When the /DEBUG switch is set, a plot is produced, and at
STOP is encountered. Type .C or .CONT to continue
RESTRICTIONS:
MODIFICATION HISTORY:
Written 08-Mar-1998 by Dale E. Gary
09-Mar-1998 DG
Finalized, with some alterations. Added /DEBUG switch.
[Previous]
[Next]
NAME:
No_Data
PURPOSE:
Test if there is data in the plot table or not. If there
is, the value "0" is returned else "1".
CATEGORY:
Data Management
CALLING SEQUENCE:
boolValue = No_Data()
COMMON BLOCK:
Data, where the plot table is stored. Should not
be accessed directly.
CALLED BY
Customize_1D, Get Names, Init Selection, Init_Data, Initialize Selection [1]
Insert Plot, Insert in the Selection, Load Plot, Load Selection, MDisp
Remove from the Selection, Search Plot, Select All, Selection
[Previous]
[Next]
NAME:
norh_alpha
PURPOSE:
Derive
alpha= log(F_nu[34]/F_nu[17])/log(34/17)
i.e. F = F0 * frequency^(alpha)
after beam fixed.
CALLING SEQUENCE:
norh_alpha,indexa,fluxa,indexz,fluxz,indexal,alpha,mvalid
INPUTS:
indexa: NoRH index of 17 GHz images
fluxa: 1-D, 2-D or 3-D array of 17 GHz
indexz: NoRH index of 34 GHz images
fluxz: 1-D, 2-D or 3-D array of 34 GHz
OUTPUTS:
indexal: NoRH index for alpha array
alpha : 2-D or 3-D array of the alpha
alpha= log(I[34]/I[17])/log(34/17)
i.e. I = I0 * frequency^(alpha)
mvalid : 2-D or 3-D array of valid pixels
1 for valid, 0 for non-valid
OPTIONAL INPUTS:
OPTIONAL OUTPUTS:
CALLS: ***
NORH_UT2JST [1], NORH_UT2JST [2], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], norh_gt_freq [1], norh_gt_freq [2], norh_tb2flux
HISTORY:
Writtern 2000-10-24 T. Yokoyama based on norh_alpha
[Previous]
[Next]
NAME:
NORH_BEAM
PURPOSE:
Create a projected image of the clean beam
CALLING SEQUENCE:
beam=norh_beam(index)
INPUT:
index: index structure
OUTPUT:
returns an float array.
The default array size is 21^2 and
the center of the beam is (10,10).
OPTIONAL INPUT:
marx: array size (default is 21)
CALLS: ***
NORH_GT_NS2EW [1], NORH_GT_NS2EW [2], get_rb0p [1], get_rb0p [2]
norh_gt_efl [1], norh_gt_efl [2], norh_gt_pixsd [1], norh_gt_pixsd [2]
norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_pmat [1], norh_gt_pmat [2]
CALLED BY:
norh_plot
MODIFICATION HISTORY:
Y. Hanaoka, July, 1993.
T. Yokoyama, Sep, 1998.
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
NORH_BEAM
PURPOSE:
Create a projected image of the clean beam
CALLING SEQUENCE:
beam=norh_beam(index)
INPUT:
index: index structure
OUTPUT:
returns an float array.
The default array size is 21^2 and
the center of the beam is (10,10).
OPTIONAL INPUT:
marx: array size (default is 21)
CALLS: ***
NORH_GT_NS2EW [1], NORH_GT_NS2EW [2], get_rb0p [1], get_rb0p [2]
norh_gt_efl [1], norh_gt_efl [2], norh_gt_pixsd [1], norh_gt_pixsd [2]
norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_pmat [1], norh_gt_pmat [2]
CALLED BY:
norh_plot
MODIFICATION HISTORY:
Y. Hanaoka, July, 1993.
T. Yokoyama, Sep, 1998.
[Previous]
[Next]
NAME:
norh_cen
PURPOSE:
Return the Sun center corordinate in pixel unit
from the left-bottom corner of an NORH Field of View
CALLING SEQUENCE:
cen=norh_cen(index)
INPUTS:
index: index structure
OPTIONAL OUTPUT:
from_imgcen: from image center
roll: Roll angle (default is zero array for NORH)
CALLS: ***
norh_gt_shape [1], norh_gt_shape [2]
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [1], NORH_NORH2SXT [2]
NORH_NORH2SXT [3], NORH_NORH2SXT [4], NORH_P2H [1], NORH_P2H [2]
norh_ext_subimg [1], norh_ext_subimg [2]
HISTORY:
Writtern 1998-05-29 TY
Modified 1999-01-04 TY added from_imgcen
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_cen
PURPOSE:
Return the Sun center corordinate in pixel unit
from the left-bottom corner of an NORH Field of View
CALLING SEQUENCE:
cen=norh_cen(index)
INPUTS:
index: index structure
OPTIONAL OUTPUT:
from_imgcen: from image center
roll: Roll angle (default is zero array for NORH)
CALLS: ***
norh_gt_shape [1], norh_gt_shape [2]
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [1], NORH_NORH2SXT [2]
NORH_NORH2SXT [3], NORH_NORH2SXT [4], NORH_P2H [1], NORH_P2H [2]
norh_ext_subimg [1], norh_ext_subimg [2]
HISTORY:
Writtern 1998-05-29 TY
Modified 1999-01-04 TY added from_imgcen
[Previous]
[Next]
NAME:
NORH_CREATE_STRUCT
PURPOSE:
Dynamically create an IDL structure variable from list of tag names
and data types of arbitrary dimensions. Useful when the type of
structure needed is not known until run time.
CALLING SEQUENCE:
CREATE_STRUCT, STRUCT, strname, tagnames, tag_descript, [ DIMEN = ,
CHATTER= , NODELETE = ]
INPUTS:
STRNAME - name to be associated with structure (string)
Must be unique for each structure created. Set
STRNAME = '' to create an anonymous structure
TAGNAMES - tag names for structure elements
(string or string array)
TAG_DESCRIPT - String descriptor for the structure, containing the
tag type and dimensions. For example, 'A(2),F(3),I', would
be the descriptor for a structure with 3 tags, strarr(2),
fltarr(3) and Integer scalar, respectively.
Allowed types are 'A' for strings, 'B' or 'L' for unsigned byte
integers, 'I' for integers, 'J' for longword integers,
'F' or 'E' for floating point, 'D' for double precision
Uninterpretable characters in a format field are ignored.
For vectors, the tag description can also be specified by
a repeat count. For example, '16E,2J' would specify a
structure with two tags, fltarr(16), and lonarr(2)
OPTIONAL KEYWORD INPUTS:
DIMEN - number of dimensions of structure array (default is 1)
CHATTER - If /CHATTER is set, then CREATE_STRUCT will display
the dimensions of the structure to be created, and prompt
the user whether to continue. Default is no prompt.
NODELETE - If /NODELETE is set, then the temporary file created
CREATE_STRUCT will not be deleted upon exiting. See below
OUTPUTS:
STRUCT - IDL structure, created according to specifications
EXAMPLES:
IDL> create_struct, new, 'name',['tag1','tag2','tag3'], 'D(2),F,A(1)'
will create a structure variable new, with structure name NAME
To see the structure of new:
IDL> help,new,/struc
** Structure NAME, 3 tags, 20 length:
TAG1 DOUBLE Array(2)
TAG2 FLOAT 0.0
TAG3 STRING Array(1)
PROCEDURE:
Generates a temporary procedure file using input information with
the desired structure data types and dimensions hard-coded.
This file is then executed with CALL_PROCEDURE.
NOTES:
A temporary .pro file is created to define structure in the default
directory, so writing privileges are required.
At present, can fail if a tag_name cannot be used as a proper
structure component definition, e.g., '0.10' will not
work, but a typical string like 'RA' or 'DEC' will.
A partial workaround checks for characters '\' and '/'
and '.' and converts them to '_'. in a tag_name.
Note that 'L' now specifies a LOGICAL (byte) data type and not a
a LONG data type for consistency with FITS binary tables
CALLS: ***
GETTOK [1], GETTOK [2], GETTOK [3], GETTOK [4], NORH_CREATE_STR, REPCHR [1]
REPCHR [2], REPCHR [3], STRNUMBER [1], STRNUMBER [2], STRNUMBER [3], STRNUMBER [4]
RESTRICTIONS:
The name of the structure must be unique, for each structure created.
Otherwise, the new variable will have the same structure as the
previous definition (because the temporary procedure will not be
recompiled). ** No error message will be generated ***
SUBROUTINES CALLED:
function gettok, function repchr
MODIFICATION HISTORY:
Version 1.0 RAS January 1992
Modified 26 Feb 1992 for Rosat IDL Library (GAR)
Modified Jun 1992 to accept arrays for tag elements -- KLV, Hughes STX
Accept anonymous structures W. Landsman HSTX Sep. 92
Accept 'E' and 'J' format specifications W. Landsman Jan 93
'L' format now stands for logical and not long array
Accept repeat format for vectors W. Landsman Feb 93
Modified TY May 1998
[Previous]
[Next]
NAME:
NORH_CREATE_STRUCT
PURPOSE:
Dynamically create an IDL structure variable from list of tag names
and data types of arbitrary dimensions. Useful when the type of
structure needed is not known until run time.
CALLING SEQUENCE:
CREATE_STRUCT, STRUCT, strname, tagnames, tag_descript, [ DIMEN = ,
CHATTER= , NODELETE = ]
INPUTS:
STRNAME - name to be associated with structure (string)
Must be unique for each structure created. Set
STRNAME = '' to create an anonymous structure
TAGNAMES - tag names for structure elements
(string or string array)
TAG_DESCRIPT - String descriptor for the structure, containing the
tag type and dimensions. For example, 'A(2),F(3),I', would
be the descriptor for a structure with 3 tags, strarr(2),
fltarr(3) and Integer scalar, respectively.
Allowed types are 'A' for strings, 'B' or 'L' for unsigned byte
integers, 'I' for integers, 'J' for longword integers,
'F' or 'E' for floating point, 'D' for double precision
Uninterpretable characters in a format field are ignored.
For vectors, the tag description can also be specified by
a repeat count. For example, '16E,2J' would specify a
structure with two tags, fltarr(16), and lonarr(2)
OPTIONAL KEYWORD INPUTS:
DIMEN - number of dimensions of structure array (default is 1)
CHATTER - If /CHATTER is set, then CREATE_STRUCT will display
the dimensions of the structure to be created, and prompt
the user whether to continue. Default is no prompt.
NODELETE - If /NODELETE is set, then the temporary file created
CREATE_STRUCT will not be deleted upon exiting. See below
OUTPUTS:
STRUCT - IDL structure, created according to specifications
EXAMPLES:
IDL> create_struct, new, 'name',['tag1','tag2','tag3'], 'D(2),F,A(1)'
will create a structure variable new, with structure name NAME
To see the structure of new:
IDL> help,new,/struc
** Structure NAME, 3 tags, 20 length:
TAG1 DOUBLE Array(2)
TAG2 FLOAT 0.0
TAG3 STRING Array(1)
PROCEDURE:
Generates a temporary procedure file using input information with
the desired structure data types and dimensions hard-coded.
This file is then executed with CALL_PROCEDURE.
NOTES:
A temporary .pro file is created to define structure in the default
directory, so writing privileges are required.
At present, can fail if a tag_name cannot be used as a proper
structure component definition, e.g., '0.10' will not
work, but a typical string like 'RA' or 'DEC' will.
A partial workaround checks for characters '\' and '/'
and '.' and converts them to '_'. in a tag_name.
Note that 'L' now specifies a LOGICAL (byte) data type and not a
a LONG data type for consistency with FITS binary tables
CALLS: ***
GETTOK [1], GETTOK [2], GETTOK [3], GETTOK [4], NORH_CREATE_STR, REPCHR [1]
REPCHR [2], REPCHR [3], STRNUMBER [1], STRNUMBER [2], STRNUMBER [3], STRNUMBER [4]
RESTRICTIONS:
The name of the structure must be unique, for each structure created.
Otherwise, the new variable will have the same structure as the
previous definition (because the temporary procedure will not be
recompiled). ** No error message will be generated ***
SUBROUTINES CALLED:
function gettok, function repchr
MODIFICATION HISTORY:
Version 1.0 RAS January 1992
Modified 26 Feb 1992 for Rosat IDL Library (GAR)
Modified Jun 1992 to accept arrays for tag elements -- KLV, Hughes STX
Accept anonymous structures W. Landsman HSTX Sep. 92
Accept 'E' and 'J' format specifications W. Landsman Jan 93
'L' format now stands for logical and not long array
Accept repeat format for vectors W. Landsman Feb 93
Modified TY May 1998
[Previous]
[Next]
ROUTINE:
NORH_DAT
PURPOSE:
Read an any of the NORH data files
INPUT:
This is a program and there are several questions asked. Sample
responses are listed below.
The first question is the input file name. Examples:
menu
many spr* ;all spr files in whole path
menu bda920224*
many /yd3/reformat/sfr*
many sfr* last ;sfr files in last dir in path
many sfr* flares ;sfr files in flares directory
many /yd*/*/hda920325*
many ./wda* ;wda files in default dir
spr* ;spr files in default dir
time
same bda
The second question is for datasets to extract. The options are listed
there in detail. Further questions are optionally asked depending on
instrument file being read and the kind of data present in it.
It is possible to extract ground based data using YODAT. If the first
character of the input file name is "g", then it is assumbed to be GBO
data of FITS format. The MANY and MENU options will work for extracting
GBO data but only if the filename portion is entered on the same line as
MENU or MANY (ie: "many gbh*" will work, but entering "many" and then
entering "gbh*" at the second question will not work). Using the many
option will only work if all images selected are the same size. Do not
select very many images at once since it the concatenation is not very
efficient.
HISTORY:
MDM Early-1991
JRL Updated 18-sep-91 to create info_array
MDM Updated 25-Sep-91 to assemble observing regions
MDM Updated 1-Oct-91 to only read BCS DP_Sync if asked to
MDM Ver 3.3 4-Oct - Allowed SEQ_NUM selection for FFI (as well as PFI)
MDM Ver 3.4 10-Oct - Changed default answer for "Assemble OR" question
to yes
- Also, removed GET_INFO asking if the data should
be written to disk
- Also added RD_QS for BCS files
MDM Ver 3.5 11-Oct - Returned GET_INFO to printing out information
MDM Ver 3.6 11-Oct - Changed case statement that calls reading routines
to only look at first letter of the file name
(instead of the whole prefix)
MDM Ver 3.7 17-Oct - For SXT, when printing out the summary of what
Sequence lines are used, print out the parameters
for the FIRST (only first) image for that sequence
- Also added option -888 to get out without reading
any file.
MDM Ver 3.8 19-Oct - Put in "stop" when "ndset"=0
- Also, if file # entered is -1, stop
MDM Ver 3.9 20-Oct - Modified how option -888 works (first read roadmap,
and have option to read DP section).
MDM Ver 4.0 21-Oct - Added the menu option for the input file.
CDP/JRL Ver 4.1 29-Oct - Set stdset_out=0 even when not used by
not used by test_rd (used by other routines).
MDM Ver 4.2 7-Nov-91 - Expanded the SXT seq_num information being printed.
MDM Ver 4.3 10-Nov-91 - New method of determining what type of file it is
is to check the "fheader.st$instrument) field.
Old method was to look at the first letter of the
file name.
MDM Ver 4.4 13-Nov-91 - Used new calling sequence for "seq_summary"
Added option to select sequence by menu
MDM Ver 4.5 20-Nov-91 - Added capability to select multiple sequences
using the sequence menu option
MDM Ver 4.6 21-Nov-91 - Added "SAME" option to select a different instrument
with the same fileid
MDM Ver 4.7 22-Nov-91 - Fixed bug with using SXT -777 option (if asked for
invalid option, it never recovered)
MDM Ver 4.8 3-Dec-91 - Changed the "normal" option of entering # of data
sets and starting dataset to check that it does no
run past the last dataset in the file.
Also deleted the "significant update" message
and removed the compiliation of all "_struct" routines
MDM Ver 5.0 12-Dec-91 - Major changes
Allowed multiple files to be selected (added "MANY" option)
Allow user to specify the time (added "TIME" option)
MDM Ver 5.1 28-Feb-92 - * Removed code that turned "SS" dataset #'s into
a structure and replaced with MK_DSET_STR.
* Print out total # of datasets
* Put "break_file" call back in (after
upgrading it to handle arrays of filenames
* Fixed but with "TIME" option for cases where
time span is short (doesn't cross file boundry)
* Adjusted "SAME" option code to work for
multiple file input.
MDM Ver 6.0 8-Mar-92 - * Added options to plot the lightcurve for
- HXT sum_l, sum_m1, sum_m2, sum_h
- WBS sxs1, sxs2, hxs
- BCS total_cnts(1,2,3,4)
* Also added option to extract flare data only
MDM Ver 6.1 10-Mar-92 - * Added "show_obs3" and "plot_fov" options for
SXT
MDM Ver 6.2 10-Mar-92 - * As per Bob Bentley suggestion, the "dset_arr"
will always be the structure equivalent. This
meant that the new options added in Ver 6.0
dataset #s are held in the variable "ssss"
MDM Ver 6.3 12-Mar-92 - * Added "stdset_out" to be defined when using
the "ss" option and any of the options using
PLOT_LCUR
MDM Ver 6.4 19-Mar-92 - * Changed the variable name of the roadmap that
is returned from the "RD_xxx" routines to be
the files that are read for the particular
extraction. The full roadmap of all files is
still held in "roadmap".
MDM Ver 6.5 20-Mar-92 - * Try to trap on an unrecognized command option
* Added titles to the PLOT_LCUR options
MDM Ver 6.6 24-Mar-92 - * For the TIME option, make sure that the file
names are time ordered before doing search on
start/end times
MDM Ver 6.7 24-Mar-92 - * Return DSET_STR for all calls to RD_xxx
* Ask before reading HXA scan data for ADA files
MDM Ver 6.8 25-Mar-92 - * Fixed typo in TIME option (abcde vs abcd)
MDM Ver 6.9 25-Apr-92 - * Changed the way that SXT was calling sequence
summary listing. It will not do that by default
any more, only when asked to do it.
* Added the TEST_RD_NSAMP option
MDM Ver 7.0 2-May-92 - * Adjusted TEST_RD_NSAMP option to work for
SXT PFI observing regions
* Had to add a goto statement with -774 option.
* GT_DP_MODE was updates so that now option
-333 (all flare mode extraction) works for BCS
* Modified MANY and MENU options to work if a
directory is passed with the file specification.
* Modified MANY and MENU to accept a third
parameter. If the word "LAST" is added after
the file specification, then only files in the
last non-empty directory is listed.
MDM Ver 7.1 3-May-92 - * Fixed bug in MANY and MENU option when used
without any second or third parameter
* Adjusted code to always call MK_DSET_STR
DSET_ARR is always in indicy to roadmap
DSET_STR is always the structure
MDM 2-Jun-92 - * Modified to not stop when there are no datasets
only when input file is BCS (so that it can
read the DP_SYNC)
MDM Ver 7.2 24-Jun-92 - * Modification to SXT extraction selection by
sequence table number and sequence number
(avoid problems with extraction from same file
twice)
MDM Ver 8.0 26-Jun-92 - * Expanded to allow extraction of the standard
ground based FITS files.
MDM Ver 8.1 26-Jun-92 - * Added QTEST_RD_SCALE option for GBO access
MDM Ver 8.2 29-Jul-92 - * Added capability to read HXI datafiles
MDM Ver 8.3 3-Aug-92 - * Modified GBO file access instruction information
MDM Ver 9.0 26-Oct-92 - * Renamed from TEST_RD to YODAT
MDM Ver 9.1 22-Feb-93 - * Sort the files by date when using the MANY option
(as per Kevin Kluge's suggestion)
* Added option -772 for SSWHERE
SLF Ver 9.2 7-Jul-93 - * Use rfits2 for GBO (allow compreessed data)
9-Aug-93 - * Corrected typo in SXT sequence table extraction
option
MDM 12-Oct-93 - * Updated the INDEX.SXT.SHAPE_SAV field when an
OR is assembled
MDM Ver 9.3 16-Mar-94 - * For SGI machines, which use the /CD option on
the FILE_LIST call, there was a problem when the
user specified the directory in the file name.
The directory needed to be stripped out so that
it was passed to FILE_LIST properly
* Figures out when the file is ground based
(by a leading character "g")
[Previous]
[Next]
NAME:
norh_dedegen
PURPOSE:
convert 1-element array to scalar
CALLING SEQUENCE:
out=norh_dedegen(in)
INPUTS:
array: array
CALLED BY:
NORH_GT_TIMEJST [1], NORH_GT_TIMEJST [2], NORH_RD_TSX [1], NORH_RD_TSX [2]
NORH_SEL_DIFF [1], NORH_SEL_DIFF [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_dedegen
PURPOSE:
convert 1-element array to scalar
CALLING SEQUENCE:
out=norh_dedegen(in)
INPUTS:
array: array
CALLED BY:
NORH_GT_TIMEJST [1], NORH_GT_TIMEJST [2], NORH_RD_TSX [1], NORH_RD_TSX [2]
NORH_SEL_DIFF [1], NORH_SEL_DIFF [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_ext_subimg
PURPOSE:
extract a sub-image
CALLING SEQUENCE:
data_out=norh_ext_subimg(index_in,data_in,index_out,corner,nsize)
INPUTS:
index_in: index structure
data_in: data
index_out: index structure of the extracted data
corner: left-bottom corner pixel coordinate
of the extracted data
nsize: shape of extracted data
OUTPUTS:
data_out: extracted data
CALLS: ***
norh_cen [1], norh_cen [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_ext_subimg
PURPOSE:
extract a sub-image
CALLING SEQUENCE:
data_out=norh_ext_subimg(index_in,data_in,index_out,corner,nsize)
INPUTS:
index_in: index structure
data_in: data
index_out: index structure of the extracted data
corner: left-bottom corner pixel coordinate
of the extracted data
nsize: shape of extracted data
OUTPUTS:
data_out: extracted data
CALLS: ***
norh_cen [1], norh_cen [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_F2EVF
PURPOSE:
This function interprets the event-mode-data frame number
into the event file name.
CALLING SEQUENCE:
evf = norh_f2evf(dayfr)
INPUT:
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
OUTPUT:
evf: event file name
OPTIONAL INPUT KEYWORDS:
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
CALLS: ***
NORH_PR_INFO [1], NORH_PR_INFO [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2], NORH_TRANS_BYF [1], NORH_TRANS_BYF [2]
HISTORY:
Writtern 1999-02-04 TY
Modified 1999-11-15 TY become faster
[Previous]
[Next]
NAME:
NORH_F2EVF
PURPOSE:
This function interprets the event-mode-data frame number
into the event file name.
CALLING SEQUENCE:
evf = norh_f2evf(dayfr)
INPUT:
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
OUTPUT:
evf: event file name
OPTIONAL INPUT KEYWORDS:
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
CALLS: ***
NORH_PR_INFO [1], NORH_PR_INFO [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2], NORH_TRANS_BYF [1], NORH_TRANS_BYF [2]
HISTORY:
Writtern 1999-02-04 TY
[Previous]
[Next]
NAME:
NORH_FITS_INTERP
PURPOSE:
Interprets a FITS header and returns a structure with the
tagnames matching the FITS keywords and tag values
equal to the keyword values.
INPUT PARAMETERS:
header = FITS header, string array.
OUTPUT PARAMETERS:
result = structure with values.
OPTIONAL INPUT KEYWORDS:
inname = name of structure to be created, string. Ignored
if /INSTRUC is passed. Default, generate a name
based on the current date and time UT.
instruc = structure to use for interpreting header.
Default, create a structure based on the header
and the values it contains.
ishort - If set, use Integer type rather than Long.
Ignored if INSTRUC is provided.
fshort - If set, use Float type rather than Double.
Ignored if INSTRUC is provided
(See Restrictions)
USAGE:
The header string array for a given FITS file can be read
either with
image = READFITS( 'FITS.filename', header )
or
header = HEADFITS( 'FITS.filename' ).
The initial call to FITS_INTERP will define the
structure with datatypes based on the values in the
header. It is good practice to use the /INNAME
keyword to avoid structure definition conflicts.
Subsequent calls to FITS_INTERP for the
same kind of image files should use the INSTRUC keyword
to enforce compatibility of the output structures.
It is not possible to redefine the contents of a structure
with a given name.
CALLS: ***
GETTOK [1], GETTOK [2], GETTOK [3], GETTOK [4], NORH_CREATE_STR, REPCHR [1]
REPCHR [2], REPCHR [3], STRNUMBER [1], STRNUMBER [2], STRNUMBER [3], STRNUMBER [4]
ut_time [1], ut_time [2]
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2], NORH_TCX2IDX [1], NORH_TCX2IDX [2]
NORH_TSX2IDX [1], NORH_TSX2IDX [2]
RESTRICTIONS:
All byte, integer, and long values are interpreted as long;
all float, double and E format values are interpreted as real*8.
These conventions insure that if the range of values in the
current header is small, there is still room for later, large
data values. The keywords ISHORT and FSHORT can be set
to save storage if the data value ranges are KNOWN to be small.
Remember, you cannot redefine the structure with a different
choice for ISHORT or FSHORT.
Blank fields may be interpreted with incorrect data types.
Multiple Comment and History lines in the header are gathered into
single .COMMENT and .HISTORY tags as string arrays.
HISTORY:
Written September 30, 1994 Barry LaBonte
Bug fix for structure name October 6, 1994 BJL
Separate comment and history tags October 10, 1994 BJL
Fix structure name case, order October 14, 1994 BJL
Better logic to identify value field October 25, 1994 BJL
Verify the END line in header March 3, 1995 BJL
Modified for NORH 1999-01 TY
[Previous]
[Next]
NAME:
NORH_FITS_INTERP
PURPOSE:
Interprets a FITS header and returns a structure with the
tagnames matching the FITS keywords and tag values
equal to the keyword values.
INPUT PARAMETERS:
header = FITS header, string array.
OUTPUT PARAMETERS:
result = structure with values.
OPTIONAL INPUT KEYWORDS:
inname = name of structure to be created, string. Ignored
if /INSTRUC is passed. Default, generate a name
based on the current date and time UT.
instruc = structure to use for interpreting header.
Default, create a structure based on the header
and the values it contains.
ishort - If set, use Integer type rather than Long.
Ignored if INSTRUC is provided.
fshort - If set, use Float type rather than Double.
Ignored if INSTRUC is provided
(See Restrictions)
USAGE:
The header string array for a given FITS file can be read
either with
image = READFITS( 'FITS.filename', header )
or
header = HEADFITS( 'FITS.filename' ).
The initial call to FITS_INTERP will define the
structure with datatypes based on the values in the
header. It is good practice to use the /INNAME
keyword to avoid structure definition conflicts.
Subsequent calls to FITS_INTERP for the
same kind of image files should use the INSTRUC keyword
to enforce compatibility of the output structures.
It is not possible to redefine the contents of a structure
with a given name.
CALLS: ***
GETTOK [1], GETTOK [2], GETTOK [3], GETTOK [4], NORH_CREATE_STR, REPCHR [1]
REPCHR [2], REPCHR [3], STRNUMBER [1], STRNUMBER [2], STRNUMBER [3], STRNUMBER [4]
ut_time [1], ut_time [2]
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2], NORH_TCX2IDX [1], NORH_TCX2IDX [2]
NORH_TSX2IDX [1], NORH_TSX2IDX [2]
RESTRICTIONS:
All byte, integer, and long values are interpreted as long;
all float, double and E format values are interpreted as real*8.
These conventions insure that if the range of values in the
current header is small, there is still room for later, large
data values. The keywords ISHORT and FSHORT can be set
to save storage if the data value ranges are KNOWN to be small.
Remember, you cannot redefine the structure with a different
choice for ISHORT or FSHORT.
Blank fields may be interpreted with incorrect data types.
Multiple Comment and History lines in the header are gathered into
single .COMMENT and .HISTORY tags as string arrays.
HISTORY:
Written September 30, 1994 Barry LaBonte
Bug fix for structure name October 6, 1994 BJL
Separate comment and history tags October 10, 1994 BJL
Fix structure name case, order October 14, 1994 BJL
Better logic to identify value field October 25, 1994 BJL
Verify the END line in header March 3, 1995 BJL
Modified for NORH 1999-01 TY
[Previous]
[Next]
NAME:
NORH_FIXINDEX
PURPOSE:
Fix the NoRH index to fit the SSW time format
CALLING SEQUENCE:
outindex=norh_fixindex(index)
INPUT:
index: index structure read by 'mreadfits'
OUTPUT:
returns fixed structure
CALLS: ***
ADD_TAG [1], ADD_TAG [2], anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
MODIFICATION HISTORY:
T. Yokoyama, May, 1999.
Modified T. Yokoyama, June. 20, 1999.
[Previous]
[Next]
NAME:
norh_frfr_inv
PURPOSE:
Derive physical variables from a set of NoRH flux (17GHz-I,
17GHz-V) based on the assumption that the emssion is of
Bremsstrahrung.
(c.f. Dulk, 1985, ARAA, 23, 169)
CALLING SEQUENCE:
B-los : Line-of-sight component of magnetic field
VEM : Volume emission measure
Te : Electron temperature
tau : Optical thickness
(0) get B-los and VEM/sqrt(Te) without any assumption
norh_frfr_inv,freq,fi,fv,b_los,vem_over_sqrtte
(1) get B-los and VEM by assuming Te
norh_frfr_inv,freq,fi,fv,b_los,tein,vem,/assumete
(2) get B-los and Te by assuming VEM
norh_frfr_inv,freq,fi,fv,b_los,vemin,te,/assumevem
(3) get B-los, VEM, and tau by assuming Te and omega
norh_frfr_inv,freq,fi,fv,b_los,tein,vem,omega,tau,/assumete
(4) get B-los, Te and tau by assuming VEM and omega
norh_frfr_inv,freq,fi,fv,b_los,vemin,te,omega,tau,/assumevem
INPUTS:
fi: flux density [SFU] of Stokes-I(r+l) component
fv: flux density [SFU] of Stokes-V(r-l) component
vemin ; assumed [cm^-3] volume emission measure
tein: assumed electron temperature [K]
omega: source size in surface angle [steradian]
OUTPUTS:
b_los: Line-of-Sight component of magnetic field [G]
vem_over_sqrtte: VEM/sqrt(T) [cm^-3 K^(-1/2)]
where T is electron temperature [K], and
VEM is [cm^-3] volume emission measure
vem ; [cm^-3] volume emission measure
te: electron temperature [K]
tau ; optical thickness
OPTIONAL INPUTS:
HISTORY:
Writtern 1999-11-25 T. Yokoyama
Revised 2000-05-03 T. Yokoyama bug fix
[Previous]
[Next]
NAME:
NORH_FUJIKI
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data by the 'Fujiki'
program.
CALLING SEQUENCE:
norh_fujiki,rawfile,szfile,frame
INPUTS:
rawfile: Raw-data file for synthesizing
szfile: 'SZ' file corresponding to the raw-data file
frame: frame ID number to be synthesized
OPTIONAL INPUT KEYWORDS:
*Version
version: version of synthesizing program.
Newest if given '-1'.
'3','4','6.0', '6.1' or '6.2' are available for 'fujiki'.
*Data
outfile: input-parameter file for synthesizing
rlphdiffile: phase-difference-table file
imgdir: Image-data file name
nfrint: Number of frames for integration (default 1)
*Field of View
Image pixel size is fixed to (128,128) in 'fujiki'.
cenfnl: Position of Sun center relative to the image center
Default is (0,0).
cenunit: Unit ID for 'cenfnl' [1: arcsec(default); 2: pixel]
*Calibration
nfrcal: Number of frames used for calibration (default 1)
ref_frame:
ref_nfrcal:
*CLEAN paramters
clcra: CLEAN criterion for (r+l) (default 3000)
clcrs: CLEAN criterion for (r-l) (default 3000)
clcrfac:
winsize:
clc2a: pre-CLEAN criterion for (r+l) (default 3000)
clc2s: pre-CLEAN criterion for (r-l) (default 3000)
pre_clcra: pre-CLEAN criterion for (r+l) (default 3000)
CALLS: ***
curdir [1], curdir [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Written 1998-11-12 TY
Modified 1999-6-30 TY for ver6.2
Modified 1999-12-27 TY ref_frame0
Modified 2001-1-12 TY for bug print,frame,format
Modified 2001-3-06 TY for ver6.3
[Previous]
[Next]
NAME:
NORH_FUJIKI
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data by the 'Fujiki'
program.
CALLING SEQUENCE:
norh_fujiki,rawfile,szfile,frame
INPUTS:
rawfile: Raw-data file for synthesizing
szfile: 'SZ' file corresponding to the raw-data file
frame: frame ID number to be synthesized
OPTIONAL INPUT KEYWORDS:
*Version
version: version of synthesizing program.
Newest if given '-1'.
'3','4','6.0', or '6.1' are available for 'fujiki'.
*Data
outfile: input-parameter file for synthesizing
rlphdiffile: phase-difference-table file
imgdir: Image-data file name
*Field of View
Image pixel size is fixed to (1024,1024) in 'fujiki'.
cenfnl: Position of Sun center relative to the image center
Default is (0,0).
cenunit: Unit ID for 'cenfnl' [1: arcsec(default); 2: pixel]
*CLEAN paramters (common)
nfrcal: Number of frames used for calibration (default 1)
nfrint: Number of frames used for integration (default 1)
clcra: CLEAN criterion for (r+l) (default 3000)
clcrs: CLEAN criterion for (r-l) (default 3000)
*CLEAN paramters ('fujiki' only)
clcrfac:
winsize:
clc2a:
clc2s:
ref_frame:
pre_clcra:
CALLS: ***
curdir [1], curdir [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Written 1998-11-12 TY
[Previous]
[Next]
NAME:
norh_get_info
PURPOSE:
Return the info array
CALLING SEQUENCE:
info=norh_get_info(index)
INPUTS:
index: index structure
CALLS: ***
fmt_tim [1], fmt_tim [2], norh_gt_freq [1], norh_gt_freq [2]
norh_gt_polariz [1], norh_gt_polariz [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_get_info
PURPOSE:
Return the info array
CALLING SEQUENCE:
info=norh_get_info(index)
INPUTS:
index: index structure
CALLS: ***
fmt_tim [1], fmt_tim [2], norh_gt_freq [1], norh_gt_freq [2]
norh_gt_polariz [1], norh_gt_polariz [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_GRID
PURPOSE:
Overlay a Stonyhurst (heliographic) coordinate grid on an NORH
full frame or partial frame image.
CALLING SEQUENCE:
norh_grid,index [,data,mag=mag,img_pos=img_pos,gridsep=gridsep, $
res=res,noerase=noerase,center=center,get_center=get_center, $
latlon=latlon,refit=refit , last_latlon=last_latlon
INPUTS:
index: index structure
OPTIONAL INPUTS:
POSITIONAL PARAMETERS:
DATA - NORH image array (required for limb fit).
KEYWORDS PARAMETERS:
MAG = Magnification factor of image displayed over original
NORH image (def = 1)
IMG_POS = Position of lower left corner of image within display
window (def = [0,0])
GRIDSEP = Major latitude and longitude grid separation interval
in degrees (def = 15).
MGRIDSEP = Minor latitude and longitude grid separation interval
in degrees (def = 5). - NOTE: NOT YET IMPLEMENTED.
NOERASE = Determines whether window is erased prior to drawing
grid (def = 1 (no)).
GET_CENTER = Forces limb fit determination of pointing even when
pointing data is available (def = 0).
LATLON = [2,n] array of latitude and longitude coordinates
in degrees. Circles will be drawn on the image at
these coordinates.
SYMSIZE = Symbol size (arbitrary) of LATLON circles (def=1).
REFIT If present and non-zero, the refit option of GET_XYRAD
will be used.
READ_OUT If present and non-zero, the heliographic coordinates
of the cursor will be written to a window-let.
FUDGE If present and non-zero, a standard fudge offset
will be included in the horizontal axis.
XFUDGE = Horizontal fudge offset in displayed image pixels
(not necessarily full res pixels).
YFUDGE = Vertical fudge offset in displayed image pixels
(not necessarily full res pixels).
REDISP If present and non-zero and if DATA array supplied,
then the image is redisplayed before grid is drawn.
NOGRID If present and non-zero, grid is not drawn.
DRAW_LIMB If present and non-zero, limb is drawn.
DRAW_EQ If present and non-zero, equator is drawn.
ANGLE If set, display the READ_OUT value in arcseconds
from sun center.
TV2 If set, does scaling for PS plotting
OUTPUTS:
KEYWORDS PARAMETERS:
CENTER = xy coordinates of center of image relative to center
of sun in fractions of the solar radius (I know, kinda
stupid).
LAST_LATLON = last output [during /READ_OUT mode]
[e/w, n/s] with east and south negative.
CALLS: ***
C2S, DRAW_GRID [1], DRAW_GRID [2], DRAW_GRID [3], WDEF [1], WDEF [2], get_rb0p [1]
get_rb0p [2], get_xyrad, norh_cen [1], norh_cen [2], norh_gt_corner [1]
norh_gt_corner [2], norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_shape [1]
norh_gt_shape [2], norh_gt_solr [1], norh_gt_solr [2], restsys [1], restsys [2]
savesys [1], savesys [2]
HISTORY:
Based on 'SXT_GRID' of Yohkoh software
1998-5-28 wrtten by TY
[Previous]
[Next]
NAME:
NORH_GRID
PURPOSE:
Overlay a Stonyhurst (heliographic) coordinate grid on an NORH
full frame or partial frame image.
CALLING SEQUENCE:
norh_grid,index [,data,mag=mag,img_pos=img_pos,gridsep=gridsep, $
res=res,noerase=noerase,center=center,get_center=get_center, $
latlon=latlon,refit=refit , last_latlon=last_latlon
INPUTS:
index: index structure
OPTIONAL INPUTS:
POSITIONAL PARAMETERS:
DATA - NORH image array (required for limb fit).
KEYWORDS PARAMETERS:
MAG = Magnification factor of image displayed over original
NORH image (def = 1)
IMG_POS = Position of lower left corner of image within display
window (def = [0,0])
GRIDSEP = Major latitude and longitude grid separation interval
in degrees (def = 15).
MGRIDSEP = Minor latitude and longitude grid separation interval
in degrees (def = 5). - NOTE: NOT YET IMPLEMENTED.
NOERASE = Determines whether window is erased prior to drawing
grid (def = 1 (no)).
GET_CENTER = Forces limb fit determination of pointing even when
pointing data is available (def = 0).
LATLON = [2,n] array of latitude and longitude coordinates
in degrees. Circles will be drawn on the image at
these coordinates.
SYMSIZE = Symbol size (arbitrary) of LATLON circles (def=1).
REFIT If present and non-zero, the refit option of GET_XYRAD
will be used.
READ_OUT If present and non-zero, the heliographic coordinates
of the cursor will be written to a window-let.
FUDGE If present and non-zero, a standard fudge offset
will be included in the horizontal axis.
XFUDGE = Horizontal fudge offset in displayed image pixels
(not necessarily full res pixels).
YFUDGE = Vertical fudge offset in displayed image pixels
(not necessarily full res pixels).
REDISP If present and non-zero and if DATA array supplied,
then the image is redisplayed before grid is drawn.
NOGRID If present and non-zero, grid is not drawn.
DRAW_LIMB If present and non-zero, limb is drawn.
DRAW_EQ If present and non-zero, equator is drawn.
ANGLE If set, display the READ_OUT value in arcseconds
from sun center.
TV2 If set, does scaling for PS plotting
OUTPUTS:
KEYWORDS PARAMETERS:
CENTER = xy coordinates of center of image relative to center
of sun in fractions of the solar radius (I know, kinda
stupid).
LAST_LATLON = last output [during /READ_OUT mode]
[e/w, n/s] with east and south negative.
CALLS: ***
C2S, DRAW_GRID [1], DRAW_GRID [2], DRAW_GRID [3], WDEF [1], WDEF [2], get_rb0p [1]
get_rb0p [2], get_xyrad, norh_cen [1], norh_cen [2], norh_gt_corner [1]
norh_gt_corner [2], norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_shape [1]
norh_gt_shape [2], norh_gt_solr [1], norh_gt_solr [2], restsys [1], restsys [2]
savesys [1], savesys [2]
HISTORY:
Based on 'SXT_GRID' of Yohkoh software
1998-5-28 wrtten by TY
[Previous]
[Next]
NAME:
norh_gt_corner
PURPOSE:
Return the left-bottom corner of an NORH Field of View
from the Sun center in pixel unit
CALLING SEQUENCE:
corner=norh_gt_corner(index)
INPUTS:
index: index structure
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [1], NORH_NORH2SXT [2]
NORH_NORH2SXT [3], NORH_NORH2SXT [4]
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_corner
PURPOSE:
Return the left-bottom corner of an NORH Field of View
from the Sun center in pixel unit
CALLING SEQUENCE:
corner=norh_gt_corner(index)
INPUTS:
index: index structure
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [1], NORH_NORH2SXT [2]
NORH_NORH2SXT [3], NORH_NORH2SXT [4]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_day
PURPOSE:
Return day (UT) of the observation
Internal format.
CALLING SEQUENCE:
day=norh_gt_day(index)
INPUTS:
index: index structure
OPTIONAL INPUT KEYWORDS:
ints: if defined, return day and time structure
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_day
PURPOSE:
Return day (UT) of the observation
Internal format.
CALLING SEQUENCE:
day=norh_gt_day(index)
INPUTS:
index: index structure
OPTIONAL INPUT KEYWORDS:
ints: if defined, return day and time structure
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_GT_DAYJST
PURPOSE:
Return JST day in index structure
CALLING SEQUENCE:
dayjst = norh_gt_dayjst(index)
INPUTS:
index: data index structure
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
Default is 'ccsds'.
OUTPUT:
dayjst: An n-element vector of JST day.
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
NORH_GT_DAYJST
PURPOSE:
Return JST day in index structure
CALLING SEQUENCE:
dayjst = norh_gt_dayjst(index)
INPUTS:
index: data index structure
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
Default is 'ccsds'.
OUTPUT:
dayjst: An n-element vector of JST day.
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_efl
PURPOSE:
Return the e-folding length of the dirty beam
in units of dirty-map pixel
CALLING SEQUENCE:
efl=norh_gt_efl(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_efl
PURPOSE:
Return the e-folding length of the dirty beam
in units of dirty-map pixel
CALLING SEQUENCE:
efl=norh_gt_efl(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
[Previous]
[Next]
NAME:
norh_gt_expdur
PURPOSE:
Return the exposure duration in units of sec.
CALLING SEQUENCE:
expdur=norh_gt_expdur(index)
INPUTS:
index: index structure
HISTORY:
Writtern 1999-11-23 T. Yokoyama
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_freq
PURPOSE:
Return the obseving frequancy
CALLING SEQUENCE:
freq=norh_gt_freq(index)
INPUTS:
index: index structure
CALLED BY:
NORH_RD_TSX [1], NORH_RD_TSX [2], norh_alpha, norh_get_info [1]
norh_get_info [2], norh_tb2flux
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_freq
PURPOSE:
Return the obseving frequancy
CALLING SEQUENCE:
freq=norh_gt_freq(index)
INPUTS:
index: index structure
CALLED BY:
NORH_RD_TSX [1], NORH_RD_TSX [2], norh_alpha, norh_get_info [1]
norh_get_info [2], norh_tb2flux
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_imgcen
PURPOSE:
Return the corordinate of the image center in arcsec unit
from the solar disk corner
CALLING SEQUENCE:
imgcen=norh_gt_imgcen(index)
INPUTS:
index: index structure
OPTIONAL OUTPUT:
CALLS: ***
norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_shape [1], norh_gt_shape [2]
HISTORY:
Modified 2000-07-25 TY
Revised 2001-04-09 V. Grechnev to handle vector
[Previous]
[Next]
NAME:
NORH_GT_LONLAT
PURPOSE:
This function returns the value of the longitude and latitude
of the NoRH in units of degree
CALLING SEQUENCE:
lonlat=norh_gt_lonlat()
OUTPUTS:
lonlat: [longitude, latitude]
CALLED BY:
norh_t2azel
HISTORY:
Writtern 2000-09-10 TY
[Previous]
[Next]
NAME:
NORH_GT_NS2EW
PURPOSE:
This function returns the value (Delta_NS/Delta_EW),
where Delta_NS and Delta_EW is the distance between
the antennas in the NS and EW directions, respectively.
CALLING SEQUENCE:
ns2ew=norh_gt_ns2ew()
OUTPUTS:
ns2ew: (Delta_NS/Delta_EW)
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
[Previous]
[Next]
NAME:
NORH_GT_NS2EW
PURPOSE:
This function returns the value (Delta_NS/Delta_EW),
where Delta_NS and Delta_EW is the distance between
the antennas in the NS and EW directions, respectively.
CALLING SEQUENCE:
ns2ew=norh_gt_ns2ew()
OUTPUTS:
ns2ew: (Delta_NS/Delta_EW)
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
[Previous]
[Next]
NAME:
norh_gt_pixsd
PURPOSE:
Return the pixel size of the dirty maps
in units of arcsec
CALLING SEQUENCE:
sec_per_pix_dty=norh_gt_pixsd(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_pixsd
PURPOSE:
Return the pixel size of the dirty maps
in units of arcsec
CALLING SEQUENCE:
sec_per_pix_dty=norh_gt_pixsd(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
[Previous]
[Next]
NAME:
norh_gt_pixsz
PURPOSE:
Return the pixel size
in units of arcsec.
CALLING SEQUENCE:
pixsz=norh_gt_pixsz(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2], NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [1]
NORH_NORH2SXT [2], NORH_NORH2SXT [3], NORH_NORH2SXT [4], NORH_P2H [1]
NORH_P2H [2], norh_gt_imgcen, norh_tb2flux
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_pixsz
PURPOSE:
Return the pixel size
in units of arcsec.
CALLING SEQUENCE:
pixsz=norh_gt_pixsz(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2], NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [1]
NORH_NORH2SXT [2], NORH_NORH2SXT [3], NORH_NORH2SXT [4], NORH_P2H [1]
NORH_P2H [2], norh_gt_imgcen, norh_tb2flux
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_pmat
PURPOSE:
Return the 'P-matrix'
CALLING SEQUENCE:
pmat=norh_gt_pmat(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_pmat
PURPOSE:
Return the 'P-matrix'
CALLING SEQUENCE:
pmat=norh_gt_pmat(index)
INPUTS:
index: index structure
CALLED BY:
NORH_BEAM [1], NORH_BEAM [2]
HISTORY:
Writtern 1998-09-17 TY
[Previous]
[Next]
NAME:
norh_gt_polariz
PURPOSE:
Return the polarization (e.g. r+l, r-l,..) of the data
CALLING SEQUENCE:
freq=norh_gt_polariz(index)
INPUTS:
index: index structure
CALLED BY:
norh_get_info [1], norh_get_info [2]
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_polariz
PURPOSE:
Return the polarization (e.g. r+l, r-l,..) of the data
CALLING SEQUENCE:
freq=norh_gt_polariz(index)
INPUTS:
index: index structure
CALLED BY:
norh_get_info [1], norh_get_info [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_progname
PURPOSE:
Return the name of synthesis program
CALLING SEQUENCE:
progname=norh_gt_progname(index)
INPUTS:
index: index structure
HISTORY:
Writtern 1999-02-18 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_progname
PURPOSE:
Return the name of synthesis program
CALLING SEQUENCE:
progname=norh_gt_progname(index)
INPUTS:
index: index structure
HISTORY:
Writtern 1999-02-18 TY
[Previous]
[Next]
NAME:
norh_gt_shape
PURPOSE:
Return the shape of the data
CALLING SEQUENCE:
freq=norh_gt_shape(index)
INPUTS:
index: index structure
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [2], NORH_NORH2SXT [4], norh_cen [1]
norh_cen [2], norh_gt_imgcen
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_shape
PURPOSE:
Return the shape of the data
CALLING SEQUENCE:
freq=norh_gt_shape(index)
INPUTS:
index: index structure
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_NORH2SXT [2], NORH_NORH2SXT [4], norh_cen [1]
norh_cen [2], norh_gt_imgcen
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_solr
PURPOSE:
Return the Solar radius in the images
in units of the optical radius.
CALLING SEQUENCE:
solr=norh_gt_solr(index)
INPUTS:
index: index structure
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_P2H [1], NORH_P2H [2]
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_solr
PURPOSE:
Return the Solar radius in the images
in units of the optical radius.
CALLING SEQUENCE:
solr=norh_gt_solr(index)
INPUTS:
index: index structure
CALLED BY:
NORH_GRID [1], NORH_GRID [2], NORH_P2H [1], NORH_P2H [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gt_time
PURPOSE:
Return time
CALLING SEQUENCE:
time=norh_gt_time(index)
INPUTS:
index: index structure
OPTIONAL INPUT KEYWORDS:
ints: if defined, return day and time structure
HISTORY:
Writtern 1998-05-29 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
norh_gt_time
PURPOSE:
Return time
CALLING SEQUENCE:
time=norh_gt_time(index)
INPUTS:
index: index structure
OPTIONAL INPUT KEYWORDS:
ints: if defined, return day and time structure
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_GT_TIMEJST
PURPOSE:
Return JST time in index structure
CALLING SEQUENCE:
timejst = norh_gt_timejst(index)
INPUTS:
index: data index structure
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
Default is 'ccsds'.
OUTPUT:
timejst: An n-element vector of JST time.
CALLS: ***
norh_dedegen [1], norh_dedegen [2]
CALLED BY:
NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_GT_TIMEJST
PURPOSE:
Return JST time in index structure
CALLING SEQUENCE:
timejst = norh_gt_timejst(index)
INPUTS:
index: data index structure
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
Default is 'ccsds'.
OUTPUT:
timejst: An n-element vector of JST time.
CALLS: ***
norh_dedegen [1], norh_dedegen [2]
CALLED BY:
NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-05-29 TY
[Previous]
[Next]
NAME:
norh_gysy_inv
PURPOSE:
Derive physical variables from a set of NoRH flux (17GHz-I,
17GHz-V, 34GHz-I) based on the assumption that the emssion is of
gyrosyncrotron radiation from power-law electrons.
(c.f. Dulk, 1985, ARAA, 23, 169)
CALLING SEQUENCE:
Assume power law,
dNV(E)/dE = K(E0) (E/E0)^(-delta) where E0=10keV
where K(E0) = NV(E0)*(delta-1)*E0^(delta-1)
NV(E) : total number of non-thermal e- over energy E [particles]
B : magnetic field strength
theta : angle [degree] between Line-of-sight and magnetic vector
tau : Optical thickness
(0) get delta without any assumption
norh_gysy_inv,fi0,fi1,delta
(1) get delta, B, and NV by assuming theta
norh_gysy_inv,fi0,fi1,delta,fv0,thetain,bb,nv,/assumetheta
(2) get delta, NV, and theta by assuming B
norh_gysy_inv,fi0,fi1,delta,fv0,bbin,nv,theta,/assumebb
(3) get delta, theta and B by assuming NV
norh_gysy_inv,fi0,fi1,delta,fv0,nvin,theta,bb,/assumenv
(4) get delta, B, NV and tau by assuming theta and omega
norh_gysy_inv,fi0,fi1,delta,fv0,thetain,bb,nv,/assumetheta,omega,tau
(5) get delta, NV, theta, and tau by assuming B and omega
norh_gysy_inv,fi0,fi1,delta,fv0,bbin,nv,theta,/assumebb,omega,tau
(6) get delta, theta, B and tau by assuming NV and omega
norh_gysy_inv,fi0,fi1,delta,fv0,nvin,theta,bb,/assumenv,omega,tau
INPUTS:
fi0: flux density [SFU] of Stokes-I(r+l) component at frequency #0.
fi1: flux density [SFU] of Stokes-I(r+l) component at frequency #1.
fv0: flux density [SFU] of Stokes-V(r-l) component at frequency #0.
thetain: assumed angle [degree]
between Line-of-sight and magnetic vector
bbin: assumed magnetic field strength [G]
nvin: assumed total number of non-thermal e- [particles]
omega: source size in surface angle [steradian]
OUTPUTS:
delta: power-law index of non-thermal e- distribution
theta: angle [degree] between Line-of-sight and magnetic vector
bb: magnetic field strength [G]
nv: total number of non-thermal e- [particles]
OPTIONAL INPUTS:
freq0: frequency #0 [GHz]. Default is 17GHz.
freq1: frequency #1 [GHz]. Default is 34GHz.
OPTIONAL OUTPUTS:
mvalid ; 1 if valid data, 0 if invalid data
HISTORY:
Writtern 1999-09-08 T. Yokoyama
Revised 2000-05-03 T. Yokoyama bug fix
[Previous]
[Next]
NAME:
NORH_HANAOKA
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data by the 'Hanaoka'
program.
CALLING SEQUENCE:
norh_hanaoka,rawfile,szfile,frame
INPUTS:
rawfile: Raw-data file for synthesizing
szfile: 'SZ'file corresponding to the raw-data file
frame: frame ID number to be synthesized
OPTIONAL INPUT KEYWORDS:
*Version
version: version of synthesizing program.
Newest if given '-1'.
'5.0', '5.1', '6.0', '6.1' or '6.2'
is available for 'hanaoka'.
*Data
outfile: input-parameter file for synthesizing.
Defarult is 'norh_synt_input'
imgdir: Image-data file or directory name
rlphdiffile: phase-difference-table file
freq: observation frequency, 17 or 34
*Field of View
size: Image pixel size. Default is 512/1024 for 17GHz/34GHz.
cenfnl: Position of Sun center relative to the image center
Default is (0,0).
cenunit: Unit ID for 'cenfnl' [1: arcsec(default); 2: pixel]
*CLEAN paramters (common)
nfrcal: Number of frames used for calibration
nfrint: Number of frames used for integration
clcra: CLEAN criterion for (r+l)
clcrs: CLEAN criterion for (r-l)
*CLEAN paramters ('hanaoka' only)
clcrfac:
*Others
cendty:
beamcor:
restoration:
CALLS: ***
curdir [1], curdir [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Written 1998-05-29 TY
Modified 1999-6-30 TY for ver6.2
Modified 2000-7-25 TY for cenunit
Modified 2001-1-12 TY for bug print,frame,format
Modified 2001-3-06 TY for ver6.3
[Previous]
[Next]
NAME:
NORH_HANAOKA
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data by the 'Hanaoka'
program.
CALLING SEQUENCE:
norh_hanaoka,rawfile,szfile,frame
INPUTS:
rawfile: Raw-data file for synthesizing
szfile: 'SZ'file corresponding to the raw-data file
frame: frame ID number to be synthesized
OPTIONAL INPUT KEYWORDS:
*Version
version: version of synthesizing program.
Newest if given '-1'.
'5.0', '5.1', '6.0' or '6.1' is available for 'hanaoka'.
*Data
outfile: input-parameter file for synthesizing.
Defarult is 'norh_synt_input'
imgdir: Image-data file or directory name
rlphdiffile: phase-difference-table file
freq: observation frequency, 17 or 34
*Field of View
size: Image pixel size. Default is 512/1024 for 17GHz/34GHz.
cenfnl: Position of Sun center relative to the image center
Default is (0,0).
cenunit: Unit ID for 'cenfnl' [1: arcsec(default); 2: pixel]
*CLEAN paramters (common)
nfrcal: Number of frames used for calibration
nfrint: Number of frames used for integration
clcra: CLEAN criterion for (r+l)
clcrs: CLEAN criterion for (r-l)
*CLEAN paramters ('hanaoka' only)
clcrfac:
*Others
cendty:
beamcor:
restoration:
CALLS: ***
curdir [1], curdir [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Written 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_HDST_IMG
PURPOSE:
This procedure defines the structures for NORH IFX/IPX FITS
CALLING SEQUENCE:
norh_hdst_img,hdst
OUTPUTS:
hdst: structure for NORH FITS header
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
T. Yokoyama, 1999-11-8 add 'cellsize'
T. Yokoyama, 1999-11-23 add 'jst-strt' and 'jst-end'
[Previous]
[Next]
NAME:
NORH_HDST_IMG
PURPOSE:
This procedure defines the structures for NORH IFX/IPX FITS
CALLING SEQUENCE:
norh_hdst_img,hdst
OUTPUTS:
hdst: structure for NORH FITS header
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_HDST_TCX
PURPOSE:
defines the structures for NORH TCX FITS header
CALLING SEQUENCE:
norh_hdst_tcx,hdst
OUTPUTS:
hdst: structure for NORH FITS header
CALLED BY:
NORH_TCX2IDX [1], NORH_TCX2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_HDST_TCX
PURPOSE:
defines the structures for NORH TCX FITS header
CALLING SEQUENCE:
norh_hdst_tcx,hdst
OUTPUTS:
hdst: structure for NORH FITS header
CALLED BY:
NORH_TCX2IDX [1], NORH_TCX2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_HDST_TSX
PURPOSE:
defines the structures for NORH TSX FITS header
CALLING SEQUENCE:
norh_hdst_tsx,hdst
OUTPUTS:
hdst: structure for NORH FITS header
CALLED BY:
NORH_TSX2IDX [1], NORH_TSX2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_HDST_TSX
PURPOSE:
defines the structures for NORH TSX FITS header
CALLING SEQUENCE:
norh_hdst_tsx,hdst
OUTPUTS:
hdst: structure for NORH FITS header
CALLED BY:
NORH_TSX2IDX [1], NORH_TSX2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_IMG2IDX
PURPOSE:
This procedure converts the NORH image header
to index structure.
CALLING SEQUENCE:
index=norh_img2idx(header)
INPUTS:
header: FITS header read from the image file
OUTPUTS:
index: index structure
CALLS: ***
NORH_FITS_INTERP [1], NORH_FITS_INTERP [2], NORH_HDST_IMG [1]
NORH_HDST_IMG [2], NORH_JST2UT [1], NORH_JST2UT [2], NORH_MKST_INDEX [1]
NORH_MKST_INDEX [2], NORH_PROG2PINF [1], NORH_PROG2PINF [2], anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1], anytim2ints [2]
CALLED BY:
NORH_RD_IMG [1], NORH_RD_IMG [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-08-12 TY for NORH fits 2.0
Revised 1998-11-17 TY for defined hdst
Revised 1998-11-8 TY for 'cellsize'
Revised 1999-11-23 TY for 'jst-strt' and 'jst-end'
Revised 2000-02-25 TY for 'expdur'
[Previous]
[Next]
NAME:
NORH_IMG2IDX
PURPOSE:
This procedure converts the NORH image header
to index structure.
CALLING SEQUENCE:
index=norh_img2idx(header)
INPUTS:
header: FITS header read from the image file
OUTPUTS:
index: index structure
CALLS: ***
NORH_FITS_INTERP [1], NORH_FITS_INTERP [2], NORH_HDST_IMG [1]
NORH_HDST_IMG [2], NORH_JST2UT [1], NORH_JST2UT [2], NORH_MKST_INDEX [1]
NORH_MKST_INDEX [2], NORH_PROG2PINF [1], NORH_PROG2PINF [2], anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1], anytim2ints [2]
CALLED BY:
NORH_RD_IMG [1], NORH_RD_IMG [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-08-12 TY for NORH fits 2.0
Revised 1998-11-17 TY for defined hdst
[Previous]
[Next]
NAME:
NORH_JST2UT
PURPOSE:
This function converts JST time to UT time
CALLING SEQUENCE:
timeut = norh_jst2ut(timejst)
INPUTS:
timejst: An n-element vector of JST time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
yohkoh: Default is 'ccsds'.
ccsds:
ex:
OUTPUT:
timeut: An n-element vector of UT time.
Default is Utime (Double) format.
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2]
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2], NORH_PR_INFO [1], NORH_PR_INFO [2]
norh_t2azel
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_JST2UT
PURPOSE:
This function converts JST time to UT time
CALLING SEQUENCE:
timeut = norh_jst2ut(timejst)
INPUTS:
timejst: An n-element vector of JST time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
yohkoh: Default is 'ccsds'.
ccsds:
ex:
OUTPUT:
timeut: An n-element vector of UT time.
Default is Utime (Double) format.
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2]
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2], NORH_PR_INFO [1], NORH_PR_INFO [2]
norh_t2azel
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_KOSHIX
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data by the 'Koshix'
program.
CALLING SEQUENCE:
norh_koshix,rawfile,szfile,frame
INPUTS:
rawfile: Raw-data file for synthesizing
szfile: 'SZ' file corresponding to the raw-data file
frame: frame ID number to be synthesized
OPTIONAL INPUT KEYWORDS:
*Version
version: version of synthesizing program.
Newest if given '-1'.
'5.1','6.0' '6.1' or '6.2' is available.
*Data
outfile: input-parameter file for synthesizing
rlphdiffile: phase-difference-table file
imgdir: Image-data file name
*Field of View
size: Image pixel size. Default is 512/1024 for 17GHz/34GHz.
cenfnl: Position of Sun center relative to the image center
Default is (0,0).
cenunit: Unit ID for 'cenfnl' [1: arcsec(default); 2: pixel]
*CLEAN paramters (common)
nfrcal: Number of frames used for calibration (default 1)
nfrint: Number of frames used for integration (default 1)
clcra: CLEAN criterion for (r+l) (default 3000)
clcrs: CLEAN criterion for (r-l) (default 3000)
*CLEAN paramters ('koshix' only)
cendty:
beamcor:
CALLS: ***
curdir [1], curdir [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Written 1998-05-29 TY
Modified 1999-6-30 TY for ver6.2
Modified 2000-7-25 TY for cenunit
Modified 2001-1-12 TY for bug print,frame,format
Modified 2001-3-06 TY for ver6.3
[Previous]
[Next]
NAME:
NORH_KOSHIX
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data by the 'Koshix'
program.
CALLING SEQUENCE:
norh_koshix,rawfile,szfile,frame
INPUTS:
rawfile: Raw-data file for synthesizing
szfile: 'SZ' file corresponding to the raw-data file
frame: frame ID number to be synthesized
OPTIONAL INPUT KEYWORDS:
*Version
version: version of synthesizing program.
Newest if given '-1'.
'5.1','6.0' or '6.1' is available.
*Data
outfile: input-parameter file for synthesizing
rlphdiffile: phase-difference-table file
imgdir: Image-data file name
*Field of View
size: Image pixel size. Default is 512/1024 for 17GHz/34GHz.
cenfnl: Position of Sun center relative to the image center
Default is (0,0).
cenunit: Unit ID for 'cenfnl' [1: arcsec(default); 2: pixel]
*CLEAN paramters (common)
nfrcal: Number of frames used for calibration (default 1)
nfrint: Number of frames used for integration (default 1)
clcra: CLEAN criterion for (r+l) (default 3000)
clcrs: CLEAN criterion for (r-l) (default 3000)
*CLEAN paramters ('koshix' only)
cendty:
beamcor:
CALLS: ***
curdir [1], curdir [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Written 1998-05-29 TY
[Previous]
[Next]
NAME:
NORH_MKST_DAYFR
PURPOSE:
This procedure defines the NORH structures
CALLING SEQUENCE:
norh_mkst_dayfr,dayfr
OUTPUTS:
dayfr: dayfr structure
CALLED BY:
NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-11-01 TY
included 'schedule'
[Previous]
[Next]
NAME:
NORH_MKST_DAYFR
PURPOSE:
This procedure defines the NORH structures
CALLING SEQUENCE:
norh_mkst_dayfr,dayfr
OUTPUTS:
dayfr: dayfr structure
CALLED BY:
NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-11-01 TY
included 'schedule'
[Previous]
[Next]
NAME:
NORH_MKST_INDEX
PURPOSE:
This procedure defines the NORH structures
CALLING SEQUENCE:
norh_mkst_index,index
OUTPUTS:
index: index structure
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2], NORH_TCX2IDX [1], NORH_TCX2IDX [2]
NORH_TSX2IDX [1], NORH_TSX2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1999-11-8 TY for 'cellsize'
[Previous]
[Next]
NAME:
NORH_MKST_INDEX
PURPOSE:
This procedure defines the NORH structures
CALLING SEQUENCE:
norh_mkst_index,index
OUTPUTS:
index: index structure
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2], NORH_TCX2IDX [1], NORH_TCX2IDX [2]
NORH_TSX2IDX [1], NORH_TSX2IDX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_MKSZ
PURPOSE:
make SZ file
CALLING SEQUENCE:
norh_mskz,'1992-6-30',['n1','e10']
OUTPUTS:
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
HISTORY:
Based on ? Hanaoka's program
Writtern 1998-05-29 JS and TY
Revised 1999-12-21 TY
[Previous]
[Next]
NAME:
NORH_NORH2SXT
PURPOSE:
Coalign NORH images to SXT ones.
CALLING SEQUENCE:
datar_aligned=norh_norh2sxt(indexr,datar,indexx,datax)
INPUTS:
indexr: NORH index
datar: NORH image data
indexx: SXT index
datax: SXT image data
OUTPUTS:
datar_aligned: Coaligned NORH images to SXT ones.
CALLS: ***
coal_image, gt_corner, gt_pix_size, gt_shape, norh_cen [1], norh_cen [2]
norh_gt_corner [1], norh_gt_corner [2], norh_gt_pixsz [1], norh_gt_pixsz [2]
sxt_cen [1], sxt_cen [2]
HISTORY:
Writtern 1999-01-03 TY
[Previous]
[Next]
NAME:
NORH_NORH2SXT
PURPOSE:
Coalign SXT images to NORH ones.
CALLING SEQUENCE:
datax_aligned=norh_norh2sxt(indexr,datar,indexx,datax)
INPUTS:
indexr: NORH index
datar: NORH image data
indexx: SXT index
datax: SXT image data
OUTPUTS:
datax_aligned: Coaligned SXT images to NORH ones.
CALLS: ***
NORH_SXT2NORH, coal_image, gt_corner, gt_pix_size, norh_cen [1], norh_cen [2]
norh_gt_corner [1], norh_gt_corner [2], norh_gt_pixsz [1], norh_gt_pixsz [2]
norh_gt_shape [1], norh_gt_shape [2], sxt_cen [1], sxt_cen [2]
HISTORY:
Writtern 1999-01-03 TY
[Previous]
[Next]
NAME:
NORH_NORH2SXT
PURPOSE:
Coalign NORH images to SXT ones.
CALLING SEQUENCE:
datar_aligned=norh_norh2sxt(indexr,datar,indexx,datax)
INPUTS:
indexr: NORH index
datar: NORH image data
indexx: SXT index
datax: SXT image data
OUTPUTS:
datar_aligned: Coaligned NORH images to SXT ones.
CALLS: ***
coal_image, gt_corner, gt_pix_size, gt_shape, norh_cen [1], norh_cen [2]
norh_gt_corner [1], norh_gt_corner [2], norh_gt_pixsz [1], norh_gt_pixsz [2]
sxt_cen [1], sxt_cen [2]
HISTORY:
Writtern 1999-01-03 TY
[Previous]
[Next]
NAME:
NORH_NORH2SXT
PURPOSE:
Coalign SXT images to NORH ones.
CALLING SEQUENCE:
datax_aligned=norh_norh2sxt(indexr,datar,indexx,datax)
INPUTS:
indexr: NORH index
datar: NORH image data
indexx: SXT index
datax: SXT image data
OUTPUTS:
datax_aligned: Coaligned SXT images to NORH ones.
CALLS: ***
NORH_SXT2NORH, coal_image, gt_corner, gt_pix_size, norh_cen [1], norh_cen [2]
norh_gt_corner [1], norh_gt_corner [2], norh_gt_pixsz [1], norh_gt_pixsz [2]
norh_gt_shape [1], norh_gt_shape [2], sxt_cen [1], sxt_cen [2]
HISTORY:
Writtern 1999-01-03 TY
[Previous]
[Next]
NAME:
NORH_P2H
PURPOSE:
convert pixel coordinate to the heliographic coordinate
CALLING SEQUENCE:
nsew=norh_p2h(index,pix)
nsew=norh_p2h(index,pix,/string)
INPUTS:
index: NORH index
pix: position [x,y] in pixel unit
OUTPUTS:
nsew: heliographic coordinate [ew,ns]
OPTIONAL KEYWORD INPUTS:
string: string such as 'N30E20' will be given
CALLS: ***
conv_p2h [1], conv_p2h [2], get_rb0p [1], get_rb0p [2], norh_cen [1], norh_cen [2]
norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_solr [1], norh_gt_solr [2]
HISTORY:
Writtern 1998-01-03 TY
Modified 2000-04-19 TY based on V. Grechnev's suggestion
[Previous]
[Next]
NAME:
NORH_P2H
PURPOSE:
convert pixel coordinate to the heliographic coordinate
CALLING SEQUENCE:
nsew=norh_p2h(index,pix)
nsew=norh_p2h(index,pix,/string)
INPUTS:
index: NORH index
pix: position [x,y] in pixel unit
OUTPUTS:
nsew: heliographic coordinate [ew,ns]
OPTIONAL KEYWORD INPUTS:
string: string such as 'E30N20' will be given
CALLS: ***
conv_p2h [1], conv_p2h [2], get_rb0p [1], get_rb0p [2], norh_cen [1], norh_cen [2]
norh_gt_pixsz [1], norh_gt_pixsz [2], norh_gt_solr [1], norh_gt_solr [2]
HISTORY:
Writtern 1998-01-03 TY
[Previous]
[Next]
CALLS:
[Previous]
[Next]
CALLS:
[Previous]
[Next]
NAME:
norh_polariz
PURPOSE:
Derive circular polarization degree
CALLING SEQUENCE:
norh_polariz,indexa,dataa,indexs,datas,polariz,mvalid
INPUTS:
indexa: NoRH index of 17 GHz R+I images
dataa: 2-D or 3-D array of 17 GHz R+I images
indexs: NoRH index of 17 GHz R-I images
datas: 2-D or 3-D array of 17 GHz R-I images
OUTPUTS:
polariz : 2-D or 3-D array of the circular polarization degree
Tb[R-L]/Tb[R+L]
mvalid : 2-D or 3-D array of valid pixels
1 for valid, 0 for non-valid
OPTIONAL INPUTS:
datacri ; criterion to judge the validity. default is 3.e4 K
if both dataac datazc > datacri then valid.
OPTIONAL OUTPUTS:
CALLS: ***
norh_tb2flux
HISTORY:
Writtern 2000-7-24 T. Yokoyama
Revise 2000-8-24 T. Yokoyama add index
[Previous]
[Next]
NAME:
NORH_PR_EVX
PURPOSE:
This procedure gives a list of events observed
by NORH.
CALLING SEQUENCE:
norh_pr_evx,st_time,ed_time
norh_pr_evx,time
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
OPTIONAL OUTPUT:
list: the list of events. string array.
OPTIONAL INPUT KEYWORDS:
freq: observing frequency 17 or 34
criterion: If defined, only the events which have the correlation value
(in unit of DN) over this criterion are listed.
goes: gives a GOES event list.
timegoes: gives a GOES event time-list.
hxt: gives a Yohkoh/HXT event list.
timehxt: gives a HXT event time-list.
nodisp: not display the result
CALLS: ***
CONCAT2D, RD_GEV, REPCHAR, UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5], anytim2ints [1], anytim2ints [2]
file_list [1], file_list [2], gt_time [1], gt_time [2], rd_tfile [1], rd_tfile [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Modified 1998-09-03 TY
Modified 1998-09-16 TY
Modified 1998-09-17 TY
Modified 1998-11-18 TY support hhmmss
Modified 1999-01-03 TY remove 'tohban'
Modified 1999-01-13 TY max. cor becomes unity
Modified 1999-10-26 TY fixed bug
[Previous]
[Next]
NAME:
NORH_PR_EVX
PURPOSE:
This procedure gives a list of events observed
by NORH.
CALLING SEQUENCE:
norh_pr_evx,st_time,ed_time
norh_pr_evx,time
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
OPTIONAL OUTPUT:
list: the list of events. string array.
OPTIONAL INPUT KEYWORDS:
freq: observing frequency 17 or 34
criterion: If defined, only the events which have the correlation value
(in unit of DN) over this criterion are listed.
goes: gives a GOES event list.
timegoes: gives a GOES event time-list.
hxt: gives a Yohkoh/HXT event list.
timehxt: gives a HXT event time-list.
nodisp: not display the result
CALLS: ***
CONCAT2D, RD_GEV, REPCHAR, UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5], anytim2ints [1], anytim2ints [2]
file_list [1], file_list [2], gt_time [1], gt_time [2], rd_tfile [1], rd_tfile [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Modified 1998-09-03 TY
Modified 1998-09-16 TY
Modified 1998-09-17 TY
Modified 1998-11-18 TY support hhmmss
Modified 1999-01-03 TY remove 'tohban'
Modified 1999-01-13 TY max. cor becomes unity
[Previous]
[Next]
NAME:
NORH_PR_INFO
PURPOSE:
This procedure gives a info-list of data observed
by NORH.
CALLING SEQUENCE:
norh_pr_info,st_time,ed_time
norh_pr_info,time
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
OPTIONAL OUTPUT:
list: the list of events. string array.
OPTIONAL INPUT KEYWORDS:
nodisp: not display the result
freq: observing frequency 17 or 34
event: give information on the event-mode observation
log: observation log is also listed
jst: Show times in JST
CALLS: ***
NORH_JST2UT [1], NORH_JST2UT [2], NORH_SPLITSTR, NORH_UT2JST [1]
NORH_UT2JST [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3]
anytim [4], anytim [5], file_list [1], file_list [2]
CALLED BY:
NORH_F2EVF [1], NORH_F2EVF [2], NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-08-13 TY
Modified 1999-01-14 TY
Modified 2000-04-10 TY for Y2K problem
[Previous]
[Next]
NAME:
NORH_PR_INFO
PURPOSE:
This procedure gives a info-list of data observed
by NORH.
CALLING SEQUENCE:
norh_pr_info,st_time,ed_time
norh_pr_info,time
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
OPTIONAL OUTPUT:
list: the list of events. string array.
OPTIONAL INPUT KEYWORDS:
nodisp: not display the result
freq: observing frequency 17 or 34
event: give information on the event-mode observation
log: observation log is also listed
jst: Show times in JST
CALLS: ***
NORH_JST2UT [1], NORH_JST2UT [2], NORH_SPLITSTR, NORH_UT2JST [1]
NORH_UT2JST [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3]
anytim [4], anytim [5], file_list [1], file_list [2]
CALLED BY:
NORH_F2EVF [1], NORH_F2EVF [2], NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-08-13 TY
Modified 1999-01-14 TY
[Previous]
[Next]
NAME:
NORH_PR_REP
PURPOSE:
This procedure gives the NORH tohban report
CALLING SEQUENCE:
norh_pr_rep,year,week
INPUTS:
year:
week:
CALLS: ***
NORH_SPLITSTR, file_list [1], file_list [2]
HISTORY:
Writtern 1998-08-15 TY
[Previous]
[Next]
NAME:
NORH_PR_REP
PURPOSE:
This procedure gives the NORH tohban report
CALLING SEQUENCE:
norh_pr_rep,year,week
INPUTS:
year:
week:
CALLS: ***
NORH_SPLITSTR, file_list [1], file_list [2]
HISTORY:
Writtern 1998-08-15 TY
[Previous]
[Next]
NAME:
NORH_PROG2PINF
PURPOSE:
This IDL prcedure returns the information utilized
in the synthesizing process.
CALLING SEQUENCE:
norh_prog2pinf,progname
OUTPUTS:
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2]
HISTORY:
Writtern 1998-09-17 TY
Revised 1999-11-8 TY 'fujiki'
[Previous]
[Next]
NAME:
NORH_PROG2PINF
PURPOSE:
This IDL prcedure returns the information utilized
in the synthesizing process.
CALLING SEQUENCE:
norh_prog2pinf,progname
OUTPUTS:
CALLED BY:
NORH_IMG2IDX [1], NORH_IMG2IDX [2]
HISTORY:
Writtern 1998-09-17 TY
[Previous]
[Next]
NAME:
NORH_RD_IMG
PURPOSE:
This procedure reads the NORH image file.
CALLING SEQUENCE:
norh_rd_img,infil,index,data
INPUTS:
infil: list of image files to be read
OUTPUTS:
index: index structure
data: Image data
CALLS: ***
HEADFITS [1], HEADFITS [2], HEADFITS [3], NORH_IMG2IDX [1], NORH_IMG2IDX [2]
READFITS [1], READFITS [2], READFITS [3]
HISTORY:
Writtern 1998-05-29 JS and TY
Change name 1998-01-03 TY from norh_rd_maps
[Previous]
[Next]
NAME:
NORH_RD_IMG
PURPOSE:
This procedure reads the NORH image file.
CALLING SEQUENCE:
norh_rd_img,infil,index,data
INPUTS:
infil: list of image files to be read
OUTPUTS:
index: index structure
data: Image data
CALLS: ***
HEADFITS [1], HEADFITS [2], HEADFITS [3], NORH_IMG2IDX [1], NORH_IMG2IDX [2]
READFITS [1], READFITS [2], READFITS [3]
HISTORY:
Writtern 1998-05-29 JS and TY
Change name 1998-01-03 TY from norh_rd_maps
[Previous]
[Next]
NAME:
NORH_RD_RDT
PURPOSE:
This procedure is for reading the raw data of NoRH.
CALLING SEQUENCE:
norh_rd_rdt,file,rdata,header
INPUTS:
file: file name of NoRH raw data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
rdata: structure of the raw data
header: header of the data
CALLS: ***
NORH_F2FNAME, NORH_RD_RDT17, NORH_RD_RDT34, NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
by T. Yokoyama 2000.6.15
[Previous]
[Next]
NAME:
NORH_RD_RDT17
PURPOSE:
This procedure is for reading the raw data of NoRH.
CALLING SEQUENCE:
norh_rd_rdt17,file,rdata,header
norh_rd_rdt17,file,rdata,/event
INPUTS:
file: file name of NoRH raw data
OPTIONAL INPUT KEYWORDS:
event; set when the input is an 'event' file.
In case of 'event' file, no header is returned.
OUTPUTS:
rdata: structure of the raw data
header: header of the data
CALLED BY:
NORH_RD_RDT
HISTORY:
by T. Yokoyama 2000.6.15
by T. Yokoyama 2003.2.28 event keyword
by T. Yokoyama 2003.3.7 little endian
[Previous]
[Next]
NAME:
NORH_RD_RDT34
PURPOSE:
This procedure is for reading the raw data of NoRH.
CALLING SEQUENCE:
norh_rd_rdt34,file,rdata,header
norh_rd_rdt34,file,rdata,/event
INPUTS:
file: file name of NoRH raw data
OPTIONAL INPUT KEYWORDS:
event; set when the input is an 'event' file.
In case of 'event' file, no header is returned.
OUTPUTS:
rdata: structure of the raw data
header: header of the data
CALLED BY:
NORH_RD_RDT
HISTORY:
by T. Yokoyama 2000.6.15
by T. Yokoyama 2003.2.28 event keyword
[Previous]
[Next]
NAME:
NORH_RD_TCX
PURPOSE:
This procedure reads the NORH 'tca' or 'tcz' file.
CALLING SEQUENCE:
norh_rd_tcx,infil,index,cor
norh_rd_tcx,st_day,ed_day,index,cor
norh_rd_tcx,day,index,cor
INPUTS:
infil: list of 'tca' or 'tcz' files to be read
st_day: start day to be read
ed_day: end day to be read
day: day to be read
OPTIONAL INPUTS:
freq: observing frequency, 17 or 34
OPTIONAL INPUT KEYWORDS:
event: if set, read event-mode data
integer: if set, give the correration in longword integer
with max. of 2^{15}=32768.
OUTPUTS:
index: index structure
cor: Correlation.
CALLS: ***
NORH_TCX2IDX [1], NORH_TCX2IDX [2], READFITS [1], READFITS [2], READFITS [3]
UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], file_list [1], file_list [2]
HISTORY:
Writtern 1998-09-04 TY
Modified 1999-01-02 TY for norh_tcx2idx
Modified 1999-01-13 TY max. cor becomes unity
Modified 1999-04-14 TY event
Modified 1999-11-15 TY bug fix for no event-file date
Modified 1999-12-27 TY bug fix for event (JST & UT confuse)
[Previous]
[Next]
NAME:
NORH_RD_TCX
PURPOSE:
This procedure reads the NORH 'tca' or 'tcz' file.
CALLING SEQUENCE:
norh_rd_tcx,infil,index,cor
norh_rd_tcx,st_day,ed_day,index,cor
norh_rd_tcx,day,index,cor
INPUTS:
infil: list of 'tca' or 'tcz' files to be read
st_day: start day to be read
ed_day: end day to be read
day: list of days to be read
OPTIONAL INPUTS:
freq: observing frequency, 17 or 34
OPTIONAL INPUT KEYWORDS:
event: if set, read event-mode data
integer: if set, give the correration in longword integer
with max. of 2^{15}=32768.
OUTPUTS:
index: index structure
cor: Correlation.
CALLS: ***
NORH_TCX2IDX [1], NORH_TCX2IDX [2], READFITS [1], READFITS [2], READFITS [3]
UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], file_list [1], file_list [2]
HISTORY:
Writtern 1998-09-04 TY
Modified 1999-01-02 TY for norh_tcx2idx
Modified 1999-01-13 TY max. cor becomes unity
Modified 1999-04-14 TY event
[Previous]
[Next]
NAME:
NORH_RD_TSX
PURPOSE:
This procedure reads the NORH 'tsa' or 'tsz'
(Time,Status,Intensity,Correlation) file.
CALLING SEQUENCE:
norh_rd_tsx,infil,index,cor
norh_rd_tsx,infil,index,cor,flux
norh_rd_tsx,st_day,ed_day,index,cor,flux
norh_rd_tsx,date,index,cor,flux
INPUTS:
infil: list of 'TSX' files to be read
st_day: start day to be read
ed_day: end day to be read
date: day to be read
OPTIONAL INPUT:
freq: observing frequency
OPTIONAL INPUT KEYWORDS:
event: if set, read event-mode data
integer: if set, give the correration in longword integer
with max. of 2^{15}=32768.
OUTPUTS:
index: index structure
cor: Correlation.
(2-comps. (R and L) for 17GHz or
1-comps. (R+L) for 34GHz)
flux: Flux.
(2-comps. (R and L) for 17GHz or
1-comps. (R+L) for 34GHz)
OPTIONAL OUTPUT:
status: Observing Status of NORH
n_files: Number of files to be read
n_frames: Number of frames to be read
CALLS: ***
NORH_TSX2IDX [1], NORH_TSX2IDX [2], READFITS [1], READFITS [2], READFITS [3]
UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], file_list [1], file_list [2], norh_dedegen [1], norh_dedegen [2]
norh_gt_freq [1], norh_gt_freq [2]
CALLED BY:
NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-08-15 TY
Revised 1998-09-18 TY
Modified 1999-01-13 TY max. cor becomes unity
Modified 1999-02-04 TY /event support
Modified 1999-12-27 TY bug fix for event (JST & UT confuse)
[Previous]
[Next]
NAME:
NORH_RD_TSX
PURPOSE:
This procedure reads the NORH 'tsa' or 'tsz'
(Time,Status,Intensity,Correlation) file.
CALLING SEQUENCE:
norh_rd_tsx,infil,index,cor
norh_rd_tsx,infil,index,cor,flux
norh_rd_tsx,st_day,ed_day,index,cor,flux
norh_rd_tsx,date,index,cor,flux
INPUTS:
infil: list of 'TSX' files to be read
st_day: start day to be read
ed_day: end day to be read
date: list of days to be read
OPTIONAL INPUT:
freq: observing frequency
OPTIONAL INPUT KEYWORDS:
event: if set, read event-mode data
integer: if set, give the correration in longword integer
with max. of 2^{15}=32768.
OUTPUTS:
index: index structure
cor: Correlation.
(2-comps. (R and L) for 17GHz or
1-comps. (R+L) for 34GHz)
flux: Flux.
(2-comps. (R and L) for 17GHz or
1-comps. (R+L) for 34GHz)
OPTIONAL OUTPUT:
status: Observing Status of NORH
n_files: Number of files to be read
n_frames: Number of frames to be read
CALLS: ***
NORH_TSX2IDX [1], NORH_TSX2IDX [2], READFITS [1], READFITS [2], READFITS [3]
UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3], anytim [4]
anytim [5], file_list [1], file_list [2], norh_dedegen [1], norh_dedegen [2]
norh_gt_freq [1], norh_gt_freq [2]
CALLED BY:
NORH_TIM2F [1], NORH_TIM2F [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-08-15 TY
Revised 1998-09-18 TY
Modified 1999-01-13 TY max. cor becomes unity
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
NORH_SEL_DIFF
PURPOSE:
Select phase difference table
CALLING SEQUENCE:
diff_table=norh_sel_diff(timej)
INPUT:
timej: (time for image synthesis (JST))
any format accepted by 'anytim'
OUTPUT:
diff_table: phase difference table name
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], norh_dedegen [1]
norh_dedegen [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_SEL_DIFF
PURPOSE:
Select phase difference table
CALLING SEQUENCE:
diff_table=norh_sel_diff(timej)
INPUT:
timej: (time for image synthesis (JST))
any format accepted by 'anytim'
OUTPUT:
diff_table: phase difference table name
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], norh_dedegen [1]
norh_dedegen [2]
CALLED BY:
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_SYNTH
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data. A synthesizing job
is invoked on the supercomputer system in NSRO
after calling this procedure.
CALLING SEQUENCE:
norh_synth,st_time,ed_time,interval
norh_synth,times
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
interval: Interval of the obseving sequence in units of 'second'.
An n-element vector of string.
times: Time of requested data sequence.
Non-uniform interval is accepted.
OPTIONAL INPUT KEYWORDS:
prog: The program for synthesizing.
'hanaoka', 'koshix' or 'fujiki' is available.
Default is 'hanaoka'.
rawdir: Directry of the raw-data files
Default is the current directory.
imgdir: Directory for synthesized image files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for synthesize shell script.
Default is 'norh_synth_input'.
norun: Set if you only need the parameter file and
do not want really run yet.
usetsx: use 'tsx' file for finding the synthesizing frame
instead of 'info'
CALLS: ***
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2], NORH_TIM2F [1], NORH_TIM2F [2]
curdir [1], curdir [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Modified 1998-11-12 TY for non-NSRO user support
Modified 1998-11-12 TY for Fujiki support
Modified 1999-1-14 TY for useinfo option
Modified 1999-02-04 TY /event support
Modified 2002-05-09 TY add useszac
[Previous]
[Next]
NAME:
NORH_SYNTH
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data. A synthesizing job
is invoked on the supercomputer system in NSRO
after calling this procedure.
CALLING SEQUENCE:
norh_synth,st_time,ed_time,interval
norh_synth,times
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
interval: Interval of the obseving sequence in units of 'second'.
An n-element vector of string.
times: Time of requested data sequence.
Non-uniform interval is accepted.
OPTIONAL INPUT KEYWORDS:
prog: The program for synthesizing.
'hanaoka', 'koshix' or 'fujiki' is available.
Default is 'hanaoka'.
rawdir: Directry of the raw-data files
Default is the current directory.
imgdir: Directory for synthesized image files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for synthesize shell script.
Default is 'norh_synth_input'.
norun: Set if you only need the parameter file and
do not want really run yet.
usetsx: use 'tsx' file for finding the synthesizing frame
instead of 'info'
CALLS: ***
NORH_SYNTH_BYF [1], NORH_SYNTH_BYF [2], NORH_TIM2F [1], NORH_TIM2F [2]
curdir [1], curdir [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Modified 1998-11-12 TY for non-NSRO user support
Modified 1998-11-12 TY for Fujiki support
Modified 1999-1-14 TY for useinfo option
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
NORH_SYNTH_BYF
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data.
after calling this procedure.
The input arguments must be the [date,frame] array.
CALLING SEQUENCE:
norh_synth_byf,dayfr
INPUTS:
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
OPTIONAL INPUT KEYWORDS:
prog: The program for synthesizing.
'hanaoka', 'koshix' or 'fujiki' is available.
Default is 'hanaoka'.
rawdir: Destination of requested files.
Default is the current directory.
imgdir: Directory for synthesized image files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for transfer shell script.
Default is 'norh_trans_input'.
norun: Set if you only need the parameter file and
do not want really run yet.
event: Set if you synthesize the event (50/100 msec) data
CALLS: ***
NORH_F2EVF [1], NORH_F2EVF [2], NORH_FUJIKI [1], NORH_FUJIKI [2]
NORH_HANAOKA [1], NORH_HANAOKA [2], NORH_KOSHIX [1], NORH_KOSHIX [2]
NORH_SEL_DIFF [1], NORH_SEL_DIFF [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5], curdir [1], curdir [2]
file_list [1], file_list [2]
CALLED BY:
NORH_SYNTH [1], NORH_SYNTH [2]
HISTORY:
Written 1998-05-29 TY
Modified 1998-09-08 TY
Modified 1998-11-11 TY for multi-schedule support
Modified 1998-11-12 TY for non-NSRO user support
Modified 1998-11-17 TY for Fujiki-synth. support
Modified 1999-02-04 TY /event support
Modified 2000-06-22 TY bug fix
Modified 2001-03-06 TY for ver6.3
Modified 2002-05-09 TY add useszac
[Previous]
[Next]
NAME:
NORH_SYNTH_BYF
PURPOSE:
This procedure gives a front-end for synthesizing
the NORH images from the raw data.
after calling this procedure.
The input arguments must be the [date,frame] array.
CALLING SEQUENCE:
norh_synth_byf,dayfr
INPUTS:
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
OPTIONAL INPUT KEYWORDS:
prog: The program for synthesizing.
'hanaoka', 'koshix' or 'fujiki' is available.
Default is 'hanaoka'.
rawdir: Destination of requested files.
Default is the current directory.
imgdir: Directory for synthesized image files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for transfer shell script.
Default is 'norh_trans_input'.
norun: Set if you only need the parameter file and
do not want really run yet.
event: Set if you synthesize the event (50/100 msec) data
CALLS: ***
NORH_F2EVF [1], NORH_F2EVF [2], NORH_FUJIKI [1], NORH_FUJIKI [2]
NORH_HANAOKA [1], NORH_HANAOKA [2], NORH_KOSHIX [1], NORH_KOSHIX [2]
NORH_SEL_DIFF [1], NORH_SEL_DIFF [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1]
anytim [2], anytim [3], anytim [4], anytim [5], curdir [1], curdir [2]
file_list [1], file_list [2]
CALLED BY:
NORH_SYNTH [1], NORH_SYNTH [2]
HISTORY:
Written 1998-05-29 TY
Modified 1998-09-08 TY
Modified 1998-11-11 TY for multi-schedule support
Modified 1998-11-12 TY for non-NSRO user support
Modified 1998-11-17 TY for Fujiki-synth. support
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
norh_t2azel
PURPOSE:
Return the elevation and azimuth of the Sun at NoRH
CALLING SEQUENCE:
norh_t2azel,time,az,el
INPUTS:
time: UT time
OUTPUTS:
el: elevation of the Sun at NoRH (in unit of arc-degree)
az: azimuth of the Sun at NoRH (in unit of arc-degree)
OPTIONAL OUTPUTS:
delta: solar declination (in unit of arc-degree)
hour_angle: hour angle (in unit of arc-sec)
CALLS: ***
NORH_GT_LONLAT, NORH_JST2UT [1], NORH_JST2UT [2], NORH_T2YMD, NORH_UT2JST [1]
NORH_UT2JST [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2], anytim [3]
anytim [4], anytim [5], rd_tfile [1], rd_tfile [2]
HISTORY:
Modified 2000-09-10 TY
Modified 2000-12-20 TY added 180 to az
Reference:
Christiansen & Hoegbom (1969) "Radiotelescopes" Appendix 4
[Previous]
[Next]
NAME:
norh_tb2flux
PURPOSE:
Calculate flux density [SFU] from sum of brightness temperature [K].
CALLING SEQUENCE:
fi=norh_tb2flux(tb,index)
fi=norh_tb2flux(tb,pixsz,freq)
INPUTS:
tb: array of data in unit of brightness temperature [K]
index: NoRH index structure
pixsz: size of pixel [arcsec]
freq: [Hz] observing frequency
OUTPUTS:
fi : flux density [SFU]
OPTIONAL KEYWORD INPUTS:
cgs : if set, return flux in cgs unit [erg/s/cm^2/Hz]
jy : if set, return flux in [Jy]
intensity : if set, return array of intensity [SFU/sterad]
box : box = [ i0, i1, j0, j1 ] for partial box
CALLS: ***
NORH_A2P, norh_gt_freq [1], norh_gt_freq [2], norh_gt_pixsz [1]
norh_gt_pixsz [2]
CALLED BY:
norh_alpha, norh_polariz
HISTORY:
Writtern 1999-09-08 T. Yokoyama
Writtern 1999-11-23 T. Yokoyama add /intensity
[Previous]
[Next]
NAME:
NORH_TCX2IDX
PURPOSE:
This procedure converts the NORH 'TCX' header
to index structure.
CALLING SEQUENCE:
index=norh_tcx2idx(header)
INPUTS:
header: FITS header read from the TCX file
OUTPUTS:
index: index structure
CALLS: ***
NORH_FITS_INTERP [1], NORH_FITS_INTERP [2], NORH_HDST_TCX [1]
NORH_HDST_TCX [2], NORH_MKST_INDEX [1], NORH_MKST_INDEX [2], NORH_UT2JST [1]
NORH_UT2JST [2], anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
anytim2ints [1], anytim2ints [2]
CALLED BY:
NORH_RD_TCX [1], NORH_RD_TCX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-08-12 TY
Revised 1999-01-02 TY from norh_cor2idx
Modified 1999-12-27 TY bug fix timejst & dayjst
[Previous]
[Next]
NAME:
NORH_TCX2IDX
PURPOSE:
This procedure converts the NORH 'TCX' header
to index structure.
CALLING SEQUENCE:
index=norh_tcx2idx(header)
INPUTS:
header: FITS header read from the TCX file
OUTPUTS:
index: index structure
CALLS: ***
NORH_FITS_INTERP [1], NORH_FITS_INTERP [2], NORH_HDST_TCX [1]
NORH_HDST_TCX [2], NORH_MKST_INDEX [1], NORH_MKST_INDEX [2], NORH_UT2JST [1]
NORH_UT2JST [2], anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
anytim2ints [1], anytim2ints [2]
CALLED BY:
NORH_RD_TCX [1], NORH_RD_TCX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Revised 1998-08-12 TY
Revised 1999-01-02 TY from norh_cor2idx
[Previous]
[Next]
NAME:
NORH_TIM2F
PURPOSE:
This function interprets the observing time
into the data frame number.
CALLING SEQUENCE:
dayfr = norh_tim2f(st_time,ed_time,interval)
dayfr = norh_tim2f(times)
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
interval: Interval of the obseving sequence in units of 'second'.
An n-element vector of integer.
times: Time of requested data sequence.
Non-uniform interval is accepted.
OPTIONAL INPUT KEYWORDS:
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
jst: Set if the time in arguments are in JST.
Default is in UT.
useinfo: use 'info' file for finding the synthesizing frame
instead of 'tsx'
OUTPUT
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
CALLS: ***
NORH_GT_TIMEJST [1], NORH_GT_TIMEJST [2], NORH_MKST_DAYFR [1]
NORH_MKST_DAYFR [2], NORH_PR_INFO [1], NORH_PR_INFO [2], NORH_RD_TSX [1]
NORH_RD_TSX [2], NORH_UT2JST [1], NORH_UT2JST [2], anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5]
CALLED BY:
NORH_RD_RDT, NORH_SYNTH [1], NORH_SYNTH [2], NORH_TRANS [1], NORH_TRANS [2]
HISTORY:
Writtern 1998-05-29 TY
Modified 1998-09-14 TY
Modified 1999-1-14 TY for useinfo option
Modified 1999-02-04 TY /event support
Modified 1999-07-14 TY bug for data with CALIB
Modified 1999-11-11 TY bug fix for data with calib
Modified 1999-12-27 TY bug fix n0=1+intarr(n_files)
[Previous]
[Next]
NAME:
NORH_TIM2F
PURPOSE:
This function interprets the observing time
into the data frame number.
CALLING SEQUENCE:
dayfr = norh_tim2f(st_time,ed_time,interval)
dayfr = norh_tim2f(times)
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
interval: Interval of the obseving sequence in units of 'second'.
An n-element vector of integer.
times: Time of requested data sequence.
Non-uniform interval is accepted.
OPTIONAL INPUT KEYWORDS:
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
jst: Set if the time in arguments are in JST.
Default is in UT.
useinfo: use 'info' file for finding the synthesizing frame
instead of 'tsx'
OUTPUT
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
CALLS: ***
NORH_GT_TIMEJST [1], NORH_GT_TIMEJST [2], NORH_MKST_DAYFR [1]
NORH_MKST_DAYFR [2], NORH_PR_INFO [1], NORH_PR_INFO [2], NORH_RD_TSX [1]
NORH_RD_TSX [2], NORH_UT2JST [1], NORH_UT2JST [2], anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5]
CALLED BY:
NORH_RD_RDT, NORH_SYNTH [1], NORH_SYNTH [2], NORH_TRANS [1], NORH_TRANS [2]
HISTORY:
Writtern 1998-05-29 TY
Modified 1998-09-14 TY
Modified 1999-1-14 TY for useinfo option
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
NORH_TRANS
PURPOSE:
This procedure transfers the raw-data files of NORH
from the archive to the user's local directory.
CALLING SEQUENCE:
norh_trans,st_time,ed_time,interval
norh_trans,times
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
interval: Interval of the obseving sequence in units of 'second'.
An n-element vector of integer.
times: Time of requested data sequence.
Non-uniform interval is accepted.
OPTIONAL INPUT KEYWORDS:
rawdir: Destination of requested files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for transfer shell script.
Default is 'norh_trans_input'.
norun: Set if you only need the parameter file and
do not want really transfer yet.
usetsx: use 'tsx' file for finding the synthesizing frame
instead of 'info'
CALLS: ***
NORH_TIM2F [1], NORH_TIM2F [2], NORH_TRANS_BYF [1], NORH_TRANS_BYF [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Modified 1999-1-14 TY for useinfo option
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
NORH_TRANS
PURPOSE:
This procedure transfers the raw-data files of NORH
from the archive to the user's local directory.
CALLING SEQUENCE:
norh_trans,st_time,ed_time,interval
norh_trans,times
INPUTS:
st_time: Start time of the observing sequence.
An n-element vector of time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
ed_time: End time of the sequence.
An n-element vector of time.
interval: Interval of the obseving sequence in units of 'second'.
An n-element vector of integer.
times: Time of requested data sequence.
Non-uniform interval is accepted.
OPTIONAL INPUT KEYWORDS:
rawdir: Destination of requested files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for transfer shell script.
Default is 'norh_trans_input'.
norun: Set if you only need the parameter file and
do not want really transfer yet.
usetsx: use 'tsx' file for finding the synthesizing frame
instead of 'info'
CALLS: ***
NORH_TIM2F [1], NORH_TIM2F [2], NORH_TRANS_BYF [1], NORH_TRANS_BYF [2]
HISTORY:
Writtern 1998-05-29 JS and TY
Modified 1999-1-14 TY for useinfo option
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
NORH_TRANS_BYF
PURPOSE:
This procedure transfers the raw-data files of NORH
from the archive to the user's local directory.
The input arguments must be the [date,frame] array.
CALLING SEQUENCE:
norh_trans_byf,dayfr
INPUTS:
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
OPTIONAL INPUT KEYWORDS:
rawdir: Destination of requested files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for transfer shell script.
Default is 'norh_trans_input'.
norun: Set if you only need the parameter file and
do not want really transfer yet.
CALLS: ***
NORH_F2EVF [1], NORH_F2EVF [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5], curdir [1], curdir [2]
CALLED BY:
NORH_TRANS [1], NORH_TRANS [2]
HISTORY:
Written 1998-05-29 TY
Modified 1999-02-04 TY /event support
Modified 2001-01-12 TY insert uniq
[Previous]
[Next]
NAME:
NORH_TRANS_BYF
PURPOSE:
This procedure transfers the raw-data files of NORH
from the archive to the user's local directory.
The input arguments must be the [date,frame] array.
CALLING SEQUENCE:
norh_trans_byf,dayfr
INPUTS:
dayfr: An n-element vector of long-type arrays.
[[day,frame] ,[ ... ], ]
The value for 'day' is the same as .day structure.
OPTIONAL INPUT KEYWORDS:
rawdir: Destination of requested files.
Default is the current directory.
event: event mode data
freq: Observing frequency of the data.
'17' or '34'. Default is '17'.
outfile: Parameter file name for transfer shell script.
Default is 'norh_trans_input'.
norun: Set if you only need the parameter file and
do not want really transfer yet.
CALLS: ***
NORH_F2EVF [1], NORH_F2EVF [2], UNIQ [1], UNIQ [2], UNIQ [3], anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5], curdir [1], curdir [2]
CALLED BY:
NORH_TRANS [1], NORH_TRANS [2]
HISTORY:
Written 1998-05-29 TY
Modified 1999-02-04 TY /event support
[Previous]
[Next]
NAME:
NORH_TSX2IDX
PURPOSE:
This procedure converts the NORH 'TSX' header
to index structure.
CALLING SEQUENCE:
index=norh_tsx2idx(tsx_data,header)
INPUTS:
tsx_data: 'TSX' data
header: FITS header read from the TSX file
OUTPUTS:
index: index structure
CALLS: ***
NORH_FITS_INTERP [1], NORH_FITS_INTERP [2], NORH_HDST_TSX [1]
NORH_HDST_TSX [2], NORH_MKST_INDEX [1], NORH_MKST_INDEX [2], NORH_SPLITSTR
anytim2ints [1], anytim2ints [2]
CALLED BY:
NORH_RD_TSX [1], NORH_RD_TSX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_TSX2IDX
PURPOSE:
This procedure converts the NORH 'TSX' header
to index structure.
CALLING SEQUENCE:
index=norh_tsx2idx(tsx_data,header)
INPUTS:
tsx_data: 'TSX' data
header: FITS header read from the TSX file
OUTPUTS:
index: index structure
CALLS: ***
NORH_FITS_INTERP [1], NORH_FITS_INTERP [2], NORH_HDST_TSX [1]
NORH_HDST_TSX [2], NORH_MKST_INDEX [1], NORH_MKST_INDEX [2], NORH_SPLITSTR
anytim2ints [1], anytim2ints [2]
CALLED BY:
NORH_RD_TSX [1], NORH_RD_TSX [2]
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_UT2JST
PURPOSE:
This function converts UT time to JST time
CALLING SEQUENCE:
timejst = norh_ut2jst(timeut)
INPUTS:
timeut: An n-element vector of UT time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
yohkoh: Default is 'ccsds'.
ccsds:
ex:
OUTPUT:
timejst: An n-element vector of JST time.
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2]
CALLED BY:
NORH_PR_INFO [1], NORH_PR_INFO [2], NORH_TCX2IDX [1], NORH_TCX2IDX [2]
NORH_TIM2F [1], NORH_TIM2F [2], norh_alpha, norh_t2azel
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
NAME:
NORH_UT2JST
PURPOSE:
This function converts UT time to JST time
CALLING SEQUENCE:
timejst = norh_ut2jst(timeut)
INPUTS:
timeut: An n-element vector of UT time.
Any formats supported by 'anytim' function
is accepted.
(1) structure wit a .time and .day field, or
(2) 2xN where the first dimension holds (MSOD, DS79), or
(3) a double or float array of seconds from 1-jan-79, or
(4) string, e.g.
'1992-11-05 12:33:00' (NORH)
'1992-11-05T12:33:00Z' (ISO 8601)
'12:33:00 5-nov-92' (Yohkoh)
'92/11/05 12:33:00' (HXRBS)
etc.
OPTIONAL INPUT KEYWORDS:
ints: Output time format (see anytim.pro)
yohkoh: Default is 'ccsds'.
ccsds:
ex:
OUTPUT:
timejst: An n-element vector of JST time.
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2]
CALLED BY:
NORH_PR_INFO [1], NORH_PR_INFO [2], NORH_TCX2IDX [1], NORH_TCX2IDX [2]
NORH_TIM2F [1], NORH_TIM2F [2], norh_alpha, norh_t2azel
HISTORY:
Writtern 1998-05-29 JS and TY
[Previous]
[Next]
CALLS:
[Previous]
[Next]
NAME:
NORP_CLB_INTEG
PURPOSE:
This procedure is for integrating the calibration data
in each sequences
CALLING SEQUENCE:
norp_clb_integ,mclbx,nclb,npclb,stat,vatt,okclb,integ $
,timej,timejclb_m,amp,ficlb_m,pol,fvclb_m
for 1-35 GHz
norp_clb_integ,mclbx,nclb,npclb,stat,vatt,okclb,integ $
,timej,timejclb_m,rs,rsclb_m,ls,lsclb_m,sqd,sqdclb_m
for 80 GHz
INPUTS:
mclbx: number of calibration sequences
nclb: 2-dimensional array. nclb(0,*) is the start position index,
nclb(1,*) is the end of calibration time in 'time' array.
npclb: the mode of ATT which should be at the calibration
stat: 1-dimensional integer array indicating the status of observation
vatt: ATT shift value in each mode
okclb: if 1 the calibration was successful.
integ: exposure
timej: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
amp,pol,sqd : data value at the calibration
OPTIONAL INPUT :
iatt: 1-dimensional integer array indicating
threshold value for the status of ATT (only for old NoRP)
OUTPUTS:
timejclb_m: median time of calibration
amp_m,pol_m,sqd_m : integrated average in calibration sequence
CALLS: ***
NORP_GT_NPA, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORP_RDT2DATA_17G, NORP_RDT2DATA_1G, NORP_RDT2DATA_2G, NORP_RDT2DATA_35G
NORP_RDT2DATA_4G, NORP_RDT2DATA_80G, NORP_RDT2DATA_9G
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
2000-4-11 TY
2002-9-02 TY fix; wrong ATT status detection
[Previous]
[Next]
NAME:
NORP_CLB_SN
CALLS: ***
NORP_GT_NPA, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORP_RDT2DATA_80G
HISTORY:
2002-9-02 TY fix; wrong ATT status detection
[Previous]
[Next]
NAME:
NORP_CLB_SNfix
CALLED BY
NORP_RDT2DATA_80G
[Previous]
[Next]
NAME:
norp_frfr_inv
PURPOSE:
Derive physical variables from a set of NoRH flux (17GHz-I,
17GHz-V) based on the assumption that the emssion is of
Bremsstrahrung.
(c.f. Dulk, 1985, ARAA, 23, 169)
CALLING SEQUENCE:
B-los : Line-of-sight component of magnetic field
VEM : Volume emission measure
Te : Electron temperature
tau : Optical thickness
(0) get B-los and VEM/sqrt(Te) without any assumption
norp_frfr_inv,freq,fi,fv,b_los,vem_over_sqrtte
(1) get B-los and VEM by assuming Te
norp_frfr_inv,freq,fi,fv,b_los,tein,vem,/assumete
(2) get B-los and Te by assuming VEM
norp_frfr_inv,freq,fi,fv,b_los,vemin,te,/assumevem
(3) get B-los, VEM, and tau by assuming Te and omega
norp_frfr_inv,freq,fi,fv,b_los,tein,vem,omega,tau,/assumete
(4) get B-los, Te and tau by assuming VEM and omega
norp_frfr_inv,freq,fi,fv,b_los,vemin,te,omega,tau,/assumevem
INPUTS:
fi: flux density [SFU] of Stokes-I(r+l) component
fv: flux density [SFU] of Stokes-V(r-l) component
vemin ; assumed [cm^-3] volume emission measure
tein: assumed electron temperature [K]
omega: source size in surface angle [steradian]
OUTPUTS:
b_los: Line-of-Sight component of magnetic field [G]
vem_over_sqrtte: VEM/sqrt(T) [cm^-3 K^(-1/2)]
where T is electron temperature [K], and
VEM is [cm^-3] volume emission measure
vem ; [cm^-3] volume emission measure
te: electron temperature [K]
tau ; optical thickness
OPTIONAL INPUTS:
HISTORY:
Writtern 1999-11-25 T. Yokoyama
Revised 2000-05-03 T. Yokoyama bug fix
[Previous]
[Next]
NAME:
NORP_GT_NATTI
PURPOSE:
This fucntion is for getting the positions in 'timej'
specified by 'npa' with time margin 'dtatt'
CALLING SEQUENCE:
natti=norp_gt_natti(npa,timej,dtatt)
INPUTS:
npa: 1-dimensional integer array indicating the ATT mode
timej: structure array with 'time internal format'.
dtatt: 2-dimensional floating array indicating the time mergin
before and after the ATT
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
natti: the positions in 'timej'
specified by 'npa' with time margin 'dtatt'
CALLS: ***
NORP_T2I
CALLED BY:
NORP_RDT2DATA_17G, NORP_RDT2DATA_1G, NORP_RDT2DATA_2G, NORP_RDT2DATA_35G
NORP_RDT2DATA_4G, NORP_RDT2DATA_80G, NORP_RDT2DATA_9G, TYKW_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
2000-4-11 TY make faster
2001-5-08 TY bug-fix
[Previous]
[Next]
NAME:
NORP_GT_NDATA
PURPOSE:
This procedure is for getting the position of data
corresponding to the given timerange
CALLING SEQUENCE:
norp_gt_ndata,timerange,timej,ndata
INPUTS:
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']
timej: structure array with 'time internal format'. Time is in JST.
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
CALLS: ***
NORP_T2I, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORP_RD_DAT, TYKW_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
[Previous]
[Next]
NAME:
NORP_GT_NPA
PURPOSE:
This function is for getting the mode number of ATT
CALLING SEQUENCE:
npa=norp_gt_npa(stat)
INPUTS:
stat: 1-dimensional integer array indicating the status of observation
OPTIONAL INPUT:
iatt: 1-dimensional integer array indicating
threshold value for the status of ATT (only for old NoRP)
OUTPUTS:
npa: 1-dimensional integer array indicating the ATT mode
CALLED BY:
NORP_CLB_INTEG, NORP_CLB_SN, NORP_RDT2DATA_17G, NORP_RDT2DATA_1G
NORP_RDT2DATA_2G, NORP_RDT2DATA_35G, NORP_RDT2DATA_4G, NORP_RDT2DATA_80G
NORP_RDT2DATA_9G
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
95.09.06 V1.0 M. Nishio
95.11.10 V1.1 K. Hori and M. Nishio debug
96.04.01 M. Nishio (bug fix)
98.08.28 H.Sekiguchi: add 80GHz
98.11.17 KH: Done only for specified data period
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
2002-9-02 TY fix; wrong ATT status detection
[Previous]
[Next]
NAME:
NORP_MVALID
PURPOSE:
This function is to get the information if the data is valid or not
CALLING SEQUENCE:
mvalid=norp_mvalid(ndx,nclbi)
INPUTS:
ndx: scalar integer value indicating the size of output array
nclbi: 2-dimensional (2,*) integer array
1st element corresponds to the start and 2nd to the end
of strip to be 0 in output array
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
mvalid: 1-dimensional byte array
CALLED BY:
NORP_RDT2DATA_17G, NORP_RDT2DATA_1G, NORP_RDT2DATA_2G, NORP_RDT2DATA_35G
NORP_RDT2DATA_4G, NORP_RDT2DATA_80G, NORP_RDT2DATA_9G, TYKW_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
[Previous]
[Next]
NAME:
NORP_NCLB_STAT
PURPOSE:
This procedure is to searching for the position index of
calibration sequence in time array by the status information array
CALLING SEQUENCE:
norp_nclb_time,timejclb,dtclb,timej,mclbx,nclb,nclbi
INPUTS:
stat: 1-dimensional integer array indicating the status of observation
value: value of the stat to be searched
dtclb: time margin for nclbi. 2 elements floating array.
dtclb(0) is before the calibration, dtclb(1) is after.
timej: structure array with 'time internal format'.
OUTPUTS:
mclbx: number of calibration sequences
nclb: 2-dimensional array. nclb(0,*) is the start position index,
nclb(1,*) is the end of calibration time in 'time' array.
nclbi: 2-dimensional array with time mergin corresponding to 'nclb'
OPTIONAL INPUT KEYWORDS:
CALLS: ***
NORP_T2I
CALLED BY:
NORP_RDT2DATA_17G, NORP_RDT2DATA_1G, NORP_RDT2DATA_2G, NORP_RDT2DATA_35G
NORP_RDT2DATA_4G, NORP_RDT2DATA_80G, NORP_RDT2DATA_9G
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
[Previous]
[Next]
NAME:
NORP_NCLB_TIME
PURPOSE:
This procedure is to searching for the position index of
calibration sequence in time array by the time information array
CALLING SEQUENCE:
norp_nclb_time,timejclb,dtclb,timej,mclbx,nclb,nclbi
INPUTS:
timejclb: array of 2-elements string arrays indicating the
start and end of the calibration.
e.g. ['1998-1-4 11:30:00','1998-1-4 11:31:00']
dtclb: time margin for nclbi. 2 elements floating array.
dtclb(0) is before the calibration, dtclb(1) is after.
timej: structure array with 'time internal format'.
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
mclbx: number of calibration sequences
nclb: 2-dimensional array. nclb(0,*) is the start position index,
nclb(1,*) is the end of calibration time in 'time' array.
nclbi: 2-dimensional array with time mergin corresponding to 'nclb'
CALLS: ***
NORP_T2I, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORP_RDT2DATA_17G, NORP_RDT2DATA_35G, NORP_RDT2DATA_80G
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
2000-4-11 TY make faster
[Previous]
[Next]
NAME:
NORP_RD_AVG
PURPOSE:
This procedure is for reading and daily averaged NoRP data.
CALLING SEQUENCE:
norp_rd_avg,st_day,ed_day,day,fiavg,fvavg
norp_rd_avg,day_in,day,fiavg,fvavg
INPUTS:
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
CALLS: ***
CONCAT2D, MRP_RD_AVG, 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:
NORP_RD_AVG
PURPOSE:
This procedure is for reading and daily averaged NoRP data.
CALLING SEQUENCE:
norp_rd_avg,st_day,ed_day,day,fiavg,fvavg
norp_rd_avg,day_in,day,fiavg,fvavg
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:
NORP_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:
NORP_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, NORPO_RD_DAILY, 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:
NORP_RD_DAT
PURPOSE:
This procedure is for reading and calibrating the NoRP data.
CALLING SEQUENCE:
norp_rd_dat,file,mvalid,time,fi,fv
INPUTS:
file: file name of NoRP data
OPTIONAL INPUT KEYWORDS:
rdfreq: 7-elements byte array indicating the data to be read.
If rdfreq(0)=1, 1GHz data will be read.
If rdfreq(1)=1, 2GHz data will be read.
If rdfreq(2)=1, 4GHz data will be read.
If rdfreq(3)=1, 9GHz data will be read.
If rdfreq(4)=1, 17GHz data will be read.
If rdfreq(5)=1, 35GHz data will be read.
If rdfreq(6)=1, 80GHz data will be read.
If NOT given, ALL data will be read.
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
CALLS: ***
NORP_GT_NDATA, NORP_RDT2DATA_17G, NORP_RDT2DATA_1G, NORP_RDT2DATA_2G
NORP_RDT2DATA_35G, NORP_RDT2DATA_4G, NORP_RDT2DATA_80G, NORP_RDT2DATA_9G
NORP_RDT2TIMEJ [1], NORP_RDT2TIMEJ [2], NORP_RD_RDT, anytim [1], anytim [2]
anytim [3], anytim [4], anytim [5], anytim2ints [1], anytim2ints [2]
file_list [1], file_list [2]
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
1999-3-12 TY calibration data option
2000-4-11 TY add freq
2001-5-8 TY to read npa and stat
2003-3-21 TY to read sqd80
[Previous]
[Next]
NAME:
NORP_RD_RDT
PURPOSE:
This procedure is for reading the raw data of NoRP.
CALLING SEQUENCE:
norp_rd_rdt,file,rdata,date,version
INPUTS:
file: file name of NoRP data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
rdata: structure of the raw data
date: observation date of the data
versionNoRP data ata format version
CALLS: ***
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
2000-5-10 TY bug fix for filename
2002-4-11 TY, endian-free for x86 architecture
[Previous]
[Next]
NAME:
NORP_RDT2DATA_17G
PURPOSE:
This procedure is for getting 17GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_17g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_GT_NATTI, NORP_GT_NPA, NORP_MVALID, NORP_NCLB_STAT
NORP_NCLB_TIME, NORP_T2I, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
anytim2ints [1], anytim2ints [2], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
1999-3-12 TY fimin,smax
2000-12-12 TY include fix for instrumental AMB data error in 1996
[Previous]
[Next]
NAME:
NORP_RDT2DATA_1G
PURPOSE:
This procedure is for getting 17GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_1g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
OPTIONAL INPUT KEYWORD:
nocalib: if set no caliblation is done
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_GT_NATTI, NORP_GT_NPA, NORP_MVALID, NORP_NCLB_STAT, NORP_T2I
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
1999-3-12 TY fimin,smax
2002-5-30 TY revise ATT levels based on Saitoh's memo (2002-05-09)
2003-3-11 TY revise I/V relation based on Saitoh's memo (2003-1-7)
2003-3-12 TY revise ATT levels for new BE
based on Saitoh's memo (2003-02-15)
[Previous]
[Next]
NAME:
NORP_RDT2DATA_2G
PURPOSE:
This procedure is for getting 2GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_2g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_GT_NATTI, NORP_GT_NPA, NORP_MVALID, NORP_NCLB_STAT, NORP_T2I
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
1999-3-12 TY fimin,smax
2000-5-09 TY fimin (80->40)
2002-5-30 TY revise ATT levels based on Saitoh's memo (2002-05-09)
2003-3-12 TY revise ATT levels for new BE
based on Saitoh's memo (2003-02-15)
[Previous]
[Next]
NAME:
NORP_RDT2DATA_35G
PURPOSE:
This procedure is for getting 35GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_35g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_GT_NATTI, NORP_GT_NPA, NORP_MVALID, NORP_NCLB_STAT
NORP_NCLB_TIME, NORP_T2I, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
anytim2ints [1], anytim2ints [2], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
1999-3-12 TY fimin,smax
2000-3-15 TY fisun 10min
2002-8-10 TY limit stat<32B;
some datapoint had stat=48B on 2002-7-21 due to hardware error
2002-9-02 TY fix; wrong ATT status detection
the comment on 2002-8-10 is WRONG!
[Previous]
[Next]
NAME:
NORP_RDT2DATA_4G
PURPOSE:
This procedure is for getting 4GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_4g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_GT_NATTI, NORP_GT_NPA, NORP_MVALID, NORP_NCLB_STAT, NORP_T2I
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
1999-3-12 TY fimin,smax
2000-5-08 TY fimin (100-> 60)
[Previous]
[Next]
NAME:
NORP_RDT2DATA_80G
PURPOSE:
This procedure is for getting 80GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_80g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_CLB_SN, NORP_CLB_SNfix, NORP_GT_NATTI, NORP_GT_NPA
NORP_MVALID, NORP_NCLB_STAT, NORP_NCLB_TIME, anytim [1], anytim [2], anytim [3]
anytim [4], anytim [5], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.08.25 Ver.0 S.Sekiguchi & Shinox
input data = r_cos,l_cos,r_sin,l_sin,sqd80
98.08.28 Ver.0' sekix
98.10.01 Ver.0" sekix
98.11.17 Ver.1 KH - Procedure
Separate 80GHz strarr from that of other
frequencies (cal_data).
Cal.time is determined based on IPOS1.
98.09.03 sekix & shinox add 80GHz
98.09.02 Ver.0: sekix
98.10.01 sekix Pre burst level is specified to +/-?? min from
??-th sky start time.
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
2000-3-15 TY & H. Nakajima
2000-4-19 TY add fix procedure for 1990-7-23 -- 1991-5-13
2000-5-09 TY threshold for calib became 1000 from 100
2000-8-02 TY calibration existance check
2001-5-08 TY change dtatt
2002-9-02 TY fix; wrong ATT status detection
2003-3-21 TY to read sqd80
[Previous]
[Next]
NAME:
NORP_RDT2DATA_9G
PURPOSE:
This procedure is for getting 9GHz data from the raw NoRP data
CALLING SEQUENCE:
norp_rdt2data_9g,rdata,mvalid,timejo,fi,fv
INPUTS:
rdata: structure of the raw data
timejo: structure array with 'time internal format'
that must be given by 'norp_rdt2timej'.
OPTIONAL INPUT:
ndata: 2-elements long-integer array indicating the
position of data corresponding to the given timerange
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.
fi: I (R+L) data array (mfreq,ndata)
data(0,*) is the time-sequencial array of the 1st
frequency which are read (indicated by 'rdfreq').
fv: V (R-L) data array (mfreq,ndata)
OPTIONAL OUTPUT:
CALLS: ***
NORP_CLB_INTEG, NORP_GT_NATTI, NORP_GT_NPA, NORP_MVALID, NORP_NCLB_STAT, NORP_T2I
anytim [1], anytim [2], anytim [3], anytim [4], anytim [5], anytim2ints [1]
anytim2ints [2], gt_day [1], gt_day [2]
CALLED BY:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 T. Yokoyama unify program for old/new NoRP data
1999-3-12 TY fimin,smax
2000-5-08 TY fimin (300-> 200)
2002-4-24 TY change ATT levels
due to the Back-End revision on 2002-1-8
2002-7-10 TY ATT step change
due to the Back-End revision on 2002-7-1
[Previous]
[Next]
NAME:
NORP_RDT2TIMEJ
PURPOSE:
This function is for getting the JST time array from the NoRH raw data
CALLING SEQUENCE:
timej=norh_rdt2timej(rdata)
INPUTS:
rdata: structure of the raw data
date: observation date of the data
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
timej: structure array with 'time internal format'. Time is in JST.
CALLS: ***
NORH_RDT2TIMEJ, anytim [1], anytim [2], anytim [3], anytim [4], anytim [5]
CALLED BY:
NORP_RD_DAT
HISTORY:
2000-6-15 T. Yokoyama
[Previous]
[Next]
NAME:
NORP_RDT2TIMEJ
PURPOSE:
This function is for getting the JST time array from the NoRP raw data
CALLING SEQUENCE:
timej=norp_rdt2timej(rdata,date)
INPUTS:
rdata: structure of the raw data
date: observation date of the 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:
NORP_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
[Previous]
[Next]
NAME:
NORP_T2I
PURPOSE:
This function is to get the position of specified 'value' in array
CALLING SEQUENCE:
norp_t2i,array,value
INPUTS:
array: 1-dimensional array
must be increasing manner
value: the value to be searched
OPTIONAL INPUT KEYWORDS:
OUTPUTS:
ipos: the position of specified 'value' in array
CALLED BY:
NORP_GT_NATTI, NORP_GT_NDATA, NORP_NCLB_STAT, NORP_NCLB_TIME, NORP_RDT2DATA_17G
NORP_RDT2DATA_1G, NORP_RDT2DATA_2G, NORP_RDT2DATA_35G, NORP_RDT2DATA_4G
NORP_RDT2DATA_9G, TYKW_MVALID_CLB, TYKW_MVALID_INT, TYKW_RD_DAT
HISTORY:
programmed by T. Kosugi in 1984 May as Fortran program
for old NoRP data format
re-programmed by H.Sekiguchi 1987 July - 1988 Dec.
1995 July,20 N,Shinox for new format NoRP data
95.04.19 ed. add ATT correction for pol data ,correction data type
changed intarr() to fltarr().,
95.09.04 Ver.2.0 M. Nishio and K. Hori
95.11.10 Ver.3.0 M. Nishio refernce level at 9.4GHz= amb -> zero
<<Caution: ambient level at 9.4GHz is incorrect. Use zero as ref. level>>
95.12.12 Ver.3.1 M. Nishio and K. Shibasaki (1GHz ATT 7dB -> 4.3)
98.09.03 sekix & shinox add 80GHz
98.11.20 K. Hori
1999-1-12 TY unify program for old/new NoRP data
[Previous]
[Next]
NAME:
NRH
PURPOSE:
Cette procedure cree les WIDGETS de traitement des donnees 2D du NRH
CATEGORY:
WIDGET
CALLING SEQUENCE:
NRH
INPUTS:
CALLS: ***
CW_PDMENU, CW_POS, FLUX_NRH2, GR_IMAGES, HELP_FILE, HELP_RH2D, LOADCT, NRH2_PROJECTION
NRH_ANIM, NRH_EVENT, NRH_FILTER, NRH_INTGCOMP, NRH_VISU_2D, RH_CRE_INTEGRE
RH_DPATCH_SSW, RH_EXTRAIRE, SUN_IMAGE, XMANAGER, XREGISTERED
COMMON BLOCKS:
SELECTION DE FICHIERS
COMMON FICRH, STR_FIC= {STR_FIC}
INFORMATIONS SUR LE FICHIER
COMMON INFO2D, NRH_STR_INFIC = {NRH_STR_INFIC}
LIMITES DE TRAITEMENT
COMMON LIMIT, NRH_STR_LIM = {NRH_STR_LIM}
PARAMETRES DE VISUALISATION D IMAGES
COMMON VISU_2D, NRH_STR_VISU= {NRH_STR_VISU,
Polar :0, traitement du parametre V si = 1, sinon I
Coord:'H', transformation de coordonnee si fichier I et
str_visu.coord= 'H'
Print:0, Sortie PS si = 1
ind:0, Indice de l'image a traiter
dim: 256, Nombre de pixels de l'image visualisee
inc:1, Increment d'image pour le balayage du fichier
cont:5, Nombre de contours du trace CONTOUR
pcent:90, % du max de l'image pour le contour maximum
mcent:10} % du max de l'image pour le contour minimum
PARAMETRES POUR DONNEES EXTERIEURES
COMMON SUPER_INSTR STR_INSTR = {STR_INSTR,
Instr: 0, Indice du nom de l'instrument voir SUP_NRH.PRO
File: ' ', Nom du fichier a lire
max: 100, Niveau max de visualisation en % du max
min: 0} Niveau min de visualisation en % du max
EXAMPLE:
NRH
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 21/10/97 (@obspm.fr)
3/11/97 repertoire= repertoire courant ( J B)
21/10/98 modification de la structure NRH_STR_VISU et
initialisation des valeurs (J B)
13/09/00 Variable d'environnement NRH_DEV
26/10/00 Force PSEUDO_COLOR=8 (JB)
[Previous]
[Next]
NAME:
NRH1_ANIM
PURPOSE:
Cette procedure visualise les images suceesives contenues dans un
fichier NRH 2D
CATEGORY:
NRH1 Profils
CALLING SEQUENCE:
NRH1_ANIM, GROUP= group
INPUTS:
KEYWORD PARAMETERS:
GROUP Identification du widget appelant
OUTPUTS:
CALLS: ***
CW_FIELD, HMS, NRH1_ANIM_EVENT, XMANAGER
CALLED BY:
ANIMPROF
COMMON BLOCKS:
NRH1_ANIM contient toutes les valeurs de communication
entre ANIMPROF et NRH1_ANIM
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 12/01/99 (bonmartin@obspm.fr)
[Previous]
[Next]
NAME:
NRH1_EXTRACT
PURPOSE:
Cette procedure extrait une partie d'un tableau d'images du NRH1
CATEGORY:
NRH1 Fichier
CALLING SEQUENCE:
NRH1_EXTRACT, Entree, Sortie, Hdeb, Dt, Candeb, Dx
INPUTS:
ENTREE Tableau d'images
HDEB Heure de debut du tableau d'images
DT Intervalle de temps entre 2 images
CANDEB Canal de debut du tableau d'images
DX Intervalle entre 2 canaux
KEYWORD PARAMETERS:
HEURES heures debut, fin de l'intervalle a extraire
CANAUX canaux debut, fin de l'intervalle a extraire
STEP pas entre deux instants successifs a la sortie
OUTPUTS:
SORTIE Tableau extrait
CALLS: ***
HMS, INDICE, MSH
COMMON BLOCKS:
Non
MODIFICATION HISTORY: (bonmartin@obspm.fr)
16/11/98 adapte du logiciel XHELIO
[Previous]
[Next]
NAME:
NRH1_GETZONE
PURPOSE:
Cette fonction permet la determination d'un ou deux points
d'une zone par curseur
CATEGORY:
NRH1 General
CALLING SEQUENCE:
Resultat = NRH1_GETZONE()
INPUTS:
Non
KEYWORD PARAMETERS:
SINGLE Determination d'un seul point
OUTPUTS:
Describe any outputs here
CALLS: ***
BOX_CURSOR2
CALLED BY:
MENUTRACEISOPH, MENUTRACEPOS, MENUTRACEPROF
SIDE EFFECTS:
Dans le cas de la determination de 2 points, cette fonction appelle
BOX_CURSOR2
MODIFICATION HISTORY: bonmartin@obspm.fr
Adapte de XHELIO le 20/12/98
remplace le courseur par BOX_CURSOR2 le 20/12/98 (JB)
[Previous]
[Next]
NAME:
NRH1_POSCRIPT
PURPOSE:
CETTE PROCEDURE PERMET DE GENERER DES FICHIERS POSTSCRIPT
CATEGORY:
NRH1 General
CALLING SEQUENCE:
NRH1_POSTSCRIPT
INPUTS:
Non
KEYWORD PARAMETERS:
ON : OUVRE LE DEVICE POSTSCRIPT
OFF : PERMET DE PASSER EN MODE X
POUR CONTINUER A FAIRE DE
L'AFFICHAGE SANS FERMER LE FICHIER POSTSCRIPT
STOP : FERME LE FICHIER POSTSCRIPT
REPASSE EN MODE X
OUTPUTS:
Non
CALLS: ***
NRH1_POSTSCRIPT, RSTRPOS
COMMON BLOCKS:
NRH1_HELIO
EXAMPLE:
NRH1_POSTSCRIPT, /ON ;ouvre un fichier postscript
NRH1_POSTSCRIPT, /OFF ;ferme le fichier postscript
MODIFICATION HISTORY: bonmartin@obspm.fr
Ecrit par:
Modifications:
Possibilite de sortir en format paysage (nov 1997)
Ecriture date de generation du trace (21 Nov 1997)
[Previous]
[Next]
NAME:
NRH1_XTEXT
PURPOSE:
Cette procedure affiche un texte dans une fenetre X
CATEGORY:
NRH1 general
CALLING SEQUENCE:
NRH1_XTEXT,Texte,GROUP=group
INPUTS:
TEXTE tableau de chaines de caracteres a afficher
KEYWORD PARAMETERS:
GROUP identifieur du widget appelant. Si non present
GROUP = mainstruc.root
OUTPUTS:
Listing de l'entete.
CALLS: ***
NRH1_XTEXT_EVENT, XMANAGER
CALLED BY:
NRH_VERIF
COMMON BLOCKS:
NRH1_HELIO,mainstruct
MODIFICATION HISTORY: (bonmartin@obspm.fr)
13/11/98 Adapte du logiciel XHELIO (JB)
[Previous]
[Next]
NAME:
NRH2_PROJECT2D
PURPOSE:
Cette procedure calcule la projection des images d'un fichier NRH2
sur une direction donnee
CATEGORY:
NRH2 project
CALLING SEQUENCE:
NRH2_PROJECT2D, File, Str_inf, Lim, Angle, Data, Time, Strc
INPUTS:
FILE Nom du fichier
STR_INF Structure NRH_STR_INFIC
LIM Structure NRH_STR_LIM
ANGLE Angle de la direction sur la quelle est effectuee la
projection
KEYWORD PARAMETERS:
STOKES Parametre de Stokes 0 intensite 1 parametre V
OUTPUTS:
DATA tableau resultat
TIME Tableau de temps
STRC Structure NRH_STR_INFIC, avec valeurs resultantes
CALLED BY:
NRH2_PROJECTION
PROCEDURE:
Cette procedure calcule la rotation des images puis somme les points
de chaque colonne de l'image apres rotation
CALLS: ***
NRH_ROTIM, RD_NRH2I, TIME_IND_NRH
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 09/07/99
[Previous]
[Next]
NAME:
NRH2_PROJECTION
PURPOSE:
Cette procedure contient les widgets de traitement de projection
des fichiers NRH2
CATEGORY:
NRH2 project
CALLING SEQUENCE:
NRH2_PROJECTION
INPUTS:
Non
KEYWORD PARAMETERS:
GROUP Identification du widget appelant
OUTPUTS:
Non
CALLS: ***
CW_FIELD, CW_INFONRH, CW_LABELNRH, CW_SELFIELD, ECH_RS, IND_RS, NRH2_PROJECT2D
NRH2_PROJECTION_EVENT, NRH2_TRISOPH, NRH_DISPLAY_IM, NRH_FCLOSE, NRH_FOPEN
NRH_PICKFILE, NRH_ROTIM, PROFIL, READ_NRHIM, RS_IND, TIME_IND, XLOADCT [1]
XLOADCT [2], XLOADCT [3], XMANAGER
CALLED BY:
HESSI_NRH, NRH
COMMON BLOCKS:
LIMIT, Str_lim
FICRH, Str_fic
INF2D, Str_inf2d
Definis dans nrh2.pro
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin (obspm.fr) le 09/07/99
[Previous]
[Next]
NAME:
NRH2_TRISOPH
PURPOSE:
Cette procedure trace les isophotes de la projection 1D du nrh2
sur le modele du trace de NRH1
CATEGORY:
NRH2 project
CALLING SEQUENCE:
NRH2_TRISOPH, Data, Time, Lim, Info,
INPUTS:
DATA Tableau resultant du calcul de projection
TIME Tableau des temps
LIM Structure NRH_STR_LIM
INFO Structure NRH_STR_INFIC
KEYWORD PARAMETERS:
NLEVELS Nombre de niveaux de contours (10 par defaut)
MAXP Niveau maximum en % du max de Data
MINP Niveau minimum en % du max de Data
LAB_TITLE StructureNRH_STR_LABEL
OUTPUTS:
Traces d'isophotes
CALLS: ***
HMS, IND_RS, MILSEC_AXIS
CALLED BY:
NRH2_PROJECTION
COMMON BLOCKS:
Non
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 09/07/99
[Previous]
[Next]
NAME:
NRH_ANIM
PURPOSE:
Cette procedure visualise les images suceesives contenues dans un
fichier NRH 2D
CATEGORY:
WIDGET
CALLING SEQUENCE:
NRH_ANIM, GROUP= group
INPUTS:
KEYWORD PARAMETERS:
GROUP Identification du widget appelant
OUTPUTS:
CALLS: ***
CW_FIELD, CW_INFONRH, CW_SELFIELD, NRH_ANIM_EVENT, NRH_DISPLAY_IM, NRH_FCLOSE
NRH_FOPEN, NRH_PICKFILE, READ_NRHIM, TIME_IND_NRH, XLOADCT [1], XLOADCT [2]
XLOADCT [3], XMANAGER
CALLED BY:
HESSI_NRH, NRH
COMMON BLOCKS:
FICRH, str_fic structure definissant le fichier traite 9voit RH_2D)
INFO2D Str_inf2d information sur les fichiers
LIMIT Str_lim limites de traitement
PROCEDURE:
Cette procedure recherche dans un fichier FITS NRH-2D l'image
correspondant a l'heure de debut et affiche les images successives
en tenant compte de l'increment.
Le retour en arriere s'effectue par le WIDGET: '-'
Le WIDGET: '+' redonne la marche avant
'POSE' arrete le defilement. 'CONTINUE' contnue la ou on etait
'START' recommence au debut
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 08/12/97 (bonmartin@obspm.fr)
Le 10/03/99 return_event->All_events (JB)
Modifie les niveaux MAX,MIN
le 13/03/99 modification de la fin de boucle
Le 19/01/01 Modif ouverture de fichiers HESSI (JB)
[Previous]
[Next]
NAME:
NRH_BIASREG
PURPOSE:
Cette procedure determine une region sur une image apres rotation
CATEGORY:
NRH2 project
CALLING SEQUENCE:
NRH_BIASREG, Data, Angle, X, Y, Nx, Ny
INPUTS:
DATA Tableau contenant une image
ANGLE Angle de rotation en degres
OPTIONAL INPUTS:
Parm2: Describe optional inputs here. If you don't have any, just
delete this section.
KEYWORD PARAMETERS:
Non
OUTPUTS:
X, Y Coordonnees de la region coin bas a gauche
NX, NY Nombre de pixels en X et Y
CALLS: ***
BOX_CURSOR2, PROFIL, ROT
COMMON BLOCKS:
Non
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 09/07/99
[Previous]
[Next]
NAME:
NRH_COLOR_PLOT
PURPOSE:
Cette procedure fixe la couleur des traces
CATEGORY:
NRH gen
CALLING SEQUENCE:
NRH_COLOR_PLOT, [Red], [Green], [Blue]
INPUTS:
KEYWORD PARAMETERS:
NOLOAD pas dechargement de la nouvelle table
RED ancienne table de couleur (rouge)
GREEN ancienne table de couleur (verte)
BLUE ancienne table de couleur (bleue)
ROUT table de couleur pour les routines (nrhr)
OUTPUTS:
OPTIONAL OUTPUTS:
R, B, G nouvelles tables de couleur
CALLED BY:
CW_PLOTSERIE, NRH_PLOTF, NRH_PLOTI
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin(bonmartin@obspm.fr) le 10/10/00
le 08/11/01 entre table de couleur pour routine (JB)
[Previous]
[Next]
NAME:
NRH_COORDPIX
PURPOSE:
Cette fonction affiche une image, demande la selection d'un point
par le curseur et calcule les coordonnees en rayon solaire
CATEGORY:
Images du NRH
CALLING SEQUENCE:
COORD = NRH_COORDPIX (Data, Str_im, Str_lim, Str_Visu, Type)
INPUTS:
DATA Tableau contenant l'imade
STR_IM Structure d'information de l'image
STR_LIM Structure contenant les limites de visualisation
(voir VISU_NRH)
STR_VISU Structure contenant les parametres de visualisation
TYPE 'I' pour image 'C' pour contour
KEYWORDS:
DIALOG_PARENT Identificqtion du widget appelent pour positionner
le message sur le widget
OUTPUTS:
COORD Tableau de 3 flotants contenant
Coord(0) : Position en X en rayon solaire
Coord(1) : Position en Y
Coord(2) : Intensite du point
CALLED BY:
NRH_VISU_2D
PROCEDURE:
Cette procedure affiche l'image en tenant compte des parametres
donnes dans STRLIM
La dimension de la fenetre d'affichage est calcule de facon a faire
tenir la partie d'image selectionnee dans la fenetre, tout en
respectant la dimension contenue dans la variable DIM
CALLS: ***
IND_RS, NRH_IMAGE, RS_IND
EXAMPLE:
COORD = COORDPIX_NRH(Data, Sr_im, Str_lim, STR_VISU, 'C')
le contenu de STR_LIM etant defini dans RH_2D
PRINT, COORD
affiche la position en X et Y et l'intensite du point
selectionne
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 27/02/98 (bonmartin@obspm.fr)
Le 09/08/00 rajoute keyword DIALOG_PARENT (JB)
Le 17/10/00 Releve de point sur Image ou Contour (JB)
remplace NRH_DISPLAY_IM par NRH_IMAGE
[Previous]
[Next]
NAME:
NRH_CTRLREP
PURPOSE:
Cette procedure ajoute le caractere de separation des noms de repertoire s'il est
abscent en fin du nom du repertoire.
Elle fonctionne pour UNIS et WINDOWS
CATEGORY:
Themis General
CALLING SEQUENCE:
NRH_CTRLREP, Repert
INPUTS:
REPERT Nom du repertoire a controler
KEYWORD PARAMETERS:
Non
OUTPUTS:
REPERT Nom du repertoire apres controle
OPTIONAL OUTPUTS:
CALLED BY:
READ_NRH
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:Jean Bonmartin (Jean.Bonmartin@obspm.fr) Le 03/04/01
[Previous]
[Next]
NAME:
NRH_DISP_GRIMAGE
PURPOSE:
Cette procedure affiche une image dans une fenetre a une position
donnee, colonnes lignes
CATEGORY:
VISUALISATION NRH
CALLING SEQUENCE:
NRH_DISP_GRIMAGE, Data, Str_im, str
INPUTS:
DATA Tableau contenant l'image
STR_IM Structure resultant de la lecture de l'image
STR Structure definie dans GR_IMAGES.PRO
OUTPUTS:
Au retour STR.CRLI et STR.CRCO sont modifie pour pointe sur la
prochaine zone d'image
CALLED BY:
GR_IMAGES
PROCEDURE:
You can describe the foobar superfloatation method being used here.
You might not need this section for your routine.
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], IND_RS, TVCIRCLE
EXAMPLE:
NRH_DISP_GRIMAGE, DATA, Str_im, Str_grim
Visualise a la position suivante l'image correspondant
au parametre V
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 07/11/97 (bonmartin@obspm.fr)
le 09/11/98 deplace l'inscription de la date (JB)
[Previous]
[Next]
NAME:
NRH_DISPLAY_IM
PURPOSE:
Cette procedure affiche une image correspondant a la lecture d'un
fichier 2D du NRH
CATEGORY:
Visualisation
CALLING SEQUENCE:
NRH_DISPLAY_IM, Donnee, Str_im, str_lim, Norm
INPUTS:
DONNEE image
STR_IM Structure d'image
Str_lim Structure definissant les limites
NORM Echelle de niveaux: 0 sur image, 1 sur fichier
KEYWORD PARAMETERS:
DIM dimension de la fenetre en pixels (256 par defaut)
MAX Niveau maximum si NORM = 1
MIN Niveau minimum si NORM = 1
STK Trace de STOCKES V
OUTPUTS:
CALLED BY:
NRH2_PROJECTION, NRH_ANIM
PROCEDURE:
Cette procedure visualise une image 2D du NRH. L'indice, le
parametre de STOKES i ou V sont definis dans STR_VISU
L'image est ramenee sur 256*256 pixels
L'heure est inscrite sur l'image
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], TVCIRCLE
EXAMPLE:
FOR IND=0, NP THEN BEGIN
DISPLAY_IMNRH, Donnee(ind), Header, str_visu
end
Visualise les NP premieres images contenues dans le tableau DONNEE
precedamment lu par MRDFITS
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 08/08/98 (bonmartin@obspm.fr)
Le 07/12/00 entre !D.TABLE_SIZE dans BYTSCL (JB)
[Previous]
[Next]
NAME:
NRH_ENVIRONNEMENT
PURPOSE:
Cette procedure definit l'environnement permettant d'executer les procedures de
la branche NRH, 2DNRH
Elle est utilisee par HESSI_NRH
CATEGORY:
HESSDI NRH
CALLING SEQUENCE:
NRH_ENVIRONNEMENT
KEYWORD PARAMETERS:
Non
OUTPUTS:
Environnement NRH
CALLED BY:
HESSI_NRH
COMMON BLOCKS:
Creation des COMMON blocks
common visu_2d,str_visu
common FICRH,str_fic
common INFO2D, str_inf2d
common LIMIT,str_lim
MODIFICATION HISTORY:
Ecrit par:J Bonmartin (bonmartin@obspm.fr) le 12/03/01
[Previous]
[Next]
NAME:
NRH_FCLOSE
PURPOSE:
Fermeture d'un fichier NRH ouvert par NRH_FOPEN
CATEGORY:
Fichiers
CALLING SEQUENCE:
NRH_FCLOSE, Str_Inf2d
INPUTS:
Str_inf2d structure d'information de fichier
KEYWORD PARAMETERS:
Non
OUTPUTS:
Non
CALLS: ***
FXBCLOSE [1], FXBCLOSE [2]
CALLED BY:
CW_POS, FOPEN_NRH2, NRH2_PROJECTION, NRH_ANIM, NRH_FILTER, NRH_INTGCOMP, NRH_VISU_2D
SUN_IMAGE
COMMON BLOCKS:
Non
PROCEDURE:
Cette procedure ferme l'unite et remet STR_INF2D.UNIT a 0
Si STR_INF2D = 0 elle est inoperante
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 02/09/98
[Previous]
[Next]
NAME:
NRH_FILTER
PURPOSE:
Cette procedure definit le PATH pour la lecture des fichiers images
et permet de selectionner un fichier
lister les HEADERS
CATEGORY:
Fichiers
CALLING SEQUENCE:
NRH_FILTER
INPUTS:
Non.
KEYWORD PARAMETERS:
GROUP Identifieur du WIDGET appelant
OUTPUTS:
non
CALLS: ***
CW_FIELD, CW_HEADER, CW_INFONRH, CW_NRH_FILTER, HELP_FILE, NRH_FCLOSE
NRH_FILTER_EVENT, NRH_PICKFILE, XMANAGER
CALLED BY:
HESSI_NRH, NRH
COMMON BLOCKS:
Non
SIDE EFFECTS:
Fixe le PATH des fichiers images pour toute la cession
PROCEDURE:
You can describe the foobar superfloatation method being used here.
You might not need this section for your routine.
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 10/07/98 (bonmarti@obspm.fr)
[Previous]
[Next]
NAME:
NRH_FLUXASCI
PURPOSE:
Cette procedure transforme un fichier dde flux FITS en fichier ASCII
CATEGORY:
Fichiers FLUX
CALLING SEQUENCE:
NRH_FLUXASCI, FITS, FASCII
INPUTS:
FITS Fichier FITS contenant des flux
FASCI Fichier ASCIi a ecrire
KEYWORD PARAMETERS:
OUTPUTS:
CALLS: ***
CW_XTD_NRHF, FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3]
MRDFITS [1], MRDFITS [2], MSH
CALLED BY:
FLUX_NRH2
COMMON BLOCKS:
PROCEDURE:
Cette procedure ecrit les flux et le temps dans 2 colonnes
Si le fichier ASCII existe deja le nouveau traitement est rajoute
a la fin du fichier
La date, la frequence, les limites de calcul sont indiques au
debut de chaque ta bleau de flux
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 11/08/98 (obspm.fr)
le 26/04/01 Rajoute GROUP (JB)
[Previous]
[Next]
NAME:
NRH_FOPEN
PURPOSE:
Cette procedure ouvre un fichier pour le logiciel de traitement NRH
CATEGORY:
Fichiers.
CALLING SEQUENCE:
NRH_FOPEN, File, Str_fic, Str_lim, Physpar, Lfreq
INPUTS:
FILE Nom du fichier
KEYWORD PARAMETERS:
Non
OUTPUTS:
STR_FIC Structure d'information sur le fichier (NRH_STR_INFIC)
Cette structure doit etre cree avant l'appel
STR_LIM Structure de limites de traitement (NRH_STR_LIM)
Cette structure doit etre cree avant l'appel
PHYSPAR Liste des parametres physiques contenus dans le fichier
STOKESI et STOKESV pour le NRH2D, c'est cette liste qui
est affichee pour le choix d'image
LFREQ Liste des frequences ou longueurs d'ondes contenues dans
le fichier (nulle pour le moment)
CALLS: ***
FOPEN_GIF, FOPEN_NRH2, FOPEN_PNG, FOPEN_STD_GMRT, FOPEN_STD_SOHO, FOPEN_YOHKOH
FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], STR_SEP
CALLED BY:
CW_POS, FLUX_NRH2, GR_IMAGES, NRH2_PROJECTION, NRH_ANIM, NRH_INTGCOMP, NRH_PICKFILE
NRH_VISU_2D, SUN_IMAGE
COMMON BLOCKS:
Non
SIDE EFFECTS:
Cette procedure initialise la structure NRH_STR_INFIC, et
reinitialise la structure NRH_STR_LIM. Les limites de traitement
sont reinitialisees avec les valeurs contenues dans le fichier
RESTRICTIONS:
Les structures NRH_STR_INFIC et NRH_STR_LIM doivent exister avant
l'appel
PROCEDURE:
Cette procedure lit les informations dans les header et remplit les
structures. Elle utilise le mot cle FITS: INSTRUME pour selectionner
la procedure appelee. Liste des instruments reconnus:
NRH2
Le fichier reste ouvert pour pouvoir effectuer des lectures par les
routines FX.....
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin (obspm.fr) le 24/08/98
05/12/02 : lecture des donnees du GMRT (issues de AIPS)
[Previous]
[Next]
NAME:
NRH_HSI_FITS
PURPOSE:
This procedure creates a FITS file with a serie of HESSI images
It reads images from a list of HESSI files created by FITSWRITE
CATEGORY:
NRH HESSI
CALLING SEQUENCE:
NRH_HSI_FITS, List
INPUTS:
LIST String array, list of HESSI one image files
KEYWORD PARAMETERS:
REPERT Directory for writing the FITS multi-images file
OUTPUTS:
Multi_images file
The name of the file is
hessi_image_hP0_YYYYMMSS_HHMMSS.CC_i.fts
P indicates the number of pixels = 2^P
0 not used
YYYYYMMSS, HHMMSS.CC, date and time of the first file
on the list
CALLS: ***
FXADDPAR [1], FXADDPAR [2], FXBCREATE [1], FXBCREATE [2], FXBFINISH [1]
FXBFINISH [2], FXBWRITE [1], FXBWRITE [2], FXHMAKE [1], FXHMAKE [2], FXPAR [1]
FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], HMS, MRDFITS [1], MRDFITS [2]
STR_SEP, SXDELPAR [1], SXDELPAR [2], SXDELPAR [3], WRITEFITS [1], WRITEFITS [2]
COMMON BLOCKS:
No
SIDE EFFECTS:
Describe "side effects" here. There aren't any? Well, just delete
this entry.
RESTRICTIONS:
Describe any "restrictions" here. Delete this section if there are
no important restrictions.
PROCEDURE:
You can describe the foobar superfloatation method being used here.
You might not need this section for your routine.
EXAMPLE:
NRH_HSI_IMAGE ; create fits 1image files
List = FINDFILE('hsi*is.fts') ;get the list of the files created
NRH_HSI_FITS ; convert in a multi_images file
MODIFICATION HISTORY:
Ecrit par:Jean Bonmartin(@obspm.fr) 12/03/01
[Previous]
[Next]
NAME:
NRH_HSI_IMAGE
PURPOSE:
This procedure creates a serie of simulated HESSI images and writes a
FITS file for each image
The images are with two sources, and a motion on one source
CATEGORY:
NRH_HESSI
CALLING SEQUENCE:
NRH_HSI_IMAGE
INPUTS:
The user is called for the number of images to create
KEYWORD PARAMETERS:
CLEAN Simulation by CLEAN Method instead of BACK PROJECTION
PLOT to plot each image
REPERT the directory where to write the files
OUTPUTS:
FITS files with one image
The name of the files is
hessi_image_YYYYMMDD_HHMMSS_is.fts
YYYYMMDD, HHMMSS internal time and date of the computer
CALLS: ***
AVG [1], AVG [2], HSI_IMAGE, NRH_HSITIME
COMMON BLOCKS:
No
PROCEDURE:
This procedure use the simulation procedures of HESSI
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:
[Previous]
[Next]
NAME:
NRH_HSITIME
PURPOSE:
This procedure compute the date and time from the computer time
to put on the name of the NRH_HSI files
CATEGORY:
NRH HESSI
CALLING SEQUENCE:
NRH_HSITIME, Date, Time
INPUTS:
No
OUTPUTS:
DATE string 'YYYYMMDD'
TIME string 'HHMMSS'
CALLS: ***
BIN_DATE
CALLED BY:
NRH_HSI_IMAGE
MODIFICATION HISTORY:
Ecrit par:Jean Bonmartin (@obnspm.fr) le 12/03/01
[Previous]
[Next]
NAME:
NRH_IDFREQ
PURPOSE:
Cette fonction donne l'indice d'une frequence dans le tableau
des flux
CATEGORY:
NRH Routines
CALLING SEQUENCE:
Indice = NRHR_IDFREQ( 'Frequence', 'Fichier')
INPUTS:
FREQUENCE nom de la frequence
FICHIER nom du fichier
KEYWORD PARAMETERS:
REPERT repertoire contenant le fichier(Defaut fichier courant)
OUTPUTS:
OPTIONAL OUTPUTS:
CALLS: ***
FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], NRHR_IDFREQ
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin(bonmartin@obspm.fr) le 10/10/00
[Previous]
[Next]
NAME:
NRH_IMAGE
PURPOSE:
Procedure de trace des images 2D du Radioheliographe (NRH), provenant
d'un fichier en format FITS:
Visualisation des images
Coupes
Utilisee par le widget VISU_2D
CATEGORY:
Visualisation
CALLING SEQUENCE:
NRH_IMAGE, Image, Str_im, Str_lim, Str_Visu, Forme
INPUTS:
IMAGE: Tableau des images 2 dimensions a visualiser, resultant de
la lecture des donnees au format FITS, tables binaires
STR_IM Structure d'informations d'image
STR_LIM Structure limites de traitement voir RH_2d
STR_VISU: Structure liee a VISU_2D, voir RH_2d.pro pour
la description
FORME: Forme du trace
'I' images bitmap
'C' contours
'X' coupes utilisant la fonction IDL PROFILES
'Q' coupe utilisant la fonction IDL PROFILE
et trace de la coupe
KEYWORDS:
IDWIN Numero de la fenetre pour la visualisation d'images. Si abscent
creation de la fenetre numero 20
STK_WIN Incrementation du numero de fenetre pour affichage de Stokes V
pour les images et les contours
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], CRE_LABELNRH, ECH_RS, IND_RS, NRH_LEVEL_LIN
OPLOT_CIRCLE, PROFIL, PROFILES [1], PROFILES [2], TVCIRCLE
CALLED BY:
CW_POS, NRH_COORDPIX, NRH_VISU_2D
EXAMPLE:
Data = mrdfits('file', 1, Header)
Initialiser les valeurs contenues dans STR_VISU
Visualisation d'une image en bitmap
NRH_IMAGE, Data, STR_IM, STR_LIM, STR_VISU, 'I'
Trace des contours
NRH_IMAGE, Data, STR_IM, STR_LIM, STR_VISU, 'C'
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 20/10/97 (bonmartin@obspm.fr)
Le 23/04/99 keyword IDWIN (JB)
Le 06/05/99 Keyword STK_WIN pour affichage intensite et polar (JB)
[Previous]
[Next]
NAME:
NRH_IMAGEREF
PURPOSE:
Cette procedure visualise une image dans une fenetre pouvant servir
de reference a la superposition de contours ou de points
CATEGORY:
Visualisation
CALLING SEQUENCE:
NRH_IMAGEREF, Data, Xcen, Ycen, rayon, str_lim
INPUTS:
DATA Image a 2 dimensions
XCEN Coordonnee X du centre de l'image, en pixels
YCEN Coordonnee Y
RAY Dimension du rayon solaire en pixels
STR_LIM Limites du trace, structure NRH_STR_LIM
KEYWORD PARAMETERS:
CADRE trace du cadre si presen
ANNOTATION Annotation du cadre si present
LIMB Trace du limbe si present
SCALE TVSCL si tresent sinon TV
LABEL Label associe a l'image
AXIS Label des axes X, Y si present
CHARSIZE Dimension des caracteres (0.8 par defaut)
OUTPUTS:
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], IND_RS, NRH_PLOT_REF
CALLED BY:
SUN_IMAGE
COMMON BLOCKS:
Non
PROCEDURE:
Cette procedure utilse NRH_PLOT_REF pour fixer les coordonnees
correspondant a l'image afin de pouvoir faire correspondre les
pixels et les coordonnees d'un point
If the device is set to 'PS' (interactively) plots are send to
postcript file
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 07/09/98
d'apres les programmes de L Klein
le 08/01/99 Rajout des Keywords AXIS, CHARSIZE
le 22/11/99 modif du calcul de Npix
le 25/04/01 Test de sortie Postscript par !D.name(jb)
[Previous]
[Next]
NAME:
NRH_INTGCOMP
PURPOSE:
Cette procedure affiche les widgets correspondant a l'integration
des fichiers NRH
CATEGORY:
Fichiers NRH
CALLING SEQUENCE:
NRH_INTGCOMP
INPUTS:
KEYWORD PARAMETERS:
GROUP identification du widget appelant
OUTPUTS:
Describe any outputs here
CALLS: ***
CW_FIELD, CW_INFONRH, INTGCOMP_NRH2, NRH_FCLOSE, NRH_FOPEN, NRH_INTGCOMP_EVENT
NRH_PICKFILE, XMANAGER
CALLED BY:
NRH
COMMON BLOCKS:
FICHR contient la structure STR_FIC (oir RH_2D)
INFO2D contient la structure STR_INF2D (oir RH_2D)
LIMIT contient la structure STR_LIM (oir RH_2D)
PROCEDURE:
Cette procedure fournit les widgets pour
Choisir un fichier
Visualiser le Header
Integrer les donnees
Calculer les images a partir d'un fichier d'harmoniques
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 16/03/98 (bonmartin@obspm.fr)
[Previous]
[Next]
NAME:
NRH_LEVEL_LIN
PURPOSE:
Cette fonction calcule une table de niveaux pour les traces de
contours
CATEGORY:
Visualisation d'images
CALLING SEQUENCE:
LEVEL= NRH_LEVEL_LIN( IMAGE, NLEVEL, MAXC, MINC )
INPUTS:
IMAGE Image sur laquelle sont calcules les niveaux
NLEVEL Nombre de niveaux
MAXC Pourcentage du maximum de l'image pris en compte pour le
niveau maximum
MINC Pourcentage du maximum de l'image pris en compte pour le
niveau minimum
KEYWORD PARAMETERS:
OUTPUTS:
LEVEL Tableau contenant les niveaux
CALLED BY:
NRH_IMAGE, SUN_IMAGE
COMMON BLOCKS:
PROCEDURE:
Cette procedure calcule le nombre de niveaux correspondants entre
le max et le min
Le tableau LEVEL est retourne avec les valeurs negatives et positives
des niveaux afin de pouvoir tracer les niveaux negatifs si l'image
en contient.
Les niveaux negatifs peuven etre traces avec un symbole different
dans CONTOUR en gerant C_LINESTYLE
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 10/08/98 (obspm.fr)
[Previous]
[Next]
NAME:
NRH_PICKFILE
PURPOSE:
Cette procedure saist un nom de fichier en fonction du contenu
de STR_FIC et initialise les structures correspondant au fichier
selectionne
CATEGORY:
Fichier
CALLING SEQUENCE:
NRH_PICKFILE, Str_fic, Str_inf, Str_lim, Physpar, Lfreq
INPUTS:
STR_FIC Structure de selection du fichier.
KEYWORD PARAMETERS:
Nom
OUTPUTS:
STR_INF Structure d'information du fichier (NRH_STR_INFIC)
Cette structure doit etre cree avant l'appel
STR_LIM Structure de limite des traitement (NRH_STR_LIM)
Cette structure doit etre cree avant l'appel
PHYSPAR Tableau de chaines des parametres physiques existant
dans le fichier
LFREQ Tableau de chaines des frequences ou longueurs d'ondes
existant dans le fichier
CALLS: ***
NRH_FOPEN
CALLED BY:
CW_POS, FLUX_NRH2, GR_IMAGES, NRH2_PROJECTION, NRH_ANIM, NRH_FILTER, NRH_INTGCOMP
NRH_VISU_2D, SUN_IMAGE
COMMON BLOCKS:
Non
SIDE EFFECTS:
Le contenu de la structure STR_LIM est reinitialisee avec les
valeursa contenues dans le fichier
RESTRICTIONS:
Les structures STR_INF et STR_LIM doivent exister avant l'appel
PROCEDURE:
Cette procedure appelle:
DIALOG_PICKFILE pour saisit le nom du fichier
NRH_FOPEN pour effectuer les initialisations en fonction
du fichier
Avant l'execution l'appel a CW_NRH_FILTER permet de fixer le chemin
et le filtre de selection du fichier
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin (obspm.fr) le 24/08/98
[Previous]
[Next]
NAME:
NRH_PLOT_REF
PURPOSE:
Cette procedure trace le cardre, le soleil optique et met les
annotations pour une image servant a la superposition de contours
ou de points
CATEGORY:
Visualisation
CALLING SEQUENCE:
NRH_PLOT_REF, edge
INPUTS:
EDGE Limites du trace en rayon solaire [est, ouest, nord, sud]
KEYWORD PARAMETERS:
CADRE Trace du cadre
LIMB Trace du limbe
ANNOTATION Anotation du cadre
NOERASE
AXIS Label des axes X, Y si present
CHARSIZE Dimension des caracteres (0.8par defaut)
OUTPUTS:
Non
CALLS: ***
OPLOT_CIRCLE
CALLED BY:
NRH_IMAGEREF
COMMON BLOCKS:
Non
PROCEDURE:
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 07/08/98 d'apres
10 janvier 1997, KLK; derniere modification: 22 mai 1997
Le 06/10/98 (JB)
Rajoute XSTYLE, YSTYLE dans AXIS, pour ajuster la graduation
Le 08/08/99 rajout des Keywords AXIS et CHARSIZE
[Previous]
[Next]
NAME:
NRH_PLOTF
PURPOSE:
Cette procedure trace le flux d'une frequence donnee poor les fichiers
des routines NRH. Noms des fichiers
nrot*.fts ou nrin*.fts
CATEGORY:
NRH Routines
CALLING SEQUENCE:
NRH_PLOTF, Fichier, Frequence
INPUTS:
FICHIER nom du fichier
FREQUENCE Indice de la frequence a tracer
KEYWORD PARAMETERS:
HR_BEG Heure de debut de trace 'hhmmsscc'
HR_END Heure de fin de trace
OPLOT Oplot IDL
INDICE Indice du trace dans la fenetre, la couleur du
trace est fonction de cet indice (valeurde 0 a 10)
voit NRHR_COLOR_PLOT
YRANGE Echelle en Y, TABLEAU=[MIN,MAX]
YLOG Trace en LINEAIRE si present
XLAB chaine de label de l'axe X
PSYM PSYM IDL
BACKGROUND Indice de la couleur du fond
NOCOLOR Trace en Noir et Blanc
RED, GREEN, BLUE Tables de couleur du trace
OUTPUTS:
OPTIONAL OUTPUTS:
CALLS: ***
FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], MRDFITS [1]
MRDFITS [2], NRHR_LFREQ, NRHR_PLOTF, NRH_COLOR_PLOT, TR_TIME_NRH
COMMON BLOCKS:
SIDE EFFECTS: NRHR_PLOTF modifie la table de couleur, celle-ci est
restituee en sortie de NRHR
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:Jean.Bonmartin@obspm.fr
Ajustement des niveaux pour donnees calibrees le 07/11/01 (JB)
[Previous]
[Next]
NAME:
NRH_PLOTI
PURPOSE:
Cette procedure trace l'ensemble des flux des fichiers de routine
Elle ne prend que N dernieres valeurs (KEYWORD NPOINTS)
Fichiers traites: nrin*.fts, nrot*.fts.
La boucle et l'enregistrement dans un fichier *.png sont geres par
WD_NRH_ROUT
CATEGORY:
NRH Routine
CALLING SEQUENCE:
NRHR_PLOTI, [Ret], [Header], [Flux]
INPUTS:
KEYWORD PARAMETERS:
FILE Nom du fichier. Par defaut le fichier lu est le dernier
fichier present dans le repertoire indique
REPERT Nom du repertoire
NPOINTS Nombre de valeurs prises a partir de la fin du fichier
OUTPUTS:
HEADER Header 1 du fichier lu
FLUX Tableau de flux lu
RET Si ret = -1 le fichier cherche n'a pas etet trouve
OPTIONAL OUTPUTS:
CALLS: ***
FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], MRDFITS [1]
MRDFITS [2], NRHR_PLOTI, NRH_COLOR_PLOT, TR_TIME_NRH
COMMON BLOCKS:
SIDE EFFECTS:
Si le fichier indique n'est pas present la procedure envoie
le message 'NO File found', et retourne
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:Jean.Bonmartin@obspm.fr
Ajustement des niveaux pour donnees calibrees le 07/11/01(JB°
[Previous]
[Next]
NAME:
NRH_ROTIM
PURPOSE:
Cette fonction effectue la rotation d'une image
CATEGORY:
NRH2 project
CALLING SEQUENCE:
Image= (NRH_ROTIM, Data, Angle, [Xcim], [Ycim]) XCEN=Xcen, YCEN=Ycen
INPUTS:
DATA Tableau d'origine
ANGLE Angle de rotation en degres
KEYWORD PARAMETERS:
XCEN, YCEN Coordonnees de l'image contenue dans DATA
OUTPUTS:
Image apres rotation
OPTIONAL OUTPUTS:
XCIM, YCIM coordonnees du centre de l'image apres rotation si
XCEN et YCEN ont ete declares
CALLS: ***
ROT
CALLED BY:
NRH2_PROJECT2D, NRH2_PROJECTION
COMMON BLOCKS:
Non
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 09/07/99
[Previous]
[Next]
NAME:
NRH_SOURCEASCI
PURPOSE:
Cette procedure transforme un fichier dde flux FITS en fichier ASCII
CATEGORY:
Fichiers FLUX
CALLING SEQUENCE:
NRH_SOURCEASCI, FITS, FASCII
INPUTS:
FITS Fichier FITS contenant des flux
FASCI Fichier ASCIi a ecrire
KEYWORD PARAMETERS:
OUTPUTS:
CALLS: ***
FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], IND_RS, MRDFITS [1]
MRDFITS [2], MSH, NRH_CENTERASCI
COMMON BLOCKS:
PROCEDURE:
Cette procedure ecrit les parametres et positions successifs
des centres actifs dans un fichier ASCII a partir d'un fichier source.
Si le fichier ASCII existe deja, il est remplace.
La date, la frequence, les positions de depart de chaque centre actif
sont indiques en tete de chaque liste.
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par A Bouteille le 30/12/03 a partir de nrh_flusasci correction fichier ascii des positions des centres (AB)
Le fichier contient toutes les
[Previous]
[Next]
NAME:
NRH_STR_COORD__DEFINE
PURPOSE:
Definition de la structure STR_COORD
NRH_STR_COORD={NRH_STR_COORD,$
Instrume:'',$ ;Instrument
Date:'',$ ; date
Time:'',$ ;Heure de l'image
Freq:'',$ ;Frequence en MHz
Xcoord:0.0,$ ;coordonnee EW, rayons solaires ou canaux
Ycoord:0.0,$ ;coordonnee NS, rayons solaires ou canaux
Inten:0.0} ;Brillance du pixel
CATEGORY:
Structures
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 04/06/98
[Previous]
[Next]
NAME:
NRH_STR_FIC__DEFINE
PURPOSE:
Definition de la structure STR_FIC.
NRH_STR_FIC= {NRH_STR_FIC,
rep: ' ', Repertoire (repertoire courant par defaut)
file: ' ', Nom du fichier
Filtre:'*.* ' Filtre de selection
Freq:'*'
Date:'*;'
HR:'*'
TYP:'?'} Type (voir cw_nrhfile)
CATEGORY:
Structure
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 04/06/98
[Previous]
[Next]
NAME:
NRH_STR_IMAGE__DEFINE
PURPOSE:
Definition de la structure NRH_STR_IMAGE
NRH_STR_IMAGE = {NRH_STR_IMAGE, $
DATE:'', $ ;date
TIME:'', $ ;Heure de l'image
PHYSPAR:'', $ ;Chaine de caracteres decrinant l'image
;exemple: STOKESI ou STOKESV pour nrh2d
FREQ:'', $ ;identification de la longueur d'onde pour NRH
;ou WAVELENTH. Cchaine de caracteres ecrite dans
;l'image
INSTRUME:'', $ ;Instrument d'origine
CRPIXX:0.0, $ ;Coordonnee EW du centre en pixels
CRPIXY:0.0, $ ;Coordonnee NS du centre en pixels
RAY:0.0} ;rayon solaire en pixel
CATEGORY:
Structure
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 04/06/98
[Previous]
[Next]
NAME:
NRH_STR_INFIC__DEFINE
PURPOSE:
Definition de la structure NRH_STR_INFIC
Information de fichier
NRH_STR_INFIC = {NRH_STR_INFIC
INSTRUME:'', Instrument, utilise pour la lecture des
donnees et pour les labels
CONTENT:'', Contenu = definition de NRH_DATA
Unit:0, Unite de lecture
Ctime:0, Colonne TEMPS pour les tables binaires
Freq:0.0, Frequence
Date:'', Date ('JJ/Mois/AA')
Nim: 0, Nombre de lignes dans le fichier
Npx: 0, Nombre de pixels en X sur l'image
Npy: 0, Nombre de points en Y sur l'image
Tscan: 0.0, Duree d'integation
Xcen: 0.0, Position X du centre de l'image
Ycen: 0.0, Position Y du centre de l'image
Ray: 0.0, Rayon en pixels
Hd: ' ', Heure de debut(chaine ASCII)
Hf: ' ', Heure de fin(chaine ASCII)
PHYSPAR:0, Nombre de parametres physiques differents
MAX:0, Valeur max contenue dans le fichier
MIN:0} Valeur min contenue dans le fichier
CATEGORY:
Structure
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 04/06/98
[Previous]
[Next]
NAME:
NRH_STR_LABEL__DEFINE
PURPOSE:
Definition de la structure gerant les labels.
CATEGORY:
Structures
PROCEDURE:
Le label cree par CRE_LABELNRH contient les informations suivantes
si le champ est =1
FREE est laisse a l'utilisateur pour entrer son propre label
. NRH_STR_LABEL = {Nrh_Str_label, $
Date:1, $
Heure:1,$
Freq:1, $
Instrume:0, $
Physpar:0,$
AXIS:0,$
CHARSIZE:0.8,$
Free:''}
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin (obspm.fr) le 16/09/98
Le 08/01/99 Rajout des champs AXIS, CHARSIZE (JB)
[Previous]
[Next]
NAME:
NRH_STR_LIM__DEFINE
PURPOSE:
Definition de la structure STR_LIM, limites de traitement
NRH_STR_LIM = {NRH_STR_LIM,
Hd:'' heure de debut de traitement
Hf:'' heure de fin de traitement
XD: 0, Limite inferieure en X ou EW
XF: 0, Limite superieure en X
YD: 0, Limite inferieure en Y ou NS
YF: 0} Limite superieure en Y
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 04/06/98
[Previous]
[Next]
NAME:
NRH_VERIF
PURPOSE:
Cette procedure visualise le contenu de l'entete d'un fichier NRH1
au format HELIO
CATEGORY:
NRH1 fichier
CALLING SEQUENCE:
NRH_VERIF, Fich
INPUTS:
FICH nom du fichier
KEYWORD PARAMETERS:
LUN Unite logique de lecture
OUTPUTS:
Listing de l'entete du fichier sous forme resumee
CALLS: ***
MSH, NEWLITENTETE, NRH1_XTEXT
CALLED BY:
MENUVERIF
COMMON BLOCKS:
NRH1_GLOBAL
MODIFICATION HISTORY: (bonmartin@obspm.fr)
13/11/98 Adapte du logiciel XHELIO
[Previous]
[Next]
NAME:
NRH_VISU_2D
PURPOSE:
WIDGETS pour la visualisation des images 2D du NRH
CATEGORY:
WIDGET
CALLING SEQUENCE:
NRH_VISU_2D, GROUP = group
INPUTS:
OPTIONAL INPUTS:
GROUP Identifieur du widget appelant
CALLS: ***
CW_BGROUP, CW_FIELD, CW_FILE_NAME, CW_INFONRH, CW_LABELNRH, CW_RD_STRING
CW_SELFIELD, NRH_COORDPIX, NRH_FCLOSE, NRH_FOPEN, NRH_IMAGE, NRH_PICKFILE
NRH_VISU_2D_EVENT, NRH_WR_POINT, READ_NRHIM, TIME_IND_NRH, XLOADCT [1]
XLOADCT [2], XLOADCT [3], XMANAGER
CALLED BY:
HESSI_NRH, NRH
COMMON BLOCKS:
COMMON FICRH, str_fic structure definie dans rh_2d.pro
selection des fichiers
COMMON VISU_2D str_visu structure definie dans rh_2d.pro
parametres de visualisation
COMMON DATA_NRH2, Donnee, Header contenant les donnees lues
PROCEDURE:
Cette procedure donne acces aux fonctionsde
-trace d'images en bitmap
-traces de contours
-traces de profils par PROFILE ou PROFILES
-selection d'une region dans une image
-selection de fichier
EXAMPLE:
NRH_VISU_2D
ou
NRH_VISU_2D, GROUP=Id
MODIFICATION HISTORY:
Ecrit par: J Bonmartin le 18/08/98 (bonmartin@obspm.fr)
Le 03/11/98 rajoute HOURGLASS (JB)
Le 10/03/99 affichage de la selection d'heure a l'entree (JB)
Return_event->All_events
Le 06/05/99 Affichage de STOKES I et STOKES V simultanement (JB)
Le 09/08/00 Modif heure coordonnees pixels,
dialog-message sur le widget (JB)
Le 17/10/00 Coordonnees de points sur Image ou contour (JB)
Le 19/01/01 Modification d'ouverture de fichier (JB)
Le 22/01/04 Modif pour ecrans 24 bits et Write_png
[Previous]
[Next]
NAME:
NRH_WR_POINT
PURPOSE:
Cette procedure ecrit dans un fichier les informations correspondant
a un releve de point
CATEGORY:
Fichier
CALLING SEQUENCE:
NRH_WR_POINT, Unit, Point
INPUTS:
UNIT Unite logique correspondant au fichier de coordonnees
POINT Stucture contenant les informations (NRH_STR_COORD__DEFINE)
KEYWORD PARAMETERS:
Non
OUTPUTS:
Ecriture dns le fichier
CALLED BY:
NRH_VISU_2D
COMMON BLOCKS:
Non
RESTRICTIONS:
Les informations sont ecrites dans le fichier sous forme d'une
chaine de cracteres.
La structure NRH_STR_COORD peut etre remplie a partir du contenu
d'une ligne lue par RD_POINT
PROCEDURE:
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: j Bonmartin (obspm.fr) le 07/09/98
[Previous]
[Next]
NAME:
NRHR
PURPOSE:
Cette procedure contient les widgets pour l'utilistions des donnees
provenant des spectres de routines
CATEGORY:
NRH routines
CALLING SEQUENCE:
NRHR
INPUTS:
KEYWORD PARAMETERS:
GROUP Identification du widget parent
OUTPUTS:
OPTIONAL OUTPUTS:
CALLS: ***
CW_FIELD, HEADFITS [1], HEADFITS [2], HEADFITS [3], MRDFITS [1], MRDFITS [2], MSH
NRHR_EVENT, NRHR_LFREQ, NRHR_PLOTF, XMANAGER
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin (bonmartin@obspm.fr) le 10/10/00
[Previous]
[Next]
NAME:
NRHR_CAL
PURPOSE:
Cette procedure calibre une frequence des routines NRH.
CATEGORY:
Routines
CALLING SEQUENCE:
NRHR_CAL, File, Freq, [calib]
INPUTS:
FILE Nom du fichier d'observation de calibration
FREQ Numero de la frequence a callibrer
KEYWORD PARAMETERS:
HDEB Heure de debut ('hh:mm:ss:cc')
DUREE Duree en secondes sur laquelle porrte la calibration (42)
DATA Tableau contenant les valeurs prises pour la calibration
SEUIL Seuil de detection des pas de 1dB (0.008 par defaut)
COORD Coordonne des milieux de pas de 1dB mesures
TIME_STAR Heure de debut de calibration trouve
PLOT Trace de controle: observation, coefficients de calibration,
calibration appliquee a l'observation
OUTPUTS:
CALIB coefficients de calibration
CALLS: ***
HMS, INTERPOL, MRDFITS [1], MRDFITS [2], MSH, TIME_IND, TR_TIME_NRH
CALLED BY:
NRHRCAL, NRHRCALIBRATION
COMMON BLOCKS:
Non
PROCEDURE:
Le debut de la mesure de calibration est determine a partir de
la detection du front de debut.
La determination des pas de 1dB est faite en detectant les fronts
d'attenuation. Les points manquants sont completes.
Un coefficient est applique pour amener le 1er point a la valeur
maximale (2.8*10.^8] puis les points suivants a la valeur correspondant
a l'attenuation appliquee.
Une interpolation est effectuee pour obtenir une correspondance
entre les valeurs mesurees en mV et la valeur du signal de sortie
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 22/02/01
mise au point le 27/03/01
[Previous]
[Next]
NAME:
NRHR_LFREQ
PURPOSE:
Cette fonction retourne un tableau de chaines contenant les
noms des frequences contenues dans le fichier
CATEGORY:
NRH Routine
CALLING SEQUENCE:
Liste = NRHR_LFREQ( Header)
INPUTS:
HEADER Header primaire du fichier
KEYWORD PARAMETERS:
OUTPUTS:
OPTIONAL OUTPUTS:
CALLS: ***
FXPAR [1], FXPAR [2]
CALLED BY:
NRHR, NRHRCAL, NRHRCALIBRATION, NRH_PLOTF
COMMON BLOCKS:
SIDE EFFECTS:
RESTRICTIONS:
PROCEDURE:
EXAMPLE:
MODIFICATION HISTORY:
Ecrit par:J Bonmartin(bonmarti@obspm.fr) le 10/10/00
[Previous]
[Next]
NAME:
NRHRCAL
PURPOSE:
Cette procedure contient les widgets pour la calibration des
routines NRH
CATEGORY:
Routine
CALLING SEQUENCE:
NRHRCAL
INPUTS:
Non
KEYWORD PARAMETERS:
GROUP Identifieur du widget appelant
CALLS: ***
CW_FIELD, FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3]
MRDFITS [1], MRDFITS [2], MSH, NRHRCALIBRATION, NRHRCAL_EVENT, NRHR_CAL
NRHR_CTRLCAL, NRHR_LFREQ, XDISPLAYFILE [1], XDISPLAYFILE [2], XMANAGER
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 22/02/01
[Previous]
[Next]
NAME:
NRHRCALIBRATION
PURPOSE:
Cette procedure calcule la calibration de toutes les frequences
observees et enregistre les resultats dans unfichier
CATEGORY:
Routines
CALLING SEQUENCE:
NRHRCALIBRATION, File
INPUTS:
FILE Nom du fichier contenant l'observation de calibration
KEYWORD PARAMETERS:
REPERT Repertoire d'ecriture du fichier de coefficients de
calibration
HDEB Heure de debut du calcul de calibration (voir NRHR_CAL)
DUREE Duree de l'intervalle de calibration en secondes (42)
CALIB Tableau des coefficients de calibration
OUTPUTS:
Fichier de calibration
Ce fichier contient le nombre de frequences calibrrees (I*4)
le tableau de calibration [4001, 10]en FLOAT
1ere valeur Numero de la frequence
4000 valeurs de calibration.
Si le nombre de frequences est inferiur a 10, seules les N 1eres
colonnes sont
remplies].
Le nom du fichier de calibration est
calibration.bin
Il est possible d'avoir le nom de fichier suivant:
nrot_yymmjj_hhmmss.cal
l'heure etant l'heure de debut de l'intervalle de calibration
CALLS: ***
FXPAR [1], FXPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], NRHR_CAL, NRHR_LFREQ
CALLED BY:
NRHRCAL
COMMON BLOCKS:
Non
MODIFICATION HISTORY:
Ecrit par:J Bonmartin le 22/02/01
mise au point le 27/03/01
[Previous]
[Next]
NAME:
Number of Plots Selected
PURPOSE:
Returns the number of plots selected.
CALLING SEQUENCE:
nb = N_Selected()
CALLS: