| 61 | #include<TaggedObjectStorage.h> |
| 62 | #include<EquiSolnAlgo.h> |
| 63 | void* OPS_ArcLength() |
| 64 | { |
| 65 | double arcLength; |
| 66 | if (OPS_GetNumRemainingInputArgs() < 2) { |
| 67 | opserr << "WARNING integrator ArcLength arcLength alpha \n"; |
| 68 | return 0; |
| 69 | } |
| 70 | |
| 71 | int numdata = 1; |
| 72 | if (OPS_GetDoubleInput(&numdata, &arcLength) < 0) { |
| 73 | opserr << "WARNING integrator ArcLength failed to read arc length\n"; |
| 74 | return 0; |
| 75 | } |
| 76 | if (OPS_GetNumRemainingInputArgs() > 0) { |
| 77 | double alpha; |
| 78 | if (OPS_GetDoubleInput(&numdata, &alpha) < 0) { |
| 79 | opserr << "WARNING integrator ArcLength failed to read alpha\n"; |
| 80 | return 0; |
| 81 | } |
| 82 | return new ArcLength(arcLength,alpha); |
| 83 | } else { |
| 84 | return new ArcLength(arcLength); |
| 85 | } |
| 86 | } |
| 87 | |
| 88 | ArcLength::ArcLength(double arcLength, double alpha) |
| 89 | :StaticIntegrator(INTEGRATOR_TAGS_ArcLength), |
no test coverage detected