Function OPS_NonlinearBeamColumn

SRC/interpreter/OpenSeesElementCommands.cpp:1465–1579

For backward compatibility

// For backward compatibility
void* OPS_NonlinearBeamColumn()
{
    int ndm = OPS_GetNDM();

    if(OPS_GetNumRemainingInputArgs() < 5) {
	opserr<<"insufficient arguments:eleTag,iNode,jNode,numIntgrPts,secTag,transfTag,<-mass, massDens> <-iter,maxIters,tol> <-integration intType>\n";
	return 0;
    }

    int ndf = OPS_GetNDF();
    if (!(ndm == 2 && ndf == 3) && !(ndm == 3 && ndf == 6)) {
	opserr<<"(ndm,ndf) must be (2,3) or (3,6)\n";
	return 0;
    }

    // inputs: 
    int iData[6];
    int numData = 6;
    if(OPS_GetIntInput(&numData,&iData[0]) < 0) {
	opserr << "WARNING invalid int inputs\n";
	return 0;
    }

    // options
    double mass = 0.0, tol=1e-12;
    int maxIter = 10;
    const char* integrationType = "Lobatto";
    numData = 1;
    while(OPS_GetNumRemainingInputArgs() > 0) {
	const char* type = OPS_GetString();
	if(strcmp(type,"-iter") == 0) {
	    if(OPS_GetNumRemainingInputArgs() > 1) {
		if(OPS_GetIntInput(&numData,&maxIter) < 0) {
		    opserr << "WARNING invalid maxIter\n";
		    return 0;
		}
		if(OPS_GetDoubleInput(&numData,&tol) < 0) {
		    opserr << "WARNING invalid tol\n";
		    return 0;
		}
	    }
	} else if(strcmp(type,"-mass") == 0) {
	    if(OPS_GetNumRemainingInputArgs() > 0) {
		if(OPS_GetDoubleInput(&numData,&mass) < 0) {
		    opserr << "WARNING invalid mass\n";
		    return 0;
		}
	    }
	} else if (strcmp(type,"-integration") == 0) {
	    if(OPS_GetNumRemainingInputArgs() > 0) {
		integrationType = OPS_GetString();
	    }
	}
    }

    // check transf
    CrdTransf* theTransf = OPS_getCrdTransf(iData[5]);
    if(theTransf == 0) {