Method setID

SRC/analysis/fe_ele/lagrange/LagrangeEQ_FE.cpp:117–201

void setID(int index, int value); Method to set the corresponding index of the ID to value.

// void setID(int index, int value);
//	Method to set the corresponding index of the ID to value.
int
LagrangeEQ_FE::setID(void)
{
    int result = 0;

    // first determine the IDs in myID for those DOFs marked
    // as constrainedDOF DOFs, this is obtained from the DOF_Group
    // associated with the constrainedDOF node
    if (theConstrainedNode == 0) {
        opserr << "WARNING LagrangeEQ_FE::setID(void)";
        opserr << "- no asscoiated Constrained Node\n";
        return -1;
    }
    DOF_Group *theConstrainedNodesDOFs = theConstrainedNode->getDOF_GroupPtr();
    if (theConstrainedNodesDOFs == 0) {
        opserr << "WARNING LagrangeEQ_FE::setID(void)";
        opserr << " - no DOF_Group with Constrained Node\n";
        return -2;
    }    
    const ID &theConstrainedNodesID = theConstrainedNodesDOFs->getID();    

    int constrainedDOF = theEQ->getConstrainedDOFs();
	if (constrainedDOF < 0 || constrainedDOF >= theConstrainedNode->getNumberDOF()) {
	    opserr << "WARNING LagrangeEQ_FE::setID(void) - unknown DOF ";
	    opserr << constrainedDOF << " at Node\n";
	    myID(0) = -1; // modify so nothing will be added to equations
	    result = -3;
	}    	
	else {
	    if (constrainedDOF >= theConstrainedNodesID.Size()) {
		    opserr << "WARNING LagrangeEQ_FE::setID(void) - ";
		    opserr << " Nodes DOF_Group too small\n";
		    myID(0) = -1; // modify so nothing will be added to equations
		    result = -4;
	    }
	    else
		    myID(0) = theConstrainedNodesID(constrainedDOF);
	}
    
    // now determine the IDs for the retained dof's
    if (theRetainedNode == 0) {
        opserr << "WARNING LagrangeEQ_FE::setID(void)";
        opserr << "- no asscoiated Retained Node\n";
        return -1;
    }
    const ID &nodeRetained = theEQ->getNodeRetained();
    const ID &RetainedDOFs = theEQ->getRetainedDOFs();
    for (int i = 0; i < nodeRetained.Size(); ++i) {
        if (theRetainedNode[i] == 0) {
            opserr << "WARNING LagrangeEQ_FE::setID(void)";
            opserr << "- no asscoiated Retained Node\n";
            return -1;
        }
        DOF_Group *theRetainedNodesDOFs = theRetainedNode[i]->getDOF_GroupPtr();
        if (theRetainedNodesDOFs == 0) {
            opserr << "WARNING LagrangeEQ_FE::setID(void)";
            opserr << " - no DOF_Group with Retained Node\n";
            return -2;