Function OPS_Pattern

SRC/interpreter/OpenSeesPatternCommands.cpp:84–138

int OPS_Pattern()
{
    theActiveMultiSupportPattern = 0;
    theActiveUniformPattern = 0;
    theActiveLoadPattern = 0;

    // num args
    if(OPS_GetNumRemainingInputArgs() < 1) {
	opserr<<"WARNING insufficient args: pattern type ...\n";
	return -1;
    }

    // create pattern
    const char* type = OPS_GetString();
    LoadPattern* pattern = 0;
    if (strcmp(type, "Plain") == 0) {

	theActiveLoadPattern = (LoadPattern*)OPS_LoadPattern();
	pattern = theActiveLoadPattern;

    } else if (strcmp(type, "UniformExcitation") == 0) {

	theActiveUniformPattern = (UniformExcitation*)OPS_UniformExcitationPattern();
	pattern = theActiveUniformPattern;

    } else if (strcmp(type, "MultipleSupport") == 0) {

	theActiveMultiSupportPattern = (MultiSupportPattern*)OPS_MultiSupportPattern();
	pattern = theActiveMultiSupportPattern;

    } else {
	opserr<<"WARNING unknown pattern type"<<type<<"\n";
	return -1;
    }

    if (pattern == 0) {
	opserr<<"WARNING failed to create pattern\n";
	return -1;
    }

    // add to domain
    Domain* theDomain = OPS_GetDomain();
    if (theDomain == 0) {
	opserr<<"WARNING no domain is created\n";
	return -1;
    }
    if (theDomain->addLoadPattern(pattern) == false) {
	opserr<<"WARNING failed to add pattern to domain\n";
	delete pattern;
	pattern = 0;
	return -1;
    }

    return 0;
}

int OPS_NodalLoad()
{