File: naturaldeathage.cc

package info (click to toggle)
simrisc 16.06.00-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,568 kB
  • sloc: cpp: 6,889; fortran: 669; makefile: 112; ansic: 112; sh: 107
file content (19 lines) | stat: -rw-r--r-- 544 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
//#define XERR
#include "loop.ih"

double Loop::naturalDeathAge()
{
    double rnd;
    double ret = findAge(                       // Globals::
                        d_scenario.cumDeathProp(),
                        rnd = Random::instance().uniformCase()
                    );

    double age =  ret < MAX_AGE ? ret : MAX_AGE;

    g_log << "  Loop::naturalDeathAge: locate " << rnd <<
                                                    " in cum.death probs\n" <<
             "    natural death age: " << age << '\n';

    return age;
}