Function OPS_DomainModalProperties

SRC/domain/domain/DomainModalProperties.cpp:370–441

}

int
OPS_DomainModalProperties(void)
{
    // modalProperties <-print> <-file $fileName> <-unorm>

    // some kudos
    static bool first_done = false;
    if (!first_done) {
        opserr << "Using DomainModalProperties - Developed by: Massimo Petracca, Guido Camata, ASDEA Software Technology\n";
        first_done = true;
    }

    // get analysis model
    AnalysisModel* theAnalysisModel = *OPS_GetAnalysisModel();
    if (theAnalysisModel == nullptr) {
        opserr << "modalProperties Error: no AnalysisModel available.\n";
        return -1;
    }

    // init default values
    bool unorm = false; // by default do not displacement-normalize eigenvectors 
    bool print_on_console = false; // by default do not print on console
    bool print_on_file = false; // by default do no print on file
    bool print_to_dict = false;
    std::string fname;

    // check options
    int numArgs = OPS_GetNumRemainingInputArgs();
    int loc = 0;
    while (loc < numArgs) {
        const char* iarg = OPS_GetString();
        if (strcmp(iarg, "-unorm") == 0) {
            unorm = true;
        }
        else if (strcmp(iarg, "-print") == 0) {
            print_on_console = true;
        }
        else if (strcmp(iarg, "-return") == 0) {
            print_to_dict = true;
        }
        else if (strcmp(iarg, "-file") == 0) {
            print_on_file = true;
            if (loc < numArgs - 1) {
                ++loc;
                fname = OPS_GetString();
            }
            else {
                opserr << "Error in modalProperties <-print> <-file $fileName> <-unorm>.\n"
                    "After the keyword -file you should specify the file name.\n";
                exit(-1);
            }
        }
        ++loc;
    }

    // create the modal properties, compute them,
    // and add them to the domain
    DomainModalProperties modal_props(unorm);