| 38 | |
| 39 | |
| 40 | real RPowerI(real base, int exponent) |
| 41 | { |
| 42 | int i, expt; |
| 43 | real prod; |
| 44 | |
| 45 | prod = ONE; |
| 46 | expt = ABS(exponent); |
| 47 | for(i=1; i <= expt; i++) prod *= base; |
| 48 | if (exponent < 0) prod = ONE/prod; |
| 49 | return(prod); |
| 50 | } |
| 51 | |
| 52 | |
| 53 | real RPowerR(real base, real exponent) |
no outgoing calls
no test coverage detected