procedure mkflux (pref, skyname , kmag, teff  )

string pref {prompt="input standard star prefix"}
string skyname {prompt="name of wavelength calibration image"}
real    kmag {prompt="K magnitude of star"}
real    teff {prompt="effective temperature of star"}

struct *instr

begin

	imreplace(pref//".avg.imh", 0, upper=1)

	refspec (pref//".avg.imh",
"yes", references=skyname, apertures="", refaps="", ignoreaps=yes,
select="interp", sort="EPOCH", group="EPOCH", time=no, timewrap=17.,
override=yes, confirm=yes, assign=yes, verbose=yes)

	dispcor (pref//".avg.imh", pref//".wav.imh", 
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)

irflux (pref//".wav.imh", pref//".flx.imh", 3, kmag, teff)
 
splot(pref//".flx.imh")

end