Function TclCommand_addDamping

SRC/damping/TclDampingCommand.cpp:46–357

to create a coordinate transformation

// to create a coordinate transformation 
//
int
TclCommand_addDamping(ClientData clientData, Tcl_Interp *interp,
			 int argc, TCL_Char **argv,
			 Domain *theDomain,
			 TclModelBuilder *theBuilder)
  
{
  // Make sure there is a minimum number of arguments
  if (argc < 2) {
    opserr << "WARNING insufficient number of damping arguments\n";
    opserr << "Want: damping type? tag? <specific transf args>" << endln;
    return TCL_ERROR;
  }   
  
  theTclModelBuilderDomain = theDomain;
  theTclModelBuilder = theBuilder;
  
    int dampingTag;

    if (argc < 3) {
      opserr << "WARNING insufficient arguments - want: damping type? tag? <specific damping args>\n"; 
      return TCL_ERROR;
    }
	    
    if (Tcl_GetInt(interp, argv[2], &dampingTag) != TCL_OK) {	
      opserr << "WARNING invalid tag - want: damping type? tag? <specific damping args>\n";
      return  TCL_ERROR;
    }

    // construct the transformation object
    
    Damping *Damping = 0;
    
    if (strcmp(argv[1],"Uniform") == 0)
    {
      double zeta, freq1, freq2;
      double ta = 0.0, td = 1e20;
      TimeSeries *facSeries = 0;
      if (Tcl_GetDouble(interp, argv[3], &zeta) != TCL_OK)
      {	
        opserr << "WARNING invalid damping ratio - want: damping Uniform tag zeta freq1 freq2\n";
        return  TCL_ERROR;
      }
      if (Tcl_GetDouble(interp, argv[4], &freq1) != TCL_OK)
      {	
        opserr << "WARNING invalid frequency range - want: damping Uniform tag zeta freq1 freq2\n";
        return  TCL_ERROR;
      }
      if (Tcl_GetDouble(interp, argv[5], &freq2) != TCL_OK)
      {	
        opserr << "WARNING invalid frequency range - want: damping Uniform tag zeta freq1 freq2\n";
        return  TCL_ERROR;
      }
      int count = 6;
      while (argc > count)
      {
        if ((strcmp(argv[count],"-activateTime") == 0) || (strcmp(argv[count],"-ActivateTime") == 0))
        {