PK input from tcl for this version (2.1)
| 107 | |
| 108 | //PK input from tcl for this version (2.1) |
| 109 | void |
| 110 | FireLoadPattern::setFireTimeSeries(TimeSeries *theTimeSeries1, TimeSeries *theTimeSeries2, |
| 111 | TimeSeries *theTimeSeries3, TimeSeries *theTimeSeries4, |
| 112 | TimeSeries *theTimeSeries5, TimeSeries *theTimeSeries6, |
| 113 | TimeSeries *theTimeSeries7, TimeSeries *theTimeSeries8, |
| 114 | TimeSeries *theTimeSeries9) |
| 115 | { |
| 116 | // invoke the destructor on the old TimeSeries |
| 117 | if (theSeries1 != 0) |
| 118 | delete theSeries1; |
| 119 | if (theSeries2 != 0) |
| 120 | delete theSeries2; |
| 121 | if (theSeries3 != 0) |
| 122 | delete theSeries3; |
| 123 | if (theSeries4 != 0) |
| 124 | delete theSeries4; |
| 125 | if (theSeries5 != 0) |
| 126 | delete theSeries5; |
| 127 | if (theSeries6 != 0) |
| 128 | delete theSeries6; |
| 129 | if (theSeries7 != 0) |
| 130 | delete theSeries7; |
| 131 | if (theSeries8 != 0) |
| 132 | delete theSeries8; |
| 133 | if (theSeries9 != 0) |
| 134 | delete theSeries9; |
| 135 | |
| 136 | // set the pointer to the new series objects |
| 137 | theSeries1 = theTimeSeries1; |
| 138 | theSeries2 = theTimeSeries2; |
| 139 | theSeries3 = theTimeSeries3; |
| 140 | theSeries4 = theTimeSeries4; |
| 141 | theSeries5 = theTimeSeries5; |
| 142 | theSeries6 = theTimeSeries6; |
| 143 | theSeries7 = theTimeSeries7; |
| 144 | theSeries8 = theTimeSeries8; |
| 145 | theSeries9 = theTimeSeries9; |
| 146 | //opserr << "FireLoadPattern set firetimeseries called\n"; |
| 147 | } |
| 148 | |
| 149 | void |
| 150 | FireLoadPattern::applyLoad(double time) |