function [FC_IF_datapoint] = ClvR_2lAA_FCvIF_support(sinput,Ca,M,mut,i1,i2)

% Function that supports ClvR_2lAA_FCvIF script by handling the
% calculations for a single run under a single set of parameters

% Tobin Ivy (tivy@caltech.edu)
% Last Edit: 08/14/2018



%% Set parameters:

% Fitness Costs:
% s(genotype)- fitness cost for a given genotype

sG01M = sinput(1);
sG02M = sinput(2);
sG03M = sinput(3);
sG04M = sinput(4);
sG05M = sinput(5);
sG06M = sinput(6);
sG07M = sinput(7);
sG08M = sinput(8);
sG09M = sinput(9);
sG10M = sinput(10);
sG11M = sinput(11);
sG12M = sinput(12);
sG13M = sinput(13);
sG14M = sinput(14);
sG15M = sinput(15);
sG17M = sinput(16);
sG01F = sinput(17);
sG02F = sinput(18);
sG03F = sinput(19);
sG04F = sinput(20);
sG05F = sinput(21);
sG06F = sinput(22);
sG07F = sinput(23);
sG08F = sinput(24);
sG09F = sinput(25);
sG10F = sinput(26);
sG11F = sinput(27);
sG12F = sinput(28);
sG13F = sinput(29);
sG14F = sinput(30);
sG15F = sinput(31);
sG17F = sinput(32);

% Cas9 mediated events (a for activity in adults):
% CLE- % chance of a single copy of T cleaving X into C
% UNC- % chance of a single copy of T not cleaving X into C
% TCE- % chance of two copies of T cleaving X into C
% TUC- % chance of two copies of T not cleaving X into C
% HR- % chance of homology directed repair
% UR- % chance that no HDR occurs
% CEU- % chance that a single copy of T cleaves one X into C and X is not
% repaired by HDR using the other intact X as a template
% UCH- % chance that a single copy of T cleaves one X into C and X is 
% repaired by HDR using the other intact X as a template
% TCU- % chance that two copies of T cleave one X into C and X is not
% repaired by HDR using the other intact X as a template
% TUH- % chance that two copies of T cleave one X into C and X is 
% repaired by HDR using the other intact X as a template
% none- no Cas9-mediated event occurs, dummy variable to balance equations
% MC- % chance of maternal carryover of Cas9 and gRNAs from a single copy
% TMC- % chance of maternal carryover of Cas9 and gRNAs from two copies


CLEa = Ca;
UNCa = 1-CLEa;
TCEa = (1-(1-CLEa)^2);
TUCa = (1-CLEa)^2;
HRa = 0;
URa = 1-HRa;
CEUa = CLEa  *  URa;
UCHa = 1-CEUa;
TCUa = (1-(1-CEUa)^2);
TUHa = (1-CEUa)^2;
none = 1;
MC = M;
TMC = MC;


% Mutation:
% mutCas9- % chance of Cas9 mutating into inactivity
mutCas9 = mut;

