This page is a listing of the entire contents of this library for IDL. This listing is the long version. Viewing the much more compact listing may be handier.
NAME:
AUTOSCALE
PURPOSE:
Autoscale given image as previously specified.
CATEGORY:
CALLING SEQUENCE:
out = autoscale(img)
INPUTS:
img = image to scale. in
KEYWORD PARAMETERS:
Keywords:
/SETUP displays image and allows sub-area selection.
Sub-area used to find scaling for autoscaled images.
Histogram scaling parameters may be set during /SETUP.
Ex: x = autoscale(img, /SETUP)
MEM=n selects parameter set for autoscaling (def=1).
Ex: tv, autoscale(img, mem=2). Must do /SETUP before
autoscaling.
SAVE=file saves image scaling memory in the given file.
RESTORE=file restores image scaling from the given file.
OUTPUTS:
out = scaled image (byte, 0 to 255). out
COMMON BLOCKS:
autoscale_com
NOTES:
MODIFICATION HISTORY:
R. Sterner, 16 Nov, 1989
Copyright (C) 1989, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/autoscale.pro)
NAME:
CPLOT
PURPOSE:
Do a character plots on screen or into an array.
CATEGORY:
CALLING SEQUENCE:
cplot, x, y
INPUTS:
x = array of x coordinates. in
y = array of y coordinates. in
KEYWORD PARAMETERS:
Keywords:
CHAR=ch Plot character. Default is to use
characters selected to give a smooth curve.
/NOERASE inhibits screen erase.
BYTE=byt Plot into specified byte array.
Convert result to a string array by: txt=string(byt).
OUTPUTS:
COMMON BLOCKS:
NOTES:
Notes: Coordinates are screen character positions.
X ranges from 1 to 80,
Y ranges from 1 to 24, with 1 at top.
MODIFICATION HISTORY:
R. Sterner. 17 Jun, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/cplot.pro)
NAME:
DIR_VIEW
PURPOSE:
Directory viewing utility.
CATEGORY:
CALLING SEQUENCE:
dir_view
INPUTS:
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 3 Feb, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/dir_view.pro)
NAME:
FOOTPRINT
PURPOSE:
Interactively give info on a camera footprint.
CATEGORY:
CALLING SEQUENCE:
footprint
INPUTS:
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
footprint_com
NOTES:
Notes: Intended for CCD cameras. Gives information on
the camera's field of view on a flat level surface.
May specify the following:
Detector size in pixels or cm,
Lens focal length in mm,
Camera height above surface in m,
Camera look angle below horizontal in degrees.
Displays the following derived values:
Range to near, mid, and far side of footprint.
Field width at near, mid, and far range.
Pixel size both across and along line of sight for
near, mid, and far side of footprint.
Camera field of view in degrees.
MODIFICATION HISTORY:
R. Sterner 22,26 May, 1992
Copyright (C) 1992, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/footprint.pro)
NAME:
FURN
PURPOSE:
Plot a set of furniture and a room floor plan.
CATEGORY:
CALLING SEQUENCE:
furn
INPUTS:
KEYWORD PARAMETERS:
Keywords:
/HARD means make hard copy.
SCALE=s set scale, def=4: 4 feet per inch.
ROOM=[dx,dy] Plot room: dx X dy feet (def=none).
FILE=name name of furniture file. in
File format:
Each piece of furniture has a line in the file like:
dx dy name
where dx ,dy = x, y size in inches, name = label.
Ex:
24 24 Chair
24 24 Chair
60 36 Table
30 15 File
30 15 File
66 12 Book Case
48 12 Book Case
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 8 Dec, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/furn.pro)
NAME:
GET_EXT
PURPOSE:
Return a list of unique file extensions (and count).
CATEGORY:
CALLING SEQUENCE:
get_ext, dir, list
INPUTS:
dir = directory to examine. in
KEYWORD PARAMETERS:
Keywords:
/QUIET means don't display information.
OUTPUTS:
list = list of extensions. out
COMMON BLOCKS:
NOTES:
Notes: each extension is followed by the number of
files having that extension.
MODIFICATION HISTORY:
R. Sterner, 3 Feb, 1993
R. Sterner, 16 Feb, 1993 --- modified to display *.ext (was .ext).
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/get_ext.pro)
NAME:
GIF
PURPOSE:
GIF image viewer.
CATEGORY:
CALLING SEQUENCE:
gif
INPUTS:
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
gif_com
NOTES:
MODIFICATION HISTORY:
R. Sterner, 2 Feb, 1993
R. Sterner, 4 Jun, 1993 --- Made remember wildcard and position.
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/gif.pro)
NAME:
GIF2BW
PURPOSE:
Convert a GIF image to a BW image.
CATEGORY:
CALLING SEQUENCE:
gif2bw, [file]
INPUTS:
file = optional gif image file name. in
If file is given gif image is loaded before conversion.
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Notes: currently loaded image is assumed to be a gif
image and is converted to a pure BW image by
using the luminance of the current color table to
convert the image values. The converted image is then
redisplayed and the BW color table is loaded.
MODIFICATION HISTORY:
R. Sterner, 4 May, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/gif2bw.pro)
NAME:
GIF2COLOR
PURPOSE:
Convert a GIF image to a standard color image.
CATEGORY:
CALLING SEQUENCE:
gif2color, [file]
INPUTS:
file = optional gif image file name. in
If file is given gif image is loaded before conversion.
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Notes: currently loaded image is assumed to be a gif
image and is converted to a standard color image by
separating the R,G,B components and putting them back
together using color_quan with CUBE=6. The converted
image is then redisplayed and the color table is loaded.
MODIFICATION HISTORY:
R. Sterner, 1 June, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/gif2color.pro)
NAME:
GIF2TIF
PURPOSE:
Convert a GIF file to a TIFF file.
CATEGORY:
CALLING SEQUENCE:
gif2tif, file
INPUTS:
file = gif image file name. in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Note: output TIF file name is same but has extension .tif.
TIFF file is written in current directory.
MODIFICATION HISTORY:
R. Sterner, 2 Sep, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/gif2tif.pro)
NAME:
GIF_DEL
PURPOSE:
Delete specified GIF file. For use by gif.pro.
CATEGORY:
CALLING SEQUENCE:
gif_del, file
INPUTS:
file = name of gif file to delete. in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 18 May, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/gif_del.pro)
NAME:
IDL_CLEAN
PURPOSE:
Cleans up IDL source code. Puts in IDL standard format.
CATEGORY:
CALLING SEQUENCE:
idl_clean, name
INPUTS:
name = IDL routine file name (prompts). in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Notes: outputs results in the file name.clean
MODIFICATION HISTORY:
R. Sterner, 1995 Apr 6
Copyright (C) 1995, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/idl_clean.pro)
NAME:
MORT
PURPOSE:
Mortgage or loan computation.
CATEGORY:
CALLING SEQUENCE:
mort, amt, yi, ny, pmt
INPUTS:
amt = amount borrowed. in
yi = yearly interest rate in %. in
ny = number of years for loan. in
pmt = monthly payment. in
May be an array, see notes.
If pmt <= 0 then add to required as extra.
KEYWORD PARAMETERS:
Keywords:
SUMMARY=sm return summary array:
[total paid, cost of credit, cost as %, times original,
months, required monthly payment]
If any payment < required value then sm(0) is -1.
FILE=f output file.
/NOLIST suppresses listing.
OUTPUTS:
COMMON BLOCKS:
NOTES:
Note: pmt may be an array. If not enough
payments the last value is used repeatedly.
Mort is run interactively if no arguments are given.
Useful note: a payment computation may be picked up in the
middle. For example, suppose a 30 year $100,000 loan is
being repayed at %10 yearly interest with $1000 payments
each month. At month 200, after $200,000 has been payed,
there is $14839.06 left, and $15898.75 yet to be paid.
This computation may be picked up from month 200 by
entering 14839.06 as the loan amount, %10 interest, and
$1000 payments. The total paid will be $15898.75. Use
any value for the number of years as long it it allows
the desired monthly payments or less.
MODIFICATION HISTORY:
R. Sterner, 5 Jul, 1990
Copyright (C) 1990, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/mort.pro)
NAME:
PDEF
PURPOSE:
Set some custom plot defaults.
CATEGORY:
CALLING SEQUENCE:
pdef
INPUTS:
KEYWORD PARAMETERS:
Keywords:
/OFF means undo custom defaults.
OUTPUTS:
COMMON BLOCKS:
pdef_com
NOTES:
MODIFICATION HISTORY:
R. Sterner, 1994 Jun 15
Copyright (C) 1994, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/pdef.pro)
NAME:
PICK_DIR
PURPOSE:
Interactively pick a directory.
CATEGORY:
CALLING SEQUENCE:
pick_dir, pick
INPUTS:
KEYWORD PARAMETERS:
Keywords:
DIRECTORY=dir set initial directory (def=current).
FLAG=flg 0 means OK, 1 means selection aborted.
OUTPUTS:
pick = selected directory. out
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 3 Feb, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/pick_dir.pro)
NAME:
REDSHIFT
PURPOSE:
Converts between redshift, Recession velocity, and Distance
CATEGORY:
CALLING SEQUENCE:
redshift, [h]
INPUTS:
h = optional Hubble constant (def = 50 km/s/Mpc). in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Note: H may be changed at any time by typing h=new_value.
Also displays angular size equivalence and photometric information.
MODIFICATION HISTORY:
R. Sterner. 17 July, 1987.
Johns Hopkins University Applied Physics Laboratory.
RES 7 Jan, 1988 --- added H0.
Copyright (C) 1987, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/redshift.pro)
NAME:
REFINANCE
PURPOSE:
Explore the costs and benifits of refinancing a loan.
CATEGORY:
CALLING SEQUENCE:
refinance
INPUTS:
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 30 Mar, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/refinance.pro)
NAME:
SOUND
PURPOSE:
Gives sound on sparc station 1.
CATEGORY:
CALLING SEQUENCE:
sound, f
INPUTS:
f = frequency array (Hz). in
May be 2-d: f = [[f1],[f2],...]
where length of f1 = length of f2 ...
KEYWORD PARAMETERS:
Keywords:
OUT = c. Returns array to be sent to sparc speaker.
IN = c. Play given array through sparc speaker.
If IN is given then f is ignored.
/PLAY = play sound from array f or IN.
Must be used to play sound.
ENVELOPE=env Loudness envelope (def=all 1).
Must have as many points as f. May be 2-d with
a separate envelope for each freq array.
SMAX=smax Max loudness (0 to 1., def=1.).
OUTPUTS:
COMMON BLOCKS:
NOTES:
Note: f is processed at the rate of 8192
elements/second. So for 1 second of
sound the array must be 8192 elements long.
MODIFICATION HISTORY:
R. Sterner, 26 Dec, 1989
Copyright (C) 1989, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/sound.pro)
NAME:
SUBTREE
PURPOSE:
Display size sorted directory subtree. Good for cleaning.
CATEGORY:
CALLING SEQUENCE:
subtree, dir
INPUTS:
dir = starting directory. in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 3 Feb, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/subtree.pro)
NAME:
TIF
PURPOSE:
TIFF image viewer.
CATEGORY:
CALLING SEQUENCE:
tif
INPUTS:
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
tif_com
NOTES:
MODIFICATION HISTORY:
R. Sterner, 27 Aug, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/tif.pro)
NAME:
TIF2BW
PURPOSE:
Convert a TIFF image to a BW image.
CATEGORY:
CALLING SEQUENCE:
tif2bw, [file]
INPUTS:
file = optional tiff image file name. in
If file is given tiff image is loaded before conversion.
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Notes: currently loaded image is assumed to be a tiff
image and is converted to a pure BW image by
using the luminance of the current color table to
convert the image values. The converted image is then
redisplayed and the BW color table is loaded.
MODIFICATION HISTORY:
R. Sterner, 27 Aug, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/tif2bw.pro)
NAME:
TIF2COLOR
PURPOSE:
Convert a TIFF image to a standard color image.
CATEGORY:
CALLING SEQUENCE:
tif2color, [file], [img, r, g, b]
INPUTS:
file = optional tif image file name. in
If file is given tif image is loaded before conversion.
KEYWORD PARAMETERS:
Keywords:
/NOLOAD means do not load image or color table.
XMAG=xm Magnification factor in X (def=1).
YMAG=ym Magnification factor in Y (def=1).
NX0 = X size of original image.
NY0 = Y size of original image.
OUTPUTS:
img = optional output image. out
r,g,b = optional output color table. out
COMMON BLOCKS:
NOTES:
Notes: currently loaded image is assumed to be a tif
image and is converted to a standard color image by
separating the R,G,B components and putting them back
together using color_quan with CUBE=6. The converted
image is then redisplayed and the color table is loaded.
MODIFICATION HISTORY:
R. Sterner, 27 Aug, 1993
R. Sterner, 1994 May 6 --- Added /NOLOAD, XMAG, YMAG.
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/tif2color.pro)
NAME:
TIF2GIF
PURPOSE:
Convert a TIFF file to a GIF file.
CATEGORY:
CALLING SEQUENCE:
tif2gif, file
INPUTS:
file = tiff image file name. in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
Note: output GIF file name is same but has extension .gif.
GIF file is written in current directory.
MODIFICATION HISTORY:
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/tif2gif.pro)
NAME:
TIF_DEL
PURPOSE:
Delete specified TIFF file. For use by tif.pro.
CATEGORY:
CALLING SEQUENCE:
tif_del, file
INPUTS:
file = name of tif file to delete. in
KEYWORD PARAMETERS:
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 27 Aug, 1993
Copyright (C) 1993, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/tif_del.pro)
NAME:
XDC
PURPOSE:
Display Xdefault colors or generate a color.
CATEGORY:
CALLING SEQUENCE:
xdc
INPUTS:
KEYWORD PARAMETERS:
Keywords:
FILE=file Xdefaults color file (def=/usr/lib/X11/rgb.txt)
OUTPUTS:
COMMON BLOCKS:
NOTES:
MODIFICATION HISTORY:
R. Sterner, 1995 Mar 3
Copyright (C) 1995, 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.
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/xdc.pro)
------- zoom_dum.pro = Dummy zoom that just calls IDL zoom ------- R. Sterner, 18 May, 1993 pro zoom_dum, file
(See /host/bluemoon/usr2/idllib/jhuapls1r/usr2/zoom_dum.pro)