Function getLoadFactor

SRC/tcl/commands.cpp:1716–1745

}

int 
getLoadFactor(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  if (argc < 2) {
    opserr << "WARNING no load pattern supplied -- getLoadFactor\n";
    return TCL_ERROR;
  }

  int pattern;
  if (Tcl_GetInt(interp, argv[1], &pattern) != TCL_OK) {
    opserr << "ERROR reading load pattern tag -- getLoadFactor\n";
    return TCL_ERROR;
  }

  LoadPattern *thePattern = theDomain.getLoadPattern(pattern);
  if (thePattern == 0) {
    opserr << "ERROR load pattern with tag " << pattern << " not found in domain -- getLoadFactor\n";
    return TCL_ERROR;
  }

  double factor = thePattern->getLoadFactor();

  //  sprintf(interp->result,"%f",factor);

  char buffer [40];
  sprintf(buffer,"%35.20f", factor);
  Tcl_SetResult(interp, buffer, TCL_VOLATILE);

  return TCL_OK;
}

////////////////////////////////////////////////Abbas//////////////////////////////