Function getNodeLoadData

SRC/tcl/commands.cpp:9279–9343

}

int
getNodeLoadData(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) {
	  NodalLoadIter &theNodeLoads = thePattern->getNodalLoads();
	  NodalLoad *theNodLoad;

	  while ((theNodLoad = theNodeLoads()) != 0) {
		const Vector &eleLoadData = theNodLoad->getData(typeEL);

		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 getNodeLoadData -- 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 -- getNodeLoadData\n";
	  return TCL_ERROR;
	}

	NodalLoadIter theNodeLoads = thePattern->getNodalLoads();
	NodalLoad* theNodLoad;

	int typeEL;
	char buffer[40];

	while ((theNodLoad = theNodeLoads()) != 0) {
		const Vector &eleLoadData = theNodLoad->getData(typeEL);

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

	}