SMAAspUserUtilities.h File Reference

Go to the source code of this file.

Functions
int	getnumthreads_ ()
int	get_thread_id_ ()
void	getoutdir_ (char *dir, int *len)
void	getjobname_ (char *dir, int *len)
void	getnumcpus_ (int *num)
void	getrank_ (int *rank)
MPI_Comm	get_communicator ()
void	stdb_abqerr_ (int *lop, char *format, int *intv, double *realv, char *charv, int format_len)

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.

{
  ParallelUniqueId puid;
  return puid.id;
}

Referenced by uexternaldb_(), and uexternaldb_().

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.

{
  return libMesh::n_threads();
}

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

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();
}

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;
  }
}