File: intervalcancer.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 (21 lines) | stat: -rw-r--r-- 569 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#define XERR
#include "loop.ih"

    // a self-detected tumor before screeningAge or natural death: 
    // an interval cancer.
    // the tumor characteristics (at self-detection age) have already been
    // determined in loop/leaving.cc.

    // by leaving.cc

bool Loop::intervalCancer() // (double screeningAge)
{
    d_tumor.intervalCancer();               // sets d_interval true
    ++d_nIntervals[d_round];

    if (d_screening.attend(d_round))
        ++d_nTrueIntervals[d_round];

    return left(SELF_DURING, min(d_naturalDeathAge, d_tumor.deathAge()));
}