% Releases, run time, and matrix:
% IF- introduction frequency of desired genotype, as fraction of new total
% population
% IF2- introduction frequency of TNCY heterozygotes as a fraction of IF
% (logic is fraction of factory organisms that have a mutated drive)
% Ifa- adjusted IF to take into account IF2
% numGensRelease- number of sequential generational releases
% numGens- number of simulated generations
% gencheck- number of generations checked to verify successful drive
% numGensFull- adjusted simulated generations (for runs where drive occurs
% between numGens-gencheck and numGens with gencheck generations to verify
% successful drive
% FC_IF_datapoint- datapoint for storing the number of generations it took
% for the T to be present in >99% of individuals across all tested fitness
% costs and introduction frequencies
IF = i1;
IF2 = i2;
IFa = IF-IF2;
numGensRelease = 1;
numGens = 100;
gencheck = 40 + numGensRelease;
numGensFull = numGens + gencheck;
FC_IF_datapoint = 10000;

% Dummy variables for fractions so equations are balanced:
Dx1 = 1;
Dx2 = 2;
Dc1 = 1;
Dc2 = (1/2);
Dc4 = (1/4);
Dc8 = (1/8);
D02 = (1/2);
D04 = (1/4);
D08 = (1/8);
D16 = (1/16);



% Reset parameters for new run:
% Sigma- normalizing factor
% ptransbearing- dummy variable for checking if transgene bearing
% individuals make up >99% of the population
% savegen- dummy variable for tracking individual data points in FC_IF
% through a single run
% gencounter- dummy variable for verifying that drive is maintained for
% "gencheck" generations
sigma = zeros(1,numGens);
pcargobearing = zeros(1,numGens);
savegen = 10000;
gencounter = 0;


% Initial genotype proportions (first geneneration):
pG01M = [IFa zeros(1,numGens)];
pG02M = [0 zeros(1,numGens)];
pG03M = [0 zeros(1,numGens)];
pG04M = [IF2 zeros(1,numGens)];
pG05M = [0 zeros(1,numGens)];
pG06M = [0 zeros(1,numGens)];
pG07M = [0 zeros(1,numGens)];
pG08M = [0 zeros(1,numGens)];
pG09M = [0 zeros(1,numGens)];
pG10M = [0 zeros(1,numGens)];
pG11M = [0 zeros(1,numGens)];
pG12M = [0 zeros(1,numGens)];
pG13M = [0 zeros(1,numGens)];
pG14M = [0 zeros(1,numGens)];
pG15M = [0 zeros(1,numGens)];
pG17M = [0 zeros(1,numGens)];
pG18M = [(1-IF)/2 zeros(1,numGens)];
pG01F = [0 zeros(1,numGens)];
pG02F = [0 zeros(1,numGens)];
pG03F = [0 zeros(1,numGens)];
pG04F = [0 zeros(1,numGens)];
pG05F = [0 zeros(1,numGens)];
pG06F = [0 zeros(1,numGens)];
pG07F = [0 zeros(1,numGens)];
pG08F = [0 zeros(1,numGens)];
pG09F = [0 zeros(1,numGens)];
pG10F = [0 zeros(1,numGens)];
pG11F = [0 zeros(1,numGens)];
pG12F = [0 zeros(1,numGens)];
pG13F = [0 zeros(1,numGens)];
pG14F = [0 zeros(1,numGens)];
pG15F = [0 zeros(1,numGens)];
pG17F = [0 zeros(1,numGens)];
pG18F = [(1-IF)/2 zeros(1,numGens)];

% Temporary (un-normalized) genotypes
pG01Mtemp = zeros(1,numGens);
pG02Mtemp = zeros(1,numGens);
pG03Mtemp = zeros(1,numGens);
pG04Mtemp = zeros(1,numGens);
pG05Mtemp = zeros(1,numGens);
pG06Mtemp = zeros(1,numGens);
pG07Mtemp = zeros(1,numGens);
pG08Mtemp = zeros(1,numGens);
pG09Mtemp = zeros(1,numGens);
pG10Mtemp = zeros(1,numGens);
pG11Mtemp = zeros(1,numGens);
pG12Mtemp = zeros(1,numGens);
pG13Mtemp = zeros(1,numGens);
pG14Mtemp = zeros(1,numGens);
pG15Mtemp = zeros(1,numGens);
pG17Mtemp = zeros(1,numGens);
pG18Mtemp = zeros(1,numGens);
pG01Ftemp = zeros(1,numGens);
pG02Ftemp = zeros(1,numGens);
pG03Ftemp = zeros(1,numGens);
pG04Ftemp = zeros(1,numGens);
pG05Ftemp = zeros(1,numGens);
pG06Ftemp = zeros(1,numGens);
pG07Ftemp = zeros(1,numGens);
pG08Ftemp = zeros(1,numGens);
pG09Ftemp = zeros(1,numGens);
pG10Ftemp = zeros(1,numGens);
pG11Ftemp = zeros(1,numGens);
pG12Ftemp = zeros(1,numGens);
pG13Ftemp = zeros(1,numGens);
pG14Ftemp = zeros(1,numGens);
pG15Ftemp = zeros(1,numGens);
pG17Ftemp = zeros(1,numGens);
pG18Ftemp = zeros(1,numGens);


% Secondary temporary genotypes(ie mutated but unnormalized):
pG01Mtemp2 = zeros(1,numGens);
pG02Mtemp2 = zeros(1,numGens);
pG03Mtemp2 = zeros(1,numGens);
pG04Mtemp2 = zeros(1,numGens);
pG05Mtemp2 = zeros(1,numGens);
pG06Mtemp2 = zeros(1,numGens);
pG07Mtemp2 = zeros(1,numGens);
pG08Mtemp2 = zeros(1,numGens);
pG09Mtemp2 = zeros(1,numGens);
pG10Mtemp2 = zeros(1,numGens);
pG11Mtemp2 = zeros(1,numGens);
pG12Mtemp2 = zeros(1,numGens);
pG13Mtemp2 = zeros(1,numGens);
pG14Mtemp2 = zeros(1,numGens);
pG15Mtemp2 = zeros(1,numGens);
pG17Mtemp2 = zeros(1,numGens);
pG18Mtemp2 = zeros(1,numGens);
pG01Ftemp2 = zeros(1,numGens);
pG02Ftemp2 = zeros(1,numGens);
pG03Ftemp2 = zeros(1,numGens);
pG04Ftemp2 = zeros(1,numGens);
pG05Ftemp2 = zeros(1,numGens);
pG06Ftemp2 = zeros(1,numGens);
pG07Ftemp2 = zeros(1,numGens);
pG08Ftemp2 = zeros(1,numGens);
pG09Ftemp2 = zeros(1,numGens);
pG10Ftemp2 = zeros(1,numGens);
pG11Ftemp2 = zeros(1,numGens);
pG12Ftemp2 = zeros(1,numGens);
pG13Ftemp2 = zeros(1,numGens);
pG14Ftemp2 = zeros(1,numGens);
pG15Ftemp2 = zeros(1,numGens);
pG17Ftemp2 = zeros(1,numGens);
pG18Ftemp2 = zeros(1,numGens);


% Difference equations (second generation onwards):
for gen = 1:numGensFull

    % Un-normalized genotype frequencies:
    pG01Mtemp(gen) = 0.5  *  (0 ...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG02M(gen)... 
        + D02  *  TCEa  *  none  *  pG01F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG01F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG05M(gen)... 
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  TCEa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  TCEa  *  pG02F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG02F(gen)  *  pG09M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG01M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  TCEa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  TCUa  *  pG03F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  TCEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG09M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  TCEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG08F(gen)  *  pG09M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG09M(gen)...
        );

    pG01Mtemp(gen) = pG01Mtemp(gen) + 0.5  *  ((0 ...
        + D02  *  TUCa  *  none  *  pG01F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG01F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + Dc2  *  TCEa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG02F(gen)  *  pG03M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG01M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG02M(gen)...
        + Dx2  *  TCUa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (MC)...
        + (0 ...
        + D04  *  TUCa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (TMC  *  TMC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (MC  *  MC));

    pG02Mtemp(gen) = 0.5  *  ((0 ...
        + D02  *  TUCa  *  none  *  pG01F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG01F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + Dc2  *  TCEa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG02F(gen)  *  pG03M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG01M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG02M(gen)...
        + Dx2  *  TCUa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (1-TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (1-MC));

    pG02Mtemp(gen) = pG02Mtemp(gen) + 0.5  *  ((0 ...
        + D04  *  TUCa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (2  *  TMC  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG03Mtemp(gen) = 0.5  *  ((0 ...
        + D04  *  TUCa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  ((1-TMC)  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  ((1-MC)  *  (1-MC)));

    pG04Mtemp(gen) = 0.5  *  (0 ...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG10M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc4  *  CLEa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        );

    pG04Mtemp(gen) = pG04Mtemp(gen) + 0.5  *  (0 ...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG10F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG10F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        );

    pG04Mtemp(gen) = pG04Mtemp(gen) + 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG10M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  CLEa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc4  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (TMC  *  TMC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  UNCa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  UCHa  *  TUHa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC  *  MC));

    pG05Mtemp(gen) = 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG10M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (1-TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  CLEa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc4  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (1-MC));

    pG05Mtemp(gen) = pG05Mtemp(gen) + 0.5  *  (0 ...
        + D02  *  TUCa  *  none  *  pG10F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG10F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG12F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG12F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        );

    pG05Mtemp(gen) = pG05Mtemp(gen) + 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (2  *  TMC  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  UNCa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  UCHa  *  TUHa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG06Mtemp(gen) = 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  ((1-TMC)  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  UNCa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  UCHa  *  TUHa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D04  *  TUCa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG12F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG12F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        );

    pG07Mtemp(gen) = 0.5  *  (0 ...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        );

    pG07Mtemp(gen) = pG07Mtemp(gen) + 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (TMC)...
        + (0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (MC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (TMC  *  TMC)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (MC  *  MC));

    pG08Mtemp(gen) = 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (1-TMC)...
        + (0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (1-MC));

    pG08Mtemp(gen) = pG08Mtemp(gen) + 0.5  *  (0 ...
        + D04  *  TUCa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + Dx1  *  none  *  none  *  pG18F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG18F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG18F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG09M(gen)...
        );

    pG08Mtemp(gen) = pG08Mtemp(gen) + 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (2  *  TMC  *  (1-TMC))...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG09Mtemp(gen) = 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  ((1-TMC)  *  (1-TMC))...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG18F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG18F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG09M(gen));

    pG10Mtemp(gen) = 0.5  *  (0 ...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG06M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG14M(gen));

    pG10Mtemp(gen) =  pG10Mtemp(gen) + 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (MC)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (MC  *  MC));

    pG11Mtemp(gen) = 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (1-MC));

    pG11Mtemp(gen) = pG11Mtemp(gen)+ 0.5  *  (0 ...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG15M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG12Mtemp(gen) = 0.5  *  ((0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG15M(gen));

    pG13Mtemp(gen) = 0.5  *  (0 ...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        );

    pG13Mtemp(gen) =  pG13Mtemp(gen) + 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC  *  MC));

    pG14Mtemp(gen) = 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (1-MC));

    pG14Mtemp(gen) = pG14Mtemp(gen)+ 0.5  *  (0 ...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG18M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG18M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG17M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG18M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  pG18F(gen)  *  pG10M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG11M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG13M(gen)...
        + D04  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG15Mtemp(gen) = 0.5  *  ((0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG18F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG15M(gen));

    pG17Mtemp(gen) = 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (1-MC)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG18M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG18M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG17M(gen)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG18Mtemp(gen) = 0.5  *  ((0 ...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG09M(gen)...
        + D04  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG15M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  pG18F(gen)  *  pG18M(gen)...
        );

    pG01Ftemp(gen) = 0.5  *  (0 ...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG02M(gen)... 
        + D02  *  TCEa  *  none  *  pG01F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG01F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG05M(gen)... 
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  TCEa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  TCEa  *  pG02F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG02F(gen)  *  pG09M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG01M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  TCEa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  TCUa  *  pG03F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  TCEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG09M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  TCEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG08F(gen)  *  pG09M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TCEa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG09M(gen)...
        );

    pG01Ftemp(gen) = pG01Ftemp(gen) + 0.5  *  ((0 ...
        + D02  *  TUCa  *  none  *  pG01F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG01F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + Dc2  *  TCEa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG02F(gen)  *  pG03M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG01M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG02M(gen)...
        + Dx2  *  TCUa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (MC)...
        + (0 ...
        + D04  *  TUCa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (TMC  *  TMC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (MC  *  MC));

    pG02Ftemp(gen) = 0.5  *  ((0 ...
        + D02  *  TUCa  *  none  *  pG01F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG01F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG01M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG02M(gen)...
        + Dc2  *  TCEa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG02F(gen)  *  pG03M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG01M(gen)...
        + D02  *  TCUa  *  TUCa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG02M(gen)...
        + Dx2  *  TCUa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (1-TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (1-MC));

    pG02Ftemp(gen) = pG02Ftemp(gen) + 0.5  *  ((0 ...
        + D04  *  TUCa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  (2  *  TMC  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG03Ftemp(gen) = 0.5  *  ((0 ...
        + D04  *  TUCa  *  TUCa  *  pG02F(gen)  *  pG02M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG02F(gen)  *  pG03M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  TUHa  *  pG03F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  TUHa  *  pG03F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        )  *  ((1-TMC)  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        )  *  ((1-MC)  *  (1-MC)));

    pG04Ftemp(gen) = 0.5  *  (0 ...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG10M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc4  *  CLEa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        );

    pG04Ftemp(gen) = pG04Ftemp(gen) + 0.5  *  (0 ...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG10F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG10F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        );

    pG04Ftemp(gen) = pG04Ftemp(gen) + 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG10M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  CLEa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc4  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (TMC  *  TMC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  UNCa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  UCHa  *  TUHa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC  *  MC));

    pG05Ftemp(gen) = 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG04M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG05M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG10M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG04M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG05M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG10M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (1-TMC)...
        + (0 ...
        + D04  *  TUCa  *  none  *  pG04F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG04F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG01M(gen)...
        + D08  *  TUCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  CLEa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG05F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc4  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  CEUa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG06F(gen)  *  pG03M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (1-MC));

    pG05Ftemp(gen) = pG05Ftemp(gen) + 0.5  *  (0 ...
        + D02  *  TUCa  *  none  *  pG10F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG10F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG12F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG12F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        );

    pG05Ftemp(gen) = pG05Ftemp(gen) + 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  (2  *  TMC  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  UNCa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  UCHa  *  TUHa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG06Ftemp(gen) = 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG05M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG06M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG11M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG12M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG05M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG06M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG11M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG12M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        )  *  ((1-TMC)  *  (1-TMC))...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG05F(gen)  *  pG02M(gen)...
        + D04  *  UNCa  *  TUHa  *  pG05F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  TUCa  *  pG06F(gen)  *  pG02M(gen)...
        + D02  *  UCHa  *  TUHa  *  pG06F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D04  *  TUCa  *  none  *  pG11F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG11F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG12F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG12F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        );

    pG07Ftemp(gen) = 0.5  *  (0 ...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TCUa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  CLEa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  CEUa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  CEUa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  CEUa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        );

    pG07Ftemp(gen) = pG07Ftemp(gen) + 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (TMC)...
        + (0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (MC)...
        + (0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (TMC  *  TMC)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (MC  *  MC));

    pG08Ftemp(gen) = 0.5  *  ((0 ...
        + D04  *  UNCa  *  none  *  pG01F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG01F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG01F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG01F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG01F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG07M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG02F(gen)  *  pG08M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG13M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D08  *  TCEa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D04  *  TCEa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TCEa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG07M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG03F(gen)  *  pG08M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG13M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D04  *  TCUa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + D02  *  TCUa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TCUa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (1-TMC)...
        + (0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  none  *  pG07F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG07F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG01M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG08F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  CLEa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG08F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  CLEa  *  pG08F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc4  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG01M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  CEUa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  CEUa  *  pG09F(gen)  *  pG03M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc1  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (1-MC));

    pG08Ftemp(gen) = pG08Ftemp(gen) + 0.5  *  (0 ...
        + D04  *  TUCa  *  none  *  pG13F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG13F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG01M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TCEa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TCUa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG01M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TCEa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TUCa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D02  *  TCUa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D02  *  TUHa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + Dx1  *  none  *  none  *  pG18F(gen)  *  pG01M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG02M(gen)...
        + D02  *  TCEa  *  none  *  pG18F(gen)  *  pG02M(gen)...
        + Dx1  *  TCUa  *  none  *  pG18F(gen)  *  pG03M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG09M(gen)...
        );

    pG08Ftemp(gen) = pG08Ftemp(gen) + 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  (2  *  TMC  *  (1-TMC))...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG09Ftemp(gen) = 0.5  *  ((0 ...
        + D08  *  TUCa  *  UNCa  *  pG02F(gen)  *  pG08M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG02F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG02F(gen)  *  pG14M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG15M(gen)...
        + D04  *  TUCa  *  none  *  pG02F(gen)  *  pG17M(gen)...
        + D02  *  TUCa  *  none  *  pG02F(gen)  *  pG18M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG03F(gen)  *  pG08M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG03F(gen)  *  pG09M(gen)...
        + D04  *  TUHa  *  none  *  pG03F(gen)  *  pG14M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG15M(gen)...
        + D02  *  TUHa  *  none  *  pG03F(gen)  *  pG17M(gen)...
        + Dx1  *  TUHa  *  none  *  pG03F(gen)  *  pG18M(gen)...
        )  *  ((1-TMC)  *  (1-TMC))...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UCHa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  TUCa  *  UNCa  *  pG08F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  UNCa  *  pG08F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  TUCa  *  UCHa  *  pG09F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  UCHa  *  pG09F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D08  *  TUCa  *  none  *  pG14F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  none  *  pG14F(gen)  *  pG03M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  TUCa  *  none  *  pG15F(gen)  *  pG02M(gen)...
        + D02  *  TUHa  *  none  *  pG15F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D08  *  TUCa  *  none  *  pG17F(gen)  *  pG02M(gen)...
        + D04  *  TUHa  *  none  *  pG17F(gen)  *  pG03M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D02  *  TUCa  *  none  *  pG18F(gen)  *  pG02M(gen)...
        + Dx1  *  TUHa  *  none  *  pG18F(gen)  *  pG03M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG09M(gen));

    pG10Ftemp(gen) = 0.5  *  (0 ...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG06M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG14M(gen));

    pG10Ftemp(gen) =  pG10Ftemp(gen) + 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (MC)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (MC  *  MC));

    pG11Ftemp(gen) = 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG10M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (1-MC));

    pG11Ftemp(gen) = pG11Ftemp(gen)+ 0.5  *  (0 ...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG15M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG12Ftemp(gen) = 0.5  *  ((0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG15M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG15M(gen));

    pG13Ftemp(gen) = 0.5  *  (0 ...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  CLEa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  CLEa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  CEUa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        );

    pG13Ftemp(gen) =  pG13Ftemp(gen) + 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (MC  *  MC));

    pG14Ftemp(gen) = 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG04F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG04F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG04F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG04F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG04F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG07M(gen)...
        + Dc8  *  UNCa  *  none  *  pG05F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG05F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG06F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG04M(gen)...
        + Dc8  *  UNCa  *  none  *  pG08F(gen)  *  pG05M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG06M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG10M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG04M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG10M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (1-MC));

    pG14Ftemp(gen) = pG14Ftemp(gen)+ 0.5  *  (0 ...
        + D04  *  UNCa  *  none  *  pG10F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG10F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG10F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG10F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG10F(gen)  *  pG18M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG18M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG17M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG18M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG04M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG10M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG04M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG10M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG04M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + Dx1  *  none  *  pG18F(gen)  *  pG10M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG11M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG13M(gen)...
        + D04  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG15Ftemp(gen) = 0.5  *  ((0 ...
        + D16  *  UNCa  *  UNCa  *  pG05F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG05F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG05F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG05F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG05F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG06F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG06F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG06F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG06F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG06F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG05M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG11M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG12M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG06M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG11M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG12M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D08  *  UNCa  *  none  *  pG11F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG11F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG11F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG11F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG11F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG12F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG12F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG12F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG12F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  none  *  pG12F(gen)  *  pG18M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG05M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG06M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG11M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG06M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG05M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG06M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG11M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG12M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG05M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG06M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG11M(gen)...
        + Dx1  *  none  *  none  *  pG18F(gen)  *  pG12M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG15M(gen));

    pG17Ftemp(gen) = 0.5  *  ((0 ...
        + D08  *  UNCa  *  none  *  pG07F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG07F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG07F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG07F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG07F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG07M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG08M(gen)...
        + Dc8  *  CLEa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG08F(gen)  *  pG09M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG13M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  none  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D16  *  CLEa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  none  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D08  *  CLEa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  CLEa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG07M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  UNCa  *  pG09F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + Dc2  *  CEUa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG13M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D08  *  CEUa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D04  *  CEUa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  CEUa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (1-MC)...
        + D08  *  UNCa  *  none  *  pG13F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG13F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG13F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG13F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG13F(gen)  *  pG18M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG07M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  CLEa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  CEUa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG13M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG07M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  CLEa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  CEUa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG18M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG07M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D04  *  CLEa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  CEUa  *  none  *  pG18F(gen)  *  pG09M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG13M(gen)...
        + D04  *  none  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + D02  *  none  *  none  *  pG18F(gen)  *  pG17M(gen)...
        + (0 ...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  (2  *  MC  *  (1-MC)));

    pG18Ftemp(gen) = 0.5  *  ((0 ...
        + D16  *  UNCa  *  UNCa  *  pG08F(gen)  *  pG08M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG08F(gen)  *  pG09M(gen)...
        + D16  *  UNCa  *  none  *  pG08F(gen)  *  pG14M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG15M(gen)...
        + D08  *  UNCa  *  none  *  pG08F(gen)  *  pG17M(gen)...
        + D04  *  UNCa  *  none  *  pG08F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  UCHa  *  pG09F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  UCHa  *  pG09F(gen)  *  pG09M(gen)...
        + D08  *  UCHa  *  none  *  pG09F(gen)  *  pG14M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG15M(gen)...
        + D04  *  UCHa  *  none  *  pG09F(gen)  *  pG17M(gen)...
        + D02  *  UCHa  *  none  *  pG09F(gen)  *  pG18M(gen)...
        )  *  ((1-MC)  *  (1-MC))...
        + D16  *  UNCa  *  none  *  pG14F(gen)  *  pG08M(gen)...
        + D08  *  UCHa  *  none  *  pG14F(gen)  *  pG09M(gen)...
        + D16  *  none  *  none  *  pG14F(gen)  *  pG14M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG15M(gen)...
        + D08  *  none  *  none  *  pG14F(gen)  *  pG17M(gen)...
        + D04  *  none  *  none  *  pG14F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG15F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG15F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG15F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG15F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG15F(gen)  *  pG18M(gen)...
        + D08  *  UNCa  *  none  *  pG17F(gen)  *  pG08M(gen)...
        + D04  *  UCHa  *  none  *  pG17F(gen)  *  pG09M(gen)...
        + D08  *  none  *  none  *  pG17F(gen)  *  pG14M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG15M(gen)...
        + D04  *  none  *  none  *  pG17F(gen)  *  pG17M(gen)...
        + D02  *  none  *  none  *  pG17F(gen)  *  pG18M(gen)...
        + D04  *  UNCa  *  none  *  pG18F(gen)  *  pG08M(gen)...
        + D02  *  UCHa  *  none  *  pG18F(gen)  *  pG09M(gen)...
        + D04  *  none  *  pG18F(gen)  *  pG14M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG15M(gen)...
        + D02  *  none  *  pG18F(gen)  *  pG17M(gen)...
        + Dx1  *  none  *  pG18F(gen)  *  pG18M(gen)...
        );

    pG01Mtemp2(gen) = pG01Mtemp(gen)  *  (1-mutCas9)^2;
    pG02Mtemp2(gen) = pG02Mtemp(gen)  *  (1-mutCas9)^2;
    pG03Mtemp2(gen) = pG03Mtemp(gen)  *  (1-mutCas9)^2;
    pG04Mtemp2(gen) = pG04Mtemp(gen)  *  (1-mutCas9) + pG01Mtemp(gen)  *  2  *  mutCas9  *  (1-mutCas9);
    pG05Mtemp2(gen) = pG05Mtemp(gen)  *  (1-mutCas9) + pG02Mtemp(gen)  *  2  *  mutCas9  *  (1-mutCas9);
    pG06Mtemp2(gen) = pG06Mtemp(gen)  *  (1-mutCas9) + pG03Mtemp(gen)  *  2  *  mutCas9  *  (1-mutCas9);
    pG07Mtemp2(gen) = pG07Mtemp(gen)  *  (1-mutCas9);
    pG08Mtemp2(gen) = pG08Mtemp(gen)  *  (1-mutCas9);
    pG09Mtemp2(gen) = pG09Mtemp(gen)  *  (1-mutCas9);
    pG10Mtemp2(gen) = pG10Mtemp(gen) + pG04Mtemp(gen)  *  mutCas9 + pG01Mtemp(gen)  *  (mutCas9)^2;
    pG11Mtemp2(gen) = pG11Mtemp(gen) + pG05Mtemp(gen)  *  mutCas9 + pG02Mtemp(gen)  *  (mutCas9)^2;
    pG12Mtemp2(gen) = pG12Mtemp(gen) + pG06Mtemp(gen)  *  mutCas9 + pG03Mtemp(gen)  *  (mutCas9)^2;
    pG13Mtemp2(gen) = pG13Mtemp(gen) + pG07Mtemp(gen)  *  mutCas9;
    pG14Mtemp2(gen) = pG14Mtemp(gen) + pG08Mtemp(gen)  *  mutCas9;
    pG15Mtemp2(gen) = pG15Mtemp(gen) + pG09Mtemp(gen)  *  mutCas9;
    pG17Mtemp2(gen) = pG17Mtemp(gen);
    pG18Mtemp2(gen) = pG18Mtemp(gen);

    pG01Ftemp2(gen) = pG01Ftemp(gen)  *  (1-mutCas9)^2;
    pG02Ftemp2(gen) = pG02Ftemp(gen)  *  (1-mutCas9)^2;
    pG03Ftemp2(gen) = pG03Ftemp(gen)  *  (1-mutCas9)^2;
    pG04Ftemp2(gen) = pG04Ftemp(gen)  *  (1-mutCas9) + pG01Ftemp(gen)  *  2  *  mutCas9  *  (1-mutCas9);
    pG05Ftemp2(gen) = pG05Ftemp(gen)  *  (1-mutCas9) + pG02Ftemp(gen)  *  2  *  mutCas9  *  (1-mutCas9);
    pG06Ftemp2(gen) = pG06Ftemp(gen)  *  (1-mutCas9) + pG03Ftemp(gen)  *  2  *  mutCas9  *  (1-mutCas9);
    pG07Ftemp2(gen) = pG07Ftemp(gen)  *  (1-mutCas9);
    pG08Ftemp2(gen) = pG08Ftemp(gen)  *  (1-mutCas9);
    pG09Ftemp2(gen) = pG09Ftemp(gen)  *  (1-mutCas9);
    pG10Ftemp2(gen) = pG10Ftemp(gen) + pG04Ftemp(gen)  *  mutCas9 + pG01Ftemp(gen)  *  (mutCas9)^2;
    pG11Ftemp2(gen) = pG11Ftemp(gen) + pG05Ftemp(gen)  *  mutCas9 + pG02Ftemp(gen)  *  (mutCas9)^2;
    pG12Ftemp2(gen) = pG12Ftemp(gen) + pG06Ftemp(gen)  *  mutCas9 + pG03Ftemp(gen)  *  (mutCas9)^2;
    pG13Ftemp2(gen) = pG13Ftemp(gen) + pG07Ftemp(gen)  *  mutCas9;
    pG14Ftemp2(gen) = pG14Ftemp(gen) + pG08Ftemp(gen)  *  mutCas9;
    pG15Ftemp2(gen) = pG15Ftemp(gen) + pG09Ftemp(gen)  *  mutCas9;
    pG17Ftemp2(gen) = pG17Ftemp(gen);
    pG18Ftemp2(gen) = pG18Ftemp(gen);

    % Normalizing constant (takes into account fitness costs):
    sigma(gen) = pG01Mtemp2(gen)  *  (1-sG01M)...
        + pG02Mtemp2(gen)  *  (1-sG02M)...
        + pG03Mtemp2(gen)  *  (1-sG03M)...
        + pG04Mtemp2(gen)  *  (1-sG04M)...
        + pG05Mtemp2(gen)  *  (1-sG05M)...
        + pG06Mtemp2(gen)  *  (1-sG06M)...
        + pG07Mtemp2(gen)  *  (1-sG07M)...
        + pG08Mtemp2(gen)  *  (1-sG08M)...
        + pG09Mtemp2(gen)  *  (1-sG09M)...
        + pG10Mtemp2(gen)  *  (1-sG10M)...
        + pG11Mtemp2(gen)  *  (1-sG11M)...
        + pG12Mtemp2(gen)  *  (1-sG12M)...
        + pG13Mtemp2(gen)  *  (1-sG13M)...
        + pG14Mtemp2(gen)  *  (1-sG14M)...
        + pG15Mtemp2(gen)  *  (1-sG15M)...
        + pG17Mtemp2(gen)  *  (1-sG17M)...
        + pG18Mtemp2(gen)...
        + pG01Ftemp2(gen)  *  (1-sG01F)...
        + pG02Ftemp2(gen)  *  (1-sG02F)...
        + pG03Ftemp2(gen)  *  (1-sG03F)...
        + pG04Ftemp2(gen)  *  (1-sG04F)...
        + pG05Ftemp2(gen)  *  (1-sG05F)...
        + pG06Ftemp2(gen)  *  (1-sG06F)...
        + pG07Ftemp2(gen)  *  (1-sG07F)...
        + pG08Ftemp2(gen)  *  (1-sG08F)...
        + pG09Ftemp2(gen)  *  (1-sG09F)...
        + pG10Ftemp2(gen)  *  (1-sG10F)...
        + pG11Ftemp2(gen)  *  (1-sG11F)...
        + pG12Ftemp2(gen)  *  (1-sG12F)...
        + pG13Ftemp2(gen)  *  (1-sG13F)...
        + pG14Ftemp2(gen)  *  (1-sG14F)...
        + pG15Ftemp2(gen)  *  (1-sG15F)...
        + pG17Ftemp2(gen)  *  (1-sG17F)...
        + pG18Ftemp2(gen);

    % Normalized genotype frequencies:
    if gen < numGensRelease
        % Taking into account new releases:
        pG01M(gen+1) = (1-IF)  *  pG01Mtemp2(gen)  *  (1-sG01M)/sigma(gen) + IFa;
        pG02M(gen+1) = (1-IF)  *  pG02Mtemp2(gen)  *  (1-sG02M)/sigma(gen);
        pG03M(gen+1) = (1-IF)  *  pG03Mtemp2(gen)  *  (1-sG03M)/sigma(gen);
        pG04M(gen+1) = (1-IF)  *  pG04Mtemp2(gen)  *  (1-sG04M)/sigma(gen) + IF2;
        pG05M(gen+1) = (1-IF)  *  pG05Mtemp2(gen)  *  (1-sG05M)/sigma(gen);
        pG06M(gen+1) = (1-IF)  *  pG06Mtemp2(gen)  *  (1-sG06M)/sigma(gen);
        pG07M(gen+1) = (1-IF)  *  pG07Mtemp2(gen)  *  (1-sG07M)/sigma(gen);
        pG08M(gen+1) = (1-IF)  *  pG08Mtemp2(gen)  *  (1-sG08M)/sigma(gen);
        pG09M(gen+1) = (1-IF)  *  pG09Mtemp2(gen)  *  (1-sG09M)/sigma(gen);
        pG10M(gen+1) = (1-IF)  *  pG10Mtemp2(gen)  *  (1-sG10M)/sigma(gen);
        pG11M(gen+1) = (1-IF)  *  pG11Mtemp2(gen)  *  (1-sG11M)/sigma(gen);
        pG12M(gen+1) = (1-IF)  *  pG12Mtemp2(gen)  *  (1-sG12M)/sigma(gen);
        pG13M(gen+1) = (1-IF)  *  pG13Mtemp2(gen)  *  (1-sG13M)/sigma(gen);
        pG14M(gen+1) = (1-IF)  *  pG14Mtemp2(gen)  *  (1-sG14M)/sigma(gen);
        pG15M(gen+1) = (1-IF)  *  pG15Mtemp2(gen)  *  (1-sG15M)/sigma(gen);
        pG17M(gen+1) = (1-IF)  *  pG17Mtemp2(gen)  *  (1-sG17M)/sigma(gen);
        pG18M(gen+1) = (1-IF)  *  pG18Mtemp2(gen)/sigma(gen);
        pG01F(gen+1) = (1-IF)  *  pG02Ftemp2(gen)  *  (1-sG02F)/sigma(gen);
        pG02F(gen+1) = (1-IF)  *  pG02Ftemp2(gen)  *  (1-sG02F)/sigma(gen);
        pG03F(gen+1) = (1-IF)  *  pG03Ftemp2(gen)  *  (1-sG03F)/sigma(gen);
        pG04F(gen+1) = (1-IF)  *  pG04Ftemp2(gen)  *  (1-sG04F)/sigma(gen);
        pG05F(gen+1) = (1-IF)  *  pG05Ftemp2(gen)  *  (1-sG05F)/sigma(gen);
        pG06F(gen+1) = (1-IF)  *  pG06Ftemp2(gen)  *  (1-sG06F)/sigma(gen);
        pG07F(gen+1) = (1-IF)  *  pG07Ftemp2(gen)  *  (1-sG07F)/sigma(gen);
        pG08F(gen+1) = (1-IF)  *  pG08Ftemp2(gen)  *  (1-sG08F)/sigma(gen);
        pG09F(gen+1) = (1-IF)  *  pG09Ftemp2(gen)  *  (1-sG09F)/sigma(gen);
        pG10F(gen+1) = (1-IF)  *  pG10Ftemp2(gen)  *  (1-sG10F)/sigma(gen);
        pG11F(gen+1) = (1-IF)  *  pG11Ftemp2(gen)  *  (1-sG11F)/sigma(gen);
        pG12F(gen+1) = (1-IF)  *  pG12Ftemp2(gen)  *  (1-sG12F)/sigma(gen);
        pG13F(gen+1) = (1-IF)  *  pG13Ftemp2(gen)  *  (1-sG13F)/sigma(gen);
        pG14F(gen+1) = (1-IF)  *  pG14Ftemp2(gen)  *  (1-sG14F)/sigma(gen);
        pG15F(gen+1) = (1-IF)  *  pG15Ftemp2(gen)  *  (1-sG15F)/sigma(gen);
        pG17F(gen+1) = (1-IF)  *  pG17Ftemp2(gen)  *  (1-sG17F)/sigma(gen);
        pG18F(gen+1) = (1-IF)  *  pG18Ftemp2(gen)/sigma(gen);

    else
        % In the absence of new releases:
        pG01M(gen+1) = pG01Mtemp2(gen)  *  (1-sG01M)/sigma(gen);
        pG02M(gen+1) = pG02Mtemp2(gen)  *  (1-sG02M)/sigma(gen);
        pG03M(gen+1) = pG03Mtemp2(gen)  *  (1-sG03M)/sigma(gen);
        pG04M(gen+1) = pG04Mtemp2(gen)  *  (1-sG04M)/sigma(gen);
        pG05M(gen+1) = pG05Mtemp2(gen)  *  (1-sG05M)/sigma(gen);
        pG06M(gen+1) = pG06Mtemp2(gen)  *  (1-sG06M)/sigma(gen);
        pG07M(gen+1) = pG07Mtemp2(gen)  *  (1-sG07M)/sigma(gen);
        pG08M(gen+1) = pG08Mtemp2(gen)  *  (1-sG08M)/sigma(gen);
        pG09M(gen+1) = pG09Mtemp2(gen)  *  (1-sG09M)/sigma(gen);
        pG10M(gen+1) = pG10Mtemp2(gen)  *  (1-sG10M)/sigma(gen);
        pG11M(gen+1) = pG11Mtemp2(gen)  *  (1-sG11M)/sigma(gen);
        pG12M(gen+1) = pG12Mtemp2(gen)  *  (1-sG12M)/sigma(gen);
        pG13M(gen+1) = pG13Mtemp2(gen)  *  (1-sG13M)/sigma(gen);
        pG14M(gen+1) = pG14Mtemp2(gen)  *  (1-sG14M)/sigma(gen);
        pG15M(gen+1) = pG15Mtemp2(gen)  *  (1-sG15M)/sigma(gen);
        pG17M(gen+1) = pG17Mtemp2(gen)  *  (1-sG17M)/sigma(gen);
        pG18M(gen+1) = pG18Mtemp2(gen)/sigma(gen);
        pG01F(gen+1) = pG01Ftemp2(gen)  *  (1-sG01F)/sigma(gen);
        pG02F(gen+1) = pG02Ftemp2(gen)  *  (1-sG02F)/sigma(gen);
        pG03F(gen+1) = pG03Ftemp2(gen)  *  (1-sG03F)/sigma(gen);
        pG04F(gen+1) = pG04Ftemp2(gen)  *  (1-sG04F)/sigma(gen);
        pG05F(gen+1) = pG05Ftemp2(gen)  *  (1-sG05F)/sigma(gen);
        pG06F(gen+1) = pG06Ftemp2(gen)  *  (1-sG06F)/sigma(gen);
        pG07F(gen+1) = pG07Ftemp2(gen)  *  (1-sG07F)/sigma(gen);
        pG08F(gen+1) = pG08Ftemp2(gen)  *  (1-sG08F)/sigma(gen);
        pG09F(gen+1) = pG09Ftemp2(gen)  *  (1-sG09F)/sigma(gen);
        pG10F(gen+1) = pG10Ftemp2(gen)  *  (1-sG10F)/sigma(gen);
        pG11F(gen+1) = pG11Ftemp2(gen)  *  (1-sG11F)/sigma(gen);
        pG12F(gen+1) = pG12Ftemp2(gen)  *  (1-sG12F)/sigma(gen);
        pG13F(gen+1) = pG13Ftemp2(gen)  *  (1-sG13F)/sigma(gen);
        pG14F(gen+1) = pG14Ftemp2(gen)  *  (1-sG14F)/sigma(gen);
        pG15F(gen+1) = pG15Ftemp2(gen)  *  (1-sG15F)/sigma(gen);
        pG17F(gen+1) = pG17Ftemp2(gen)  *  (1-sG17F)/sigma(gen);
        pG18F(gen+1) = pG18Ftemp2(gen)/sigma(gen);
    end
    
    % calculate proportion of population bearing at least one copy
    % of the cargo
    pcargobearing(gen) = (pG01M(gen+1)+pG02M(gen+1)+pG03M(gen+1)...
        +pG04M(gen+1)+pG05M(gen+1)+pG06M(gen+1)...
        +pG07M(gen+1)+pG08M(gen+1)+pG09M(gen+1)...
        +pG10M(gen+1)+pG11M(gen+1)+pG12M(gen+1)...
        +pG13M(gen+1)+pG14M(gen+1)+pG15M(gen+1)...
        +pG01F(gen+1)+pG02F(gen+1)+pG03F(gen+1)...
        +pG04F(gen+1)+pG05F(gen+1)+pG06F(gen+1)...
        +pG07F(gen+1)+pG08F(gen+1)+pG09F(gen+1)...
        +pG10F(gen+1)+pG11F(gen+1)+pG12F(gen+1)...
        +pG13F(gen+1)+pG14F(gen+1)+pG15F(gen+1));
    

    % Check if >99% of population bears T and check for gencheck
    % generations afterward
    if gencounter == 0
        if pcargobearing(gen)>0.99
            savegen = gen;
            gencounter = gencounter + 1;
        end
    elseif gencounter < gencheck
        if pcargobearing(gen)>0.99
            gencounter = gencounter + 1;
        else
            savegen = 10000;
            gencounter = 0;
        end
    else
        FC_IF_datapoint = savegen;
        break;
    end
end



end