| 238 | |
| 239 | |
| 240 | int HHTHSFixedNumIter_TP::formUnbalance() |
| 241 | { |
| 242 | // get a pointer to the LinearSOE and the AnalysisModel |
| 243 | LinearSOE *theLinSOE = this->getLinearSOE(); |
| 244 | AnalysisModel *theModel = this->getAnalysisModel(); |
| 245 | if (theLinSOE == 0 || theModel == 0) { |
| 246 | opserr << "WARNING HHTHSFixedNumIter_TP::formUnbalance() - "; |
| 247 | opserr << "no LinearSOE or AnalysisModel has been set\n"; |
| 248 | return -1; |
| 249 | } |
| 250 | |
| 251 | theLinSOE->setB(*Put); |
| 252 | |
| 253 | // do modal damping |
| 254 | const Vector *modalValues = theModel->getModalDampingFactors(); |
| 255 | if (modalValues != 0) { |
| 256 | this->addModalDampingForce(modalValues); |
| 257 | } |
| 258 | |
| 259 | if (this->formElementResidual() < 0) { |
| 260 | opserr << "WARNING HHTHSFixedNumIter_TP::formUnbalance() "; |
| 261 | opserr << " - this->formElementResidual failed\n"; |
| 262 | return -2; |
| 263 | } |
| 264 | |
| 265 | if (this->formNodalUnbalance() < 0) { |
| 266 | opserr << "WARNING HHTHSFixedNumIter_TP::formUnbalance() "; |
| 267 | opserr << " - this->formNodalUnbalance failed\n"; |
| 268 | return -3; |
| 269 | } |
| 270 | |
| 271 | return 0; |
| 272 | } |
| 273 | |
| 274 | |
| 275 | int HHTHSFixedNumIter_TP::formEleTangent(FE_Element *theEle) |
nothing calls this directly
no test coverage detected