[Previous]
[Next]
NAME:
SATCALCHEK
PURPOSE:
Main routine to analyze satellite pointing data. Responds to scans
of type SATOBS (scan code 10)
CATEGORY:
OVRO APC DATA ANALYSIS
CALLING SEQUENCE:
satcalchek[,filename][,hrec | ,after=after][,output][,debug][,/cmdfile]
INPUTS:
filename the name of the file containing SATOBS data. If
omitted, the file DAILY.ARC in directory
!DEFAULTS.WORKDIR is assumed.
hrec the record number of the SATOBS scan header. Data
will be processed up to the next EOS segment.
If this argument is given, then AFTER keyword
is ignored.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
after an optional time string of the standard form
[yyyy.ddd ]hh:mm[:ss] after which to start
looking for a valid SATOBS or TEST DATA scan.
cmdfile a switch that indicates that the routine was called
from a command file, so issue no modal messages, and
print any error messages to <WORKDIR>\SATCAL.MSG.
debug a switch that activates some debugging statements
for getting an indication of intermediate steps.
This switch is not compatible with /CMDFILE switch.
ROUTINES CALLED:
openarc, getdata, lasthrec, tl_decode, decode, acfit
OUTPUTS:
output a 2*nant-element string array containing formatted lines of
output of the following form. The two header lines are
not included. These lines are also appended to
the file boresite.pnt in the directory !DEFAULTS.DBDIR.
Source Name Date Time Rec# HA(deg) DEC(deg) Ant Axis Offset
------------ ---------- -------- ----- -------- -------- --- ---- ------
SUN 2000/03/08 19:09:40 1402 -13.531 -4.540 4 HO 0.075
SUN 2000/03/08 19:09:40 1402 -13.531 -4.540 4 DO -0.017
SUN 2000/03/08 19:09:40 1402 -13.531 -4.540 5 HO 0.027
SUN 2000/03/08 19:09:40 1402 -13.531 -4.540 5 DO 0.118
SUN 2000/03/08 19:09:40 1402 -13.531 -4.540 6 HO 0.020
SUN 2000/03/08 19:09:40 1402 -13.531 -4.540 6 DO 0.037
COMMENTS:
There will have to be modifications to this routine when
additional antennas are available.
CALLS: ***
FLAGOOL, FREESCAN, GAINCOR, GET_CYCLE, LASTHREC, MSEC2STR, NEWSCAN, NINT [1], NINT [2]
OPENARC, SCFIT
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 23-Jul-2005 by Dale E. Gary
[Previous]
[Next]
NAME:
Save_User_CT
PURPOSE:
Store in a file a user modfified color table.
CATEGORY
Input/Output
CALLING SEQUENCE
Save_User_CT [, name ]
INPUT ARGUMENT:
name: the name of the file where the color table will be
saved. If not present, it will be
asked interactively.
COMMON BLOCK:
"Colors" is used to get the color table values.
SIDE EFFECT:
When the name is not provided, the terminal window
is used to get it.
RESTRICTION:
Works only on x-windows terminals.
CALLS:
[Previous]
[Next]
NAME:
SB4_Read
PURPOSE:
Reads sb4 files.
CATEGORY:
Input/Output
CALLING SEQUENCE:
SB4_Read,file,image,xAxis,yAxis,vAxis,wAxis, desc
INPUT:
file: the complete name of the file to read.
OUTPUTS:
image: A four dimensional array with
dimension <nx,ny,nv,nw> where nx,ny,nv,nw
are the number of elements in the x,y,v,w
directions, respectively.
xAxis,yAxis,vAxis,wAxis: data array and axis definition
arrays, xAxis(nx,next), yAxis(ny,next),
v(nv,next), w(nw,next), where nx,ny,nv,nw,
and next are read from the second record
of the file. xAxis,yAxis,vAxis,and wAxis
are real arrays.
desc: Array of 20 character strings containing the
following descriptors: title, zlabel, xlabel,
ylabel, vlabel, wlabel, timestart, timeend,
timecreate, instrument, and spares.
KEYWORDS:
TITLE: The title of the image
XLAB, YLAB, ZLAB: The x axis descriptions
STARTTIME, ENDTIME: The start and end time
(h:m:s.cc), string
TIMECREATE, INSTRUMENT, SPARES: Additional
information from the header.
/VMS: If specified, the file is considered as a VMS file and
read in the VMS format. After the read,
the file is automatically rewritten in Unix
Format.
/SECS: If specified, the x-axis values are in 'Seconds after
Midnight': the STARTTIME information is
added to the x-axis values.
CALLS: ***
CONV_VAX_BLOCK, CONV_VAX_UNIX, SB4_WRITE
CALLED BY:
Files_Handling [1], Files_Handling [2]
MODIFICATION HISTORY:
Created: NASA/Goddard Space Flight Center,
SMM Data Analysis Center, 4/89
Modified: 4/91, A. Csillaghy, for WAVE 3
Institute for Astronomy, ETH Zurich
Use of Conv_Vax_... in Jan 93, A.Cs.
[Previous]
[Next]
NAME:
SBTRBCKGRD
PURPOSE:
PROCEDURE DE SOUSTRACTION D'UN FOND A UN TABLEAU CONTENANT DES IMAGES
EN FONCTION DU TEMPS PROVENANT DE LA FONCTION LEC1D (IMAGE 1D DU RH)
(TABLEAU DE 2D CONTENANT UN SEUL TYPE DE DONNEES 'INTENSITE OU POLARISATION')
(TABLEAU DE 3D CONTENANT LES 2 TYPE DE DONNEES 'INTENSITE ET POLARISATION')
CATEGORY:
NRH1 Calculs
CALLING SEQUENCE:
SBTRBCHGRD, Tab, Lun, , Profbckgr, Message
INPUTS:
TAB ...... Tableau issu de LEC1D contenant les images
(2 dimensions)
TAB(num_Canal,Temps)
(3 Dim sinon )
TAB(Num_Canal,Temps,type)
type = 0 ---> Intensite
type = 1 ---> Polarisation
LUN ......Numero d'unite logique dont x est issu.
OPTIONAL INPUTS:
Non
KEYWORD PARAMETERS:
HEURES Tableau d'heures de debut et de fin
('hh:mn:ss:ccc','hh:mn:ss:ccc')
OUTPUTS:
TAB Apres soustraction
PROFBCKGRD ... Profil representant le fond (I, V)
CALLS: ***
VERIF_HEURES
CALLED BY:
MENUBCKGRD
COMMON BLOCKS:
NRH1_GLOBAL
MODIFICATION HISTORY: (bonmartin@obspm.fr)
03/12/98 Adapte du logiciel XHELIO (JB)
[Previous]
[Next]
NAME:
SCA_Read
PURPOSE:
Reads SCA files.
CATEGORY:
Input/Output
CALLING SEQUENCES:
SCA_Read, file, image, [ xAxis, yAxis ]
SCA_Read, file, image, nx, ny, x1, y1, dx, dy
INPUT ARGUMENTS:
file: complete name of the file to be read
OUTPUT ARGUMENTS:
image: the two-dimensionnal array
xAxis, yAxis: the axes of "image"
nx, ny: the array dimensions
dx, dy: the image steps between two pixels
x1, y1: the first value of the axes.
KEYWORDS:
TITLE: the title of the image
XLAB, YLAB, ZLAB: the titles of the axes involved
NAME: the name of the image
VMS: if present, the file is assumed to have the
"variable record length" from the VMS
fortran write. The file will be read, and
directly rewritten in Unix SCA format.
TRANSFORM: transforms microseconds in seconds
in case of RAG data.
CALLED BY:
Files_Handling [1], Files_Handling [2]
MODIFICATION HISTORY:
Created, 4/91, A.Csillaghy, ETHZ
Modified, Jan.93, A.Cs
[Previous]
[Next]
NAME:
SCA_Read
PURPOSE:
Reads SCA files.
CATEGORY:
Input/Output
CALLING SEQUENCES:
SCA_Read, file, image, [ xAxis, yAxis ]
SCA_Read, file, image, nx, ny, x1, y1, dx, dy
INPUT ARGUMENTS:
file: complete name of the file to be read
OUTPUT ARGUMENTS:
image: the two-dimensionnal array
xAxis, yAxis: the axes of "image"
nx, ny: the array dimensions
dx, dy: the image steps between two pixels
x1, y1: the first value of the axes.
KEYWORDS:
TITLE: the title of the image
XLAB, YLAB, ZLAB: the titles of the axes involved
NAME: the name of the image
VMS: if present, the file is assumed to have the
"variable record length" from the VMS
fortran write. The file will be read, and
directly rewritten in Unix SCA format.
TRANSFORM: transforms microseconds in seconds
in case of RAG data.
CALLS: ***
READ_DATA_BYTE, SCA_READ_UNIX, SCA_READ_VMS, Sca_Write, VMSFLOAT
CALLED BY:
Files_Handling [1], Files_Handling [2]
MODIFICATION HISTORY:
Created, 4/91, A.Csillaghy, ETHZ
Modified, Jan.93, A.Cs
[Previous]
[Next]
NAME:
Sca_Write
PURPOSE:
Writes SCA files
CATEGORY:
I/O
CALLING SEQUENCE:
Sca_Write, array [, xAxis, yAxis ]
Sca_Write, array [, x1, y1, dx, dy ]
INPUTS:
array: the data. If it is not in floating type it will be
transformed.
xAxis,yAxis: The axes, which the same number of elements
as their corresponding direction in the array.
The axes must be homogen.
x1, y1: the start values of the axes.
dx, dy: the step values of the axes.
KEYWORDS:
FILENAME: the complete name of the file to produce. If
not present, it will have the name stored in
!p.title, without blank chars.
TITLE: the title of the array. If not present, it will have the
name stored in !p.title (max 80 chars)
NAME: the name of the array (max 9 chars) If not
present, it will be blank.
XLAB, YLAB, ZLAB: titles for the three axes. If not
present, the names will be taken from the
variables !x.title, !y.title and !z.title,
respectively.
INTERACTIVE: If set, the file name is asked on the
terminal window. (when FILENAME is
not given).
SIDE EFFECT:
A file is produced. If it already exists, it will be deleted
and replaced by the new one.
CALLS: ***
CLEAR_SCREEN [1], CLEAR_SCREEN [2]
CALLED BY:
Files_Handling [1], Files_Handling [2], SCA_Read [2]
PROCEDURE:
The fortran implementation of the sca file write is
CHARACTER NAME*9, TITLE*80, XLAB*20,
YLAB*20, ZLAB*20
INTEGER*4 NX, NY
REAL*4 Z(NX,NY), X1, Y1, DX, DY
OPEN( UNIT=4, FILE=NAME//'.SCA', STATUS='OLD'
FORM='UNFORMATTED',IOSTAT=IO)
WRITE(4) TITLE, XLAB, YLAB, ZLAB, NAME
WRITE(4) NX, NY, X1, Y1, DX, DY
WRITE(4) Z
[Previous]
[Next]
NAME:
SCAN4FLARE
PURPOSE:
Scan intput files for flare occurences using flaremeter.pro
CATEGORY:
CALLING SEQUENCE:
scan4flare [,database=database]
INPUTS:
database the file name of the database into the flares to be recorded
If the file does'nt exist yet, it is created.
If no filename is given, it is set to database=!defaults.dbdir+'flare.db'
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
flaremeter, find_record
OUTPUTS:
COMMENTS:
CALLS: ***
DEFPARMS, FIND_RECORD, FLAREMETER, GETTEXT, SCAN4FLARE_EVENT, XMANAGER, XREGISTERED
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 2-March-2002 by Gelu Nita
22-June-2004, GN
Modified the code to automatically call defparms if the !defaults variable is not defined yet.
Modified the code to set the enviroment to OVSA to allow creating the png files.
[Previous]
[Next]
NAME:
SCFIT
PURPOSE:
SATCALCHEK support routine. Fits Antenna SATOBS data to find
the peak flux, pointing offset, half-power beamwidth, and rmserr
of the fits for each of the small antennas.
CATEGORY:
OVRO APC ACALCHEK SUPPORT ROUTINE
CALLING SEQUENCE:
scfit,avdat,pk,po,hpbw,rmserr[,/debug]
INPUTS:
avdat the SATCAL data array, of size (nant,nsamp,nblk), where
the first index is the number of antennas (5--the
first two are 27 m and not used [yet]), second
index is the number of samples at 1.6 GHz (9), and the
third index is the number of "blocks" (pointings--19)
in the SATCAL Trajectory.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
debug a switch to enable plotting of some intermediate
results.
ROUTINES CALLED:
OUTPUTS:
pk an array of size (nant) containing the peak level
in receiver units of the peak (Sat-center) for each ant.
po an array of size (nant,2) containing the pointing
offsets in degrees for each of the two axes, HA and DEC.
hpbw an array of size (nant,2) containing the half-power
beamwidth in degrees for each of the two axes, HA and DEC.
rmserr an array of size (nant,2) containing the rms error of the
fit for the two axes, HA and DEC.
COMMENTS:
CALLS: ***
GAUSFIT_S, NINT [1], NINT [2]
CALLED BY:
SATCALCHEK
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 23-Jul-2005 by Dale E. Gary
[Previous]
[Next]
NAME:
SCHEDULE
PURPOSE:
Supervises observing
CATEGORY:
OVRO APC SCHEDULE
CALLING SEQUENCE:
schedule[,filename][,day=day,time=hhmm][,/active]
INPUTS:
OPTIONAL (KEYWORD) INPUT PARAMETERS:
filename The name of the schedule file to open. If omitted, SOLAR.SCD
is used.
day The start day number. If supplied, all day numbers will be
advanced by the difference of this day and the first day
number in the schedule. The TIME keyword must also be supplied.
time An integer representing the time (HHMM). If the DAY keyword
is used, the TIME keyword must also be applied. All times
will be advanced by the difference of this time and the first
time in the schedule.
active If this switch is set, the SCHEDULE will come up active.
Otherwise, the user must click on the GO button to start the
SCHEDULE.
ROUTINES CALLED:
getbestgps
OUTPUTS:
COMMENTS:
CALLS: ***
Build_Schedule, CALDAT, CHECK_SCHED_STATE, CNV_H2XY, CNV_XY2H, CONCAT_DIR [1]
CONCAT_DIR [2], CONCAT_DIR [3], CVDOY, FST_DSWRITE, GEOPOS, GETGPSLIST, GETSATS
GET_SCREEN_SIZE, HANDLE_CMD, JULDAY, NINT [1], NINT [2], OKTOWRITE, OVSA_REGION, PANDB
PICKFILE, READ_SCHED, REVERSE, SCHEDULE_EVENT, SETBUTTONS, SOLROTATE, STR_SEP, SYSDOY
WGETGPS, WGETSATS, WREGION, WRITE_OVSA_LOG, WSTATUS_HISTORY, WUPTIME, XMANAGER
concat_dir [4], fst_gcal_attributes
CALLED BY:
AUTOCAL, LAUNCHER
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 06-Aug-1998 by Dale E. Gary
03-Nov-1998 DG
Converted to use WIDGET_TABLE, added many editing capabilities.
24-Dec-1998 DG
Fixed a bug concerning start of first line. Fixed several problems
with increment/decrement of times. Added display of current system
time.
17-May-1999 DG
Several small changes to clean up a few bugs. Added color to GO and
STOP button.
27-Jul-1999 DG
Major changes to allow WUPTIME and WREGION to work more closely with
this routine. Now some limited communication is performed between
them. More cleanup is needed, however.
19-Dec-1999 DG
Fixed bug where STATUS variable in STATE structure was set by first
schedule read in, so if a longer schedule was read later the program
would crash when it got to those lines.
11-Jan-2000 DG
Eliminated hardwired directory locations (except for spawning editor).
13-Jan-2000 DG
Added code to add and delete lines from the schedule.
16-Jan-2000 DG
Further enhancements to interface, and editing on-screen. Added
rudimentary REWIND functionality (not yet complete).
21-Jan-2000 DG
REWIND seems to be working now.
24-Jan-2000 DG
Added 1-day solar rotation to each solar scan on REWIND.
24-Jun-2000 DG
Fixed some problems with the NEW button and associated code.
16-Aug-2000 DG
Changed bitmap file locations to be operating system independent
through use of CONCAT_DIR routine.
08-Sep-2000 DG
Significant changes to allow two instances of SCHEDULE to co-exist
and share control through a "hand-shaking" protocol implemented by
changing the contents of file !defaults.workdir+'sched_state.dat'.
A yellow INTRQ button indicates when an instance of SCHEDULE is *not*
currently in control. As part of this protocol, special schedule
commands IDLE and EXIT were added.
09-Sep-2000 DG
Got the logic working on the above SCHEDULE interruption scheme.
08-Nov-2000 DG
Finally fixed a bug in updating calibrator source names.
12-Jan-2001 DG
Added button for entering comments into the status log (starts
WSTATUS_HISTORY routine).
15-Jan-2001 DG
Centralized sending of commands through a new HANDLE_CMD routine,
and added sending of PKUPARM.FTH whenever a command line contains
the string 'DO-SUN'.
26-Jan-2001 DG
Added DAY and TIME keywords so that schedule can be made relative
to any given time. This is mostly useful for spawning a STARTUP
schedule.
27-Jan-2001 DG
Changed solar coordinate updating to key on presence of REGION
command rather than DO-SUN string. This allows us to put such
a command in association with PEAKUP. Otherwise the system did
not know what location to peak up on! Also fixed bugs introduced
or found yesterday with spawning new schedule.
28-Jan-2001 DG
Tailored the timing to speed up hand-offs and make sure there is
not a race condition between the original and spawned schedules.
Also, clicking the system close-window x sets SCHED_STATE.DAT to
IDLE if the program was in control.
01-Mar-2002 DG
Now checks whether a flare is in progress as indicated in the
!defaults.workdir+'flarestat.txt' file, written by FLAREMETER.
20-Mar-2002 DG
Added Hessi button, to automatically build a HESSI-compatible
schedule using the largest area active region.
09-Jun-2002 DG
Added QSTART command, so that only FCAL and GCAL are done at startup.
12-Oct-2002 DG
Added handling of geostationary satellite source positions.
10-Dec-2002 DG
Added code so that the HESSI button causes the new schedule to be
written to disk automatically.
12-Apr-2003 DG
Added CASSA command.
10-Jul-2003 DG
Added /HIDE keyword to SPAWN command to hide the command window.
Changed location of editor to agree with new OVSA APC computer.
23-Jul-2003 DG
Changed WRITE_LOG to WRITE_OVSA_LOG to avoid conflict
with routine of the same name in BATSE tree.
21-Jul-2004 DG
Added GPS button, to calculate "best" GPS satellite for a given
sched entry and update the coordinates. To use, just type GPS
for the source name, select the line, and click the GPS button.
The coordinate returned is for 5 minutes after the time in the
entry, to give the antennas time to slew there and be ready for
its arrival.
05-Aug-2004 DG
Added code to write an ephemeris file for each GPS satellite,
which will then be read by WATCHER and written into the TRAJECTORY
segment of the scan in near-real-time. The file will be deleted
by WATCHER, so that files should not accumulate.
27-Feb-2005 DG
Changed to check for date of geo.txt file when starting to look
at geosynchronous satellite data, similar to what had been done for GPS
satellites. Also made check for GPS and GEO satellites initiate the
same update file C:\STD\GET_SAT.BAT, which is now updated to use the
Space Track web site. Scheme uses TLERetriever, provided by Celestrak.
14-Mar-2005 DG
Changed GPS handling to work with updated GPS software. The command
53 DO-SAT will automatically create the SATPOS.FTH file and send it to
the CPC before executing the command.
27-Feb-2006 DG
On upgrade to IDL 6.2, the editable function of the table widget changed.
This was fixed by adding the /EDITABLE keyword to the WIDGET_TABLE call.
12-Jun-2006 DG
Added definition of FST commands FST_START, FST_STOP, FST_GCSETUP, FST_GCAL.
18-Jul-2006 DG
Added possible Scan Description to FST_START (usage $fst_start Gain Calibration)
28-Jul-2006 DG
Added FST_SUNCTR command to call corresponding .scd file fst_sunctr.scd.
29-Jul-2006 DG
Added capability for SCHEDULE to send GEO sat positions to CPC (should work the
same for either GEO or GPS). Move code for DO-SAT to activate for $SATPOS
command. Doing the SATPOS for the DO-SAT command was becoming unworkable.
[Previous]
[Next]
NAME:
SCREENDMP
PURPOSE:
Reads and displays a 4-record Screen Dump from the CPC
CATEGORY:
OVRO APC Diagnostics
CALLING SEQUENCE:
screendmp,filename
INPUTS:
filename the name of the file containing the 4-record dump
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
congrid
OUTPUTS:
COMMENTS:
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], GETDATA, OPENARC
CALLED BY:
WATCHER
SIDE EFFECTS:
Opens a window and displays the screen dump
Also changes the color table
RESTRICTIONS:
MODIFICATION HISTORY:
Written 07-May-1999 by Dale E. Gary
29-Jan-2001 DG
Finally fixed the display to make the last 6 lines brown.
[Previous]
[Next]
NAME:
Search Plot
PURPOSE:
Returns the index of a plot in the plot list
CALLIG SEQUENCE:
result = SearchPlot( name )
INPUT:
name: a string scalar
RESULT OF FUNCTION:
-1: there is no plot in the plot list
0: there are plots in the plot list, but not with this name
else: the plot number in the plot list.
RESTRICTION:
works only after runnig init_data.pro
CALLS:
[Previous]
[Next]
NAME:
SEC2HMS
PURPOSE:
Function that converts a time in seconds to HHMMSS format
CATEGORY:
OVRO APC UTILITY
CALLING SEQUENCE:
hhmmss = hms2sec(sec)
INPUTS:
sec the time in seconds
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
hhmmss the converted time, in HHMMSS format, as a REAL number
COMMENTS:
CALLED BY:
DUMPREC, GETGPSLIST, MSEC2STR, ovsa_interact, plot_pcal, write_ovsa_fits
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 26-Sep-1997 by Dale Gary
[Previous]
[Next]
NAME:
SECHMS
PURPOSE:
Seconds after midnight to h, m, s, numbers and strings.
CATEGORY:
CALLING SEQUENCE:
sechms, sec, h, [m, s, sh, sm, ss]
INPUTS:
sec = seconds after midnight. in
KEYWORD PARAMETERS:
OUTPUTS:
h, m, s = Hrs, Min, Sec as numbers. out
sh, sm, ss = Hrs, Min, Sec as strings out
(with leading 0s where needed).
CALLED BY:
DT_TM_MAK [1], DT_TM_MAK [2], DT_TM_MAK [3]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 17 Nov, 1988.
Johns Hopkins University Applied Physics Laboratory.
R. Sterner, 27 Sep, 1993 --- modified to handle arrays.
Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
SECHMS
PURPOSE:
Seconds after midnight to h, m, s, numbers and strings.
CATEGORY:
CALLING SEQUENCE:
SECHMS, SEC, H, [M, S, SH, SM, SS]
INPUTS:
SEC = seconds after midnight. in
KEYWORD PARAMETERS:
OUTPUTS:
H, M, S = Hrs, Min, Sec as numbers. out
SH, SM, SS = Hrs, Min, Sec as strings out
(with leading 0s where needed).
CALLED BY:
DT_TM_MAK [1], DT_TM_MAK [2], DT_TM_MAK [3]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 17 Nov, 1988.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
This software may be used, copied, or redistributed as long as it is not
sold and this copyright notice is reproduced on each copy made. This
routine is provided as is without any express or implied warranties
whatsoever. Other limitations apply as described in the file disclaimer.txt.
[Previous]
[Next]
NAME:
SEL_FICPOINT
PURPOSE:
Cette Fonction saisit par widget l'indice de la ligne contenant
les donnees correspondant a un point dans un tableau de points
CATEGORY:
Fichiers de points
CALLING SEQUENCE:
Indice = SEL_FICPOINT( TAB ), GROUP=Group
INPUTS:
TAB Tableau resultant de la lecture d'un fichier de points
KEYWORD PARAMETERS:
GROUP Identifieur du widget appelant
OUTPUTS:
INDICE Indice le la ligne contenant les donnees du point
CALLS: ***
DCD_FICPOINT, RD_FICPOINT, SEL_FICPOINT_EVENT, XMANAGER
CALLED BY:
DCD_FICPOINT, RD_FICPOINT
COMMON BLOCKS:
Non
PROCEDURE:
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (obspm.fr) le 04/07/98
[Previous]
[Next]
NAME: Select All
PURPOSE: Selects all the plots from the plot table.
CALLING SEQUENCE:
SelectAll
CALLS:
[Previous]
[Next]
NAME:
Select_All
PURPOSE:
Selects all the plots present in the plot table
CATEGORY:
Data Management
CALLING SEQUENCE:
Select_All
COMMON BLOCKS:
Data: plot table
SelectionRetrieval: selection list
SIDE EFECT:
See the purpose of the procedure.
[Previous]
[Next]
NAME:
Selection delete
PURPOSE:
Deletes one or more save files. Optionally deletes the
save directory in ENRAD_SAVE also.
CALLING SEQUENCE:
Sel_Del
KEYWORDS:
ALL: If specified, all save files are deleted.
DIR: If specified, the whole save directory is deleted
SIDE EFFECT:
If no keywors is specified, the file to delete is asked
interactively with a menu.
CALLS: ***
Change_Selection, GETWNR, General_Menu [1], General_Menu [2], INIT_SELECTION
Image_Info, PUT_SELECTION, REPCHR [1], REPCHR [2], REPCHR [3], Read_Test, SEL_DEL
SHOW_IMAGE, WINDOW_MANAGEMENT
MODIFICATION HISTORY:
Created in Oct. 91 by A.Csillaghy, ETHZ
Modified in Jan 93 for ENRAD_SAVE, A.Cs
[Previous]
[Next]
NAME: Selection
PURPOSE: Returns the names of a subset of selected plot.
CALLING SEQUENCE:
result = Selection( indexList )
CALLS:
CALLED BY
Fitting, Get Names, Init Selection, Init_Data, Initialize Selection [1]
Insert Plot, Insert in the Selection, Load Plot, Load Selection
Remove from the Selection, Search Plot, Select All
[Previous]
[Next]
NAME:
SELTIME.PRO
PURPOSE:
Affiche une widget pour selection des heures de debut et de fin
CATEGORY:
RH_2D, recherche de positions
CALLING SEQUENCE:
heures = SELTIME, Hdeb, Hfin, GROUP=group
INPUTS:
Hdeb, Hfin: valeurs initiales des heures de debut et de fin
OUTPUTS:
heures: tableau de 2 chaines de caracteres contenant les heures selectionnees
CALLS: ***
CW_FIELD, SELTIME_EVENT, XMANAGER
CALLED BY:
CW_POS
MODIFICATION HISTORY:
Written by: Christian Renie
Avril, 1999
[Previous]
[Next]
PROGECT:
Phoenix 2 solar radio spectrometer
NAME:
Settings
PURPOSE:
Interface for saving and restoring RagView customized settings
CATEGORY
Radio (/ssw/radio)
CALLING SEQUENCE:
Settings
KEYWORDS:
/SAVE: will save RagView settings in the file ./.ragview
/RESTORE: will restore the RagView settings from the file ./.ragview
CALLED BY:
Radio Astronomy Group View RAG View [1]
Radio Astronomy Group View RAG View [2]
COMMON BLOCKS:
The user settings are stored in the following common blocks
and variables:
COMMON Sizes, size: the size of the window in dev.pix.
pos: the position of the lower left corner
scale, width, height: the dimension of the
image in the window
COMMON Axes, axisOffset: the nb of pix betw im and axis
imageOffset
COMMON PSMisc, encapsulated, landscape, reverse, blFont
COMMON BothDisplays, hms, dxBreaks, dyBreaks
SIDE EFFECTS:
in Save mode, creates or overwrites the file .ragview
RESTRICTIONS:
Currently only tested on Unix systems
MODIFICATION HISTORY:
Created: 1991 A.Csillaghy
Institute for Astronomy, ETH Zurich
IDL 5.1 version in October 1998, csillag@ssl.berkeley.edu
old ".enrad" replaced by ".ragview"
[Previous]
[Next]
NAME:
SHIFTRH1D
PURPOSE:
Replie le bord droit des images 1D du RH sur le bord gauche
(c'est-a-dire bords ouest -> est, sud -> nord).
CATEGORY:
NRH1 calculs
CALLING SEQUENCE:
shiftrh1d, fichier, outfich, origin, message
INPUTS:
fichier Nom du fichier d'images a lire
outfich Nom du fichier d'images a origine decalee
origin Nouveau canal d'origine (can. minimum)
OUTPUTS:
message Message sur le succes de l'operation
CALLS: ***
ECRDESCD, LECDESCR, NEWLEC1D, NEWLITENTETE, STR_SEP
CALLED BY:
MENUSHIFTRH1D
COMMON:
NRH1_GLOBAL
SIDE EFFECTS:
Si le fichier outfich existe deja, il sera efface !
EXAMPLE:
shiftrh1d, infile, outfile, -35., message
Pour une image d'origine definie pour les canaux (-32,-31,...,62,63)
la procedure produit des images de sortie avec les canaux
(60,61,62,63,-32,-31,..., 59) (canal -35 = canal 60)
REMARQUE:
Le but de la procedure est de donner la possibilite de suivre une source
qui sort du champ de vue de l'instrument, en deplacant artificiellement ce
champ de vue. Elle n'a de sens que pour une source clairement definie sur
un fond quasiment nul.
MODIFICATION HISTORY:
Ecrit par: K.-L. Klein (obspm.fr), 28.11.1998
[Previous]
[Next]
NAME:
Show Image
PURPOSE:
Displays or writes an image with axes and scale on
a window or on paper.
CALLING SEQUENCE:
Show_Image, image [, xAxis, yAxis ]
INPUTS:
image: a 2D array (usually real)
xAxis, yAxis: the axes corresponding to the image (real)
KEYWORDS:
XPOS, YPOS: the position of the lower left corner of the
image, in device units (screen display) or
centimeters (PostScript).
/HMS: If present, the x axis is written in hours/minutes/
seconds style. The contents of xAxis is assumed
to be seconds after midnight.
XTITLE, YTITLE, ZTITLE, TITLE: Strings for
labeling axes and image, only for PostScript.
Default: the system-variables titles.
WINNR: The number of the window where the image will
be displayed. Default: the current window.
SCALEHEIGHT: the scale height in device units (screen)
or centimeters (PostScript).
WNAME: The name of the window. Default: empty string.
FILENAME: The filename of the PostScript file.
Default: "ragview.ps"
IMAGEOFFSET: If the image has non-homogeneous axes,
the distance (device units or centimeters)
between two homogeneous parts.
AXISOFFSET: The distance between the axes and the
image, device units or centimeters.
/REVERSE: If present, the image intensity will be
reversed.
/ENCAPSULATED: If present, the PostScript image will contain
no scaling and eject commands, to insert it into a TeX or
LaTeX Document.
/PORTRAIT: If present the image will be printed
in portrait mode. Default: landscape mode.
/PS: If present, the image is written in a PostScript file.
/LOGO: if present, the text "Institute of Astronomy,
ETH Zurich" is written in the lower right
corner of the paper (only in association
with /PS).
/SXL: If present, the image is written in a SIXEL file
/REDUCEDFMT: with postscript, does not write the
title of the image, the scale and the logo.
XMARKMODE, YMARKMODE: default: 'automatic'. Other value:
'range'. If set to the latter, the axes are always printed in
"range" mode, i.e. not pointing at the center of the pixels.
SIDE EFFECTS:
with /PS or /SXL, a file is written otherwise, a window is
opened.
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], DRAWAXIS, DRAWIMAGE, DRAWSCALE, FINDBREAKS
GETHMS, GETIMAGESIZES, GETMARKSMODE, GETMISCPS, GETOFFSETS, GETWINSIZE, INITPS
Init_Display, LOADCT, PUTBREAKS, PUTHMS, PUTIMAGESIZE, PUTMARKSMODE, PUTMISCPS
PUTOFFSETS, PUTWINSIZE, SETUTBASE [1], SETUTBASE [2], SET_UTAXIS, SHOW_IMAGE, error
n_breaks
SEE ALSO:
axistime, enrad
MODIFICATION HISTORY:
Created in April 1991 by A.Csillaghy
Institute of Astronomy, ETH Zurich
Rewritten in October 1991, A.Cs., merging
PostScript generation and Screen Display.
Sixel added in Nov 92, A.Cs
Reduced annotations (REDUCEDFMT) and ticks length
in postscript format added, respectively
modified in Jun 93, A.Cs
XMARKMODE, YMARKMODE in oct. 93, A.Csillaghy
titles display for PostScript changed, Nov, 93, A.Cs
THIS IS THE IDL VERSION 5/96
Encapsulated problems in Sept 96 - ACs
Displaying image parts is better solved in Jan 98 - ACs
AxisTime routine call replaced by Set_UTAxis for
compatibility with ssw.
[Previous]
[Next]
----- This is the IDL version -----
NAME:
Show Image
PURPOSE:
Displays or writes an image with axes and scale on
a window or on paper.
CALLING SEQUENCE:
Show_Image, image [, xAxis, yAxis ]
INPUTS:
image: a 2D array (usually real)
xAxis, yAxis: the axes corresponding to the image (real)
KEYWORDS:
XPOS, YPOS: the position of the lower left corner of the
image, in device units (screen display) or
centimeters (PostScript).
/HMS: If present, the x axis is written in hours/minutes/
seconds style. The contents of xAxis is assumed
to be seconds after midnight.
XTITLE, YTITLE, ZTITLE, TITLE: Strings for
labeling axes and image, only for PostScript.
Default: the system-variables titles.
WINNR: The number of the window where the image will
be displayed. Default: the current window.
SCALEHEIGHT: the scale height in device units (screen)
or centimeters (PostScript).
WNAME: The name of the window. Default: empty string.
FILENAME: The filename of the PostScript file.
Default: "ragview.ps"
IMAGEOFFSET: If the image has non-homogeneous axes,
the distance (device units or centimeters)
between two homogeneous parts.
AXISOFFSET: The distance between the axes and the
image, device units or centimeters.
/REVERSE: If present, the image intensity will be
reversed.
/ENCAPSULATED: If present, the PostScript image will contain
no scaling and eject commands, to insert it into a TeX or
LaTeX Document.
/PORTRAIT: If present the image will be printed
in portrait mode. Default: landscape mode.
/PS: If present, the image is written in a PostScript file.
/LOGO: if present, the text "Institute of Astronomy,
ETH Zurich" is written in the lower right
corner of the paper (only in association
with /PS).
/SXL: If present, the image is written in a SIXEL file
/REDUCEDFMT: with postscript, does not write the
title of the image, the scale and the logo.
XMARKMODE, YMARKMODE: default: 'automatic'. Other value:
'range'. If set to the latter, the axes are always printed in
"range" mode, i.e. not pointing at the center of the pixels.
SIDE EFFECTS:
with /PS or /SXL, a file is written otherwise, a window is
opened.
CALLS: ***
CHECKVAR [1], CONGRID [1], CONGRID [2], CONGRID [3], DRAWAXIS, DRAWIMAGE, DRAWSCALE
FINDBREAKS, GETHMS, GETIMAGESIZES, GETMARKSMODE, GETMISCPS, GETOFFSETS, GETWINSIZE
INITPS, Init_Display, LOADCT, PUTBREAKS, PUTHMS, PUTIMAGESIZE, PUTMARKSMODE, PUTMISCPS
PUTOFFSETS, PUTWINSIZE, RADIO_SPECTRO_PLOT, SETUTBASE [1], SETUTBASE [2]
SET_UTAXIS, checkvar [2], n_breaks
SEE ALSO:
axistime, enrad
MODIFICATION HISTORY:
Created in April 1991 by A.Csillaghy
Institute of Astronomy, ETH Zurich
Rewritten in October 1991, A.Cs., merging
PostScript generation and Screen Display.
Sixel added in Nov 92, A.Cs
Reduced annotations (REDUCEDFMT) and ticks length
in postscript format added, respectively
modified in Jun 93, A.Cs
XMARKMODE, YMARKMODE in oct. 93, A.Csillaghy
titles display for PostScript changed, Nov, 93, A.Cs
THIS IS THE IDL VERSION 5/96
Encapsulated problems in Sept 96 - ACs
Displaying image parts is better solved in Jan 98 - ACs
AxisTime routine call replaced by Set_UTAxis for
compatibility with ssw.
Changed to radio_spectro_plot in Nov 2001,
some re-engineering
sxl stuff eliminated
Andre Csillaghy, Univ. of Applied Sciences, Switzerland
csillag@fh-aargau.ch
[Previous]
[Next]
----- This is the IDL version -----
NAME:
Show Image
PURPOSE:
Displays or writes an image with axes and scale on
a window or on paper.
CALLING SEQUENCE:
Show_Image, image [, xAxis, yAxis ]
INPUTS:
image: a 2D array (usually real)
xAxis, yAxis: the axes corresponding to the image (real)
KEYWORDS:
XPOS, YPOS: the position of the lower left corner of the
image, in device units (screen display) or
centimeters (PostScript).
/HMS: If present, the x axis is written in hours/minutes/
seconds style. The contents of xAxis is assumed
to be seconds after midnight.
XTITLE, YTITLE, ZTITLE, TITLE: Strings for
labeling axes and image, only for PostScript.
Default: the system-variables titles.
WINNR: The number of the window where the image will
be displayed. Default: the current window.
SCALEHEIGHT: the scale height in device units (screen)
or centimeters (PostScript).
WNAME: The name of the window. Default: empty string.
FILENAME: The filename of the PostScript file.
Default: "ragview.ps"
IMAGEOFFSET: If the image has non-homogeneous axes,
the distance (device units or centimeters)
between two homogeneous parts.
AXISOFFSET: The distance between the axes and the
image, device units or centimeters.
/REVERSE: If present, the image intensity will be
reversed.
/ENCAPSULATED: If present, the PostScript image will contain
no scaling and eject commands, to insert it into a TeX or
LaTeX Document.
/PORTRAIT: If present the image will be printed
in portrait mode. Default: landscape mode.
/PS: If present, the image is written in a PostScript file.
/LOGO: if present, the text "Institute of Astronomy,
ETH Zurich" is written in the lower right
corner of the paper (only in association
with /PS).
/SXL: If present, the image is written in a SIXEL file
/REDUCEDFMT: with postscript, does not write the
title of the image, the scale and the logo.
XMARKMODE, YMARKMODE: default: 'automatic'. Other value:
'range'. If set to the latter, the axes are always printed in
"range" mode, i.e. not pointing at the center of the pixels.
SIDE EFFECTS:
with /PS or /SXL, a file is written otherwise, a window is
opened.
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], DRAWAXIS, DRAWIMAGE, DRAWSCALE, FINDBREAKS
GETHMS, GETIMAGESIZES, GETMARKSMODE, GETMISCPS, GETOFFSETS, GETWINSIZE, INITPS
Init_Display, LOADCT, PUTBREAKS, PUTHMS, PUTIMAGESIZE, PUTMARKSMODE, PUTMISCPS
PUTOFFSETS, PUTWINSIZE, SETUTBASE [1], SETUTBASE [2], SET_UTAXIS, SHOW_IMAGE, error
n_breaks
SEE ALSO:
axistime, enrad
MODIFICATION HISTORY:
Created in April 1991 by A.Csillaghy
Institute of Astronomy, ETH Zurich
Rewritten in October 1991, A.Cs., merging
PostScript generation and Screen Display.
Sixel added in Nov 92, A.Cs
Reduced annotations (REDUCEDFMT) and ticks length
in postscript format added, respectively
modified in Jun 93, A.Cs
XMARKMODE, YMARKMODE in oct. 93, A.Csillaghy
titles display for PostScript changed, Nov, 93, A.Cs
THIS IS THE IDL VERSION 5/96
Encapsulated problems in Sept 96 - ACs
Displaying image parts is better solved in Jan 98 - ACs
AxisTime routine call replaced by Set_UTAxis for
compatibility with ssw.
[Previous]
[Next]
NAME:
SHOW_OSC
PURPOSE:
Gives a graphical display of phase locks for a given antenna/oscillator,
finds the locks, and returns the tuning current list for all harmonics
of the oscillator.
CATEGORY:
OVRO APC DIAGNOSTIC
CALLING SEQUENCE:
tcmid = show_osc(iosc,iant,tc_old,nn_old,fctemp,qual)
INPUTS:
iosc The oscillator number for which the output should be
generated. IOSC = 0,1,2 for Lo, Mid, Hi oscillator.
iant The antenna number of the antenna for which the output should
be generated. This is the ordinal (index) number 0-4.
nn_old The nomtune harmonic table as contained in the NOMTUNE.FTH file.
The array size is NN_OLD(nant,nosc*3).
tc_old The tuning current table as contained in the NOMTUNE.FTH file.
The array size is TC_OLD(nant,nosc*3).
fctemp The entire FCAL data array of size FCTEMP(nosc,nant,4096)
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
nint
OUTPUTS:
tcmid The tuning current list corresponding to the middle of the lock
for each harmonic of the oscillator. Missing locks are flagged
with NaN.
qual The quality of the phase locks, expressed as array of found
locks.
COMMENTS:
CALLS: ***
FINDLOCK, FTAB2TC, MOMENT, NINT [1], NINT [2]
CALLED BY:
FCALCHEK
SIDE EFFECTS:
A single plot box is produced.
RESTRICTIONS:
MODIFICATION HISTORY:
Written 14-Mar-1999 by Dale E. Gary
06-Apr-1999 DG
Slight change to QUAL, to return array of indexes of found locks
rather than just the number of found locks, for better diagnostics.
14-Jan-2001 DG
Significant modification to use new style of fit
12-Jan-2004 DG
Fix problem with #8 V/F, which is showing a 1 instead of OOL in the data.
It may be a stuck lower-order bit, but I simply treat 1 as NaN in FCDATA
below, and all is copacetic (sp?)
15-Feb-2004 DG
#8 V/F is a "stuck" bit, but it is now being squelched in FASAR. It will
soon be fixed in hardware. In any case, the above changes are now
commented out.
[Previous]
[Next]
NAME:
SHOW_REGNS
PURPOSE:
Given the ARC file and a solar image file (e.g. from SOHO, Yohkoh),
overplot the regions, pointing, and field of view of OVSA.
CATEGORY:
CALLING SEQUENCE:
show_regns,arcfile,hrec,imgfile[,/printer]
INPUTS:
arcfile The name of the data (.ARC) file from which to read the
ephemeris record containing region coordinates.
hrec The header record corresponding to the data to be considered.
imgfile The name of the image file on which to overplot the region
coordinates and pointing.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
The image file name must contain its date and time, in the standard
SOHO naming convention.
CALLS: ***
CNV_H2XY, CVDOY, DECODE, FINDSEG, GETDATA, JULDAY, OPENARC, OVSA_GET_INDEX, PANDB, ROT
TL_DECODE, fit_circle [1], fit_circle [2], stonyhurst
SIDE EFFECTS:
RESTRICTIONS:
Values should be accurate for dates from 1950-2050.
MODIFICATION HISTORY:
Written 03 Jan 2001 by Dale E. Gary (adapted from SXT_LATEST)
18-Jul-2001 GN
Replaced get_index by ovsa_get_index to avoid conflict with Yohkoh
[Previous]
[Next]
NAME:
SIGRMN
PURPOSE:
Search for significant signals in a 1D data array, through comparison between
original data and those evaluated by a running mean (moving window smoothing
method).
CATEGORY:
NRH1 Positions
CALLING SEQUENCE:
SIGRMN, Scan, Width, Poids, Mscan, Imx
INPUTS:
SCAN 1D array of original data
WIDTH Window for calculation of the running mean (no. of points)
POIDS minimum weight for an excess value to be considered significant
(excess above running mean, divided by the standard
deviation of the "fit" of the scan by the running
mean)
KEYWORD PARAMETERS:
Non
OUTPUTS:
mscan 1D array of running averaged data
imx Index of the point where the excess above
the running mean is highest;
= -1 if no significant value was found
CALLED BY:
DECOMP1D
PROCEDURE:
Cette procedure appelle RUNMN_RH
CALLS: ***
RUNMN_RH
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY: (bonmartin@obspm.fr)
le 17/11/98 adapte du logiciel XHELIO (JB)
le 12/4/99 redefinition imax, weight (KLK)
[Previous]
[Next]
NAME:
slfcal
PURPOSE:
imaging of OVSA dat_uv2xy
fft_xy2uv
slfcal_solve
slfcal_vj2gn
slfcal_residu
OUTPUTS:
map, misc
COMMENTS:
On the selfcal cycle:
1. get clean visibility using clean cmpts only (i.e. w/o backgr noise)
2. improve vis0_ij using the cleaned visibility cvis0_ij as a model
3. redo mapping using the renewed visibility (vis1_ij).
4. Clean the renewed map.
Note that many things are redone, and repeated. For instance,
cmap0 should be the same as cmap (input) & the same dbeam is
calculated three times. The reason is that we want to keep
using the basic routines developed for clean.-easy to understand
how things are done in selfcal in comparison with CLEAN.
However if efficiency is desired, had better replace
fft_uv2xy & clean_only with one in which we do not compute dbeam.
At least we do not call CLEAN itself because it includes determination
of cbeam and clbox.
Difference between pmap & cmap
cmap = pmap convolved with cbeam + background noise (just clean)
pmap = collection of point sources -decomposed (cleaner)
CALLS: ***
PLOT_3MAPS, PLOT_VIS2VIS_SIMPL, SLFCAL_SOLVE, clean_only [1], clean_only [2]
fft_uv2xy [1], fft_uv2xy [2], fft_xy2uv
CALLED BY:
imagr [1], imagr_batch
SIDE EFFECTS:
RESTRICTIONS:
Works only when there are valid data at all 7 t least 1 time
MODIFICATION HISTORY:
Written 05-JAN-2001 by JL
[Previous]
[Next]
NAME:
slfcal
PURPOSE:
imaging of OVSA dat_uv2xy
fft_xy2uv
slfcal_solve
slfcal_vj2gn
slfcal_residu
OUTPUTS:
map, misc
COMMENTS:
On the selfcal cycle:
1. get clean visibility using clean cmpts only (i.e. w/o backgr noise)
2. improve vis0_ij using the cleaned visibility cvis0_ij as a model
3. redo mapping using the renewed visibility (vis1_ij).
4. Clean the renewed map.
Note that many things are redone, and repeated. For instance,
cmap0 should be the same as cmap (input) & the same dbeam is
calculated three times. The reason is that we want to keep
using the basic routines developed for clean.-easy to understand
how things are done in selfcal in comparison with CLEAN.
However if efficiency is desired, had better replace
fft_uv2xy & clean_only with one in which we do not compute dbeam.
At least we do not call CLEAN itself because it includes determination
of cbeam and clbox.
Difference between pmap & cmap
cmap = pmap convolved with cbeam + background noise (just clean)
pmap = collection of point sources -decomposed (cleaner)
CALLS: ***
PLOT_3MAPS, PLOT_VIS2VIS_SIMPL, SLFCALO, SLFCAL_SOLVEO, clean_only [1]
clean_only [2], fft_uv2xy [1], fft_uv2xy [2], fft_xy2uv
CALLED BY:
imagr [1], imagr_batch
SIDE EFFECTS:
RESTRICTIONS:
Works only when there are valid data at all 7 t least 1 time
MODIFICATION HISTORY:
Written 05-JAN-2001 by JL
[Previous]
[Next]
NAME:
SOL2TXT
PURPOSE:
Create (or if it exists, add to) a text file with an entry corresponding
to the given scan. The text file contains the time range of the scan,
the source name (typically the active region designation) and the
heliocoordinates of the pointing position.
CATEGORY:
OVRO APC WEB CREATION
CALLING SEQUENCE:
sol2txt,header,traj,time
INPUTS:
header the header structure of the scan for which to create
the entry.
traj the trajectory structure (containing the pointing
coordinates [deg] and source name) of the pointing
position.
time a 2-element array containing the start and stop
time of the good data in the scan.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
CALLS: ***
CNV_XY2H, JULDAY, MSEC2STR, PANDB, STR_SEP
CALLED BY:
FLAREMETER, TOP20
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 26-Oct-1999 by Dale E. Gary
11-Jan-2000 DG
Eliminated hardwired directory locations.
28-Apr-2001 DG
Changed TSTART to be the start time of the scan, rather
than the often slightly different start time of the data,
to cure a web page problem with mismatching times.
[Previous]
[Next]
NAME:
SOLAID
PURPOSE:
Solar On-Line Analysis and Interactive Display, of impeccable lineage,
based on the routine of the same name written by Dan Briggs and serving
us for over a decade under the old system. Monitors real-time data and
displays it in various forms for monitoring data quality and health
of the system.
CATEGORY:
OVRO APC REAL-TIME DISPLAY
CALLING SEQUENCE:
Solaid[,filename][,GROUP=group]
INPUTS:
filename the name of the file containing data to be monitored.
Should always be DAILY.ARC, but this is included for
generality.
group the widget ID of a base widget from the calling routine
so that when the calling routine exits this widget
will also be destroyed. Default is zero--no group leader.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
openarc, utplot, cw_plmonitor, cvdoy, get_color, getdata, newscan, get_cycle
OUTPUTS:
COMMENTS:
CALLS: ***
APPLY_CAL, CHANGESCAN, CONGRID [1], CONGRID [2], CONGRID [3], CVDOY, CW_FSLIDER
CW_PDMENU, CW_PLMONITOR, DEFPARMS, DOTIMEAVG, FINDSEGENTRIES, FLAGOOL, GAINCOR
GETDATA, GETLRECN, GET_BGND, GET_CYCLE, GET_SCREEN_SIZE, GET_SEGMENTS, LASTHREC
LOADCT, MSEC2STR, NEWSCAN, OPENARC, OVSA_GET_COLOR, PICKFILE, PROGMETER, SOLAID_EVENT
STR_SEP, TL_DECODE, UTPLOT [1], UTPLOT [2], UTPLOT [3], UTPLOT [4], UTPLOT [5]
UTPLOT [6], UTPLOT_IO [1], UTPLOT_IO [2], UTPLOT_IO [3], WRITE_GIF, XCHOICE
XMANAGER
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 24-Aug-1998 by Dale Gary (based on SOLCHEK and WPLDPLOT)
04-Sep-1998 DG
First reasonably working version.
12-Sep-1998 DG
Implemented changes to use new CW_PLMONITOR() routine.
20-Sep-1998 DG
Added labels to Dynamic Spectrum plot. Changed symbols for phases
to open squares. Fixed date labelling in time plots to reflect
date of header.
20-Dec-1998 DG
Made changes to reflect changes to NEWSCAN.
20-Jan-1999 DG
Fixed problem with cycle time calculation, when cycle was shorter
than one record duration. Also slight bug in plotting the dynamic
spectrum, which sometimes caused solaid to crash.
07-Feb-1999 DG
Removed functions DOTIMEAVG and READ_TPFAC to files of their own
14-Feb-1999 DG
Added 5 s and 10 s time-average choices
14-May-1999 DG
Major rewrite to use newly updated GET_CYCLE() routine, which
simplifies the code considerably.
23-May-1999 DG
Major enhancements. Added background subtraction, spectral mode.
Still some refinements to come, but it basically works.
15-Jun-1999 DG
Several major enhancements. Finished file handling so that it
works with existing files, not just the DAILY.ARC. Select the
File/Open from the file menu. Select REALTIME menu item to go
back to real time operation reading DAILY.ARC.
Added a switch to start and stop updating of the plots (actually
stops reading the file by turning the timer off).
Added a snapshot menu item to allow the dynamic spectrum to be
saved as a JPG file for putting on the web.
16-Jun-1999 DG
Fixed some bugs related to switching scans, and also made it
non-blocking.
20-Jun-1999 DG
Changed snapshot to save all of the plot windows as well as the
dynamic spectrum. Saving as jpeg is not good for plots, but I
haven't solved the problem of capturing decomposed colors using
TVRD().
21-Jun-1999 DG
Solved the problem of creating GIF rather than JPG. The trick was
to use the COLOR_QUAN() routine. Also fixed up a couple of
snapshot things (fonts) and added the sourcename to the title.
05-Jul-1999 DG
Changed output directory for .GIF files (Snapshot files) to !DEFAULTS.WEBDIR.
22-Oct-1999 DG
Changed to close DAILY.ARC upon getting an EOF record. Note that
this will not work if in UPDATE_OFF state at the time...
02-Nov-1999 DG
Added calculation of u,v coordinates.
13-Nov-1999 DG
Added code to close file at the end of a scan if in non-realtime mode.
Also added a logscale button.
14-Nov-1999 DG
Removed most (hopefully all) dependence on 5-element data, so the
routine should work with any combination of antennas.
13-Dec-1999 DG
Added application of total power update calibration.
11-Jan-2000 DG
Eliminated hardwired directory locations.
05-Feb-2000 DG
Removed now unnecessary sin and cos lookup tables in GAINCOR call.
28-Jun-2000 DG
Fixed time averaging (now called sample averaging) to be perfectly robust.
Also changed plot symbol to 10, to show amplitudes as bar graph.
09-Nov-2000 DG
Turn off background subtraction on scan change.
04-Jan-2001 DG
Fixed some long-standing, annoying little bugs--auto-change of scan
ought to put correct channel in each window, and text list widgets
now update properly when window is changed.
08-May-2001 DG
Fix SOLAID crash when changescan() newscan call returned -1
13-Jul-2001 DG
Added NOTRACK button, for showing data while dishes not tracking. This
should be made more clever. Now it only affects data not yet read, and
after data are read with NOTRACK, they cannot be hidden again.
20-Jun-2002 DG
Converted to use PIXMAPs, which speeds up the screen updating by a
large factor.
23-Dec-2002 DG
Fixed bug in ANTLIST in main routine.
15-Jul-2003 DG
Changed read-ahead record number from 10 to 50, so that when SOLAID
is reading from a file to catch up, it reads 50 cycles at a time.
23-Jul-2003 DG
Changed GET_COLOR to OVSA_GET_COLOR to avoid conflict
with routine of the same name in SMM tree.
06-Nov-2003 DG
Slight change to DIM3LABEL handling to allow for cross-polarization.
Also fixed default polarization setting to use R and L instead of I.
04-Oct-2004 DG
Slight change to skip reduction of polarization channels after 2004.231.
Now that dual-polarization feeds are done, the data format is standardized
to two polarization channels, even when obseq only measures one poln.
Any missing polarization is treated as NaN.
23-Jul-2004 DG
Added use of pshift, which is set to [0,0] but can be changed via
break point interruption at the entry to SOLAID and manual entry.
25-Jul-2005 DG
Rescale spectral plots to avoid scaling to glitches (i.e. interference).
Scheme looks at histogram and uses peak value that occurs more than
twice in a bin.
[Previous]
[Next]
NAME:
SOLCOORD
PURPOSE:
Return solar coordinates RA and DEC for given date/time.
CATEGORY:
OVRO APC DATA ANALYSIS
CALLING SEQUENCE:
flag = solcoord(tls,doy,ra,dec)
INPUTS:
tls A standard time/label structure giving the date and time for
which the solar coordinates are desired.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
doy The day of year, just a convenience--not really relevant
ra A 3-element DOUBLE array containing the right ascension [msec]
for the requested day plus following two days.
dec A 3-element DOUBLE array containing the declination [masec]
for the requested day plus following two days.
flag Indicates success (0) or failure (-1). Failure is caused
by an I/O error on opening or reading solar coordinate file.
COMMENTS:
CALLS: ***
HMS2SEC
SIDE EFFECTS:
RESTRICTIONS:
This routine requires that a file containing the solar ephemeris exist
in !DEFAULTS.DBDIR
MODIFICATION HISTORY:
Written 23-Aug-1998 by Dale E. Gary
[Previous]
[Next]
NAME:
SOLROTATE
PURPOSE:
Given heliocentric coordinates (longitude and latitude) and a
delta-time (days), return new solar longitude corrected for
standard solar rotation.
CATEGORY:
OVRO APC SOLAR
CALLING SEQUENCE:
olng = solrotate(lng,lat,ddays)
INPUTS:
lng Original solar longitude, in degrees (<0 => East)
lat Original solar latitude, in degrees (<0 => South)
ddays Delta time in decimal days over which to rotate the coordinates
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
olng Output longitude, in degrees (<0 => East)
COMMENTS:
CALLED BY:
SCHEDULE, SURVANAL
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 24-Jan-2000 by Dale E. Gary
[Previous]
[Next]
NAME:
SPLIT_OVSA_FILE
PURPOSE:
Splits an OVSA data (.ARC) file into two separate files, or extracts
a range of records to a new file. This is useful when a two day's data
were taken in a single file during observations, or when a smaller file
containing a particular time range is desired.
CATEGORY:
OVSA APC FILE
CALLING SEQUENCE:
split_ovsa_file[,infile][,outfile1][,outfile2 | ,/extract]
INPUTS:
infile the name (with path) of the file to split.
If omitted, user is asked to choose a filename.
outfile1 the name (with path) of the output file .
If omitted, user is asked to choose a filename.
outfile2 the name (with path) of the output file. If OUTFILE is the
same as FILE1, then the concatenation is done "in place."
If omitted, user is asked to choose a filename.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
extract a switch to indicate that the desired time or record range
should be extracted from INFILE.
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
CALLS: ***
FINDSEGENTRIES, GET_SEGMENTS, OKTOWRITE, OPENARC, OVSA_MAKE_INDEX, PROGMETER
SIDE EFFECTS:
A new file is created, or if OUTFILE is the same as FILE1 then FILE1 is modified.
RESTRICTIONS:
MODIFICATION HISTORY:
Written 13-Oct-2002 by Dale E. Gary
08-Nov-2003 DG
Slight change to fix a bug when there was no day change in the file (the
suggestion record messed up).
29-Aug-2004 DG
Change call to make_index to ovsa_make_index to reflect name change.
[Previous]
[Next]
NAME:
SRBL_2M_CAL
PURPOSE:
Determines 2m total power calibration by comparing a flare observed
with the array to well-calibrated SRBL data for the same flare.
CATEGORY:
OVRO APC DATA CALIBRATION
CALLING SEQUENCE:
srbl_2m_cal,file,srblfile,cal,offset,f,tavg,ants
INPUTS:
file The name of an existing IDL save file generated by ANALYZE,
containing the array data of the flare.
srblfile The name of an existing SRBL lightcurve plot file.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
read_srbl
OUTPUTS:
cal The array of cal factors returned--an array of size (NANT,NF)
where NF is the number of frequencies in the sequence used to
obtain the flare data, and NANT is the number of small antennas.
offset The array of TP offsets used, of size (NANT,NF). To convert the
array data to the SRBL data, one would subtract the OFFSET from
the array data and multiply by the CAL factor.
f The array of frequencies in the observing sequence, in GHz.
tavg The array of times, of size (NTIMES), in seconds.
ants An array of size (NANT+1,NF,NTIMES), containing the actual
calibrated array data (first index IANT = 0 to NANT-1), and
the original SRBL data (first index IANT = NANT), but
interpolated onto the same times and frequencies as the array
data.
tls A copy of the HEADER.TLS structure containing the time information
COMMENTS:
The current implementation is a bit crude. It should use a widget program
in zapping bad SRBL data. Also, it should use 2M ACAL data (typically used
for antenna pointing) to refine the frequency-to-frequency variations in
some way (or this could be done on a daily or weekly basis).
The SRBL data (in the form of a standard SRBL SOLLC.PLD file) must already
exist--see READ_SRBL routine.
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], LINFIT, LOADCT, NINT [1], NINT [2], READ_SRBL
SIDE EFFECTS:
RESTRICTIONS:
A major problem with the transfer of the SRBL calibration to the array is
that SRBL uses an RCP feed while the array uses linear feeds. Thus, any
significant polarization in the event can cause an error. This is mitigated
to some extent by the fact that the scale factors are determined from the
entire event, not just the peak or any other special time.
MODIFICATION HISTORY:
Written 11-Sep-1999 by Dale E. Gary
07-Nov-2000 DG
Added SRBLFILE argument, reflecting change in read_srbl routine.
09-Nov-2000 DG
Fixed a bug due to change in GNP structure format. This still uses
the "old" style gain files rather than the GAINPARM segment.
30-Dec-2000 DG
Doubled the cal factors, to reflect the definition that total power is I/2.
29-Apr-2001 DG
Added output of TLS structure
08-May-2001 DG
Changed to work for all small ants, not just 3. Also fixed to use
NDFAC from restored file instead of reading from disk files.
[Previous]
[Next]
Modification History
09-Apr-2004 DG
Added output to a string array, OUT.
CALLS:
[Previous]
[Next]
NAME:
SRSP_DUMPREC
PURPOSE:
Dumps the scan header information from an SRSP data file
CATEGORY:
SRSP APC DATA-HANDLING
CALLING SEQUENCE:
srsp_dumprec,filename
INPUTS:
filename the name of a valid SRSP data (.ARC) file
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
CALLS: ***
GETDATA, SRSP_OPENARC, SRSP_TL_DECODE
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 21-Jan-2002 by Dale E. Gary
[Previous]
[Next]
Modification History
09-Apr-2004 DG
Added code to make it work with observing sequences that run to more
than one record. This change required the arguments to the function
to change. Now OREC is the original record number of the obseq record.
A is the associated variable corresponding to the file. Note that
OREC may be changed, and on return is OREC + n_obseq - 1, where n_obseq
is the number of records in the observing sequence. If only 1 record,
OREC is returned unchanged.
CALLS:
[Previous]
[Next]
NAME:
SRSP_OPENARC
PURPOSE:
Open the archive file of a given filename, and associate
the variable A with it, returning the logical unit number.
CATEGORY:
SRSP APC FILE
CALLING SEQUENCE:
lun = srsp_openarc(filename,a,nrec[,/update])
INPUTS:
filename The fully qualified name of the file to open
OPTIONAL (KEYWORD) INPUT PARAMETERS:
update A switch to indicate that the file is to be opened
for writing/updating.
ROUTINES CALLED:
widget_message
OUTPUTS:
lun The logical unit number of the open file. To
close the file, use the procedure FREE_LUN,lun
a The ASSOC variable associated with the file.
nrec The number of records currently in the file (the
file may grow later)
COMMENTS:
CALLED BY:
SRSP_DUMPREC, SRSP_PLOT_FCAL, SRSP_PLOT_RCAL, srsp_dumpfile
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 06-Jun-2001 by Dale E. Gary
[Previous]
[Next]
NAME:
SRSP_PLOT_FCAL
PURPOSE:
Plots the FCAL data from an SRSP FREQCAL sequence
CATEGORY:
SRSP APC DATA-ANALYSIS
CALLING SEQUENCE:
srsp_plot_fcal,filename,hrec
INPUTS:
filename the name of a valid SRSP data (.ARC) file
hrec the record number of the start of the FREQCAL sequence
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
CALLS: ***
GETDATA, SRSP_OPENARC, SRSP_TL_DECODE
SIDE EFFECTS:
A plot is shown on the current graphics device
RESTRICTIONS:
MODIFICATION HISTORY:
Written 06-Jun-2001 by Dale E. Gary
[Previous]
[Next]
NAME:
SRSP_PLOT_RCAL
PURPOSE:
Plots the RCAL data from an SRSP RCVRCAL sequence
CATEGORY:
SRSP APC DATA-ANALYSIS
CALLING SEQUENCE:
srsp_plot_rcal,filename,hrec
INPUTS:
filename the name of a valid SRSP data (.ARC) file
hrec the record number of the start of the FREQCAL sequence
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
OUTPUTS:
COMMENTS:
CALLS: ***
GETDATA, SRSP_OPENARC, SRSP_TL_DECODE
SIDE EFFECTS:
A plot is shown on the current graphics device
RESTRICTIONS:
MODIFICATION HISTORY:
Written 06-Jun-2001 by Dale E. Gary
[Previous]
[Next]
NAME:
SRSP_TL_DECODE
PURPOSE:
Decodes the time/label field of a record (the first 12 words of
each record, and returns a TLFIELD structure
CATEGORY:
SRSP APC DATA-ANALYSIS
CALLING SEQUENCE:
srsp_tl_struct = tl_decode(tldata)
INPUTS:
tldata an intarr(12) containing the first 12 words of a record,
e.g. data(0:11), representing the time/label field
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
msec2str
OUTPUTS:
tl_struct an instance of a TLFIELD structure, filled in with the
values from the time/label field data in tldata
COMMENTS:
CALLS: ***
CVDOY, GET_SRSP_TL_STRUCT, MSEC2STR, W2L
CALLED BY:
SRSP_DUMPREC, SRSP_PLOT_FCAL, SRSP_PLOT_RCAL, srsp_dumpfile
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 13-May-2001 by Dale Gary
[Previous]
[Next]
DESCRIPTION
Overplots solar grid lines on an existing plot. Make a plot first (using
/nodata switch in plot command, if no data is to be plotted), then call
stonyhurst.
USAGE
stonyhurst,b_angle,p_angle,R_sun,deg=d_between_lines,dsize=d_between_points,cm=cm
EXAMPLES
1) To plot a solar disk without any other data:
plot,[-1000,1000],[-1000,1000],xstyle=1,ystyle=1,/nodata
stonyhurst,-5.3,19.23,947.0
2) To overplot onto a contour plot with 30 degree grid lines:
contour,image,x,y
stonyhurst,-5.3,19.23,947.0,deg=30
INPUTS
b_angle Angle of Sun's rotation axis from plane of the sky in degrees
p_angle Angle of Sun's north pole in degrees east of Earth North.
R_sun Radius of Sun, in units of plot, as seen from Earth. If the
plot axes are in arcsec, R_sun should be in arcsec.
KEYWORDS
deg Degrees of solar longitude and latitude between grid lines
(default is 10 degrees).
dsize Number of degrees between points drawn for each grid line
(default is 5 degrees). If smooth grid lines are desired
on high-resolution plot devices, but at the cost of speed,
dsize can be made smaller.
CM Angle of central meridian (useful for the Moon). If omitted,
zero is used.
MODIFICATION HISTORY
Created by D.E. Gary 3-Oct-1993
Fixed a problem that occurred when b_angle was exactly 30 or 60. In this
case, iph0 was undefined. D.E. Gary 6-Oct-1993
11-Jan-2006 DG
Added CM argument, useful for the Moon, which sets the Central Meridian
angle.
10-Nov-2006 DG
Added _extra argument, for passing extra parameters to the plot procedure
CALLED BY
ARLOCPLOT, SHOW_REGNS
[Previous]
[Next]
NAME:
Store_Plot
PURPOSE:
Stores plot named "name" in the plot table. If
a name is already in the table, the corresponding
plot is renamed
"name_vx" where "x" is a number to identify the plot.
CATEGORY:
Data Management
CALLING SEQUENCE:
Store_Plot, name [, x, y [, qualifier [, dxLeft, dyUp
[, dxRight, dyDown ] ] ]
INPUTS:
name: the names of the plots, a string array
x, y : the points to be plotted, an array of vectors;
qualifier: the symbol number with which the points should
be plotted, (arrays of vectors);
dxLeft, dxRight, dyUp, dyDown: the error of the points
in x or y direction, (arrays of vectors);
If more than one plot should be stored in the table,
the x-axis of the 2D array is the vector direction.
COMMON BLOCKS
Versions, to track the number of versions of the same plot.
Data, where the plot table is stored.
Both blocks are opaque.
SIDE EFFECT:
An entry is created in the plot table.
CALLS:
[Previous]
[Next]
NAME:
Store_Text
PURPOSE:
Stores a text in a table
CATEGORY
Data Management
CALLING SEQUENCE:
Store_Text, x, y, text, sizeText
INPUTS:
x, y: the posittion of the thext on the window.
text: a string
sizeText: its size, relative to the value of !p.charsize.
SIDE EFFECT:
The text table is changed
CALLED BY
Overplot Texts, Texts_2D
[Previous]
[Next]
NAME:
STREP
PURPOSE:
Edit a string by position. Precede, Follow, Replace, Delete.
CATEGORY:
CALLING SEQUENCE:
newstring = strep(string,cmd,p,ss,[iflg])
INPUTS:
string = string to edit. in
cmd = edit command: in
'P' = precede position p with substring ss.
'F' = follow position p with substring ss.
'R' = replace text starting at position p
with text from substring ss.
'D' = delete N characters starting at
position p. The calling sequence for
this command is slightly different:
IFLG = STREP(string,'D',p,n,[iflg])
Where n = number of characters to delete.
p = character position to use. in
0 = first char. Any number larger
than the string length = last char.
ss = substring to use. For 'D' command in
n is used instead of ss.
KEYWORD PARAMETERS:
OUTPUTS:
iflg = 0 for a successful edit, out
iflg = -1 for an error and no change to string.
newstring = edited string. out
CALLED BY:
CHECK_KAP_ANOMALY, FIND_CAT, FTEMAP, HEAD2STC, MK_SOHO_SETUP, PLOTFIT, STRESS [1]
STRESS [2], STRESS [3], STRIP_WILD, STR_DEBLANK, ST_SUMER
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 27 Dec, 1984.
Converted to SUN 13 Aug, 1989 --- R. Sterner.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1984, 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:
STREP
PURPOSE:
Edit a string by position. Precede, Follow, Replace, Delete.
CATEGORY:
CALLING SEQUENCE:
newstring = strep(string,cmd,p,ss,[iflg])
INPUTS:
string = string to edit. in
cmd = edit command: in
'P' = precede position p with substring ss.
'F' = follow position p with substring ss.
'R' = replace text starting at position p
with text from substring ss.
'D' = delete N characters starting at
position p. The calling sequence for
this command is slightly different:
IFLG = STREP(string,'D',p,n,[iflg])
Where n = number of characters to delete.
p = character position to use. in
0 = first char. Any number larger
than the string length = last char.
ss = substring to use. For 'D' command in
n is used instead of ss.
KEYWORD PARAMETERS:
OUTPUTS:
iflg = 0 for a successful edit, out
iflg = -1 for an error and no change to string.
newstring = edited string. out
CALLS: ***
STRESS [1], STRESS [2], STRESS [3], strsub
CALLED BY:
CHECK_KAP_ANOMALY, FIND_CAT, FTEMAP, HEAD2STC, MK_SOHO_SETUP, PLOTFIT, STRESS [1]
STRESS [2], STRESS [3], STRIP_WILD, STR_DEBLANK, ST_SUMER
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 27 Dec, 1984.
Converted to SUN 13 Aug, 1989 --- R. Sterner.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1984, 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:
STREP
PURPOSE:
Edit a string by position. Precede, Follow, Replace, Delete.
CATEGORY:
CALLING SEQUENCE:
newstring = strep(string,cmd,p,ss,[iflg])
INPUTS:
string = string to edit. in
cmd = edit command: in
'P' = precede position p with substring ss.
'F' = follow position p with substring ss.
'R' = replace text starting at position p
with text from substring ss.
'D' = delete N characters starting at
position p. The calling sequence for
this command is slightly different:
IFLG = STREP(string,'D',p,n,[iflg])
Where n = number of characters to delete.
p = character position to use. in
0 = first char. Any number larger
than the string length = last char.
ss = substring to use. For 'D' command in
n is used instead of ss.
KEYWORD PARAMETERS:
OUTPUTS:
iflg = 0 for a successful edit, out
iflg = -1 for an error and no change to string.
newstring = edited string. out
CALLS: ***
STREP_L
CALLED BY:
CHECK_KAP_ANOMALY, FIND_CAT, FTEMAP, HEAD2STC, MK_SOHO_SETUP, PLOTFIT, STRESS [1]
STRESS [2], STRESS [3], STRIP_WILD, STR_DEBLANK, ST_SUMER
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 27 Dec, 1984.
Converted to SUN 13 Aug, 1989 --- R. Sterner.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1984, 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:
STREPL
PURPOSE:
Edit a string by position. Precede, Follow, Replace, Delete.
CATEGORY:
CALLING SEQUENCE:
newstring = strepl(string,cmd,p,ss,[iflg])
INPUTS:
string = string to edit. in
cmd = edit command: in
'P' = precede position p with substring ss.
'F' = follow position p with substring ss.
'R' = replace text starting at position p
with text from substring ss.
'D' = delete N characters starting at
position p. The calling sequence for
this command is slightly different:
IFLG = STREP(string,'D',p,n,[iflg])
Where n = number of characters to delete.
p = character position to use. in
0 = first char. Any number larger
than the string length = last char.
ss = substring to use. For 'D' command in
n is used instead of ss.
KEYWORD PARAMETERS:
OUTPUTS:
iflg = 0 for a successful edit, out
iflg = -1 for an error and no change to string.
newstring = edited string. out
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 27 Dec, 1984.
Converted to SUN 13 Aug, 1989 --- R. Sterner.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1984, 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:
STREPL
PURPOSE:
Edit a string by position. Precede, Follow, Replace, Delete.
CATEGORY:
CALLING SEQUENCE:
newstring = strepl(string,cmd,p,ss,[iflg])
INPUTS:
string = string to edit. in
cmd = edit command: in
'P' = precede position p with substring ss.
'F' = follow position p with substring ss.
'R' = replace text starting at position p
with text from substring ss.
'D' = delete N characters starting at
position p. The calling sequence for
this command is slightly different:
IFLG = STREP(string,'D',p,n,[iflg])
Where n = number of characters to delete.
p = character position to use. in
0 = first char. Any number larger
than the string length = last char.
ss = substring to use. For 'D' command in
n is used instead of ss.
KEYWORD PARAMETERS:
OUTPUTS:
iflg = 0 for a successful edit, out
iflg = -1 for an error and no change to string.
newstring = edited string. out
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 27 Dec, 1984.
Converted to SUN 13 Aug, 1989 --- R. Sterner.
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1984, 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:
STRESS
PURPOSE:
String edit by sub-string. Precede, Follow, Delete, Replace.
CATEGORY:
CALLING SEQUENCE:
new = stress(old,cmd,n,oldss,newss,ned)
INPUTS:
old = string to edit. in
cmd = edit command: in
'P' = precede.
'F' = follow.
'D' = delete.
'R' = replace.
n = occurrence number to process (0 = all). in
oldss = reference substring. in
oldss may have any of the following forms:
1. s a single substring.
2. s... start at substring s, end at end of string.
3. ...e from start of string to substring e.
4. s...e from subs s to subs e.
5. ... entire string.
newss = substring to add. Not needed for 'D' in
KEYWORD PARAMETERS:
OUTPUTS:
ned = number of occurrences actually changed. out
new = resulting string after editing. out
CALLS: ***
STREP [1], STREP [2], STREP [3], STREP [4], STREP [5], strsub
CALLED BY:
DT_TM_MAK [1], DT_TM_MAK [2], DT_TM_MAK [3], STREP [1], STREP [4]
COMMON BLOCKS:
NOTES:
Notes: oldss and newss may be arrays.
MODIFICATION HISTORY:
Written by R. Sterner, 6 Jan, 1985.
Johns Hopkins University Applied Physics Laboratory.
RES --- 23 May, 1988 fixed a bug in SSTYP = 2.
Converted to SUN 13 Aug, 1989 --- R. Sterner. (FOR loop change).
--- 8 Dec, 1992 added recursion so that OLDSS and NEWSS may be arrays
T.J.Harris, University of Adelaide.
Copyright (C) 1985, 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:
STRESS
PURPOSE:
String edit by sub-string. Precede, Follow, Delete, Replace.
CATEGORY:
CALLING SEQUENCE:
new = stress(old,cmd,n,oldss,newss,ned)
INPUTS:
old = string to edit. in
cmd = edit command: in
'P' = precede.
'F' = follow.
'D' = delete.
'R' = replace.
n = occurrence number to process (0 = all). in
oldss = reference substring. in
oldss may have any of the following forms:
1. s a single substring.
2. s... start at substring s, end at end of string.
3. ...e from start of string to substring e.
4. s...e from subs s to subs e.
5. ... entire string.
newss = substring to add. Not needed for 'D' in
KEYWORD PARAMETERS:
OUTPUTS:
ned = number of occurrences actually changed. out
new = resulting string after editing. out
CALLS: ***
STREP [1], STREP [2], STREP [3], STREP [4], STREP [5], strsub
CALLED BY:
DT_TM_MAK [1], DT_TM_MAK [2], DT_TM_MAK [3], STREP [1], STREP [4]
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
Written by R. Sterner, 6 Jan, 1985.
RES --- 23 May, 1988 fixed a bug in SSTYP = 2.
Converted to SUN 13 Aug, 1989 --- R. Sterner. (FOR loop change).
Johns Hopkins University Applied Physics Laboratory.
Copyright (C) 1985, 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:
SUN_IMAGE
PURPOSE:
Cette procedure contient les widgets permettant de superposer
des contours ou des points a une image solaire
CATEGORY:
Widgets
CALLING SEQUENCE:
SUN_IMAGE
INPUTS:
Non
KEYWORD PARAMETERS:
GROUP Identifieur du widget appelant
OUTPUTS:
Non
CALLS: ***
CONGRID [1], CONGRID [2], CONGRID [3], CW_FIELD, CW_INFONRH, CW_LABELNRH, CW_PDMENU
CW_SELFIELD, CW_XTD_NRHF, ECH_RS, IND_RS, MRDFITS [1], MRDFITS [2], MSH, NRH_FCLOSE
NRH_FOPEN, NRH_IMAGEREF, NRH_LEVEL_LIN, NRH_PICKFILE, NRH_READ_CENTER, RD_FICPOINT
READ_CENTER_POINT [1], READ_CENTER_POINT [2], READ_NRHIM, RS_IND, STR_SEP
SUN_IMAGE_EVENT, XLOADCT [1], XLOADCT [2], XLOADCT [3], XMANAGER
CALLED BY:
HESSI_NRH, NRH
COMMON BLOCKS:
LIMIT, str_lim Limites de traitement (NRH_STR_LIM)
FICRH,str_fic Selection de fichiers (NRH_STR_FIC)
INFO2D, Str_inf2d Information de fichiers (NRH_STR_INF2D)
PROCEDURE:
Cette procedure permet, a partir d'une image solaire de divers
instruments de:
afficher l'image
selectionner une region
superposer les contours d'une autre image
superposer des points releves sur des images
EXAMPLE:
Please provide a simple example here
MODIFICATION HISTORY:
Ecrit par: J Bonmartin (bonmartin@obspm.fr) le 07/08/98
Le 08/01/98 traitement des Keywords AXIS et CHARSIZE pour
le PLOT des images (JB)
Le 09/04/98 Ajout de coordonnees manuelles de points (JB)
Le 10/05/99 Trace des contours avec C_THICK et un premier trace
avec C_COLORS=0 (JB)
Le 22/11/99 Recadre l'image et les contours (JB)
Le 07/12/00 !D.TABLE_SIZE en limite de couleur de trace
Le 19/01/01 Modification d'ouverture de fichier (JB)
Le 05/12/02 Correction nb de points pour contour (AB)
Le 22/01/04 Modif pour ecrans 24 bits et Write_png (AB)
[Previous]
[Next]
NAME:
SURVANAL
PURPOSE:
Reduce SURVEY observations and produce an overview plot
CATEGORY:
OVRO APC DATA ANALYSIS
CALLING SEQUENCE:
survanal,filename,hrec
INPUTS:
filename the name of the file containing the data.
hrec the record number of the scan header. Data
will be processed up to the next EOS segment.
OPTIONAL (KEYWORD) INPUT PARAMETERS:
ROUTINES CALLED:
openarc, newscan, getcycle, flagool, gaincor
OUTPUTS:
COMMENTS:
CALLS: ***
ANYTIM2UTC [1], ANYTIM2UTC [2], BREAK_FILE [1], BREAK_FILE [2], BREAK_FILE [3]
CNV_H2XY, DECODE, FINDSEG, FLAGOOL, GAINCOR, GETDATA, GET_CYCLE, GET_EPH_STRUCT
MAKE_TPOVIEW, MSEC2STR, NEWSCAN, OPENARC, OVSA_GET_INDEX, PROGMETER, SOLROTATE
break_file [4], write_ovsa_fits
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 16-Jun-2001 by Dale E. Gary
[Previous]
[Next]
NAME:
Symbols
PURPOSE:
To change interactively the symbol used to plot,
and get its name in a string variable
CATEGORY:
User interface
CALLING SEQUENCE
Symbols [, currSym]
OUTPUT PARAMETER:
currSym: name of the symbol chosen
KEYWORD:
/INTERACTIVE: if set, the symbol can be
chosen from a list presented in a menu form.
If not set, returns the current symbol name.
CALLS: ***
CLEAR_SCREEN [1], CLEAR_SCREEN [2], General_Menu [1], General_Menu [2], PTO
SIDE EFFECTS:
In interactive mode, changes the value of the system
variable !psym
Use menu and terminal in x - windows, erases
the display in vt300 terminals.
[Previous]
[Next]
NAME:
SYSDOY
PURPOSE:
Simple function to extract the day of year from the system time
CATEGORY:
OVRO APC UTILITY
CALLING SEQUENCE:
doy = sysdoy([stime])
INPUTS:
OPTIONAL (KEYWORD) INPUT PARAMETERS:
stime optional string as returned from the systime() command.
If omitted, systime() is called within the routine.
ROUTINES CALLED:
dayofyr
OUTPUTS:
doy the day of year
COMMENTS:
CALLS: ***
DAYOFYR [1], dayofyr [2]
CALLED BY:
FCAL_UPDATE, SCHEDULE, WATCHER, WGETGPS, WGETSATS, WREGION, WUPTIME
SIDE EFFECTS:
RESTRICTIONS:
MODIFICATION HISTORY:
Written 06-Aug-1998 by Dale E. Gary