#!/bin/csh -f
#++++++++++++++++
#.IDENTIFICATION getsp
#.LANGUAGE       C_shell
#.AUTHOR         Francois Ochsenbein <francois@astro.u-strasbg.fr>
#.ENVIRONMENT    CDS Catalogues Service
#.KEYWORDS       
#.VERSION  1.0   08-Apr-1999
#.PURPOSE        Find out the spectrophotometry for a DENIS brown dwarf
#.COMMENTS       The program accepts the following arguments:
#	Arg#1 (required): File Name
#----------------

#### Check the number of arguments in the correct range.
if ($#argv != 1) then
    echo "Usage: $0 Seq_number"
    exit 1
endif

#### Print the wavelength and flux (Wavelength in col#1, flux in col#k)

if ($?PATH_INFO) then
    echo "\section{Flux from file $1}"
    echo "\begin{alltt}"
    echo "   {\AA}   Relative Flux"
else
    echo  " 0.1nm   Relative Flux in file $1"
endif
/usr/local/bin/fcat `echo $1 | tr '[A-Z]' '[a-z]'`
if ($?PATH_INFO) echo "\end{alltt}\hline"
#######################################################################