Function OPS_HomogeneousBC_Y

DEVELOPER/core/SP_Constraint.cpp:145–193

}

int OPS_HomogeneousBC_Y()
{
    Domain* theDomain = OPS_GetDomain();
    if(theDomain == 0) {
	opserr<<"WARNING: domain is not defined\n";
	return -1;
    }
    if(OPS_GetNumRemainingInputArgs() < 1) {
	opserr<<"insufficient number of args\n";
	return -1;
    }

    // get the yCrd of nodes to be constrained
    double yLoc;
    int numdata = 1;
    if (OPS_GetDoubleInput(&numdata, &yLoc) < 0) {
	opserr << "WARNING invalid yLoc\n";
	return -1;
    }

    // read in the fixities
    ID fixity(0,3);
    while (OPS_GetNumRemainingInputArgs() > 0) {
	int fix;
	if (OPS_GetIntInput(&numdata, &fix) < 0) {
	    // back one arg
	    OPS_ResetCurrentInputArg(-1);
	    break;
	}
	fixity[fixity.Size()] = fix;
    }

    // set the tolerance, the allowable difference in nodal coordinate and
    // what the value user specified to see if node is constrained or not
    double tol = 1e-10;
    if (OPS_GetNumRemainingInputArgs() > 1) {
	const char* arg = OPS_GetString();
	if (strcmp(arg, "-tol") == 0) {
	    if (OPS_GetDoubleInput(&numdata, &tol) < 0) {
		opserr << "WARNING invalid tol\n";
		return -1;
	    }
	}
    }

    theDomain->addSP_Constraint(1, yLoc, fixity, tol);

    return 0;
}

int OPS_HomogeneousBC_Z()
{