Function OPS_groundMotion

SRC/interpreter/OpenSeesPatternCommands.cpp:1195–1397

}

int OPS_groundMotion()
{
    GroundMotion *theMotion = 0;
    int gMotionTag;

    MultiSupportPattern *thePattern = theActiveMultiSupportPattern;
    if (thePattern == 0) {
	opserr << "WARNING no active multi support pattern - groundMotion\n";
	return -1;
    }

    // make sure at least one other argument to contain integrator
    if (OPS_GetNumRemainingInputArgs() < 2) {
	opserr << "WARNING invalid command - want: groundMotion tag type <args>\n";
	opserr << "           valid types: AccelRecord and Interpolated \n";
	return -1;
    }

    int numdata = 1;
    if (OPS_GetIntInput(&numdata, &gMotionTag) < 0) {
	opserr << "WARNING invalid tag: groundMotion tag  type <args>\n";
	return -1;
    }

    const char* type = OPS_GetString();
    if ((strcmp(type,"Series") == 0) ||
	(strcmp(type,"Plain") == 0)) {

	TimeSeries *accelSeries = 0;
	TimeSeries *velSeries = 0;
	TimeSeries *dispSeries = 0;
	TimeSeriesIntegrator *seriesIntegrator = 0;

	double dtInt = 0.01;
	double fact = 1.0;
	while (OPS_GetNumRemainingInputArgs() > 1) {
	    const char* flag = OPS_GetString();
	    if ((strcmp(flag,"-accel") == 0) ||
		(strcmp(flag,"-acceleration") == 0)) {

		int tsTag;
		if (OPS_GetIntInput(&numdata, &tsTag) < 0) {
		    opserr << "WARNING failed to get accel time series tag\n";
		    return -1;
		}

		accelSeries = OPS_getTimeSeries(tsTag);

		if (accelSeries == 0) {
		    opserr << "WARNING invalid accel series: " << tsTag;
		    opserr << " groundMotion tag Series -accel {series}\n";
		    return -1;
		}


	    } else if ((strcmp(flag,"-vel") == 0) ||
		       (strcmp(flag,"-velocity") == 0)) {