Function OPS_NodalLoad

SRC/interpreter/OpenSeesPatternCommands.cpp:140–210

}

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

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

    // get node tag
    int ndtag;
    int numData = 1;
    if(OPS_GetIntInput(&numData, &ndtag) < 0) {
	opserr << "WARNING invalid node tag\n";
	return -1;
    }

    // get load vector
    Vector forces(ndf);
    if(OPS_GetDoubleInput(&ndf, &forces(0)) < 0) {
	opserr << "WARNING invalid load vector\n";
	return -1;
    }

    // get options
    bool isLoadConst = false;
    bool userPattern = false;
    int loadPatternTag = 0;
    while(OPS_GetNumRemainingInputArgs() > 0) {
	const char* type = OPS_GetString();
	if(strcmp(type,"-const") == 0) {
	    isLoadConst = true;
	} else if(strcmp(type,"-pattern") == 0) {
	    int numData = 1;
	    if(OPS_GetIntInput(&numData, &loadPatternTag) < 0) {
		return -1;
	    }
	    userPattern = true;
	}
    }

    // get the current pattern tag
    LoadPattern* currPattern = theActiveLoadPattern;
    if(userPattern == false) {
	if(currPattern==0) {
	    opserr<<"WARNING: no current load pattern is set\n";
	    return -1;
	}
	loadPatternTag = currPattern->getTag();
    }

    // create the load
    static int nodeLoadTag = 0;