///////////////////////////////////////////////////////////////////////////////
//  returns address of the FORTRAN variable
//  beware of potential name clashes
///////////////////////////////////////////////////////////////////////////////
extern "C" void* address_(void* x) {
  return x;
}