AbaqusUtils.C File Reference

Go to the source code of this file.

Functions
void	getnumcpus_ (int *num)
void	getrank_ (int *rank)
MPI_Comm	get_communicator ()
int	getnumthreads_ ()
int	get_thread_id_ ()
void	getoutdir_ (char *dir, int *len)
void	getjobname_ (char *dir, int *len)
void	stdb_abqerr_ (int *lop, char *format, int *intv, double *realv, char *charv, int format_len)
int *	SMAIntArrayCreate (int id, int len, int val)
double *	SMAFloatArrayCreate (int id, int len, Real val)
int *	SMALocalIntArrayCreate (int id, int len, int val)
double *	SMALocalFloatArrayCreate (int id, int len, Real val)
int *	SMAIntArrayAccess (int id)
double *	SMAFloatArrayAccess (int id)
int *	SMALocalIntArrayAccess (int id)
double *	SMALocalFloatArrayAccess (int id)
std::size_t	SMAIntArraySize (int id)
std::size_t	SMAFloatArraySize (int id)
std::size_t	SMALocalIntArraySize (int id)
std::size_t	SMALocalFloatArraySize (int id)
void	SMAIntArrayDelete (int id)
void	SMAFloatArrayDelete (int id)
void	SMALocalIntArrayDelete (int id)
void	SMALocalFloatArrayDelete (int id)
void	MutexInit (int id)
void	MutexLock (int id)
void	MutexUnlock (int id)

Function Documentation

get_communicator()

MPI_Comm get_communicator

(

)

Definition at line 43 of file AbaqusUtils.C.

{
  auto communicator = AbaqusUtils::getCommunicator();
  return communicator->get();
}

get_thread_id_()

int get_thread_id_

(

)

Definition at line 58 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  ParallelUniqueId puid;
  return puid.id;
}

getjobname_()

void getjobname_	(	char *	dir,
		int *	len
	)

Definition at line 104 of file AbaqusUtils.C.

{
  auto job_name = AbaqusUtils::getJobName();
  *len = job_name.length();
  for (int i = 0; i < 256; ++i)
    dir[i] = i < *len ? job_name[i] : ' ';
}

getnumcpus_()

void getnumcpus_

(

int *

num

)

Definition at line 29 of file AbaqusUtils.C.

{
  auto communicator = AbaqusUtils::getCommunicator();
  *num = communicator->size();
}

getnumthreads_()

int getnumthreads_

(

)

Definition at line 52 of file AbaqusUtils.C.

Referenced by AbaqusUtils::smaInitialize(), and uexternaldb_().

{
  return libMesh::n_threads();
}

getoutdir_()

void getoutdir_	(	char *	dir,
		int *	len
	)

Definition at line 95 of file AbaqusUtils.C.

{
  auto output_dir = AbaqusUtils::getOutputDir();
  *len = output_dir.length();
  for (int i = 0; i < 256; ++i)
    dir[i] = i < *len ? output_dir[i] : ' ';
}

getrank_()

void getrank_

(

int *

rank

)

Definition at line 36 of file AbaqusUtils.C.

{
  auto communicator = AbaqusUtils::getCommunicator();
  *rank = communicator->rank();
}

MutexInit()

void MutexInit

(

int

id

)

Definition at line 386 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  AbaqusUtils::mutexInit(id);
}

MutexLock()

void MutexLock

(

int

id

)

Definition at line 392 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  AbaqusUtils::mutexLock(id);
}

MutexUnlock()

void MutexUnlock

(

int

id

)

Definition at line 398 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  AbaqusUtils::mutexUnlock(id);
}

SMAFloatArrayAccess()

double* SMAFloatArrayAccess

(

int

id

)

Definition at line 261 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto it = AbaqusUtils::getSMAIterator(AbaqusUtils::_sma_float_array, id, "SMAFloatArrayAccess");
  return it->second.data();
}

SMAFloatArrayCreate()

double* SMAFloatArrayCreate	(	int	id,
		int	len,
		Real	val
	)

Definition at line 223 of file AbaqusUtils.C.

{
  auto ib = AbaqusUtils::_sma_float_array.emplace(id, std::vector<Real>(len, val));
  if (ib.second == false)
    mooseError("Error creating threaded storage in SMAFloatArrayCreate");
  return ib.first->second.data();
}

SMAFloatArrayDelete()

void SMAFloatArrayDelete

(

int

id

)

Definition at line 329 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto it = AbaqusUtils::getSMAIterator(AbaqusUtils::_sma_float_array, id, "SMAFloatArrayDelete");
  AbaqusUtils::_sma_float_array.erase(it);
}

SMAFloatArraySize()

std::size_t SMAFloatArraySize

(

int

id

)

Definition at line 295 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto it = AbaqusUtils::getSMAIterator(AbaqusUtils::_sma_float_array, id, "SMAFloatArraySize");
  return it->second.size();
}

SMAIntArrayAccess()

int* SMAIntArrayAccess

(

int

id

)

Definition at line 254 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto it = AbaqusUtils::getSMAIterator(AbaqusUtils::_sma_int_array, id, "SMAIntArrayAccess");
  return it->second.data();
}

SMAIntArrayCreate()

int* SMAIntArrayCreate	(	int	id,
		int	len,
		int	val
	)

