Function getCTestIter

SRC/runtime/commands/analysis/ctest.cpp:319–338

}

int
getCTestIter(ClientData clientData, Tcl_Interp *interp, int argc, G3_Char ** const argv)
{
  assert(clientData != nullptr);
  ConvergenceTest *theTest =
      ((BasicAnalysisBuilder *)clientData)->getConvergenceTest();

  if (theTest != nullptr) {
    int res = theTest->getNumTests();

    char buffer[10];
    sprintf(buffer, "%d", res);
    Tcl_AppendResult(interp, buffer, NULL);

    return TCL_OK;
  }

  opserr << OpenSees::PromptValueError << "no convergence test was found.\n";
  return TCL_ERROR;
}