Function OPS_updateParameter

SRC/interpreter/OpenSeesParameterCommands.cpp:463–512

}

int OPS_updateParameter() {
  Domain *theDomain = OPS_GetDomain();
  if (theDomain == 0) return -1;

  // check at least two arguments so don't segemnt fault on strcmp
  if (OPS_GetNumRemainingInputArgs() < 1) {
    opserr << "WARNING need to specify a parameter tag\n";
    opserr << "Want: updateParameter tag <specific parameter args> .. see "
              "manual for valid parameter types and arguments\n";
    return -1;
  }

  // Figure out which parameter we are dealing with
  int paramTag;
  int num = 1;
  if (OPS_GetIntInput(&num, &paramTag) < 0) {
    opserr << "WARNING: parameter - failed to get parameter tag\n";
    return -1;
  }

  if (OPS_GetNumRemainingInputArgs() < 1) {
    opserr << "WARNING parameter -- insufficient number of arguments for "
              "parameter with tag "
           << paramTag << '\n';
    return -1;
  }

  // check existence
  Parameter *theParameter = theDomain->getParameter(paramTag);
  if (theParameter == 0) {
    opserr << "WARNNG: parameter " << paramTag << " not exists\n";
    return -1;
  }

  // update values
  double newValue;
  if (OPS_GetDouble(&num, &newValue) < 0) {
    opserr << "WARNING updateParameter -- invalid parameter value\n";
    return -1;
  }

  theDomain->updateParameter(paramTag, newValue);

  if (OPS_SetIntOutput(&num, &paramTag, true) < 0) {
    opserr << "WARNING: parameter - failed to set parameter tag\n";
    return -1;
  }

  return 0;
}

int OPS_getParamTags() {
  Domain *theDomain = OPS_GetDomain();