real procedure efflam(nwave, wave, filt, spec, form)

int	nwave		# i: number of wavelengths in wave
real	wave[ARB]	# i: wavelength array
real	filt[ARB]	# i: Instrument mode filter array
real	spec[ARB]	# i: spectrum
char	form[ARB]	# i: form of spectrum

begin

	return(0.)

end