Function OPS_SP

SRC/interpreter/OpenSeesPatternCommands.cpp:1011–1104

int OPS_SP()
{
    Domain* theDomain = OPS_GetDomain();
    if(theDomain == 0) {
	opserr<<"WARNING: domain is not defined\n";
	return -1;
    }

    if(OPS_GetNumRemainingInputArgs() < 3) {
	opserr<<"insufficient number of args\n";
	return -1;
    }

    SP_Constraint *theSP = 0;

    // get tags
    int tags[2];
    int numData = 2;
    if(OPS_GetIntInput(&numData, &tags[0]) < 0) {
	opserr << "WARNING invalid int tags\n";
	return -1;
    }

    // get node
    Node* theNode = theDomain->getNode(tags[0]);
    if(theNode == 0) {
	opserr<<"ERROR node "<<tags[0]<<"does not exist\n";
	return -1;
    }
    int ndf = theNode->getNumberDOF();
    if(tags[1] > ndf || tags[1] < 0) {
	opserr<<"WARNING invalid dof\n";
	return -1;
    }

    // get value
    double value;
    numData = 1;
    if(OPS_GetDoubleInput(&numData,&value) < 0) {
	opserr << "WARNING invalid double value\n";
	return -1;
    }

    // get sp const
    bool isSpConst = false;
    bool retZeroInitValue = true;
    
    bool userPattern = false;
    int loadPatternTag = 0;
    while(OPS_GetNumRemainingInputArgs() > 0) {
	const char* type = OPS_GetString();
	if(strcmp(type, "-const") == 0) {
	    isSpConst = true;
	    
	} else if (strcmp(type,"-subtractInit") == 0) {
	  // allow user to ignore init disp values at the node
	  retZeroInitValue = true;