Method removeParameter

SRC/domain/domain/Domain.cpp:1370–1416

Parameter *
Domain::removeParameter(int tag)
{
  Parameter *theParam = (Parameter*) theParameters->getComponentPtr(tag);

  if (theParam != 0) {

    // Find where RV is located
    int index;
    for (index = 0; index < numParameters; index++) {
      if (paramIndex[index] == tag)
	break;
    }

    // Shift indices down by one
    for (int i = index; i < numParameters-1; i++) {
      paramIndex[i] = paramIndex[i+1];
      Parameter *otherParam = this->getParameterFromIndex(i);
      otherParam->setGradIndex(i);
    }

    // Now remove the component
    theParameters->removeComponent(tag);

    numParameters--;
  }

  return 0;

  /*
  // remove the object from the container    
  TaggedObject *mc = theParameters->removeComponent(tag);
  
  // if not there return 0
  if (mc == 0) 
      return 0;

  // otherwise mark the domain as having changed
  this->domainChange();
  
  // perform a downward cast to an Element (safe as only Element added to
  // this container, 0 the Elements DomainPtr and return the result of the cast  
  Parameter *result = (Parameter *)mc;
  //  result->setDomain(0);
  return result;
  */
}

LoadPattern *
Domain::removeLoadPattern(int tag)