cxxtime_util_fatal.cc

Go to the documentation of this file.

#define TF_CXXTIME_UTIL_FATAL_CC_VERSION \
  "TF_CXXTIME_UTIL_FATAL_CC   V1.0   "

#include <libtime++.h>
#include <string>

extern "C" {
/* 
 * Fortran calling convention:
 */
int time_util_fatal__(char *caller, char *text, 
                      time_kernel::ftnlen caller_len, 
                      time_kernel::ftnlen text_len)
{
  std::string callerstring, textstring;
  int i;
  for (i=0; i<caller_len; i++) { callerstring += *(caller++); }
  for (i=0; i<text_len; i++) { textstring += *(text++); }
  std::string message="ERROR ("+callerstring+"): "+textstring;
  throw(libtime::Exception(message.c_str()));
  return(0);
} /* time_util_fatal__ */

} // extern "C"

/* ----- END OF cxxtime_util_fatal.cc ----- */