function [Pcb, Ptb, Pt, Pn] = ClvR_2lAA_multirun_support(FC,FCnc,HI,Ca,M,mut,i1,i2,gens)

% Function that supports ClvR_2lAA_multirun 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 = 0+FC;
sG02M = 0+FC;
sG03M = 0+FC;
sG04M = 0+FC/2+FCnc/2+HI;
sG05M = 0+FC/2+FCnc/2;
sG06M = 0+FC/2+FCnc/2;
sG07M = 0+FC/2+HI;
sG08M = 0+FC/2;
sG09M = 0+FC/2;
sG10M = 0+FCnc;
sG11M = 0+FCnc;
sG12M = 0+FCnc;
sG13M = 0+FCnc/2+HI;
sG14M = 0+FCnc/2;
sG15M = 0+FCnc/2;
sG17M = 0+HI;
sG01F = 0+FC;
sG02F = 0+FC;
sG03F = 0+FC;
sG04F = 0+FC/2+FCnc/2+HI;
sG05F = 0+FC/2+FCnc/2;
sG06F = 0+FC/2+FCnc/2;
sG07F = 0+FC/2+HI;
sG08F = 0+FC/2;
sG09F = 0+FC/2;
sG10F = 0+FCnc;
sG11F = 0+FCnc;
sG12F = 0+FCnc;
sG13F = 0+FCnc/2+HI;
sG14F = 0+FCnc/2;
sG15F = 0+FCnc/2;
sG17F = 0+HI;

% 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

IF = i1;
IF2 = i2;
IFa = IF-IF2;
numGensRelease = 1;
numGens = gens;


% 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
sigma = zeros(1,numGens);



% 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:numGens

    % 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)  *  pG10Femp2(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
end

% possible output proportions:
% Pcb- cargo bearing
% Ptb- T bearing
% Pt- fraction of T alleles
% Pn- fraction of N alleles
Pcb = 100  *  (pG01M+pG02M+pG03M+pG04M+pG05M+pG06M+pG07M+pG08M+pG09M...
    +pG10M+pG11M+pG12M+pG13M+pG14M+pG15M...
    +pG01F+pG02F+pG03F+pG04F+pG05F+pG06F+pG07F+pG08F+pG09F...
    +pG10F+pG11F+pG12F+pG13F+pG14F+pG15F); 
Ptb = 100  *  (pG01M+pG02M+pG03M+pG04M+pG05M+pG06M+pG07M+pG08M+pG09M...
    +pG01F+pG02F+pG03F+pG04F+pG05F+pG06F+pG07F+pG08F+pG09F);
Pt = 100  *  (2  *  pG01M+2  *  pG02M+2  *  pG03M+pG04M+pG05M+pG06M+pG07M+pG08M+pG09M...
    +2  *  pG01F+2  *  pG02F+2  *  pG03F+pG04F+pG05F+pG06F+pG07F+pG08F+pG09F)/2;
Pn = 100  *  (pG04M+pG05M+pG06M+2  *  pG10M+2  *  pG11M+2  *  pG12M+pG13M+pG14M+pG15M...
    +pG04F+pG05F+pG06F+2  *  pG10F+2  *  pG11F+2  *  pG12F+pG13F+pG14F+pG15F)/2;


end