Function getEleLoadData

SRC/tcl/commands.cpp:9161–9225

}

int
getEleLoadData(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{

  if (argc == 1) {
	LoadPattern *thePattern;
	LoadPatternIter &thePatterns = theDomain.getLoadPatterns();

	char buffer[40];
	int typeEL;

	while ((thePattern = thePatterns()) != 0) {
	  ElementalLoadIter &theEleLoads = thePattern->getElementalLoads();
	  ElementalLoad *theLoad;

	  while ((theLoad = theEleLoads()) != 0) {
		const Vector &eleLoadData = theLoad->getData(typeEL, 1.0);

		int eleLoadDataSize = eleLoadData.Size();
		opserr << "eleLoadDataSize: "<< eleLoadDataSize << "\n";
		for (int i = 0; i < eleLoadDataSize; i++) {
		  sprintf(buffer, "%35.20f ", eleLoadData(i));
		  Tcl_AppendResult(interp, buffer, NULL);
		}
	  }
	}

  } else if (argc == 2) {
	int patternTag;

	if (Tcl_GetInt(interp, argv[1], &patternTag) != TCL_OK) {
	  opserr << "WARNING getEleLoadData -- could not read patternTag \n";
	  return TCL_ERROR;
	}

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

	ElementalLoadIter theEleLoads = thePattern->getElementalLoads();
	ElementalLoad* theLoad;

	int typeEL;
	char buffer[40];

	while ((theLoad = theEleLoads()) != 0) {
		const Vector &eleLoadData = theLoad->getData(typeEL, 1.0);

		int eleLoadDataSize = eleLoadData.Size();
		for (int i = 0; i < eleLoadDataSize; i++) {
		  sprintf(buffer, "%35.20f ", eleLoadData(i));
		  Tcl_AppendResult(interp, buffer, NULL);
		}

	}