Function OPS_sdfResponse

SRC/analysis/analysis/SDFAnalysis.cpp:26–271

#include <elementAPI.h>

int OPS_sdfResponse()
{
  int numData = 1;
  double uresidual = 0.0;
  double umaxprev = 0.0;
  
  int numOptionalArgs = 0;
  int numArgs = OPS_GetNumRemainingInputArgs();
  double t_end = 0.0; bool t_end_specified = false;
  while (OPS_GetNumRemainingInputArgs() > 0) {
    std::string type = OPS_GetString();
    if (type == "-tend") {
      numOptionalArgs++;
      if (OPS_GetNumRemainingInputArgs() > 0) {
	numData = 1;
	if (OPS_GetDoubleInput(&numData, &t_end) < 0) {
	  opserr << "ERROR sdfResponse - failed to read tend" << endln;
	  return 0;
	}
	numOptionalArgs++;
	t_end_specified = true;
      }      
    }
    if (type == "-uresid" || type == "-uresidual") {
      numOptionalArgs++;
      if (OPS_GetNumRemainingInputArgs() > 0) {
	numData = 1;
	if (OPS_GetDoubleInput(&numData, &uresidual) < 0) {
	  opserr << "ERROR sdfResponse - failed to read uresidual" << endln;
	  return 0;
	}
	numOptionalArgs++;
      }
    }
    if (type == "-umaxprev") {
      numOptionalArgs++;
      if (OPS_GetNumRemainingInputArgs() > 0) {
	numData = 1;
	if (OPS_GetDoubleInput(&numData, &umaxprev) < 0) {
	  opserr << "ERROR sdfResponse - failed to read umaxprev" << endln;
	  return 0;
	}
	numOptionalArgs++;
      }
    }
  }

  if (numArgs > 0) {
    OPS_ResetCurrentInputArg(-numArgs);
  }
  numArgs = numArgs - numOptionalArgs;
    
    if (numArgs < 7 || numArgs > 8) {
	opserr << "Incorrect number of arguments to sdfResponse --";
	opserr << "m, zeta, k, Fy, alpha, dtF, filename, dt, <-uresidual, uresid, -umaxprev, umaxp, -tend, tend>" << endln;
	opserr << "m, zeta, k, Fy, alpha, tsTag, dt, <-uresidual, uresid, -umaxprev, umaxp, -tend, tend>" << endln;	
	return -1;
    }