Function getCTestIter

SRC/tcl/commands.cpp:6231–6246

}

int
getCTestIter(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  if (theTest != 0) {
    int res = theTest->getNumTests();
  
    char buffer [10];
    sprintf(buffer,"%d",res);
    Tcl_AppendResult(interp, buffer, NULL);

    return TCL_OK;
  }

  opserr << "ERROR testIter - no convergence test!\n";
  return TCL_ERROR;
}

int 
nodeDisp(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)