Function OPS_doBlock3D

SRC/interpreter/OpenSeesElementCommands.cpp:1292–1462

}

int OPS_doBlock3D()
{
    int ndm = OPS_GetNDM();
    if (ndm < 3) {
	opserr << "WARNING block3D numX? numY? numZ? startNode? startEle? eleType? eleArgs?";
	opserr << " : model dimension (ndm) must be at least 3 \n";
	return -1;
    }

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

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

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

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

    // get mattag
    int matTag=-1;
    numdata = 1;
    if (OPS_GetIntInput(&numdata, &matTag) < 0) {
	opserr << "WARNING invalid matTag\n";
	return -1;
    }

    // get coords
    Matrix Coordinates(27,3);
    ID haveNode(27);
    Coordinates.Zero();
    for (int k=0; k<27; k++) {
	haveNode(k) = -1;
    }

    int numnodes = OPS_GetNumRemainingInputArgs() / (ndm+1);
    if (numnodes < 8) {
	opserr<<"WARNING eight points (1-8) are required\n";
	return -1;
    }

    if (numnodes > 27) numnodes = 27;

    for (int i=0; i<numnodes; i++) {
	int tag;
	int numdata = 1;
	if (OPS_GetIntInput(&numdata, &tag) < 0) {
	    opserr<<"WARNING failed to get node tag\n";