Function OPS_eleResponse

SRC/interpreter/OpenSeesOutputCommands.cpp:468–531

}

int OPS_eleResponse()
{
    Domain* theDomain = OPS_GetDomain();
    if (theDomain == 0) return -1;

    int numdata = OPS_GetNumRemainingInputArgs();
    if (numdata < 2) {
	opserr << "WARNING want - eleResponse eleTag? eleArgs...\n";
	return -1;
    }

    int tag;
    numdata = 1;
    if (OPS_GetIntInput(&numdata, &tag) < 0) {
	opserr << "could not read eleTag\n";
	return -1;
    }

    numdata = OPS_GetNumRemainingInputArgs();
    if (numdata > 0) {
	const char** argv = new const char*[numdata];
	for (int i=0; i<numdata; i++) {
	  argv[i] = new char[128];
	  // Turn everything in to a string for setResponse
	  OPS_GetStringFromAll((char*)argv[i], 128);
	}
	const Vector* data = theDomain->getElementResponse(tag, argv, numdata);

	for (int i=0; i<numdata; i++)
	  delete [] argv[i];
	delete [] argv;

	if (data != 0) {
	    int size = data->Size();
	    double* newdata = new double[size];
	    for (int i=0; i<size; i++) {
		newdata[i] = (*data)(i);
	    }
	    if (OPS_SetDoubleOutput(&size, newdata, false) < 0) {
		opserr << "WARNING failed to et response\n";
		delete [] newdata;
		return -1;
	    }
	    delete [] newdata;

	} else {
        int size = 0;
        double* newdata = 0;
        if (OPS_SetDoubleOutput(&size, newdata, false) < 0) {
            opserr << "WARNING failed to et response\n";
            return -1;
        }
	}
    } else {
        int size = 0;
        double* newdata = 0;
        if (OPS_SetDoubleOutput(&size, newdata, false) < 0) {
            opserr << "WARNING failed to et response\n";