Function OPS_setParameter

SRC/interpreter/OpenSeesParameterCommands.cpp:574–683

}

int OPS_setParameter() {
  double newValue = 0.0;
  ID eleIDs(0, 32);
  int numEle = 0;
  int flag = 0;

  const char *opt = OPS_GetString();

  int numdata = 1;
  if (strcmp(opt, "-val") == 0) {
    if (OPS_GetDoubleInput(&numdata, &newValue) < 0) {
      opserr << "WARNING: failed to get paramber value\n";
      return -1;
    }
  } else {
    opserr << "WARNING setParameter:  -val not found \n";
    return -1;
  }

  if (OPS_GetNumRemainingInputArgs() == 0) return 0;

  opt = OPS_GetString();

  if ((strcmp(opt, "-ele") == 0) || (strcmp(opt, "-eles") == 0) ||
      (strcmp(opt, "-element") == 0)) {
    //
    // read in a list of ele until end of command or other flag
    //

    int eleTag;
    while (OPS_GetNumRemainingInputArgs() > 0) {
      if (OPS_GetIntInput(&numdata, &eleTag) < 0) {
        // back on arg
        OPS_ResetCurrentInputArg(-1);
        break;
      } else {
        eleIDs[numEle] = eleTag;
        numEle++;
      }
    }

    if (numEle > 0) flag = 1;

  } else if (strcmp(opt, "-eleRange") == 0) {
    flag = 2;

    // ensure no segmentation fault if user messes up
    if (OPS_GetNumRemainingInputArgs() < 2) {
      opserr << "WARNING recorder Element .. -eleRange start? end?  .. - "
                "no ele tags specified\n";
      return -1;
    }

    //
    // read in start and end tags of two elements & add set [start,end]
    //

    int start, end;