| 2301 | |
| 2302 | |
| 2303 | int |
| 2304 | printIntegrator(ClientData clientData, Tcl_Interp *interp, int argc, |
| 2305 | TCL_Char **argv, OPS_Stream &output) |
| 2306 | { |
| 2307 | int eleArg = 0; |
| 2308 | if (theStaticIntegrator == 0 && theTransientIntegrator == 0) |
| 2309 | return TCL_OK; |
| 2310 | |
| 2311 | IncrementalIntegrator *theIntegrator; |
| 2312 | if (theStaticIntegrator != 0) |
| 2313 | theIntegrator = theStaticIntegrator; |
| 2314 | else |
| 2315 | theIntegrator = theTransientIntegrator; |
| 2316 | |
| 2317 | // if just 'print <filename> algorithm'- no flag |
| 2318 | if (argc == 0) { |
| 2319 | theIntegrator->Print(output); |
| 2320 | return TCL_OK; |
| 2321 | } |
| 2322 | |
| 2323 | // if 'print <filename> Algorithm flag' get the flag |
| 2324 | int flag; |
| 2325 | if (Tcl_GetInt(interp, argv[eleArg], &flag) != TCL_OK) { |
| 2326 | opserr << "WARNING print algorithm failed to get integer flag: \n"; |
| 2327 | opserr << argv[eleArg] << endln; |
| 2328 | return TCL_ERROR; |
| 2329 | } |
| 2330 | theIntegrator->Print(output,flag); |
| 2331 | return TCL_OK; |
| 2332 | } |
| 2333 | |
| 2334 | |
| 2335 | int |