procedure xcalib  (inmage , inputsky, teff, kmag )
 
#
# Procedure to produce a flux  calibration spectra
# for OSIRIS x-disp spectra
# by Richard Elston 9/5/93
#

string inmage    {prompt="input prefix of calib star"}
string inputsky  {prompt="input identified reference sky"}
real   teff      {prompt ="Effective temperature of calib star"}
real   kmag      {prompt ="K band magnitude of calib star"}

begin

	string inimage, rfsky
	inimage=inmage
	rfsky=inputsky 

#
# wavelength calibrate the flux calibration spectra
#

	xwave (inimage, "avg", inputsky) 

#
# irflux the spectra
#
	irflux(inimage//".kwav.imh", inimage//".kflx.imh", "3", kmag, teff)
	irflux(inimage//".hwav.imh", inimage//".hflx.imh", "3", kmag, teff)
	irflux(inimage//".jwav.imh", inimage//".jflx.imh", "3", kmag, teff)
	irflux(inimage//".iwav.imh", inimage//".iflx.imh", "3", kmag, teff)

	imdel(inimage//".?wav.imh")
end