#! /bin/sh
#============================================================================
#
#                    Code_Saturne version 1.3
#                    ------------------------
#
#
#     This file is part of the Code_Saturne Kernel, element of the
#     Code_Saturne CFD tool.
#
#     Copyright (C) 1998-2007 EDF S.A., France
#
#     contact: saturne-support@edf.fr
#
#     The Code_Saturne Kernel is free software; you can redistribute it
#     and/or modify it under the terms of the GNU General Public License
#     as published by the Free Software Foundation; either version 2 of
#     the License, or (at your option) any later version.
#
#     The Code_Saturne Kernel is distributed in the hope that it will be
#     useful, but WITHOUT ANY WARRANTY; without even the implied warranty
#     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.
#
#     You should have received a copy of the GNU General Public License
#     along with the Code_Saturne Kernel; if not, write to the
#     Free Software Foundation, Inc.,
#     51 Franklin St, Fifth Floor,
#     Boston, MA  02110-1301  USA
#
#============================================================================
#
if [ "$1" = "-h" -o "$1" = "-help" -o "$#" = "0" ] ; then 
echo ' ' 
echo ' gracehst: appel de grace -nxy sur un fichier historique  '
echo '       de Code_Saturne en eliminant la premiere colonne.  '
echo '                                                          '  
echo ' aide: gracehst -h                                         '
echo '                                                          '  
echo ' exemples:                                                '
echo '                                                          '  
echo '   pour un fichier historique VitesseX.hst                '
echo '           gracehst VitesseX.hst                           '
echo '                                                          '  
echo '   pour une serie de fichiers *hst                        '
echo '           for fic in *.hst ; do                          '
echo '             gracehst $fic                                 '
echo '           done                                           '
echo '                                                          '
echo ' ' 
exit
fi

hst=$1
tmp=/tmp/$hst.gracehstmod
if [ -f $tmp ] ; then 
  echo $tmp existe : stop 
  exit
fi

grep -v '#' $hst  | cut -c9-500 > $tmp 
xmgrace -geometry 1100x850 -nxy $tmp 
rm $tmp