Function TclCommand_getNDF

SRC/runtime/commands/modeling/nodes.cpp:320–351

}

int
TclCommand_getNDF(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  BasicModelBuilder* builder = static_cast<BasicModelBuilder*>(clientData);
  Domain *the_domain = builder->getDomain();
  int ndf;

  if (argc > 1) {
    int tag;
    if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
      opserr << OpenSees::PromptValueError << "ndf nodeTag? \n";
      return TCL_ERROR;
    }
    Node *theNode = the_domain->getNode(tag);
    if (theNode == nullptr) {
      opserr << OpenSees::PromptValueError << "nodeTag " << tag << " does not exist \n";
      return TCL_ERROR;
    }
    ndf = theNode->getNumberDOF();

  } else {
    ndf = builder->getNDF();
  }

  char buffer[G3_NUM_DOF_BUFFER];
  sprintf(buffer, "%d", ndf);

  Tcl_AppendResult(interp, buffer, NULL);

  return TCL_OK;
}