//------------------------------------------------------------------------------
//  Sept 09 1997 P.Murat
//  this routine is supposed to be called from FORTRAN, it returns an
//  address of its parameter
//  revision history:
//  -----------------
//------------------------------------------------------------------------------
extern "C" int tgeant_var_address_(int var) {
  return var;
}