# GTBAND -- Fortran interface to getbandx

procedure gtband (modstr, grftbl, cmptbl, logspace, 
		  nwave, wave, thruput, thruerr)

%       character*(*)   modstr
%       character*(*)   grftbl
%       character*(*)   cmptbl
bool	logspace		# use log spacing for wavelengths?
int	nwave			# length of wavelength and output arrays 
real	wave[ARB]		# wavelength array (output)
real	thruput[ARB]		# grand throughput (output)
real	thruerr[ARB]		# grand throughput error (output)
#--
int	mxmode
pointer	sp, mode, graphtab, comptab

begin
	# Get length of fortran strings

	mxmode = len(modstr)

	# Allocate memory for temporary spp strings

	call smark (sp)
	call salloc (mode, mxmode, TY_CHAR)
	call salloc (graphtab, SZ_FNAME, TY_CHAR)
	call salloc (comptab, SZ_FNAME, TY_CHAR)

	# Convert strings from fortran to spp

	call f77upk (modstr, Memc[mode], mxmode)
	call f77upk (grftbl, Memc[graphtab], SZ_FNAME)
	call f77upk (cmptbl, Memc[comptab], SZ_FNAME)

	# Call spp interface procedure

	call getbandx (Memc[mode], Memc[graphtab], Memc[comptab], 
		       logspace, nwave, wave, thruput, thruerr)

	call sfree (sp)
end