Function OPS_doBlock2D

SRC/interpreter/OpenSeesElementCommands.cpp:893–1290

}

int OPS_doBlock2D()
{
    int ndm = OPS_GetNDM();
    int ndf = OPS_GetNDF();
    Domain* theDomain = OPS_GetDomain();
    if (theDomain == 0) return -1;

    if (ndm < 2) {
	opserr << "WARNING block2D numX? numY? startNode? startEle? eleType? eleArgs? coords?";
	opserr << " : model dimension (ndm) must be at least 2 \n";
	return -1;
    }

    if (OPS_GetNumRemainingInputArgs() < 7) {
	opserr << "WARNING incorrect number of args :block2D numX? numY? startNode? startEle? eleType? eleArgs? coords?";
	return -1;
    }

    // numX, numY, startNodeNum, startEleNum
    int idata[4];
    int numdata = 4;
    if (OPS_GetIntInput(&numdata, idata) < 0) {
	opserr << "WARNING invalid int inputs\n";
	return -1;
    }

    // element type
    const char* type = OPS_GetString();

    // get args
    const char* subtype = "";
    double thick = 1.0;
    int matTag=-1, secTag=-1;
    int cArg = 6;
    if (strcmp(type, "quad") == 0  || (strcmp(type,"stdQuad") == 0)) {
	if (OPS_GetNumRemainingInputArgs() < 3) {
	    opserr<<"WARNING: want - thick, type, matTag\n";
	    return -1;
	}
	int numdata = 1;
	if (OPS_GetDoubleInput(&numdata, &thick) < 0) {
	    opserr << "WARNING invalid thick\n";
	    return -1;
	}
	subtype = OPS_GetString();
	if (OPS_GetIntInput(&numdata, &matTag) < 0) {
	    opserr << "WARNING invalid matTag\n";
	    return -1;
	}
	cArg = 9;

    } else if (strcmp(type, "ShellMITC4") == 0 || strcmp(type, "shellMITC4") == 0 ||
	       strcmp(type, "shell") == 0 || strcmp(type, "Shell") == 0) {
	if (OPS_GetNumRemainingInputArgs() < 1) {
	    opserr<<"WARNING: want - secTag\n";
	    return -1;
	}
	int numdata = 1;