Definition at line 214 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto ib = AbaqusUtils::_sma_int_array.emplace(id, std::vector<int>(len, val));
  if (ib.second == false)
    mooseError("Error creating threaded storage in SMAIntArrayCreate");
  return ib.first->second.data();
}

SMAIntArrayDelete()

void SMAIntArrayDelete

(

int

id

)

Definition at line 322 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto it = AbaqusUtils::getSMAIterator(AbaqusUtils::_sma_int_array, id, "SMAIntArrayDelete");
  AbaqusUtils::_sma_int_array.erase(it);
}

SMAIntArraySize()

std::size_t SMAIntArraySize

(

int

id

)

Definition at line 288 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto it = AbaqusUtils::getSMAIterator(AbaqusUtils::_sma_int_array, id, "SMAIntArraySize");
  return it->second.size();
}

SMALocalFloatArrayAccess()

double* SMALocalFloatArrayAccess

(

int

id

)

Definition at line 277 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto & array = AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_float_array,
                                                "SMALocalFloatArrayAccess");
  auto it = AbaqusUtils::getSMAIterator(array, id, "SMALocalFloatArrayAccess");
  return it->second.data();
}

SMALocalFloatArrayCreate()

double* SMALocalFloatArrayCreate	(	int	id,
		int	len,
		Real	val
	)

Definition at line 242 of file AbaqusUtils.C.

{
  AbaqusUtils::smaInitialize();
  auto & array = AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_float_array,
                                                "SMALocalFloatArrayCreate")[id];
  array.assign(len, val);
  return array.data();
}

SMALocalFloatArrayDelete()

void SMALocalFloatArrayDelete

(

int

id

)

Definition at line 345 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto & array = AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_float_array,
                                                "SMALocalFloatArrayDelete");
  auto it = AbaqusUtils::getSMAIterator(array, id, "SMALocalFloatArrayDelete");
  array.erase(it);
}

SMALocalFloatArraySize()

std::size_t SMALocalFloatArraySize

(

int

id

)

Definition at line 311 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto & array =
      AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_float_array, "SMALocalFloatArraySize");
  auto it = AbaqusUtils::getSMAIterator(array, id, "SMALocalFloatArraySize");
  return it->second.size();
}

SMALocalIntArrayAccess()

int* SMALocalIntArrayAccess

(

int

id

)

Definition at line 268 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto & array =
      AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_int_array, "SMALocalIntArrayAccess");
  auto it = AbaqusUtils::getSMAIterator(array, id, "SMALocalIntArrayAccess");
  return it->second.data();
}

SMALocalIntArrayCreate()

int* SMALocalIntArrayCreate	(	int	id,
		int	len,
		int	val
	)

Definition at line 232 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  AbaqusUtils::smaInitialize();
  auto & array = AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_int_array,
                                                "SMALocalIntArrayCreate")[id];
  array.assign(len, val);
  return array.data();
}

SMALocalIntArrayDelete()

void SMALocalIntArrayDelete

(

int

id

)

Definition at line 336 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto & array =
      AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_int_array, "SMALocalIntArrayDelete");
  auto it = AbaqusUtils::getSMAIterator(array, id, "SMALocalIntArrayDelete");
  array.erase(it);
}

SMALocalIntArraySize()

std::size_t SMALocalIntArraySize

(

int

id

)

Definition at line 302 of file AbaqusUtils.C.

Referenced by uexternaldb_().

{
  auto & array =
      AbaqusUtils::getSMAThreadArray(AbaqusUtils::_sma_local_int_array, "SMALocalIntArraySize");
  auto it = AbaqusUtils::getSMAIterator(array, id, "SMALocalIntArraySize");
  return it->second.size();
}

stdb_abqerr_()

void stdb_abqerr_	(	int *	lop,
		char *	format,
		int *	intv,
		double *	realv,
		char *	charv,
		int	format_len
	)

Definition at line 115 of file AbaqusUtils.C.

{
  std::string message;
  unsigned int int_index = 0;
  unsigned int real_index = 0;
  unsigned int char_index = 0;

  for (int i = 0; i < format_len; ++i)
  {
    // interpret %I, %R, and %S
    if (format[i] == '%' && i < format_len - 1)
    {
      auto next = format[i + 1];

      // integer output
      if (next == 'I' || next == 'i')
      {
        message += std::to_string(intv[int_index++]);
        i++;
        continue;
      }

      // Real output
      if (next == 'R' || next == 'r')
      {
        message += std::to_string(realv[real_index++]);
        i++;
        continue;
      }

      // char[8] output
      if (next == 'S' || next == 's')
      {
        for (unsigned int j = 0; j < 8; ++j)
          message += charv[char_index++];
        i++;
        continue;
      }
    }

    // append character to string
    message += format[i];
  }

  // output at the selected error level
  switch (*lop)
  {
    case 1:
      Moose::out << moose::internal::mooseMsgFmt(message, "** Abaqus Info **", COLOR_CYAN)
                 << std::flush;
      break;

    case -1:
      Moose::out << moose::internal::mooseMsgFmt(message, "** Abaqus Warning **", COLOR_YELLOW)
                 << std::flush;
      break;

    case -2:
      Moose::out << moose::internal::mooseMsgFmt(message, "** Abaqus Non-fatal Error **", COLOR_RED)
                 << std::flush;
      break;

    case -3:
      mooseError(message);
      break;

    default:
      mooseError("Invalid LOP code passed to STDB_ABQERR: ", *lop);
      break;
  }
}