procedure xwave  (inmage , inpost, inputsky)
 
#
# Procedure to wavelenght calibrate OSIRIS x-disp spectra
# by Richard Elston 8/29/93
#

string inmage  {prompt="input raw image prefix"}
string inpost  {prompt = "input image postfix"}
string inputsky  {prompt="input identified reference sky"}


begin

	string inimage, rfsky,ps
	inimage=inmage
	rfsky=inputsky 
	ps = inpost

#
# Apply the reference spectra to the images
#


refspec (inimage//".k"//ps,
"yes", reference=rfsky//".ksky.imh", apertures="", refaps="", ignoreaps=yes,
select="interp", sort="FLL_POS", group="FLL_POS", time=no, timewrap=17.,
override=yes, confirm=no, assign=yes, logfiles="", verbose=no)

refspec (inimage//".h"//ps,
"yes", reference=rfsky//".hsky.imh", apertures="", refaps="", ignoreaps=yes,
select="interp", sort="FLL_POS", group="FLL_POS", time=no, timewrap=17.,
override=yes, confirm=no, assign=yes, logfiles="", verbose=no)

refspec (inimage//".j"//ps,
"yes", reference=rfsky//".jsky.imh", apertures="", refaps="", ignoreaps=yes,
select="interp", sort="FLL_POS", group="FLL_POS", time=no, timewrap=17.,
override=yes, confirm=no, assign=yes, logfiles="", verbose=no)

refspec (inimage//".i"//ps,
"yes", reference=rfsky//".isky.imh", apertures="", refaps="", ignoreaps=yes,
select="interp", sort="FLL_POS", group="FLL_POS", time=no, timewrap=17.,
override=yes, confirm=no, assign=yes, logfiles="", verbose=no)

#
# dispersion correct onto a linear scale
#

dispcor (inimage//".k"//ps, inimage//".kwav",
linearize=yes, database="database", table="", w1=INDEF, w2=INDEF,
dw=INDEF, nw=INDEF, flux=yes, samedisp=no, global=no, ignoreaps=no,
confirm=no, listonly=no, verbose=yes, logfile="")

dispcor (inimage//".h"//ps, inimage//".hwav",
linearize=yes, database="database", table="", w1=INDEF, w2=INDEF,
dw=INDEF, nw=INDEF, flux=yes, samedisp=no, global=no, ignoreaps=no,
confirm=no, listonly=no, verbose=yes, logfile="")

dispcor (inimage//".j"//ps, inimage//".jwav",
linearize=yes, database="database", table="", w1=INDEF, w2=INDEF,
dw=INDEF, nw=INDEF, flux=yes, samedisp=no, global=no, ignoreaps=no,
confirm=no, listonly=no, verbose=yes, logfile="")

dispcor (inimage//".i"//ps, inimage//".iwav",
linearize=yes, database="database", table="", w1=INDEF, w2=INDEF,
dw=INDEF, nw=INDEF, flux=yes, samedisp=no, global=no, ignoreaps=no,
confirm=no, listonly=no, verbose=yes, logfile="")

end