Function OPS_getRVParamTag

SRC/interpreter/OpenSeesReliabilityCommands.cpp:1121–1185

}

int OPS_getRVParamTag() {
    if (OPS_GetNumRemainingInputArgs() < 1) {
        opserr << "ERROR: need getRVParamTag rvTag\n";
        return -1;
    }

    // random variable tag input
    int rvTag;
    int num = 1;
    if (OPS_GetIntInput(&num, &rvTag) < 0) {
        opserr << "ERROR: failed to get rvTag\n";
        return -1;
    }

    // reliability domain
    auto *theReliabilityDomain = cmds->getDomain();
    if (theReliabilityDomain == 0) {
        opserr << "ERROR: reliability domain is null\n";
        return -1;
    }

    // get random variable pointer
    auto *rv = theReliabilityDomain->getRandomVariablePtr(rvTag);
    if (rv == 0) {
        opserr << "ERROR: random variable with tag " << rvTag
               << " not found\n";
        return -1;
    }

    // get random variable index
    int rvIndex = theReliabilityDomain->getRandomVariableIndex(rvTag);

    // get parameter index
    int paramIndex =
        theReliabilityDomain->getParameterIndexFromRandomVariableIndex(
            rvIndex);
    if (paramIndex < 0) {
        opserr
            << "ERROR: failed to get parameter index for random variable"
            << rvTag << "\n";
        return -1;
    }

    // get parameter pointer
    auto *domain = cmds->getStructuralDomain();
    if (domain == 0) {
        opserr << "ERROR: domain is null\n";
        return -1;
    }

    auto *param = domain->getParameterFromIndex(paramIndex);
    if (param == 0) {
        opserr << "ERROR: failed to get parameter for random variable"
               << rvTag << "\n";
        return -1;
    }

    int paramTag = param->getTag();