(elen, e)
| 1391 | /*****************************************************************************/ |
| 1392 | |
| 1393 | REAL estimate(elen, e) |
| 1394 | int elen; |
| 1395 | REAL *e; |
| 1396 | { |
| 1397 | REAL Q; |
| 1398 | int eindex; |
| 1399 | |
| 1400 | Q = e[0]; |
| 1401 | for (eindex = 1; eindex < elen; eindex++) { |
| 1402 | Q += e[eindex]; |
| 1403 | } |
| 1404 | return Q; |
| 1405 | } |
| 1406 | |
| 1407 | /*****************************************************************************/ |
| 1408 | /* */ |
no outgoing calls
no test coverage detected