Function Description
********************

	Name: Z_CHEM_MON_TRI 
	Function: De-nature Monomer/Trimer 
	Parameters: a0 a1 a2 a3 a4 a5 a6 RT 

Notes
*****

	Pierre Lavigne's Chemical Denaturation of Monomer/Trimer

C-code for the function
***********************

b = exp((-a[4] + a[5] * x) / a[7]);
c = b / (3.0 * a[6] * a[6]);
d = 0.5 * c;
e = sqrt(c * c * (0.25 + 0.03704 * c));
g = d + e;
h = d - e;
w = pow(g, 0.3333333) - pow(fabs(h), 0.3333333);
f = exp((0.0 - a[0] + a[1] * x) / a[7]);
answer = (1.0 - w) * a[2] + (1.0 - f / (1.0 + f)) * a[3];