#!/bin/ksh
MYCOMMAND=$_
#**************************************************************************
#**                                                                     ***
#**        Copyrights University of Karlsruhe, 1996                     ***
#**        Program by L. Grosz                                          ***
#**                                                                     ***
#**************************************************************************
#**                                                                     ***
if [ $# -gt 0 ]
 then
   cd $1
fi
#
#** finde the vecfem variables
#
if [ "$MYCOMMAND" = "" ] ; then
  . vempfade
  echo vempfade from `dirname $(which vempfade)`
else
  VEMPATH=`dirname $MYCOMMAND`
  SC=`basename $MYCOMMAND`
  if test -r $VEMPATH/vempfade ; then
     . $VEMPATH/vempfade
     echo vempfade from $VEMPATH
  else
    HELP=`which $SC`
    VEMPATH=`dirname $HELP`
    if test -r $VEMPATH/vempfade ; then
      . $VEMPATH/vempfade
      echo vempfade from $VEMPATH
    else
      . vempfade
      echo vempfade from `dirname $(which vempfade)`
    fi
  fi
fi


DIR=`pwd`
echo "xvem is in $VECFEM_ROOT/xvem."
echo "xvem has been started from $DIR !"
wish -f $VECFEM_ROOT/xvem/xvem.tk &
if [ $? != 0 ]
 then
  echo "xvem could not be started."
  exit 1
fi
