Function getNDM

SRC/tcl/commands.cpp:7190–7222

}

int
getNDM(ClientData clientData, Tcl_Interp* interp, int argc, TCL_Char** argv)
{
    int ndm;

    if (argc > 1) {
        int tag;
        if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
            opserr << "WARNING getNDM nodeTag? \n";
            return TCL_ERROR;
        }
        Node* theNode = theDomain.getNode(tag);
        if (theNode == 0) {
            opserr << "WARNING nodeTag " << tag << " does not exist \n";
            return TCL_ERROR;
        }
        const Vector& coords = theNode->getCrds();
        ndm = coords.Size();
    } else {
        if (theBuilder == 0) {
            return TCL_OK;
        }
        else {
            ndm = OPS_GetNDM();
        }
    }

    char buffer[20];
    sprintf(buffer, "%d", ndm);
    Tcl_AppendResult(interp, buffer, NULL);

    return TCL_OK;
}

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