Function OPS_Node

SRC/domain/node/Node.cpp:66–221

int Node::numMatrices = 0;

int OPS_Node()
{
    Domain* theDomain = OPS_GetDomain();
    int ndm = OPS_GetNDM();
    int ndf = OPS_GetNDF();
    
    if(theDomain == 0) {
	opserr<<"WARNING: domain is not defined\n";
	return -1;
    }
    if(ndm<=0 || ndf<=0) {
	opserr<<"WARNING: system ndm and ndf are zero\n";
	return -1;
    }

    if(OPS_GetNumRemainingInputArgs() < 1+ndm) {
	opserr<<"insufficient number of arguments\n";
	return -1;
    }

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

    // get crds
    Vector crds(ndm);
    if(OPS_GetDoubleInput(&ndm, &crds(0)) < 0) {
	opserr<<"WARNING noda coord are not double\n";
	return -1;
    }

    // check options
    Vector disp,vel,mass,dispLoc;
    Matrix ndmass;
    double T = 0.0;
    while(OPS_GetNumRemainingInputArgs() > 0) {
	const char* type = OPS_GetString();
	
	if(strcmp(type,"-disp")==0 || strcmp(type,"-Disp")==0) {
	    if(OPS_GetNumRemainingInputArgs() < ndf) {
		opserr<<"incorrect number of nodal disp terms\n";
		return -1;
	    }
	    disp.resize(ndf);
	    if(OPS_GetDoubleInput(&ndf, &disp(0)) < 0) {
		opserr << "WARNING: failed to read disp\n";
		return -1;
	    }

	} else if(strcmp(type,"-vel")==0 || strcmp(type,"-Vel")==0) {
	    if(OPS_GetNumRemainingInputArgs() < ndf) {
		opserr<<"incorrect number of nodal vel terms\n";
		return -1;
	    }